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