home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e051 / 3.ddi / MAC / COMMAND.COM next >
Encoding:
Text File  |  1983-03-08  |  17.3 KB  |  369 lines
  1. ÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷.)
  2.   (setq *recording* nil)
  3.   (setq *max-record-index* 31.)
  4.   (putvector *record-array* 0. nil))
  5.  
  6. ; *max-record-index* holds the maximum legal index for record-array
  7. ; so it and the following must be changed at the same time
  8.  
  9. (defun begin-record (pdata-matched* *p-name*
  10.           *variable-memory* *ce-variable-memory* *max-index*
  11.           *next-index* *size-result-array* *rest* *build-trace* *last*
  12.           *ptrace* *wtrace* *in-rhs* *recording* *accept-file* *trace-file* 
  13.           *write-file* *record-index* *max-record-index* *old-wm*
  14.           *record* *filters* *break-flag* *strategy* *remaining-cycles*
  15.       *wm-filter* *rhs-bound-vars* *rhs-bound-ce-vars* *ppline* 
  16.       *ce-count* *brkpts* *class-list* *buckets* *action-type*))
  17.  
  18. (declare$ !    FILE: sys$user:[gdw.opsl]createops.com;2
  19. $ !    LastEditDate = Tue Dec  4 00:04:37 1984    GDW
  20. $ ! 
  21. $ !  CREATEOPS.COM: This file will compile the common lisp ops source 
  22. $ !  (ops.lsp), then load the compiled code with several utilities and
  23. $ !  create a suspended image (OPS.SUS). When this image is resumed, using
  24. $ !  the command  LISP /RESUME=OPS.SUS , you will be in ops.
  25. $ !
  26. $ !  required files:
  27. $ !     OPS.LSP -- the 'common' common lisp ops source
  28. $ !    OPSENV.LSP --     several utilities, including key bindings for
  29. $ !            SPAWN/ATTACH to a dcl process, and ATTACH to 
  30. $ !                  an EMACS process named EMACS$<term> where <term>
  31. $ !            is the users terminal (line) name. The function (??)
  32. $ !            gives some aid on this. I suggest using LISP2 mode.
  33. $ !            ALSO includes Lisp functions to define (daytime) 
  34. $ !            which returns the time and date as a string.
  35. $ !
  36. $ !    source: sys$user:[gdw.opsl]bops.com;1
  37. $ !    EditDate = Mon Jul 16 18:27:26 1984    GDW
  38. $ ! 
  39. $ lisp/compile ops.lsp
  40. $ !
  41. $ !    source: sys$user:[gdw.opsl]sops.com;1
  42. $ !    EditDate = Wed Jul 18 18:48:43 1984    GDW
  43. $ ! 
  44. $ lisp 
  45. ()
  46. (load "ops.fas")
  47. (load 'opsenv)
  48.  
  49. (block saveit
  50.     (setq *ops-date* (daytime))
  51.     (suspend "ops")
  52.     (setq *top-level-prompt* "CLops: ")
  53.     (setq *EMACS-PROCESS-NAME* (CONCATENATE 'STRING "EMACS$" 
  54.                    (SYSTEM:REMOVE #\: (TERM))))
  55.     (setq *emacs-lisp-file* "SYS$LOGIN:LEDIT.TMP")
  56.     (terpri)
  57.     (princ "Welcome to Common Lisp Ops 0.9")
  58.     (terpri)
  59.     (princ "   Image Created ")
  60.     (princ *ops-date*)
  61.     (terpri)
  62.     (princ 
  63.     " ^C = Ops Break. ^Z = Lisp throw to previous command level. (??) help ")
  64.     (vms-keyboard-bindings))
  65. ÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷;
  66. ;
  67. ;    VPS2 -- Interpreter for OPS5
  68. ;
  69. ;    Copyright (C) 1979, 1980, 1981
  70. ;    Charles L. Forgy,  Pittsburgh, Pennsylvania
  71. ;
  72. ;
  73. ;  Re-ported to vax/vms lisp GDW
  74. ;
  75. ;  Spice Lisp mods by Dario Giuse for Common Lisp on a Perq.
  76. ;
  77. ;  vax/vms common lisp mods by George Wood 
  78. ;
  79. ;  uses some common lisp mods by Jim Kowalski
  80. ; fix ppelm: curpos problem
  81. ; clops127.cl: vax/vms common lisp ops5 interpreter with 127 condition ele.
  82. ;
  83. ; Users of this interpreter are requested to contact
  84. ;
  85. ;    Charles Forgy
  86. ;    Computer Science Department
  87. ;    Carnegie-Mellon University
  88. ;    Pittsburgh, PA  15213
  89. ; or
  90. ;    Forgy@CMUA
  91. ; 
  92. ; so that they can be added to the mailing list for OPS5.  The mailing list
  93. ; is needed when new versions of the interpreter or manual are released.
  94. ;
  95. ;  REPORT BUGS IN THIS VERSION TO:
  96. ;    George Wood
  97. ;    Computer Science Department
  98. ;    Carnegie-Mellon University
  99. ;    Pittsburgh, PA  15213
  100. ; arpanet : George.Wood@CMU-CS-A
  101. ; 
  102.  
  103.  
  104. ;[ Add this entry to the front of the file ]
  105.  
  106. ; 7/6/84 George Wood
  107. ;  - Re-ported to vax/vms lisp
  108. ;  - UNINTERN for WRITE, REMOVE conditionalized using SHARPSIGN-MINUS VMS
  109. ;       compiler reacts badly to it.
  110. ;  - VMS-KEYBOARD-BINDINGS BLOCK INCLUDED IN SHARPSIGN-PLUS VMS CONDITIONAL
  111. ;  - started cleaning up old comments
  112. ;
  113. ; 6/22/84 Dario Giuse
  114. ;  - Replacing printline with format
  115. ;
  116. ; 6/21/84 Dario Giuse
  117. ;  - Replaced the system::macro business with a honest-to-god (defmacro).
  118. ;  - Rewrote getvector and putvector in sensible Common Lisp.
  119. ;
  120. ; 6/20/84 Dario Giuse
  121. ;  - Completely rewrote ops-acceptline. This is now working properly in Spice
  122. ;    Lisp, and since it only uses Common Lisp I believe it will work in any
  123. ;    Common Lisp installation. This version does not do any peek-char; it just
  124. ;    reads the whole line and works from there.
  125. ;  - Removed the now obsolete function span-char.
  126. ;
  127. ; 6/19/84 Dario Giuse
  128. ;  - Uncommented do-write
  129. ;  - Changed t to *standard-output* in several places.
  130. ;  - Added a force-output to ops-write, since lines without a Newline are not
  131. ;    printed by default in Spice Lisp (and many other Common Lisp
  132. ;    implementations). This should probably be done only for 
  133. ;    *standard-output*, not for all files.
  134. ;
  135. ; 6/8/84 Jcp
  136. ; Changed (setq *refracts* (delete (cons a b) *refracts*)) to
  137. ;         (setq *refracts* (spdelete (cons a b) *refracts*))
  138. ;
  139. ;         Also defined a new function called spdelete to delete things
  140. ;         from *refracts* properly. This fixes a bug where going back
  141. ;         and then forwards didn't fire the same rules.
  142. ;
  143. ;changes made by gdw
  144. ; Tue Jul 17 22:59:52 1984:
  145. ;     calls to fast-symeval replaced by calls to symbol-value 
  146. ;;;
  147. ; changed macro to system::macro to access buried fn OBSOLETE 
  148. ; put stuff to unexport & unintern the fns write & remove from 
  149. ;    user: package in clopxtra.cl
  150. ;; ADDED SETBREAK, DEFINE-KEYBOARD-AST FOR ^D --> OPS BREAK CHAR feb 8 84
  151. ; To make problems easy to find, I have marked comments with:
  152. ; ??? = possible problems
  153. ; @@@ = changes (kluges ? working modifications)
  154. ; ### commented out lines -- temporary hacks?
  155. ;
  156. ;; VERSION WITH 127 CONDITION ELEMENTS, NOT 64 -- Jan 13, 1984
  157. ;
  158. ;@@@ dec 8 83: added comma to list of skipped char in acceptline
  159. ;
  160. ; KNOWN & SUSPECTED PROBLEMS:
  161. ; see note-write below: This should be redone using packages, when
  162. ;    implemented.
  163. ; DECLARE's should be replaced with PROCLAIM's
  164. ; ACCEPTLINE doesn't work right in x0.4-0, due to peek-char bug in
  165. ;    that version. local kluges either redefine peek-char with
  166. ;    read-char & unread char or use XSEL's redefined acceptline, or both.
  167. ; possible problems with openfile/write: 
  168. ;    lisp sometimes doesn't think its a char output stream
  169. ; problems with remove (doesn't select top-level-remove, recognize *)
  170. ;    NOTE; this happens when execution is broken while in the rhs
  171. ;    of an ops rule -- to correct, (setq *in-rhs* nil)
  172. ;
  173. ; problem with (pm) ?    (not clear)
  174. ;
  175. ; CHANGES, MOST RECENT FIRST
  176. ; replaced dtpr with consp. (defun didn't work: 13 below)
  177. ; re-defined tyi @@@ (kowalski's didn't work)
  178. ; replaced "(times " with "(* "        ))
  179. ; replaced "(greaterp " with (> " (all had 2 args)))
  180. ; defined infile as open input:
  181. ; defined outfile as open output:
  182. ; kluged do-tabto and do-rjust, to avoid messing with flatc & nwritn/
  183. ;    \these kluges are terrible, but should have only cosmetic effects
  184. ;    THEY NOW USE (FORMAT ...), WHICH IS BUGGY IN X0.4-0
  185. ; commented out (comment function)
  186. ; changed ==; clisp didn't seem to like the macro def
  187. ; changed "plus" to "+" throughout
  188. ; changed quotient to truncate or round;
  189. ;         in ops-compute this may be inappropriate
  190. ;
  191. ;    @@@    NOTE ON FNS WRITE & REMOVE
  192. ;note-write
  193. ;since write is a clisp instinsic, I have changed it to write-ops
  194. ;until the package feature of common lisp is implemented in declisp--
  195. ;at that point this kluge may be removed. Ditto for remove/remove-ops-
  196. ;--In this version, I have uninterned the common lisp intrinsic write
  197. ;and remove in the separate file clopxtra.cl, to be loaded uncompiled
  198. ;after clops127.fas is loaded
  199. ;
  200. ;
  201. ;  Table of changes made by kowalski to bring ops up under common lisp
  202. ;  (SOME ARE MODIFIED. GDW)
  203. ;  1) Changed "def" to "defun" throughout. (4/11/83)
  204. ;  2) Changed "difference" to "-" throughout (2 places). (4/12/83)
  205. ;  3) Changed the "defun x macro" forms (of which there were 5)
  206. ;     to the macro form of common lisp. (4/20/83)
  207. ;  4) Added macro def of "putprop" (4/21/83)
  208. ;  5) changed "setsyntax" to appropriate form of "set-macro-character"
  209. ;  6) converted fexprs to regular defuns by changing the name of
  210. ;     each fexpr to "ops-.....", deleting the "fexpr", and adding
  211. ;     a macro for each with the name of the original fexpr.  5/23/83
  212. ;  7) Replaced all "]" (superparentheses) with appropriate number of
  213. ;     regular ones. (5/23/83)
  214. ;  8) Made changes to the individual functions containing the Franz
  215. ;     "concat" form (instead of writing a macro). (5 places) (6/26/83)
  216. ;  9) Inverted the arguments of the two uses of "catch" so that tag
  217. ;     is the first argument as required in CLisp. (6/26/83)
  218. ;     I'm really unsure about whether symbolic tags must be quoted in
  219. ;     catch forms.
  220. ; 10) Changed (member x y ) forms to (member x y :test #'equal) forms
  221. ;     and (memq ..) forms to (member ...). (6/26/83)
  222. ; 11) Changed the getchar form and index parameter since the first position
  223. ;     of a string is 0 in CommonLisp and 1 in Franz.
  224. ; 12) Added defmacro for ncons.
  225. ; @@@ X 13) Added auxiliary function defining function dtpr  as consp.
  226. ; 14) Added auxiliary function defining function fix as floor.
  227. ; 15) Added auxiliary function defining function tyipeek as peek-char
  228. ; 16) Added auxiliary function defining = as equal.
  229.  
  230. ;;; Definitions
  231.  
  232. ;@@@ added -- bound but not referenced
  233. (proclaim '(special erm *break-character*))
  234.  
  235. (proclaim
  236.  '(special *matrix* *feature-count* *pcount* *vars* *cur-vars*
  237.        *curcond* *subnum* *last-node* *last-branch* *first-node*
  238.        *sendtocall* *flag-part* *alpha-flag-part* *data-part*
  239.        *alpha-data-part* *ce-vars* *virtual-cnt* *real-cnt*
  240.        *current-token* *record-array* *result-array* 
  241.        *max-cs* *total-cs* *limit-cs* *cr-temp* *side*
  242.        *conflict-set* *halt-flag* *phase* *critical*
  243.        *cycle-count* *total-token* *max-token* *refracts* 
  244.        *limit-token* *total-wm* *current-wm* *max-wm*
  245.        *action-count* *wmpart-list* *wm* *data-matched* *p-name*
  246.        *variable-memory* *ce-variable-memory* *max-index*
  247.        *next-index* *size-result-array* *rest* *build-trace* *last*
  248.        *ptrace* *wtrace* *in-rhs* *recording* *accept-file* *trace-file* 
  249.        *write-file* *record-index* *max-record-index* *old-wm*
  250.        *record* *filters* *break-flag* *strategy* *remaining-cycles*
  251.        *wm-filter* *rhs-bound-vars* *rhs-bound-ce-vars* *ppline* 
  252.        *ce-count* *brkpts* *class-list* *buckets* *action-type*))
  253.  
  254.  
  255.  
  256. (proclaim '(special *c1* *c2* *c3* *c4* *c5* *c6* *c7* *c8* *c9*
  257.        *c10* *c11* *c12* *c13* *c14* *c15* *c16* *c17* *c18* *c19*
  258.        *c20* *c21* *c22* *c23* *c24* *c25* *c26* *c27* *c28* *c29*
  259.        *c30* *c31* *c32* *c33* *c34* *c35* *c36* *c37* *c38* *c39*
  260.        *c40* *c41* *c42* *c43* *c44* *c45* *c46* *c47* *c48* *c49*
  261.        *c50* *c51* *c52* *c53* *c54* *c55* *c56* *c57* *c58* *c59*
  262.        *c60* *c61* *c62* *c63* *c64* *c65* *c66* *c67* *c68* *c69*
  263.        *c70* *c71* *c72* *c73* *c74* *c75* *c76* *c77* *c78* *c79*
  264.        *c80* *c81* *c82* *c83* *c84* *c85* *c86* *c87* *c88* *c89*
  265.        *c90* *c91* *c92* *c93* *c94* *c95* *c96* *c97* *c98* *c99*
  266.        *c100* *c101* *c102* *c103* *c104* *c105* *c106* *c107* *c108* 
  267.        *c109* *c110* *c111* *c112* *c113* *c114* *c115* *c116* *c117* 
  268.        *c118* *c119* *c120* *c121* *c122* *c123* *c124* *c125* *c126* 
  269.        *c127* ))
  270.  
  271. #|
  272. (proclaim '(localf ce-gelm gelm peek-sublex sublex
  273.            eval-nodelist sendto and-left and-right not-left not-right
  274.            top-levels-eq add-token real-add-token remove-old
  275.            remove-old-num remove-old-no-num removecs insertcs dsort
  276.            best-of best-of* conflict-set-compare =alg))
  277. |#
  278.  
  279.  
  280.  
  281. ;;; Dario Giuse - July 2, 1984
  282. ;;; Two little unpleasant things. These are Common Lisp primitives, and we
  283. ;;; need to redefine them here.
  284. ;;;
  285.  
  286. ; UNINTERN    COMMENTED OUT OF VAX LISP VERSION, SINCE COMPILER CAN'T
  287. ; HANDLE IT
  288.  
  289. #-vms (unexport 'remove (find-package 'lisp))
  290. #-vms (unintern 'remove (find-package 'user))
  291. #+vms (shadow 'remove (find-package 'user))
  292.  
  293. ;;; gdw changed name from 'remove' since DECLISP uses that fname.
  294. (defmacro remove (&body z)
  295.   `(ops-remove ',z))
  296.  
  297. #-vms (unexport 'write (find-package 'lisp))
  298. #-vms (unintern 'write (find-package 'user))
  299. #+vms (shadow 'write (find-package 'user))
  300.  
  301. (defmacro write (&body z)
  302.   `(ops-write ',z))
  303.  
  304.  
  305.  
  306. ;;; ------------------------------------------------------------
  307.  
  308.  
  309. ;;; Auxiliary macros added by JGK to convert the fexprs.
  310. ;;; Dario Giuse - converted to use regular Common Lisp defmacros.
  311.  
  312. (defmacro literal (&body z)
  313.   `(ops-literal ',z))
  314.  
  315. (defmacro literalize (&body z)
  316.   `(ops-literalize ',z))
  317.  
  318. (defmacro vector-attribute (&body l)
  319.   `(ops-vector-attribute ',l))
  320.  
  321. (defmacro p (&body z) 
  322.   `(ops-p ',z))
  323.  
  324. (defmacro wm (&body a) 
  325.   `(ops-wm ',a))
  326.  
  327. (defmacro make (&body z)
  328.   `(ops-make ',z))
  329.  
  330. (defmacro modify (&body z)
  331.   `(ops-modify ',z))
  332.  
  333. (defmacro bind (&body z)
  334.   `(ops-bind ',z))
  335.  
  336. (defmacro cbind (&body z)
  337.   `(ops-cbind ',z))
  338.  
  339. (defmacro call (&body z)
  340.   `(ops-call ',z))
  341.  
  342. (defmacro build (&body z)
  343.   `(ops-build ',z))
  344.  
  345. (defmacro openfile (&body z)
  346.   `(ops-openfile ',z))
  347.  
  348. (defmacro closefile (&body z)
  349.   `(ops-closefile ',z))
  350.  
  351. (defmacro default (&body z)
  352.   `(ops-default ',z))
  353.  
  354. (defmacro accept (&body z)
  355.   `(ops-accept ',z))
  356.  
  357. (defmacro acceptline (&body z)
  358.   `(ops-acceptline ',z))
  359.  
  360. (defmacro substr (&body l)
  361.   `(ops-substr ',l))
  362.  
  363. (defmacro compute (&body z)
  364.   `(ops-compute ',z))
  365.  
  366. (defmacro arith (&body z)
  367.   `(ops-arith ',z))
  368.  
  369. (defmacro litval (&