home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / nexttsrc.lha / nexttsources / sources / comp / assembler / compile_as.t < prev    next >
Encoding:
Text File  |  1988-02-05  |  1.3 KB  |  55 lines
  1. (herald compile_as)
  2.  
  3. (define tas-files
  4.     '((assembler ib)
  5.       (assembler as_open)      ;; for assembler & machine descriptions
  6.       (assembler fg)
  7.       (assembler lap)
  8.       (assembler as_utils)     ;; utilities for the assembler
  9.       (assembler as)           ;; client compiler interface
  10.       (assembler count)
  11.       (assembler mark)
  12.       (assembler mini)
  13.       (assembler bits)
  14.       (assembler listing)))
  15.  
  16. (define tas-vax-files
  17.     '((assembler as_vax)
  18.       (assembler vmodes)
  19.       (assembler vaxis)
  20.       (assembler vaxi)
  21.       (assembler vaxam)
  22.       ))
  23.  
  24. (define tas-m68-files
  25.     '((assembler as_m68)
  26.       (assembler m68am)
  27.       (assembler m68is1)
  28.       (assembler m68is2)
  29.       ))
  30.  
  31. (define (compile-tas-syntax)
  32.   (walk comfile '((assembler expand)
  33.                   (assembler fg_spec)  
  34.                   (assembler fg_expr)  
  35.                   (assembler as_syntax))))
  36.  
  37. (define (compile-tas)
  38.   (walk comfile tas-files))
  39.   
  40. (define (compile-m68-tas)
  41.   (compile-machine tas-m68-files))
  42.  
  43. (define (compile-vax-tas)
  44.   (compile-machine tas-vax-files))
  45.       
  46. (define tas-locale (make-locale standard-env 'tas))
  47. (define tas-syntax-table (env-syntax-table tas-locale))
  48.  
  49. (load '(assembler as_utils) tas-locale)
  50. (load '(assembler fg_spec) tas-locale)
  51. (load '(assembler fg_expr) tas-locale)
  52. (load '(assembler expand) tas-locale)
  53. (load '(assembler as_syntax) tas-locale)
  54.  
  55.