Return to caspecs.l CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / liszt

Annotation of 40BSD/cmd/liszt/caspecs.l, revision 1.1.1.1

1.1       root        1: 
                      2: ;------ special variables --------
                      3: 
                      4: 
                      5: 
                      6: ;sccs id:  @(#)caspecs.l       5.3     10/22/80
                      7: 
                      8: ; Copyright (c) 1980 ,  The Regents of the University of California.
                      9: ; All rights reserved.  
                     10: ; author: j. foderaro
                     11: 
                     12: (declare (special v-form g-loc g-cc g-locs g-loccnt g-labs g-args
                     13:                  g-ret g-skipcode g-dropnpcnt
                     14:                  g-bindloc fl-comments g-tran g-trancnt g-tranloc
                     15:                  g-topsym g-reguse g-ignorereg
                     16:                  fl-inter fl-xref
                     17:                 g-lits g-litcnt g-funcs g-spec Np-reg
                     18:                 Lbot-reg bind-reg np-plus bNp-reg
                     19:                 oLbot-reg Bnp-val ch-newline 
                     20:                 compiler-name internal-macros
                     21:                 old-top-level poport piport compiler-name
                     22:                 readtable original-readtable er-fatal ibase
                     23:                 fl-macl fl-tty g-functype g-spec g-litcnt
                     24:                 g-trueloc g-lits g-funcs g-fname g-comments
                     25:                 g-localf g-flocal g-ftype
                     26:                 twa-list old-declare-fcn vps-include fl-verb
                     27:                 user-top-level $gccount$ macros g-current
                     28:                 fl-profile fl-tran
                     29:                 g-allf fl-vms vp-xfile v-xfile 
                     30:                 vms-pointers g-refseen g-reflst fl-warn
                     31:                 g-currentargs
                     32:                 $gc-count$
                     33:                 special
                     34:                 liszt-eof-forms
                     35:                 liszt-root-name
                     36:                 liszt-file-name
                     37:                 k-ftype vp-sfile formsiz)
                     38:   ;local functions in car.l
                     39:   (localf lcfform dodef d-prelude d-fini d-bindtab 
                     40:          d-asciiout 
                     41:          doevalwhen lambdacvt)
                     42:   ;local functions for cadr and cddr must be calculated
                     43:   )
                     44: 
                     45: 
                     46: ;--- parameters: these must be evaluated at compile time so readmacros will
                     47: ; work
                     48: 
                     49: (eval-when (compile load eval)
                     50:   (setq Np-reg 'r6
                     51:        Lbot-reg 'r7
                     52:        bind-reg 'r8
                     53:        np-plus '(+ r6)
                     54:        bNp-reg 'r5
                     55:        oLbot-reg 'r10
                     56:        ch-newline (ascii #\lf)))
                     57: 
                     58: (eval-when (compile load eval)
                     59:   (setq Bnp-val '_bnp))
                     60: 
                     61: 

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