Return to cmake.l CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / lisp / liszt

Annotation of 43BSD/ucb/lisp/liszt/cmake.l, revision 1.1

1.1     ! root        1: ; file which loads in all the object files and dumps them
        !             2: 
        !             3: ; $Header: cmake.l,v 1.6 83/08/14 01:45:39 layer Exp $
        !             4: 
        !             5: ;                              -[Sat Aug 13 18:03:38 1983 by layer]-
        !             6: 
        !             7: ;--- genl :: generate liszt
        !             8: ; args are unevalated.  first arg is the name of the liszt to build
        !             9: ; other args [optional]:  slow         - build interpreted.
        !            10: ;
        !            11: (defun genl fexpr (args)
        !            12:    (let ((dumpname (car args))
        !            13:         (slowp (memq 'slow (cdr args))))
        !            14:       (load 'fcninfo)  ; in /usr/lib/lisp (not normally in lisp)
        !            15:       (if slowp then (load '../cmacros.l))
        !            16:       (mapc '(lambda (name)
        !            17:                (if slowp
        !            18:                   then ; lisp source is in ..
        !            19:                        (load (concat "../" name ".l"))
        !            20:                   else ; objects are in .
        !            21:                        (load name)))
        !            22:            '(decl array vector datab expr io funa funb func tlev
        !            23:                   instr fixnum util lversion))
        !            24:       (allocate 'list 400)
        !            25:       (allocate 'fixnum 10)
        !            26:       (allocate 'symbol 50)
        !            27:       (sstatus translink on)
        !            28:       (if slowp then (setq displace-macros t))
        !            29:       (sstatus nofeature for-vax) ; remove memory of what it was compiled for
        !            30:       (sstatus nofeature for-68k)
        !            31:       ;indicate type of compiler (np and lbot in global registers)
        !            32:       (setq $global-reg$ (not (status feature no-global-reg)))
        !            33:       (putprop 'chead nil 'version)  ; so the compiler can compile itself
        !            34:       (setq ER%tpl 'break-err-handler) ; in case we are using another tpl
        !            35:       ; this is a temporary measure
        !            36:       (apply 'dumplisp (list dumpname))))

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