From 93eb1d7c0e3249121f65f2367de68009b4cc1c89 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 6 Jan 1995 18:36:33 +0000 Subject: [PATCH] Change default output file name to be limited to a three character suffix. --- v7/src/sf/make.scm | 6 +++--- v7/src/sf/sf.sf | 13 +++++-------- v7/src/sf/toplev.scm | 9 ++++++--- v8/src/sf/make.scm | 6 +++--- v8/src/sf/toplev.scm | 9 ++++++--- 5 files changed, 23 insertions(+), 20 deletions(-) diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm index 88c9d657b..2a0bf98be 100644 --- a/v7/src/sf/make.scm +++ b/v7/src/sf/make.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: make.scm,v 4.30 1994/06/21 19:38:30 cph Exp $ +$Id: make.scm,v 4.31 1995/01/06 18:36:17 cph Exp $ -Copyright (c) 1988-94 Massachusetts Institute of Technology +Copyright (c) 1988-95 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -47,4 +47,4 @@ MIT in each case. |# (package/system-loader "sf" '() 'QUERY))) ((package/reference (find-package '(SCODE-OPTIMIZER)) 'USUAL-INTEGRATIONS/CACHE!)))) -(add-system! (make-system "SF" 4 30 '())) \ No newline at end of file +(add-system! (make-system "SF" 4 31 '())) \ No newline at end of file diff --git a/v7/src/sf/sf.sf b/v7/src/sf/sf.sf index 55ed2f7d3..c2e5d99b1 100644 --- a/v7/src/sf/sf.sf +++ b/v7/src/sf/sf.sf @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.sf,v 4.5 1989/10/26 06:28:11 cph Rel $ +$Id: sf.sf,v 4.6 1995/01/06 18:36:33 cph Exp $ -Copyright (c) 1988, 1989 Massachusetts Institute of Technology +Copyright (c) 1988-95 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -52,10 +52,7 @@ MIT in each case. |# (sf-conditionally "lsets") (sf-directory ".")) -;; Guarantee that the package modeller is loaded. -(if (not (name->package '(CROSS-REFERENCE))) - (with-working-directory-pathname "../cref" (lambda () (load "make")))) - +(load-option 'CREF) (cref/generate-constructors "sf") -(sf "sf.con" "sf.bcon") -(sf "sf.ldr" "sf.bldr") \ No newline at end of file +(sf "sf.con") +(sf "sf.ldr") \ No newline at end of file diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm index a17063df9..3b7f6edfc 100644 --- a/v7/src/sf/toplev.scm +++ b/v7/src/sf/toplev.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: toplev.scm,v 4.12 1993/09/01 00:10:28 cph Exp $ +$Id: toplev.scm,v 4.13 1995/01/06 18:36:24 cph Exp $ -Copyright (c) 1988-1993 Massachusetts Institute of Technology +Copyright (c) 1988-95 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -165,7 +165,10 @@ MIT in each case. |# (let ((input-type (pathname-type input-path))) (if (and (string? input-type) (not (string=? "scm" input-type))) - (string-append "b" input-type) + (string-append "b" + (if (> (string-length input-type) 2) + (string-head input-type 2) + input-type)) "bin"))))) (if bin-string (merge-pathnames bin-string bin-path) diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm index 88c9d657b..2a0bf98be 100644 --- a/v8/src/sf/make.scm +++ b/v8/src/sf/make.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: make.scm,v 4.30 1994/06/21 19:38:30 cph Exp $ +$Id: make.scm,v 4.31 1995/01/06 18:36:17 cph Exp $ -Copyright (c) 1988-94 Massachusetts Institute of Technology +Copyright (c) 1988-95 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -47,4 +47,4 @@ MIT in each case. |# (package/system-loader "sf" '() 'QUERY))) ((package/reference (find-package '(SCODE-OPTIMIZER)) 'USUAL-INTEGRATIONS/CACHE!)))) -(add-system! (make-system "SF" 4 30 '())) \ No newline at end of file +(add-system! (make-system "SF" 4 31 '())) \ No newline at end of file diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm index a17063df9..3b7f6edfc 100644 --- a/v8/src/sf/toplev.scm +++ b/v8/src/sf/toplev.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: toplev.scm,v 4.12 1993/09/01 00:10:28 cph Exp $ +$Id: toplev.scm,v 4.13 1995/01/06 18:36:24 cph Exp $ -Copyright (c) 1988-1993 Massachusetts Institute of Technology +Copyright (c) 1988-95 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -165,7 +165,10 @@ MIT in each case. |# (let ((input-type (pathname-type input-path))) (if (and (string? input-type) (not (string=? "scm" input-type))) - (string-append "b" input-type) + (string-append "b" + (if (> (string-length input-type) 2) + (string-head input-type 2) + input-type)) "bin"))))) (if bin-string (merge-pathnames bin-string bin-path) -- 2.25.1