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

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.