Return to lxref.x CVS log

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

Annotation of 43BSD/ucb/lisp/liszt/lxref.x, revision 1.1

1.1     ! root        1: (File lxref.l)
        !             2: (implode-fun lambda cons implode <& not cdr cxr list |1-| do)
        !             3: (find-func lambda |1-| implode-fun |1+| eq cond if cdr memq <& not setq or cxr do)
        !             4: (match lambda |1+| match car eq cxr cdr <& and null cond if)
        !             5: (print-rec lambda print-rec msg-print not length tyo car null liszt-internal-do mapc eq =& setq terpr progn msg + cdr >& caar flatc let cond if)
        !             6: (printrcd lambda print-rec quote sortcar let)
        !             7: (anno-check lambda printrcd get find-func setq let quote match cond if)
        !             8: (oversize-check lambda tyo and eq or tyi do cond if)
        !             9: (flush-a-line lambda oversize-check)
        !            10: (write-a-line lambda |1+| cdr tyo terpr oversize-check cond if <& not cxr do)
        !            11: (read-a-line lambda return |1+| cdr rplacx >& cond if eq or tyi do setq)
        !            12: (anno-it lambda anno-check write-a-line setq flush-a-line match cond if null read-a-line do)
        !            13: (process-annotate-file lambda sys:link sys:unlink probef close anno-it outfile concat terpr msg-print progn msg infile setq errset null cond if let)
        !            14: (generate-xref-file lambda cdar flatc + terprchk print not terpr msg-print progn msg nreverse or liszt-internal-do mapcar patom list memq typeit ncons cxr getd cdr cadar caar concat cons sortcar length lessp cond If get car null do quote sort setq)
        !            15: (typeit lambda car dtpr cxr getdisc bcdp cond)
        !            16: (terprchk lambda patom terpr + setq cdr >& > cond)
        !            17: (process-Doc lambda cadr cons setf push putprop get not cond If car setq close null read do)
        !            18: (process-Chome lambda cdr cons setf push putprop get not cond If car setq close null read do)
        !            19: (process-File lambda cdr cddr cadr cons setf push putprop get not cond If car setq close null read do let)
        !            20: (process-xref-file lambda close illegal-file process-Doc process-Chome process-File quote dtpr read concat infile errset null cdr cons implode cadr car eq and If exploden nreverse setq let terpr msg-print progn msg cond if)
        !            21: (illegal-file lambda terpr msg-print progn msg)
        !            22: (lxref nlambda return generate-xref-file not process-xref-file process-annotate-file quote if null do explode cdr readlist fixp car getcharn eq and cond If gensym makereadtable setq prog)
        !            23: (xrefinit lambda terpr patom exit Internal-bcdcall getdisc eq bcdp cxr getd symbolp and funcall errset car setq quote signal cond if command-line-args let)

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