From de899d2137b4f55688e993f908481daf95e1ea1f Mon Sep 17 00:00:00 2001
From: Jim Ursetto <zbigniewsz@gmail.com>
Date: Fri, 1 Jul 2011 18:16:02 -0500
Subject: [PATCH 3/3] Remove version.scm and references to C_BRANCH_NAME and C_BUILD_TAG
---
Makefile.cygwin | 4 ----
Makefile.mingw | 4 ----
defaults.make | 4 ----
distribution/manifest | 1 -
library.scm | 12 ------------
rules.make | 2 +-
scripts/setversion | 7 +------
version.scm | 1 -
8 files changed, 2 insertions(+), 33 deletions(-)
delete mode 100644 version.scm
diff --git a/Makefile.cygwin b/Makefile.cygwin
index 4863975..6f8d09f 100644
|
a
|
b
|
endif |
| 128 | 128 | |
| 129 | 129 | chicken-defaults.h: |
| 130 | 130 | echo "/* generated */" >$@ |
| 131 | | echo "#define C_BUILD_TAG \"$(BUILD_TAG)\"" >>$@ |
| 132 | 131 | echo "#define C_CHICKEN_PROGRAM \"$(CHICKEN_PROGRAM)$(EXE)\"" >>$@ |
| 133 | 132 | echo "#ifndef C_INSTALL_CC" >>$@ |
| 134 | 133 | echo "# define C_INSTALL_CC \"$(C_COMPILER)\"" >>$@ |
| … |
… |
chicken-defaults.h: |
| 259 | 258 | echo "#ifndef C_BINARY_VERSION" >>$@ |
| 260 | 259 | echo "# define C_BINARY_VERSION $(BINARYVERSION)" >>$@ |
| 261 | 260 | echo "#endif" >>$@ |
| 262 | | echo "#ifndef C_BRANCH_NAME" >>$@ |
| 263 | | echo "# define C_BRANCH_NAME \"$(BRANCHNAME)\"" >>$@ |
| 264 | | echo "#endif" >>$@ |
| 265 | 261 | echo "/* END OF FILE */" >>$@ |
| 266 | 262 | |
| 267 | 263 | include $(SRCDIR)/rules.make |
diff --git a/Makefile.mingw b/Makefile.mingw
index b153b58..56a159a 100644
|
a
|
b
|
chicken-defaults.h: |
| 133 | 133 | ifdef OPTIMIZE_FOR_SPEED |
| 134 | 134 | echo /* (this build was optimized for speed) */ >>$@ |
| 135 | 135 | endif |
| 136 | | echo #define C_BUILD_TAG "$(BUILD_TAG)" >>$@ |
| 137 | 136 | echo #define C_CHICKEN_PROGRAM "$(CHICKEN_PROGRAM)$(EXE)" >>$@ |
| 138 | 137 | echo #define C_WINDOWS_SHELL 1 >>$@ |
| 139 | 138 | echo #ifndef C_INSTALL_CC >>$@ |
| … |
… |
endif |
| 262 | 261 | echo #ifndef C_BINARY_VERSION >>$@ |
| 263 | 262 | echo # define C_BINARY_VERSION $(BINARYVERSION) >>$@ |
| 264 | 263 | echo #endif >>$@ |
| 265 | | echo #ifndef C_BRANCH_NAME >>$@ |
| 266 | | echo # define C_BRANCH_NAME "" >>$@ |
| 267 | | echo #endif >>$@ |
| 268 | 264 | echo /* END OF FILE */ >>$@ |
| 269 | 265 | |
| 270 | 266 | chicken-install.rc: |
diff --git a/defaults.make b/defaults.make
index 01f7c16..9b3e0ef 100644
|
a
|
b
|
chicken-defaults.h: |
| 351 | 351 | ifdef OPTIMIZE_FOR_SPEED |
| 352 | 352 | echo "/* (this build was optimized for speed) */" >$@ |
| 353 | 353 | endif |
| 354 | | echo "#define C_BUILD_TAG \"$(BUILD_TAG)\"" >>$@ |
| 355 | 354 | echo "#define C_CHICKEN_PROGRAM \"$(CHICKEN_PROGRAM)$(EXE)\"" >>$@ |
| 356 | 355 | echo "#ifndef C_INSTALL_CC" >>$@ |
| 357 | 356 | echo "# define C_INSTALL_CC \"$(C_COMPILER)\"" >>$@ |
| … |
… |
endif |
| 489 | 488 | echo "#ifndef C_BINARY_VERSION" >>$@ |
| 490 | 489 | echo "# define C_BINARY_VERSION $(BINARYVERSION)" >>$@ |
| 491 | 490 | echo "#endif" >>$@ |
| 492 | | echo "#ifndef C_BRANCH_NAME" >>$@ |
| 493 | | echo "# define C_BRANCH_NAME \"$(BRANCHNAME)\"" >>$@ |
| 494 | | echo "#endif" >>$@ |
| 495 | 491 | echo "/* END OF FILE */" >>$@ |
| 496 | 492 | endif |
| 497 | 493 | |
diff --git a/distribution/manifest b/distribution/manifest
index 0d48b71..32a2054 100644
|
a
|
b
|
support.c |
| 45 | 45 | tcp.c |
| 46 | 46 | utils.c |
| 47 | 47 | build.scm |
| 48 | | version.scm |
| 49 | 48 | buildversion |
| 50 | 49 | c-backend.scm |
| 51 | 50 | c-platform.scm |
diff --git a/library.scm b/library.scm
index b930433..0d5811c 100644
|
a
|
b
|
|
| 54 | 54 | # define EX_SOFTWARE 70 |
| 55 | 55 | #endif |
| 56 | 56 | |
| 57 | | #ifndef C_BUILD_TAG |
| 58 | | # define C_BUILD_TAG "" |
| 59 | | #endif |
| 60 | | |
| 61 | | #ifndef C_BRANCH_NAME |
| 62 | | # define C_BRANCH_NAME "" |
| 63 | | #endif |
| 64 | | |
| 65 | 57 | #define C_close_file(p) (C_fclose((C_FILEPTR)(C_port_file(p))), C_SCHEME_UNDEFINED) |
| 66 | 58 | #define C_a_f64peek(ptr, c, b, i) C_flonum(ptr, ((double *)C_data_pointer(b))[ C_unfix(i) ]) |
| 67 | 59 | #define C_fetch_c_strlen(b, i) C_fix(strlen((C_char *)C_block_item(b, C_unfix(i)))) |
| … |
… |
EOF |
| 140 | 132 | |
| 141 | 133 | |
| 142 | 134 | (include "common-declarations.scm") |
| 143 | | (include "version.scm") |
| 144 | 135 | (include "banner.scm") |
| 145 | 136 | |
| 146 | 137 | |
| … |
… |
EOF |
| 151 | 142 | (define-constant default-parameter-vector-size 16) |
| 152 | 143 | (define-constant maximal-string-length #x00ffffff) |
| 153 | 144 | |
| 154 | | (define-foreign-variable +build-tag+ c-string "C_BUILD_TAG") |
| 155 | | (define-foreign-variable +branch-name+ c-string "C_BRANCH_NAME") |
| 156 | | |
| 157 | 145 | |
| 158 | 146 | ;;; System routines: |
| 159 | 147 | |
diff --git a/rules.make b/rules.make
index bca0358..8ba36a6 100644
|
a
|
b
|
$(foreach lib, $(SETUP_API_OBJECTS_1),\ |
| 493 | 493 | |
| 494 | 494 | bootstrap-lib = $(CHICKEN) $< $(CHICKEN_LIBRARY_OPTIONS) -output-file $@ |
| 495 | 495 | |
| 496 | | library.c: $(SRCDIR)library.scm $(SRCDIR)version.scm $(SRCDIR)banner.scm $(SRCDIR)common-declarations.scm |
| | 496 | library.c: $(SRCDIR)library.scm $(SRCDIR)banner.scm $(SRCDIR)common-declarations.scm |
| 497 | 497 | $(bootstrap-lib) |
| 498 | 498 | eval.c: $(SRCDIR)eval.scm $(SRCDIR)common-declarations.scm |
| 499 | 499 | $(bootstrap-lib) |
diff --git a/scripts/setversion b/scripts/setversion
index 6102377..c292c3c 100644
|
a
|
b
|
exec csi -s "$0" "$@" |
| 58 | 58 | (set! buildversion |
| 59 | 59 | (conc maj "." min "." (add1 (string->number pl)) huh)) ) ) ) |
| 60 | 60 | (with-output-to-file "buildversion" (cut display buildversion) binary:) |
| 61 | | (with-output-to-file "version.scm" |
| 62 | | (lambda () |
| 63 | | (write `(define-constant +build-version+ ,buildversion)) |
| 64 | | (newline) ) |
| 65 | | binary:) |
| 66 | | (system* "cat version.scm") |
| | 61 | (system* "cat buildversion") |
| 67 | 62 | (let ([vstr (sprintf "version ~A" buildversion)]) |
| 68 | 63 | (for-each (cut patch <> (irregex "version [0-9][-.0-9a-zA-Z]+") vstr) files) ) |
| 69 | 64 | (patch |
diff --git a/version.scm b/version.scm
deleted file mode 100644
index a3442cc..0000000
|
+
|
-
|
|
| 1 | | (define-constant +build-version+ "4.7.3") |