Annotation of 42BSD/ucb/vgrind/vgrindefs.src, revision 1.1.1.1

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:

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.