home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / top / globals.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  1.6 KB  |  59 lines  |  [TEXT/CCL2]
  1. ;;; These are global variables used throughout the compiler.
  2.  
  3. ;;; Configuration stuff
  4.  
  5. (define *prelude-unit-filename* "$PRELUDE/Prelude.hu")
  6.  
  7. (define *haskell-compiler-version* "Y2.2")
  8. (define *haskell-compiler-update* "")
  9.  
  10.  
  11. ;;; Error control
  12.  
  13. (define *recoverable-error-handler* '())
  14. (define *error-output-port* (current-output-port))
  15.  
  16. ;;; Random stuff
  17.  
  18. (define *context* '#f)  ; ast node being compiled.
  19. (define *unit* '())
  20. (define *standard-module-default* '())
  21. (define *undefined-def* '())
  22. (define *magic-temp-name* '|t_e_m_p|)
  23.  
  24. ;;; Printers
  25.  
  26. (define *printers* '(phase-time compiling loading))
  27.  
  28. (define *all-printers*
  29.   '(phase-time time compiling loading reading pad interactive prompt
  30.     parse import type-decl scope depend
  31.     type cfn depend2
  32.     flic optimize optimize-extra strictness codegen codegen-flic
  33.     dumper dump-stat))
  34.  
  35.  
  36. ;;; Used by the symbol table routines
  37.  
  38. (define *modules* '())  ; maps module name -> module structure
  39. (define *interfaces* '())
  40. (define *implementations* '())
  41. (define *modules-being-compiled* '())
  42. (define *module* '())   ; current module
  43. (define *module-name* '())
  44. (define *symbol-table* '())  ; part of the current module
  45. (define *inverted-symbol-table* '())  ; maps def -> localname
  46. (define *fixity-table* '())  ; name -> fixity
  47.  
  48. ;;; Used by the compilation system
  49.  
  50. (define *implementations-needed* '())
  51. (define *current-initcode* '())
  52. (define *modules-loaded* '())
  53.  
  54. ;;; This is used to stash the Prelude symbol environment
  55.  
  56. (define *prelude-symbol-table* '())
  57. (define *prelude-fixity-table* '())
  58. (define *prelude-inverted-symbol-table* '())
  59.