[Axiom-developer] Fix for case in filenames

[Juergen Weiss]

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