[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] Fix for case in filenames
From: |
Juergen Weiss |
Subject: |
[Axiom-developer] Fix for case in filenames |
Date: |
02 Oct 2003 23:45:41 +0200 |
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 |
The following patch preserves case in filenames during
the build process.
Index: util.lisp.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/util.lisp.pamphlet,v
retrieving revision 1.1
diff -c -r1.1 util.lisp.pamphlet
*** util.lisp.pamphlet 28 Aug 2003 14:23:40 -0000 1.1
--- util.lisp.pamphlet 2 Oct 2003 21:39:10 -0000
***************
*** 44,50 ****
#+:AKCL
(in-package "BOOT")
(push :oldboot *features*)
! (mapcar #'load-a-file load-files)
(make-depsys lsp src int obj mnt sys)
(initroot spad)
#+:AKCL
--- 44,50 ----
#+:AKCL
(in-package "BOOT")
(push :oldboot *features*)
! (mapcar #'load load-files)
(make-depsys lsp src int obj mnt sys)
(initroot spad)
#+:AKCL
***************
*** 131,137 ****
:array 400 :string 500 :cfun 100 :cpages 1000
:rpages 1000 :hole 2000)
<<compiler-notes>>
! (mapcar #'load-a-file load-files)
(|resetWorkspaceVariables|)
(|initHist|)
(|initNewWorld|)
--- 131,137 ----
:array 400 :string 500 :cfun 100 :cpages 1000
:rpages 1000 :hole 2000)
<<compiler-notes>>
! (mapcar #'load load-files)
(|resetWorkspaceVariables|)
(|initHist|)
(|initNewWorld|)
***************
*** 142,159 ****
#+:CCL
(resethashtables)
(setq *load-verbose* nil)
! (|setBootAutloadProperties| comp-functions (mapcar #'filename-downcase
! comp-files))
! (|setBootAutloadProperties| parse-functions (mapcar #'filename-downcase
! parse-files))
! (|setBootAutloadProperties| browse-functions (mapcar #'filename-downcase
! browse-files))
! (|setBootAutloadProperties| translate-functions (mapcar #'filename-downcase
! translate-files))
! (|setNAGBootAutloadProperties| nagbr-functions (mapcar #'filename-downcase
! nagbr-files))
! (|setBootAutloadProperties| asauto-functions (mapcar #'filename-downcase
! asauto-files))
(setf (symbol-function 'boot::|addConsDB|) #'identity)
(resethashtables) ; the databases into core, then close the streams
)
--- 142,153 ----
#+:CCL
(resethashtables)
(setq *load-verbose* nil)
! (|setBootAutloadProperties| comp-functions comp-files)
! (|setBootAutloadProperties| parse-functions parse-files)
! (|setBootAutloadProperties| browse-functions browse-files)
! (|setBootAutloadProperties| translate-functions translate-files)
! (|setNAGBootAutloadProperties| nagbr-functions nagbr-files)
! (|setBootAutloadProperties| asauto-functions asauto-files)
(setf (symbol-function 'boot::|addConsDB|) #'identity)
(resethashtables) ; the databases into core, then close the streams
)
Index: Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/Makefile.pamphlet,v
retrieving revision 1.3
diff -c -r1.3 Makefile.pamphlet
*** Makefile.pamphlet 5 Sep 2003 22:14:19 -0000 1.3
--- Makefile.pamphlet 2 Oct 2003 21:39:11 -0000
***************
*** 525,531 ****
@ echo '(load "${OUT}/nocompil")' >> ${OUT}/makedep.lisp
@ echo '(load "${OUT}/util")' >> ${OUT}/makedep.lisp
@ echo '(in-package "BOOT")' >> ${OUT}/makedep.lisp
! @ echo '(build-depsys (quote (${DEP})) "${SPAD}" "${GCLDIR}" "${SRC}"
"${INT}" "${OBJ}" "${MNT}" "${SYS}")' >> ${OUT}/makedep.lisp
@ echo '(unless (probe-file "${OUT}/postpar.${O}") (compile-file
"${OUT}/postpar.${LISP}" :output-file "${OUT}/postpar.${O}"))' >>
${OUT}/makedep.lisp
@ echo '(load "${OUT}/postpar")' >> ${OUT}/makedep.lisp
@ echo '(unless (probe-file "${OUT}/parse.${O}") (compile-file
"${OUT}/parse.${LISP}" :output-file "${OUT}/parse.${O}"))' >>
${OUT}/makedep.lisp
--- 525,531 ----
@ echo '(load "${OUT}/nocompil")' >> ${OUT}/makedep.lisp
@ echo '(load "${OUT}/util")' >> ${OUT}/makedep.lisp
@ echo '(in-package "BOOT")' >> ${OUT}/makedep.lisp
! @ echo '(build-depsys (quote ($(patsubst %, "%", ${DEP}))) "${SPAD}"
"${GCLDIR}" "${SRC}" "${INT}" "${OBJ}" "${MNT}" "${SYS}")' >>
${OUT}/makedep.lisp
@ echo '(unless (probe-file "${OUT}/postpar.${O}") (compile-file
"${OUT}/postpar.${LISP}" :output-file "${OUT}/postpar.${O}"))' >>
${OUT}/makedep.lisp
@ echo '(load "${OUT}/postpar")' >> ${OUT}/makedep.lisp
@ echo '(unless (probe-file "${OUT}/parse.${O}") (compile-file
"${OUT}/parse.${LISP}" :output-file "${OUT}/parse.${O}"))' >>
${OUT}/makedep.lisp
***************
*** 599,605 ****
@ echo '(in-package "BOOT")' >> ${OUT}/makeint.lisp
@ touch ${TIMESTAMP}
@ echo '${YEARWEEK}' >> ${OUT}/makeint.lisp
! @ echo '(build-interpsys (append (quote (${OBJS})) (quote (${ASCOMP}))
(quote (${INOBJS}))) (quote (${OPOBJS})) (quote (${OCOBJS})) (quote
(${BROBJS})) (quote (${TRANOBJS})) (quote (${NAGBROBJS})) (quote (${ASAUTO}))
"${SPAD}" "${LSP}" "${SRC}" "${INT}" "${OBJ}" "${MNT}" "${SYS}")' >>
${OUT}/makeint.lisp
@ echo '(in-package "SCRATCHPAD-COMPILER")' >> ${OUT}/makeint.lisp
# @ echo '(|shoeInternFile| "${MNT}/${SYS}/doc/msgs/co-eng.msgs")' >>
${OUT}/makeint.lisp
@ echo '(boot::set-restart-hook)' >> ${OUT}/makeint.lisp
--- 599,605 ----
@ echo '(in-package "BOOT")' >> ${OUT}/makeint.lisp
@ touch ${TIMESTAMP}
@ echo '${YEARWEEK}' >> ${OUT}/makeint.lisp
! @ echo '(build-interpsys (append (quote ($(patsubst %, "%", ${OBJS})))
(quote ($(patsubst %, "%", ${ASCOMP}))) (quote ($(patsubst %, "%",
${INOBJS})))) (quote ($(patsubst %, "%", ${OPOBJS}))) (quote ($(patsubst %,
"%", ${OCOBJS}))) (quote ($(patsubst %, "%", ${BROBJS}))) (quote ($(patsubst %,
"%", ${TRANOBJS}))) (quote ($(patsubst %, "%", ${NAGBROBJS}))) (quote
($(patsubst %, "%", ${ASAUTO}))) "${SPAD}" "${LSP}" "${SRC}" "${INT}"
"${OBJ}" "${MNT}" "${SYS}")' >> ${OUT}/makeint.lisp
@ echo '(in-package "SCRATCHPAD-COMPILER")' >> ${OUT}/makeint.lisp
# @ echo '(|shoeInternFile| "${MNT}/${SYS}/doc/msgs/co-eng.msgs")' >>
${OUT}/makeint.lisp
@ echo '(boot::set-restart-hook)' >> ${OUT}/makeint.lisp
--
Juergen Weiss | Universitaet Mainz, Zentrum fuer Datenverarbeitung,
address@hidden| 55099 Mainz, Tel: +49(6131)39-26361, FAX: +49(6131)39-26407
- [Axiom-developer] Fix for case in filenames,
Juergen Weiss <=