|
|
1.1 ! root 1: model|mod|m:\ ! 2: :pb=^\d(space\d\p\drep)|(\p\dis|inline|public\dbeginproc):\ ! 3: :bb=\dbeginproc|space|case\d:be=\dendproc|end\d|;:\ ! 4: :cb=\$:ce=\$|$:sb=":se=":lb=':le=\a|$:\ ! 5: :kw=abs and array beginproc boolean by case cdnl char copied dispose\ ! 6: div do dynamic else elsif end endproc entry external FALSE false\ ! 7: fi file for formal fortran global if iff ift\ ! 8: in integer include inline is lbnd\ ! 9: max min mod new NIL nil noresult not notin od of or procedure public\ ! 10: read readln readonly record recursive rem rep repeat res\ ! 11: result return set\ ! 12: space string subscript such then TRUE true type ubnd union until\ ! 13: varies while width: ! 14: pascal|pasc|p:\ ! 15: :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\ ! 16: :bb=\dcase|begin\d:be=\dend|forward\d|;:\ ! 17: :cb={:ce=}:\ ! 18: :ab=\(*:ae=*\):\ ! 19: :sb=':se=':\ ! 20: :kw=and array assert begin case const div do downto else end file for\ ! 21: forward function goto if in label mod nil not of or packed procedure\ ! 22: program record repeat set then to type until var while with oct hex\ ! 23: external: ! 24: C|c:\ ! 25: :pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\ ! 26: :le=\e':tl:\ ! 27: :kw=asm auto break case char continue default do double else enum\ ! 28: extern float for fortran goto if int long register return short\ ! 29: sizeof static struct switch typedef union unsigned while #define\ ! 30: #else #endif #if #ifdef #ifndef #include #undef # define else endif\ ! 31: if ifdef ifndef include undef: ! 32: ISP|isp|i:\ ! 33: :cb=!:ce=!|$:oc:\ ! 34: :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\ ! 35: neq next not or otherwise repeat restart resume sr0 sr1 srd srr sl0 sl1\ ! 36: sld slr tst xor: ! 37: SH|sh:\ ! 38: :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ ! 39: :le=\e':tl:\ ! 40: :kw=break case cd continue do done \ ! 41: elif else esac eval exec exit export \ ! 42: fi for if in then while until \ ! 43: read readonly set shift test trap umask wait: ! 44: CSH|csh:\ ! 45: :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ ! 46: :le=\e':tl:\ ! 47: :kw=alias alloc break breaksw case cd chdir continue default\ ! 48: echo else end endif endsw exec exit foreach \ ! 49: glob goto history if logout nice nohup onintr repeat set\ ! 50: setenv shift source switch then time \ ! 51: while umask unalias unset wait while @ env \ ! 52: argv child home ignoreeof noclobber noglob \ ! 53: nomatch path prompt shell status verbose : ! 54: ldl|LDL:\ ! 55: :pb=^\p\::bb=\::be=;:cb=/*:ce=*/:sb=":se=\e":\ ! 56: :kw=constant functions grammar reswords tokens add1 addste\ ! 57: car cdr check colno cond cons copy defun divide empty enter\ ! 58: eq equal findattr firstchild ge getattr getfield gt hash label\ ! 59: lambda lastchild le leftsibling lookone lookup lt minus name ne\ ! 60: newnode nextcom nil null parent plus precnl prevcom prog progn\ ! 61: quote reglob return rightsibling self set setattr setfield setq\ ! 62: stjoin sub1 t times tnull tokno ttype: ! 63: Icon|icon|I:\ ! 64: :pb=^\d?procedure\d\p\d?\(\a?\):\ ! 65: :bb=(^\d?procedure\d\p\d?\(\a?\))|{:be=}|(^\d?end\d?$):\ ! 66: :cb=#:ce=$:\ ! 67: :sb=":se=\e":lb=':le=\e':tl:\ ! 68: :kw=break by case create default do dynamic else end every external\ ! 69: fail global if initial local next not of procedure record\ ! 70: repeat return static suspend then to until using while\ ! 71: &ascii &clock &cset &date &dateline &errout &fail &host &input\ ! 72: &lcase &level &main &null &output &pos &random &source &subject\ ! 73: &time &trace &ucase &version: ! 74: ratfor|rat|r:\ ! 75: :pb=(subroutine|function)\d\p\d?\(\a?\):\ ! 76: :bb=(subroutine|function)\d\p\d?\(\a?\):be=^\d?end:\ ! 77: :cb=#:ce=$:\ ! 78: :sb=":se=\e":lb=':le=\e':oc:\ ! 79: :kw=DRETURN DRIVER arith break case character default define do\ ! 80: else elsedef enddef filedes for function goto if ifdef ifelse\ ! 81: ifnotdef include incr integer linepointer next opeq pointer\ ! 82: real repeat return select string subroutine substr until:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.