home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / b116_1 / jacal / modeinit < prev    next >
Text File  |  1993-09-01  |  1KB  |  35 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. (set! Language "English")    ;grammar <Language>.scm should exist
  6.  
  7. (set! math:debug #f)        ; #t to break on soft errors, #f to continue
  8.                 ;also does --more-- after didn't verify
  9.  
  10. (set! math:phases #f)        ; #t to show phases of normaization.
  11.  
  12. (set! math:trace #f)        ; #t to trace variable eliminations, #f not to.
  13.  
  14. (set! linkradicals #t)        ;Relate radicals in the traditional manner.
  15.  
  16. (set! Horner #f)        ;Horner's rule on expression output
  17.  
  18. (set! page-height #t)        ;#t for pagination on, #f off
  19.  
  20. (set! page-width #t)        ;Number or #t to use SLIB's width. #f for wide.
  21.  
  22. (set! newextstr (string-standard-case "EXT0")) ;extension template
  23.  
  24. (set! newlabelstr (string-standard-case "E0")) ;prompt template
  25.  
  26. (set! newlabelsym (string->symbol newlabelstr))
  27. (set! % novalue)
  28.  
  29. (let ((init (in-vicinity (user-vicinity) "mathinit" (scheme-file-suffix))))
  30.   (if (file-exists? init)
  31.       (load init)))            ;User initialization file
  32.  
  33. (if (and Language (= 3 (length (list-of-grammars)))) ;none loaded yet.
  34.     (load (in-vicinity jacal-vicinity Language (scheme-file-suffix))))
  35.