2b54222fb3
- Support CC/CFLAGS/PREFIX. PR: 16677 Submitted by: KATO Tsuguru <tkato@prontomail.ne.jp>
126 lines
3.6 KiB
Text
126 lines
3.6 KiB
Text
--- 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))))
|
|
+
|