home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / b116_1 / jacal / toploads < prev    next >
Text File  |  1994-01-21  |  4KB  |  94 lines
  1. ;;; JACAL: Symbolic Mathematics System.        -*-scheme-*-
  2. ;;; Copyright 1989, 1990, 1991, 1992, 1993 Aubrey Jaffer.
  3. ;;; See the file "COPYING" for terms applying to this program.
  4.  
  5. (define *jacal-version* "1a2")
  6.  
  7. ;(load (in-vicinity (program-vicinity) "types" (scheme-file-suffix)))
  8. (load "<JACAL>.types")
  9.             ;Variables and type conversions.
  10. (define (math:exit b) (cleanup-handlers!) (error "error in math system"))
  11.     ;error handling when not running (math) [read-eval-print loop]
  12. ;(define *diagnostic-output* (current-output-port))
  13. ;(load (in-vicinity (program-vicinity) "grammar" (scheme-file-suffix)))
  14. (load "<JACAL>.grammar")
  15.             ;grammar, I/O, test, and error routines.
  16. ;;; These get set in "modeinit.scm"
  17.         ;grammars to use if none is loaded.
  18. (define *input-grammar* (get-grammar 'scheme))
  19. (define *output-grammar* (get-grammar 'scheme))
  20. (define *echo-grammar* (get-grammar 'null))
  21. (define Language #f)
  22. (define math:debug #f)
  23. (define math:phases #f)
  24. (define math:trace #f)
  25. (define linkradicals #f)
  26. (define Horner #f)
  27. (define page-height #f)
  28. (define page-width #f)
  29. (define newextstr #f)
  30. (define newlabelstr #f)
  31. (define newlabelsym #f)
  32. (define % #f)
  33.  
  34. (define *symdefs* '())            ;":" environment.
  35. ;(define *symdefs* (make-hash-table 37))    ;":" environment.
  36. ;(load (in-vicinity (program-vicinity) "sect" (scheme-file-suffix)))
  37. (load "<JACAL>.sect")
  38.             ;variable naming
  39. ;(load (in-vicinity (program-vicinity) "sexp" (scheme-file-suffix)))
  40. (load "<JACAL>.sexp")
  41.             ;read-eval-print loop.  Conversion from
  42.             ;sexpression to internal form and back.
  43. ;(load (in-vicinity (program-vicinity) "poly" (scheme-file-suffix)))
  44. (load "<JACAL>.poly")
  45.             ;Routines which operate on internal data type POLY.
  46. ;(load (in-vicinity (program-vicinity) "elim" (scheme-file-suffix)))
  47. (load "<JACAL>.elim")
  48.             ;Routines which eliminate variables.
  49. ;(load (in-vicinity (program-vicinity) "vect" (scheme-file-suffix)))
  50. (load "<JACAL>.vect")
  51.             ;Routines which operate on lists of POLY (mtrx).
  52. ;(load (in-vicinity (program-vicinity) "norm" (scheme-file-suffix)))
  53. (load "<JACAL>.norm")
  54.             ;Differentials, finite differentials,
  55.             ;factoring, and logical operations.
  56. ;(load (in-vicinity (program-vicinity) "builtin" (scheme-file-suffix)))
  57. (load "<JACAL>.builtin")
  58.             ;Routines defined for sexpressions.
  59. (define (info:describe obj)        ;autoload for info
  60.   (load (in-vicinity jacal-vicinity "info" (scheme-file-suffix)))
  61.   (info:describe obj))
  62. (define (info:example obj)        ;autoload for info
  63.   (load (in-vicinity jacal-vicinity "info" (scheme-file-suffix)))
  64.   (info:example obj))
  65. (define (definfo . args)        ;autoload for info
  66.   (load (in-vicinity jacal-vicinity "info" (scheme-file-suffix)))
  67.   (apply definfo args))
  68. ;(load (in-vicinity (program-vicinity) "ext" (scheme-file-suffix)))
  69. (load "<JACAL>.ext")
  70.             ;Field extension creation and simplification.
  71. ;(load (in-vicinity (program-vicinity) "parse" (scheme-file-suffix)))
  72. (load "<JACAL>.parse")
  73.                ;General parser
  74. ;(load (in-vicinity (program-vicinity) "unparse" (scheme-file-suffix)))
  75. (load "<JACAL>.unparse")
  76.             ;infix printer.
  77. ;;; These routines test the core mathematical routines;
  78. ;;; Beware if they produce warnings or errors.
  79. (poly:test)        ;Test for routines in "poly"
  80. (elim:test)        ;Test for routines in "bunch"
  81. ;(factor:test)
  82. ;(mtrx:test)
  83.  
  84. (newline)
  85. (display "JACAL version ") (display *jacal-version*)
  86. (display ", Copyright 1989, 1990, 1991, 1992, 1993 Aubrey Jaffer
  87. JACAL comes with ABSOLUTELY NO WARRANTY; for details type `(terms)'.
  88. This is free software, and you are welcome to redistribute it
  89. under certain conditions; type `(terms)' for details.
  90. ")
  91. (display ";;; Type (math) to begin.")
  92. (newline)
  93. (force-output)
  94.