gsc/igsc.scm

   1 #! /bin/sh
   2 ":";exec ../gsi/gsi -:dar -f $0 $*
   3
   4 ;;;============================================================================
   5
   6 ;;; File: "igsc.scm", Time-stamp: <2009-11-04 13:14:42 feeley>
   7
   8 ;;; Copyright (c) 1994-2009 by Marc Feeley, All Rights Reserved.
   9
  10 ;;;----------------------------------------------------------------------------
  11
  12 (define c#absent-object
  13   (string->symbol "#<absent>")) ; (##type-cast -6 2)
  14
  15 (define ##compilation-options '(check))
  16
  17 (##include "../gsc/fixnum.scm")
  18
  19 (define root "")
  20
  21 ;;;----------------------------------------------------------------------------
  22
  23 (define modules '(
  24 "_utils"
  25 "_source"
  26 "_parms"
  27 "_env"
  28 "_ptree1"
  29 "_ptree2"
  30 "_gvm"
  31 "_back"
  32 "_front"
  33 "_prims"
  34 "_t-c-1"
  35 "_t-c-3"
  36 "_t-c-2"
  37 "_gsclib"
  38 "_gsc"
  39 ))
  40
  41 (define (load-from-gsc file)
  42   (##namespace ("" load))
  43   (display "loading ")
  44   (write file)
  45   (load (string-append root "../gsc/" file ".scm"))
  46   (newline))
  47
  48 (eval '(##define-macro (include file)
  49         `(##include ,(string-append "../gsc/" file))))
  50
  51 ;;;----------------------------------------------------------------------------
  52
  53 (load-from-gsc "_host")
  54
  55 (set! **main-readtable
  56   (and **main-readtable
  57        (##list->vector (##vector->list **main-readtable))))
  58
  59 (for-each load-from-gsc modules)
  60
  61 (##main-gsi/gsc)
  62
  63 ;;;----------------------------------------------------------------------------