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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
--- scsc/main.sc.orig Tue Feb 23 00:59:07 1993
+++ scsc/main.sc Wed Feb 2 22:22:22 2000
@@ -59,7 +59,9 @@
readtext
transform))
-(define SCC-VERSION "15mar93jfb")
+(define scheme_dir "%%PREFIX%%/lib/schemetoc/")
+
+(define SCC-VERSION "15mar93-FreeBSD")
; Compiler version string.
(define FORCE-LD-OF-REP read-eval-print)
@@ -69,23 +71,28 @@
;;; The following top-level variables define the implementation dependent
;;; information:
-(define PREDEF-DEFAULT "../scrt/predef.sc")
+(define PREDEF-DEFAULT (string-append scheme_dir "predef.sc"))
+
; File holding the declarations for predefined
; functions.
(define C-INCLUDE-FILE "objects.h")
; #include file for the predefined functions.
-(define C-INCLUDE-DIR "../scrt")
+(define C-INCLUDE-DIR scheme_dir)
; directory containing #include file for
; predefined functions.
-(define SC-LIBRARY "../scrt/libsc.a")
+(define SC-LIBRARY (string-append scheme_dir "libsc.a"))
; Scheme->C library file.
-(define SC-LIBRARY_P "../scrt/libsc_p.a")
+(define SCXL-LIBRARY (string-append scheme_dir "scxl.a"))
+
+(define SC-LIBRARY_P (string-append scheme_dir "libsc_p.a"))
; Scheme->C profiled library file.
+(define compile-static #f)
+
;;; When the compiler is invoked directly from the shell, the following
;;; function is invoked to control compilation. It will interprete the flags,
;;; invoke the compiler and then exit. Any compilation errors or Scheme errors
@@ -123,6 +130,8 @@
;;;
;;; -Ot optimize C code by omitting type checks.
;;;
+;;; -static compile static executable.
+;;;
;;; -pg compile for gprof profiling.
;;;
;;; -LIBDIR directory
@@ -161,13 +170,9 @@
(c-flags '())
(sc-to-c.c "SC-TO-C.c")
(sc-to-c.o "SC-TO-C.o")
- (directory-separator
- (if (equal? (list-ref (implementation-information) 5)
- "Microsoft Windows 3.x")
- "\\"
- "/"))
+ (directory-separator "/")
(log '())
- (cc "cc"))
+ (cc "gcc"))
;;; 1. Pick up the command line arguments.
@@ -233,6 +238,9 @@
(cons "(define-constant *type-check* #f)"
flags))
(loop (cdr args)))
+ ((equal? arg "-static")
+ (set! compile-static #t)
+ (loop (cdr args)))
((equal? arg "-Ob")
(set! flags
(cons "(define-constant *bounds-check* #f)"
@@ -295,20 +303,27 @@
;;; C compiler to do the rest.
(unless (eq? 0
- (system (apply string-append
- `(,cc " -I" ,c-include-dir
- ,@(map (lambda (x)
- (string-append " " x))
- (append (reverse c-flags)
- (if (member "-pg"
- c-flags)
- `(,sc-library_p
- "-lm")
- `(,sc-library
- "-lm"))))))))
+ (system (apply string-append
+ `(,cc " -I" ,c-include-dir
+ ,@(map (lambda (x)
+ (string-append " " x))
+ (append (reverse c-flags)
+ (if compile-static
+ (if (member "-pg" c-flags)
+ (list sc-library_p "-lm")
+ (if (member "-c" c-flags)
+ '()
+ (if (member "xlib" with-modules)
+ (list "-lm" sc-library scxl-library "-L%%X11BASE%%/lib -lX11")
+ (list "-lm" sc-library))))
+ (if (member "-c" c-flags)
+ '()
+ (if (member "xlib" with-modules)
+ (list "-L%%X11BASE%%/lib -lm -lsc -lscxl -lX11")
+ (list "-lm -lsc"))))))))))
(reset))
(catch-error
- (lambda ()
+ (lambda ()
(remove-file sc-to-c.c)
(remove-file sc-to-c.o)))))
@@ -351,3 +366,4 @@
root.c)
;;; Pass argument to C.
(else arg))))
+
|
