12205Srootmodel|mod|m:\ 2*8787Smckusick :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\ 3*8787Smckusick :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\ 43850Spresott :cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\ 52205Sroot :kw=abs and array beginproc boolean by case cdnl char copied dispose\ 6*8787Smckusick div do dynamic else elsif end endproc entry external FALSE false\ 7*8787Smckusick fi file for formal fortran global if iff ift\ 8*8787Smckusick in integer include inline is lbnd\ 92205Sroot max min mod new NIL nil noresult not notin od of or procedure public\ 10*8787Smckusick read readln readonly record recursive rem rep repeat res\ 11*8787Smckusick result return set\ 122205Sroot space string subscript such then TRUE true type ubnd union until\ 13*8787Smckusick varies while width: 142205Srootpascal|pasc|p:\ 152205Sroot :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\ 162205Sroot :bb=\dcase|begin\d:be=\dend|forward\d|;:\ 173883Spresott :cb={:ce=}:\ 183883Spresott :ab=\(*:ae=*\):\ 193883Spresott :sb=':se=':\ 202205Sroot :kw=and array assert begin case const div do downto else end file for\ 212205Sroot forward function goto if in label mod nil not of or packed procedure\ 222205Sroot program record repeat set then to type until var while with oct hex\ 232205Sroot external: 242205SrootC|c:\ 253395Spresott :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\ 262205Sroot :le=\e':tl:\ 272205Sroot :kw=asm auto break case char continue default do double else enum\ 282205Sroot extern float for fortran goto if int long register return short\ 292205Sroot sizeof static struct switch typedef union unsigned while #define\ 302205Sroot #else #endif #if #ifdef #ifndef #include #undef # define else endif\ 312205Sroot if ifdef ifndef include undef: 322290SrootISP|isp|i:\ 332292Sroot :cb=!:ce=!|$:oc:\ 342205Sroot :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\ 352205Sroot neq next not or otherwise repeat restart resume sr0 sr1 srd srr sl0 sl1\ 362205Sroot sld slr tst xor: 373236SpresottSH|sh:\ 383237Spresott :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ 393236Spresott :le=\e':tl:\ 403236Spresott :kw=break case cd continue do done \ 413236Spresott elif else esac eval exec exit export \ 423236Spresott fi for if in then while until \ 433236Spresott read readonly set shift test trap umask wait: 443236SpresottCSH|csh:\ 453237Spresott :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ 463236Spresott :le=\e':tl:\ 473237Spresott :kw=alias alloc break breaksw case cd chdir continue default\ 483236Spresott echo else end endif endsw exec exit foreach \ 493237Spresott glob goto history if logout nice nohup onintr repeat set\ 503236Spresott setenv shift source switch then time \ 513236Spresott while umask unalias unset wait while @ env \ 523236Spresott argv child home ignoreeof noclobber noglob \ 533236Spresott nomatch path prompt shell status verbose : 54*8787Smckusickldl|LDL:\ 55*8787Smckusick :pb=^\p\::bb=\::be=;:cb=/*:ce=*/:sb=":se=\e":\ 56*8787Smckusick :kw=constant functions grammar reswords tokens add1 addste\ 57*8787Smckusick car cdr check colno cond cons copy defun divide empty enter\ 58*8787Smckusick eq equal findattr firstchild ge getattr getfield gt hash label\ 59*8787Smckusick lambda lastchild le leftsibling lookone lookup lt minus name ne\ 60*8787Smckusick newnode nextcom nil null parent plus precnl prevcom prog progn\ 61*8787Smckusick quote reglob return rightsibling self set setattr setfield setq\ 62*8787Smckusick stjoin sub1 t times tnull tokno ttype: 63