archive/src/minima/sysdef.lisp

   1 (require "MAKE")
   2 (use-package "MAKE")
   3 (require "SLOOP")
   4 (or (member :cl  lisp:*features*) (push :cl lisp:*features*))
   5 #+(and cl (not lispm))
   6 (or (member :nocp  lisp:*features*) (push :nocp lisp:*features*))
   7
   8 (require "MAXIMA" "maxima-package.lisp")
   9 ;(cond ((find-package "CL-MAXIMA"))(t (load "maxima-package.lisp")))
  10 (setf (get :maxima :source-path) "/usr/local/schelter/cl/foo.lisp")
  11 (setf (get :maxima :object-path) "/usr/local/schelter/cl/o/foo.o")
  12 (setf (get :maxima :files)
  13   '(                                    ;module declarations
  14     (lmdcls)
  15                                         ;module destructuring-let
  16     (letmac)
  17                                         ;module compatibility-macros1
  18      #+kcl (serror kclmac)
  19     (clmacs
  20      )
  21                                         ;module compatibility-macros
  22     ( commac
  23       )
  24     #+symbolics method-compat
  25                                         ;module prerequisites
  26     (mormac
  27      compat)
  28                                         ;module fundamental-macros
  29     (defopt
  30      defcal
  31      maxmac )
  32                                         ;module utility-macros
  33     (mopers
  34      mforma
  35      )
  36                                         ;module other-macros
  37     (mrgmac
  38      procs
  39      rzmac
  40      strmac
  41      displm )
  42                                         ;module rat-macros
  43     (ratmac
  44      mhayat )
  45                                         ;module numerical-macros
  46     (numerm )
  47
  48     ;;other   (:module macros (
  49     ;; other-macros rat-macros numerical-macros))
  50                                         ;module utilities
  51     (opers
  52      utils
  53      sumcon
  54      sublis
  55      runtim
  56      merror
  57      mformt
  58      mutils
  59      outmis
  60      ar
  61      misc )
  62                                         ;module commands
  63     (comm
  64      comm2 )
  65                                         ;module evaluator
  66     (mlisp
  67      mmacro
  68      buildq )
  69                                         ;module simplification
  70     (simp
  71      float
  72      csimp
  73      csimp2
  74      zero
  75      logarc
  76      rpart )
  77                                         ;module i-o
  78     (
  79      #+lispm lmsup
  80      macsys
  81      mload
  82      suprv1
  83      ;; we should really look, *seriously*, at the functionality provided
  84      ;; by the dskfn package. mainly, it saves and manages environments.
  85      dskfn
  86      )
  87                                         ;module factoring
  88     (lesfac
  89      factor
  90      algfac
  91      nalgfa
  92                                         ;           newfac    ;why was this commented out?
  93      ufact
  94      result )
  95                                         ;module rational-functions
  96     (rat3a
  97      rat3b
  98      rat3d
  99      rat3c
 100      rat3e
 101      nrat4
 102      ratout )
 103                                         ;module maxima-language-compiler-macros
 104     (transm )
 105                                         ;module maxima-language-compiler
 106     ;; this includes the translator itself and runtime
 107     ;; support needed for translated code.
 108     (transl
 109      transs
 110      trans1
 111      trans2
 112      trans3
 113      trans4
 114      trans5
 115      transf
 116      troper
 117      trutil
 118      trmode
 119      trdata
 120      trpred
 121      transq
 122      acall                              ;
 123      fcall
 124      evalw
 125      trprop
 126      mdefun
 127      )
 128                                         ;module numerical-functions
 129     (bessel
 130      ellipt
 131      numer
 132      intpol
 133      rombrg
 134      )
 135     ;;rest of system
 136                                         ;module reader
 137     (nparse )
 138                                         ;module display
 139     (displa
 140      nforma
 141      ldisp
 142      grind )
 143                                         ;module gcd
 144     (spgcd
 145      ezgcd
 146      )
 147                                         ;  (:module rational-function-subsystem
 148                                         ;          (rational-functions factoring gcd))
 149                                         ;module documentation
 150     (option
 151                                         ;primer
 152      macdes
 153      #+lispm mudoc )                    ;is this used?
 154                                         ;module algebraic-database
 155     (inmis
 156      db
 157      compar
 158      askp )                             ;does this belong here?
 159                                         ;module integration
 160     (sinint
 161      sin
 162      risch )
 163                                         ;module taylor-series
 164     (hayat )
 165                                         ;module definite-integration
 166     (defint
 167      residu )
 168                                         ;  (:module display-editor-macros
 169                                         ;          (
 170                                         ;           edmac
 171                                         ;           ))
 172                                         ;  (:module display-editor
 173                                         ;          (
 174                                         ;           edlm ;;for lispm use good zmacs interface
 175                                         ;           ;;instead of this stuff. can display into zmacs and evaluate etc. --wfs
 176                                         ;           edctl
 177                                         ;           edexp
 178                                         ;           edbuf ;;not to useful for lispm -wfs
 179                                         ;           ))
 180                                         ;module plotting
 181     #+lispm
 182     (pltwin
 183      plotll                             ; fix the instance
 184      plot
 185      iffun
 186      plot3d )
 187                                         ;module trigonometry
 188     (trigi
 189      trigo
 190      trgred )
 191                                         ;module special-functions
 192     (specfn )
 193                                         ;module matrix-algebra
 194     (mat
 195      matrix )
 196                                         ;module determinants
 197     (sprdet
 198      newinv
 199      linnew
 200      newdet )
 201                                         ;module pattern-matching
 202     (schatc
 203      matcom
 204      matrun
 205      nisimp )
 206                                         ;module limits
 207     (tlimit
 208      limit )
 209                                         ;module solve
 210     (solve
 211      psolve
 212      algsys
 213      polyrz
 214      cpoly )
 215                                         ;  (:module tensor
 216                                         ;           (itensr
 217                                         ;           canten
 218                                         ;           gener
 219                                         ;           symtry ))
 220
 221                                         ;  (:module documentation-files
 222                                         ;           (:documentation macsym.doc)
 223                                         ;module debugging
 224     (mtrace )
 225                                         ;module miscellaneous
 226     (scs
 227      asum
 228      fortra
 229      optim
 230      array
 231      mdot
 232      irinte
 233      series
 234      numth
 235      laplac
 236      pade
 237      homog
 238      combin
 239      mstuff)
 240                                         ;module poisson-series
 241     (ratpoi
 242      pois2
 243      pois3 )
 244                                         ;module interaction-with-editor
 245     #+lispm
 246     (buffer1
 247      buffer2
 248      buffer)
 249                                         ;module translated-packages
 250     #+main-files-loaded
 251     (nusum
 252      desoln
 253      elim
 254      trgsmp
 255      ode2
 256      invert
 257      )
 258     )))
 259
 260
 261
 262 #+symbolics
 263 (cond ( (>= (si::get-system-version 'system) 349)
 264        (push :genera Lisp:*features*)
 265        (push :zlch lisp:*features*))
 266       (t (push :pre-genera lisp:*features*)))
 267
 268 #+ti
 269 (cond ((= (si::get-system-version ) 1)
 270        (push :tirel3 Lisp:*features*)))
 271
 272
 273 (setf (get :maxima-macros :source-path) "/usr/local/schelter/cl/foo.lisp")
 274 (setf (get :maxima-macros :object-path) "/usr/local/schelter/cl/o/foo.o")
 275 (setf (get :maxima-macros :files)
 276   '(                                    ;module declarations
 277     (lmdcls)
 278                                         ;module destructuring-let
 279     (letmac)
 280                                         ;module compatibility-macros1
 281      #+kcl (serror kclmac)
 282     (clmacs
 283      )
 284                                         ;module compatibility-macros
 285     ( commac
 286       )
 287     #+symbolics method-compat
 288                                         ;module prerequisites
 289     (mormac
 290      compat)
 291                                         ;module fundamental-macros
 292     (defopt
 293      defcal
 294      maxmac )
 295                                         ;module utility-macros
 296     (mopers
 297      mforma
 298      )
 299                                         ;module other-macros
 300     (mrgmac
 301      procs
 302      rzmac
 303      strmac
 304      displm )
 305                                         ;module rat-macros
 306     (ratmac
 307      mhayat )
 308                                         ;module numerical-macros
 309     (numerm )
 310     (transm)
 311 ))
 312
 313 #+kcl
 314 (setq make::*system-p* t)
 315
 316
 317
 318 ;;minima
 319
 320
 321
 322 (setf (get :minima :source-path) "/usr/local/schelter/cl/foo.lisp")
 323 (setf (get :minima :object-path) "/usr/local/schelter/cl/o/foo.o")
 324 (setf (get :minima :files)
 325  '(
 326     (letmac)
 327                                         ;module compatibility-macros1
 328      #+kcl (serror kclmac)
 329     (clmacs
 330      )
 331                                         ;module compatibility-macros
 332     ( commac
 333       )
 334     #+symbolics method-compat
 335
 336     maxmac
 337     compat
 338      rzmac
 339      ratmac
 340
 341     (opers
 342      utils
 343      sumcon
 344      sublis
 345      runtim
 346      merror
 347      mformt
 348      mutils
 349      outmis
 350      ar
 351      misc )
 352                                         ;module commands
 353     (comm
 354      comm2 )
 355                                         ;module evaluator
 356     (mlisp
 357      mmacro
 358      buildq )
 359                                         ;module simplification
 360     (simp
 361      float
 362      csimp
 363      csimp2
 364      zero
 365      logarc
 366      rpart )
 367                                         ;module i-o
 368      macsys
 369      mload
 370      suprv1
 371
 372
 373                                         ;module factoring
 374     (lesfac
 375      factor
 376      algfac
 377      nalgfa
 378      ufact
 379      result )
 380                                         ;module rational-functions
 381     (rat3a
 382      rat3b
 383      rat3d
 384      rat3c
 385      rat3e
 386      nrat4
 387      ratout )
 388    spgcd
 389     nparse
 390     displa
 391     nforma
 392     grind
 393     mdot
 394     trigi
 395     compar
 396 ))