mirror of
https://github.com/PDP-10/its.git
synced 2026-01-15 08:03:19 +00:00
485 lines
9.2 KiB
Common Lisp
485 lines
9.2 KiB
Common Lisp
;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp; Package: Macsyma -*- ;;;;;;;;;;;;;;;;;;;
|
||
;;; (c) Copyright 1980, 1983 Massachusetts Institute of Technology ;;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
;; Table of files comprising the Macsyma system.
|
||
;; This is the root in the tree of all macsyma documentation and system
|
||
;; organization. Therefore if any change is made to any of the
|
||
;; Macsyma source files, this table should be updated and mail sent
|
||
;; to Macsyma-Implementors. Macsyma implementors should familiarize
|
||
;; themselves with the various compilation, indexing, and documentation
|
||
;; features which depend on the information contained herein.
|
||
;; -GJC 2:52pm Monday, 3 November 1980
|
||
|
||
;; The MAXTUL directory contains the programs which manipulate these
|
||
;; data. In general they output data to the MAXDOC directory.
|
||
|
||
(EVAL-WHEN (COMPILE EVAL LOAD)
|
||
(OR (GET 'DEFMFILE 'VERSION)
|
||
;; which see for documentation of the structure.
|
||
(LOAD '((MAXTUL) DEFILE))))
|
||
|
||
(INIT-MACSYMA-SOURCE-FILES)
|
||
(HERALD MACSYMA-SOURCE-FILES)
|
||
|
||
;; Extensions to lisp.
|
||
|
||
;; Tools.
|
||
|
||
;; macro packages.
|
||
|
||
(DEFMFILE LIBMAX LMMAC
|
||
SYSTEMS-FOR '(PDP10 FRANZ)
|
||
GLOBAL-COMPILE T
|
||
MACRO-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX DEFINE
|
||
SYSTEMS-FOR '(PDP10)
|
||
GLOBAL-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX ERMSGC
|
||
;; out-of-core format strings.
|
||
GLOBAL-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX MAXMAC
|
||
GLOBAL-COMPILE T
|
||
MACRO-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX MFORMA
|
||
GLOBAL-COMPILE T
|
||
MACRO-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX MOPERS
|
||
GLOBAL-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX MRGMAC
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX STRMAC
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX META
|
||
GLOBAL-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX OPSHIN
|
||
MACRO-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX TRANSQ
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX TRANSM
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX MDEFUN
|
||
;; for translated code.
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX TPRELU
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX NUMERM
|
||
;; for numerical code man.
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE LIBMAX LMRUN
|
||
SYSTEMS-NOT-FOR '(FRANZ NIL LISPM)
|
||
SELECTIVE-COMPILE '?)
|
||
|
||
(DEFMFILE EMAXIM EDMAC
|
||
;; macsyma expression display editor.
|
||
SELECTIVE-COMPILE T)
|
||
|
||
;; runtime packages.
|
||
|
||
|
||
(DEFMFILE ELL HYP
|
||
UNFASL-DIR 'ELL
|
||
FASL-DIR 'ELL)
|
||
|
||
(DEFMFILE ELL HYPGEO
|
||
UNFASL-DIR 'ELL
|
||
FASL-DIR 'ELL)
|
||
|
||
(DEFMFILE SHARE APLOT2
|
||
FASL-DIR 'SHARE
|
||
UNFASL-DIR 'MUNFAS)
|
||
|
||
(DEFMFILE SHARE TEKPLT
|
||
FASL-DIR 'SHARE
|
||
UNFASL-DIR 'MUNFAS)
|
||
|
||
(DEFMFILE SHARE IFFUN
|
||
FASL-DIR 'SHARE
|
||
UNFASL-DIR 'MUNFAS)
|
||
|
||
(DEFMFILE SHARE PRINT
|
||
FASL-DIR 'SHARE
|
||
UNFASL-DIR 'MUNFAS)
|
||
|
||
(DEFMFILE SHARE PLOT3D
|
||
FASL-DIR 'SHARE
|
||
UNFASL-DIR 'MUNFAS)
|
||
|
||
(DEFMFILE CFFK CPOLY)
|
||
|
||
(DEFMFILE RZ MACROS
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE RZ ASUM
|
||
IN-CORE 270.)
|
||
|
||
(DEFMFILE RZ SERIES)
|
||
|
||
(DEFMFILE RZ NUMTH)
|
||
|
||
(DEFMFILE RZ SCHATC)
|
||
|
||
(DEFMFILE RZ TRGRED)
|
||
|
||
(DEFMFILE RZ COMBIN
|
||
SPLIT '(minfct eulbrn zeta cffun sum
|
||
prodct tayrat decomp))
|
||
|
||
(DEFMFILE JPG SUPRV
|
||
IN-CORE 60.)
|
||
|
||
(DEFMFILE JPG COMM
|
||
IN-CORE 50.)
|
||
|
||
(DEFMFILE JPG COMM2
|
||
SPLIT '(DIFF2 AT LOGCON RTCON NTERMS
|
||
ATAN2 ARITHF DERIVD BOX
|
||
MAPF GENMAT ADDROW ARRAYF
|
||
ALIAS CONCAT TTYINI))
|
||
|
||
(DEFMFILE JPG DSKFN
|
||
IN-CORE 310.)
|
||
|
||
(DEFMFILE JPG MLISP
|
||
IN-CORE 40.)
|
||
|
||
(DEFMFILE JPG MEDIT
|
||
SYSTEMS-NOT-FOR '(LISPM NIL)
|
||
IN-CORE 300.)
|
||
|
||
(DEFMFILE JPG ODE2
|
||
LANGUAGE 'MACSYMA)
|
||
|
||
(DEFMFILE JPG PLOT
|
||
SYSTEMS-FOR '(PDP10)
|
||
SPLIT '(GRAPH2 GRAPH))
|
||
|
||
(DEFMFILE MRG DB
|
||
IN-CORE 190.)
|
||
|
||
(DEFMFILE MRG DISPLA
|
||
IN-CORE 20.)
|
||
|
||
(DEFMFILE MRG FORTRA)
|
||
|
||
(DEFMFILE MRG GRAM
|
||
SYSTEMS-NOT-FOR '(LISPM NIL)
|
||
IN-CORE 10.)
|
||
|
||
(DEFMFILE MRG GRIND
|
||
IN-CORE 320.)
|
||
|
||
(DEFMFILE MRG COMPAR
|
||
IN-CORE 200.)
|
||
|
||
(DEFMFILE MRG NFORMA
|
||
IN-CORE 30.)
|
||
|
||
(DEFMFILE MRG OPTIM)
|
||
|
||
(DEFMFILE MRG SCS)
|
||
|
||
(DEFMFILE MRG TRIGI
|
||
IN-CORE 260.)
|
||
|
||
(DEFMFILE MRG TRIGO
|
||
SPLIT '( HYPER ATRIG AHYPER TRIGEX))
|
||
|
||
(DEFMFILE PAULW CSIMP
|
||
IN-CORE 240.)
|
||
|
||
(DEFMFILE PAULW MAT
|
||
IN-CORE 230.)
|
||
|
||
(DEFMFILE PAULW MATRIX
|
||
IN-CORE 220.)
|
||
|
||
(DEFMFILE RAT ALGSYS)
|
||
|
||
(DEFMFILE RAT FACTOR
|
||
IN-CORE 100.)
|
||
|
||
(DEFMFILE RAT MHAYAT
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE RAT RAT3A
|
||
IN-CORE 110.)
|
||
|
||
(DEFMFILE RAT RAT3B
|
||
IN-CORE 120.)
|
||
|
||
(DEFMFILE RAT RAT3C
|
||
IN-CORE 150.)
|
||
|
||
(DEFMFILE RAT RAT3D
|
||
IN-CORE 130.)
|
||
|
||
(DEFMFILE RAT RAT3E
|
||
IN-CORE 140.)
|
||
|
||
(DEFMFILE RAT RATLAP
|
||
SYSTEMS-FOR '(PDP10)
|
||
LANGUAGE 'MIDAS
|
||
IN-CORE 90.)
|
||
|
||
(DEFMFILE RAT RATMAC
|
||
SELECTIVE-COMPILE T)
|
||
|
||
(DEFMFILE RAT NRAT4
|
||
IN-CORE 210.)
|
||
|
||
(DEFMFILE RAT EZGCD)
|
||
|
||
(DEFMFILE RAT LESFAC
|
||
IN-CORE 160.)
|
||
|
||
(DEFMFILE RAT SPGCD
|
||
IN-CORE 290.)
|
||
|
||
(DEFMFILE RAT SOLVE)
|
||
|
||
(DEFMFILE RAT HOMOG)
|
||
|
||
(DEFMFILE RAT PADE)
|
||
|
||
(DEFMFILE RAT MATRUN)
|
||
|
||
(DEFMFILE RAT MATCOM)
|
||
|
||
(DEFMFILE RAT POIS2)
|
||
|
||
(DEFMFILE RAT POIS3)
|
||
|
||
(DEFMFILE RAT RATPOI)
|
||
|
||
(DEFMFILE RAT FLOAT)
|
||
|
||
(DEFMFILE RAT RESULT
|
||
SPLIT '(MRESUL SUBRES REDRES MODRES BEZOUT ))
|
||
|
||
(DEFMFILE RAT UFACT)
|
||
|
||
(DEFMFILE RAT HAYAT)
|
||
|
||
(DEFMFILE RAT POLYRZ)
|
||
|
||
(DEFMFILE RAT NALGFA)
|
||
|
||
(DEFMFILE RAT NEWDET)
|
||
|
||
(DEFMFILE RAT NISIMP)
|
||
|
||
(DEFMFILE RAT RATOUT
|
||
SPLIT '(MODGCD KRONEC FASTT RATWT HORNER PFRAC
|
||
RATDIF PFET ))
|
||
|
||
(DEFMFILE JM SIMP
|
||
IN-CORE 70.)
|
||
|
||
(DEFMFILE JM SININT)
|
||
|
||
(DEFMFILE JM SIN)
|
||
|
||
(DEFMFILE JM RISCH)
|
||
|
||
(DEFMFILE JM ZERO)
|
||
|
||
|
||
(DEFMFILE MAXSRC INMIS
|
||
IN-CORE 180.)
|
||
|
||
(DEFMFILE MAXSRC LAPLAC)
|
||
|
||
(DEFMFILE RAT PSOLVE
|
||
SPLIT '(SCUBIC SQUART))
|
||
|
||
(DEFMFILE MAXSRC OUTMIS
|
||
SPLIT '( STATUS ISOLAT PROPFN CHANGV FACSUM COMBF FACOUT SCREEN))
|
||
|
||
(DEFMFILE MAXSRC MTRACE
|
||
;; new trace package.
|
||
)
|
||
|
||
;; Terminal support
|
||
(DEFMFILE MAXSRC ARDS
|
||
SYSTEMS-NOT-FOR '(FRANZ))
|
||
|
||
(DEFMFILE MAXSRC VT100
|
||
SYSTEMS-NOT-FOR '(FRANZ))
|
||
|
||
(DEFMFILE MAXSRC H19
|
||
SYSTEMS-NOT-FOR '(FRANZ))
|
||
|
||
;; for suspending the macsyma session/environment
|
||
(DEFMFILE MAXSRC SUSPEN
|
||
SYSTEMS-FOR '(PDP10))
|
||
|
||
;; Other stuff.
|
||
|
||
(DEFMFILE MAXSRC OPERS
|
||
IN-CORE 80.)
|
||
|
||
(DEFMFILE MAXSRC OPS)
|
||
|
||
(DEFMFILE MAXSRC SUBLIS)
|
||
|
||
(DEFMFILE MAXSRC SETS
|
||
FASL-DIR 'SHARE
|
||
;; macsyma extended data types not fully supported.
|
||
UNFASL-DIR 'MAXOUT)
|
||
|
||
(DEFMFILE MAXSRC AR) ;; Array objects.
|
||
|
||
(DEFMFILE MAXSRC MTREE)
|
||
|
||
(DEFMFILE MAXSRC CHAR)
|
||
|
||
(DEFMFILE MAXSRC DOVER)
|
||
|
||
;; The transl package.
|
||
(DEFMFILE TRANSL TRDUMP
|
||
FASL-DIR 'MAXDMP
|
||
UNFASL-DIR 'MUNFAS)
|
||
(DEFMFILE TRANSL TRHOOK) ; used to implement translator modularity on the PDP-10.
|
||
(DEFMFILE TRANSL TRUTIL) ; Utilties.
|
||
(DEFMFILE TRANSL TRANSL) ; Toplevel expression translate and basic special forms.
|
||
(DEFMFILE TRANSL TRANS1) ; Translation properties by general grouping.
|
||
(DEFMFILE TRANSL TRANS2) ; ITS filenames don't allow more detail, see TRANSL >
|
||
(DEFMFILE TRANSL TRANS3)
|
||
(DEFMFILE TRANSL TRANS4)
|
||
(DEFMFILE TRANSL TRANS5)
|
||
(DEFMFILE TRANSL TRANSF)
|
||
(DEFMFILE TRANSL TROPER)
|
||
(DEFMFILE TRANSL TRPRED) ; predicates.
|
||
(DEFMFILE TRANSL TRPROP) ; META-PROPERTIES.
|
||
(DEFMFILE TRANSL TRMODE) ; User MODEDECLARE definitions.
|
||
(DEFMFILE TRANSL TRDATA) ; DATA on built-in functions.
|
||
(DEFMFILE TRANSL ACALL) ; RUNTIME support for translated code.
|
||
(DEFMFILE TRANSL FCALL) ; FSUBRs for the interpreter. (See TRANSQ).
|
||
(DEFMFILE TRANSL EVALW) ; User utility EVAL_WHEN.
|
||
(DEFMFILE TRANSL MCOMPI) ; User interface to lisp compiler.
|
||
(DEFMFILE TRANSL LJOB
|
||
;; Inferior JOB hacking, (so we can call lisp compiler).
|
||
SYSTEMS-FOR '(ITS))
|
||
(DEFMFILE TRANSL TRDEBG) ; For debugging translated code.
|
||
(DEFMFILE TRANSL MTAGS) ; generates macsyma-user TAGS while translating.
|
||
;; must follow mtags or else compilation errors
|
||
(DEFMFILE TRANSL TRANSS) ; The system and user hacking part of transl.
|
||
|
||
;; Numerical stuff.
|
||
(DEFMFILE MAXSRC ROMBRG)
|
||
(DEFMFILE MAXSRC INTPOL)
|
||
(DEFMFILE MAXSRC NUMER) ;; numerical support hacks.
|
||
(DEFMFILE MAXSRC NDIFFQ
|
||
FASL-DIR 'SHARE2)
|
||
|
||
;; Macsyma file handling stuff. Advanced user I/O
|
||
(DEFMFILE MAXSRC MLOAD IN-CORE 65.)
|
||
(DEFMFILE MAXSRC OUTEX
|
||
SPLIT '(outex OUTEY))
|
||
|
||
;; error handler.
|
||
(DEFMFILE MAXSRC MERROR IN-CORE 50.)
|
||
(DEFMFILE MAXSRC MFORMT IN-CORE 50.)
|
||
;; out of core strings.
|
||
(DEFMFILE MAXSRC ERMSGM IN-CORE 1. ; the first thing loaded!
|
||
SYSTEMS-FOR '(PDP10))
|
||
|
||
(DEFMFILE MAXSRC LDISP)
|
||
(DEFMFILE MAXSRC MDOT)
|
||
(DEFMFILE MAXSRC SUMCON)
|
||
(DEFMFILE MAXSRC SYNEX
|
||
SYSTEMS-NOT-FOR '(NIL LISPM))
|
||
(DEFMFILE MAXSRC RUNTIM
|
||
SYSTEMS-FOR '(PDP10)
|
||
IN-CORE 280.)
|
||
(DEFMFILE MAXSRC UTILS
|
||
IN-CORE 250.)
|
||
(DEFMFILE MAXSRC MUTILS
|
||
IN-CORE 5.)
|
||
|
||
(DEFMFILE ELLEN OPTION)
|
||
(DEFMFILE ELLEN PRIMER)
|
||
|
||
(DEFMFILE MAXSRC DESCRI
|
||
SPLIT '( DESCR EXAMPL)
|
||
SYSTEMS-NOT-FOR '(FRANZ LISPM NIL))
|
||
(DEFMFILE RLB FASDMP
|
||
SYSTEMS-NOT-FOR '(FRANZ LISPM MULTICS NIL))
|
||
|
||
(DEFMFILE MAXSRC IRINTE)
|
||
|
||
(DEFMFILE JIM ASKP)
|
||
(DEFMFILE JIM LIMIT)
|
||
(DEFMFILE JIM TLIMIT)
|
||
|
||
(DEFMFILE PAULW RESIDU)
|
||
(DEFMFILE PAULW DEFINT)
|
||
(DEFMFILE PAULW SPRDET)
|
||
(DEFMFILE PAULW NEWINV)
|
||
(DEFMFILE PAULW LINNEW)
|
||
(DEFMFILE PAULW EEZ)
|
||
(DEFMFILE PAULW NEWFAC)
|
||
(DEFMFILE PAULW ALGFAC)
|
||
(DEFMFILE PAULW CSIMP2
|
||
SPLIT '( PLOG BINOML GAMMA ERF EMATRIX COEFM ENTERM xthru XRTOUT
|
||
))
|
||
|
||
(DEFMFILE MACRAK LOGARC)
|
||
(DEFMFILE MACRAK RPART)
|
||
|
||
(DEFMFILE ZZ APROPO
|
||
SYSTEMS-NOT-FOR '(FRANZ LISPM NIL))
|
||
|
||
(DEFMFILE TENSOR ITENSR)
|
||
(DEFMFILE TENSOR CANTEN)
|
||
(DEFMFILE TENSOR GENER)
|
||
(DEFMFILE TENSOR SYMTRY)
|
||
|
||
(DEFMFILE SHARE FILEOP
|
||
SYSTEMS-FOR '(PDP10)
|
||
FASL-DIR 'SHARE)
|
||
|
||
(DEFMFILE ALJABR RESET
|
||
SYSTEMS-NOT-FOR '(FRANZ))
|
||
|
||
(DEFMFILE DAS MSTUFF
|
||
SPLIT '( MSORT MAKEL))
|
||
|
||
(DEFMFILE WGD SPECFN
|
||
SPLIT '( plylog plygam))
|
||
|
||
(DEFMFILE REH MMACRO)
|
||
(DEFMFILE REH BUILDQ)
|
||
|
||
|
||
;;; macsyma expression display editor.
|
||
|
||
(DEFMFILE EMAXIM EDCTL
|
||
FASL-DIR 'EMAXIM)
|
||
(DEFMFILE EMAXIM EDEXP
|
||
FASL-DIR 'EMAXIM)
|
||
(DEFMFILE EMAXIM EDBUF
|
||
FASL-DIR 'EMAXIM)
|
||
(DEFMFILE EMAXIM EDITS
|
||
SYSTEMS-FOR '(ITS)
|
||
FASL-DIR 'EMAXIM)
|
||
(DEFMFILE EMAXIM EDLM
|
||
SYSTEMS-FOR '(LISPM))
|
||
|