12205Srootmodel|mod|m:\ 22205Sroot :pb=\p\dis\dbeginproc:bb=\dbeginproc\d:be=\dendproc\d|;:\ 33850Spresott :cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\ 42205Sroot :kw=abs and array beginproc boolean by case cdnl char copied dispose\ 52205Sroot div do dynamic else elsif end endproc entry external f FALSE false\ 62205Sroot fi file for formal fortran global if in integer include inline is lbnd\ 72205Sroot max min mod new NIL nil noresult not notin od of or procedure public\ 82205Sroot read readln readonly record recursive rem rep repeat result return set\ 92205Sroot space string subscript such then TRUE true type ubnd union until\ 102205Sroot varies while width write writeln: 112205Srootpascal|pasc|p:\ 122205Sroot :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\ 132205Sroot :bb=\dcase|begin\d:be=\dend|forward\d|;:\ 14*3883Spresott :cb={:ce=}:\ 15*3883Spresott :ab=\(*:ae=*\):\ 16*3883Spresott :sb=':se=':\ 172205Sroot :kw=and array assert begin case const div do downto else end file for\ 182205Sroot forward function goto if in label mod nil not of or packed procedure\ 192205Sroot program record repeat set then to type until var while with oct hex\ 202205Sroot external: 212205SrootC|c:\ 223395Spresott :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\ 232205Sroot :le=\e':tl:\ 242205Sroot :kw=asm auto break case char continue default do double else enum\ 252205Sroot extern float for fortran goto if int long register return short\ 262205Sroot sizeof static struct switch typedef union unsigned while #define\ 272205Sroot #else #endif #if #ifdef #ifndef #include #undef # define else endif\ 282205Sroot if ifdef ifndef include undef: 292290SrootISP|isp|i:\ 302292Sroot :cb=!:ce=!|$:oc:\ 312205Sroot :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\ 322205Sroot neq next not or otherwise repeat restart resume sr0 sr1 srd srr sl0 sl1\ 332205Sroot sld slr tst xor: 343236SpresottSH|sh:\ 353237Spresott :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ 363236Spresott :le=\e':tl:\ 373236Spresott :kw=break case cd continue do done \ 383236Spresott elif else esac eval exec exit export \ 393236Spresott fi for if in then while until \ 403236Spresott read readonly set shift test trap umask wait: 413236SpresottCSH|csh:\ 423237Spresott :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ 433236Spresott :le=\e':tl:\ 443237Spresott :kw=alias alloc break breaksw case cd chdir continue default\ 453236Spresott echo else end endif endsw exec exit foreach \ 463237Spresott glob goto history if logout nice nohup onintr repeat set\ 473236Spresott setenv shift source switch then time \ 483236Spresott while umask unalias unset wait while @ env \ 493236Spresott argv child home ignoreeof noclobber noglob \ 503236Spresott nomatch path prompt shell status verbose : 51