home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / comp / primops / build.t < prev    next >
Encoding:
Text File  |  1989-06-30  |  2.1 KB  |  52 lines
  1. (herald build)
  2.  
  3. (import t-implementation-env set-logical-name)
  4. (set-logical-name (local-fs) 'back_end "~kranz/risc/comp/back_end")
  5. (set-logical-name (local-fs) 'front_end "~kranz/risc/comp/front_end")
  6. (set-logical-name (local-fs) 't3_primops "~kranz/risc/comp/primops")
  7. (set-logical-name (local-fs) 'link "~kranz/risc/link")
  8. (set-logical-name (local-fs) 'osys "~kranz/risc/sys")
  9. (define (orbit-mips-setup directory)
  10.   (set *object-file-extension* 'mpo)
  11.   (set *information-file-extension* 'mpi)
  12.   (set *noise-file-extension* 'mpn)
  13.   (orbit-setup directory)
  14.   (set (table-entry *modules* 'constants) `(,directory mipsconstants))
  15.   (set (table-entry *modules* 'primops)   `(,directory mipsprimops))
  16.   (set (table-entry *modules* 'arith)     `(,directory mipsarith))
  17.   (set (table-entry *modules* 'low)       `(,directory mipslow))
  18.   (set (table-entry *modules* 'genarith)     `(,directory mipsgenarith))
  19.   nil)
  20.  
  21. (define (orbit-mips-init . directory)
  22.   (orbit-mips-setup (if directory (car directory) '#f))
  23.   (orbit-init 'base
  24.               'constants
  25.               'primops
  26.           'arith
  27.               'locations
  28.               'low
  29.           'predicates
  30.               'open
  31.               'aliases
  32.               'carcdr
  33.               'genarith))
  34.  
  35. (orbit-mips-setup 't3_Primops)
  36. (create-support '(t3_Primops mipsconstants) '(t3_Primops mipsconstants))
  37. (load '(t3_Primops mipsconstants t) orbit-env)
  38. (orbit-init 'base)
  39. (set (orbit-syntax-table) primop-syntax-table)
  40. (set *compile-primops?* nil)
  41. (create-support '(t3_Primops mipsprimops)   '(t3_Primops mipsprimops))
  42. (create-support '(t3_Primops mipsarith)     '(t3_Primops mipsarith))
  43. (create-support '(t3_Primops locations)    '(t3_Primops locations))
  44. (create-support '(t3_Primops mipslow)       '(t3_Primops mipslow))
  45. (create-support '(t3_Primops predicates)       '(t3_Primops predicates))
  46. (orbit-init 'base  
  47.             'constants 'primops 'arith 'locations 'low 'predicates)
  48. (create-support '(t3_Primops open)    '(t3_Primops open))
  49. (create-support '(t3_Primops aliases) '(t3_Primops aliases))
  50. (create-support '(t3_Primops carcdr)  '(t3_Primops carcdr))
  51. (create-support '(t3_Primops mipsgenarith)  '(t3_Primops mipsgenarith))
  52.