home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / scm / jackal1a.lha / jacal / toploads.scm < prev    next >
Encoding:
Text File  |  1992-12-15  |  2.6 KB  |  65 lines
  1. ;;; JACAL: Symbolic Mathematics System.        -*-scheme-*-
  2. ;;; Copyright 1989, 1990, 1991, 1992 Aubrey Jaffer.
  3. ;;; See the file "COPYING" for terms applying to this program.
  4.  
  5. (define *jacal-version* "1a0")
  6.  
  7. (load (in-vicinity (program-vicinity) "types"))
  8.             ;Variables and type conversions.
  9. (define (math_exit b) (cleanup-handlers!) (error "error in math system"))
  10.     ;error handling when not running (math) [read-eval-print loop]
  11. ;(define *diagnostic-output* (current-output-port))
  12. (define math_debug #f)    ;break on soft errors.
  13. (define math_trace #f)    ;trace canonical function application.
  14. (load (in-vicinity (program-vicinity) "grammar"))
  15.             ;grammar, I/O, test, and error routines.
  16. (define *input-grammar* (get-grammar 'scheme))
  17.             ;grammar to use if none is loaded.
  18. (define *output-grammar* (get-grammar 'scheme))
  19.             ;grammar to use if none is loaded.
  20. (define *echo-grammar* (get-grammar 'null))
  21.  
  22. (define *symdefs* (make-hash-table 37))    ;":" environment.
  23. (load (in-vicinity (program-vicinity) "sect"))
  24.             ;variable naming
  25. (load (in-vicinity (program-vicinity) "sexp"))
  26.             ;read-eval-print loop.  Conversion from
  27.             ;sexpression to internal form and back.
  28. (load (in-vicinity (program-vicinity) "poly"))
  29.             ;Routines which operate on internal data type POLY.
  30. (load (in-vicinity (program-vicinity) "vect"))
  31.             ;Routines which operate on lists of POLY (mtrx).
  32. (load (in-vicinity (program-vicinity) "norm"))
  33.             ;Differentials, finite differentials,
  34.             ;factoring, and logical operations.
  35. (load (in-vicinity (program-vicinity) "builtin"))
  36.             ;Routines defined for sexpressions.
  37. (define link-radicands #t)    ;Relate radicals in the traditional manner.
  38. (load (in-vicinity (program-vicinity) "ext"))
  39.             ;Field extension creation and simplification.
  40. (load (in-vicinity (program-vicinity) "parse"))
  41.             ;General parser
  42. (load (in-vicinity (program-vicinity) "unparse"))
  43.             ;infix printer.
  44. (load (in-vicinity (program-vicinity) "stdgrm"))
  45.             ;Standard grammar definitions.
  46. ;;; These routines test the core mathematical routines;
  47. ;;; Beware if they produce warnings or errors.
  48. (poly_test)        ;Test for routines in "poly"
  49. (elim_test)        ;Test for routines in "bunch"
  50. ;(factor_test)
  51. ;(matrix_test)
  52. ;(load (in-vicinity (user-vicinity) "math.ini"))
  53.             ;User initialization file
  54. (display "
  55. JACAL version ")
  56. (display *jacal-version*)
  57. (display ", Copyright 1989, 1990, 1991, 1992 Aubrey Jaffer
  58. JACAL comes with ABSOLUTELY NO WARRANTY; for details type `(terms)'.
  59. This is free software, and you are welcome to redistribute it
  60. under certain conditions; type `(terms)' for details.
  61. ")
  62. (display ";;; Type (math) to begin.")
  63. (newline)
  64. (force-output)
  65.