axiom-developer
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Axiom-developer] Axiom on FreeBSD - current patch set


From: Mark Murray
Subject: [Axiom-developer] Axiom on FreeBSD - current patch set
Date: Sun, 08 Aug 2004 12:29:45 +0100

Heya folks

Enclosed are the current set of patches I have to get Axiom working on
FreeBSD. A great deal of this work is Camm Maguire's; I've just been
shoving it around in brute-force-and-ignorance mode for a while. :-)

A big bit of the patch is to add "gcl-system" as a sort of GCL version.
if this is chosen, then the system supplied GCL is used instead of the
piggybacked build. For FreeBSD this works out well, as the GCL port
then does the job. FreeBSD also has a port of noweb, so that is used in
preference to the noweb piggybacked build. I've tried to make the patch
generic to all builds.

There are also some bugfixes. FreeBSD does not have a <malloc.h> include
(well, it does, but including it is an error), and SIGCLD is replaced by
the POSIX SIGCHLD. There are other sundry warning and path fixes, and
an attempt to get "make clean" to remove all the generated files in the
build (some Makefile and Makefile.dvi remnants are unaccounted for.

I've been running Axiom now for many months; any chances of getting the
some of the major bits and some of the FreeBSD build infrastructure in?

My offer for a FreeBSD box to test things on still stands :-)

M
--
Mark Murray
iumop ap!sdn w,I idlaH
Index: Makefile
===================================================================
RCS file: /cvsroot/axiom/axiom/Makefile,v
retrieving revision 1.11
diff -u -d -B -b -r1.11 Makefile
--- Makefile    21 Jul 2004 02:59:33 -0000      1.11
+++ Makefile    8 Aug 2004 10:06:11 -0000
@@ -7,7 +7,9 @@
 #GCLVERSION=gcl-2.5.2
 #GCLVERSION=gcl-2.6.1
 #GCLVERSION=gcl-2.6.2
-GCLVERSION=gcl-2.6.3
+#GCLVERSION=gcl-2.6.2a
+#GCLVERSION=gcl-2.6.3
+GCLVERSION=gcl-system
 AWK=gawk
 GCLDIR=${LSP}/${GCLVERSION}
 SRC=${SPD}/src
@@ -21,7 +23,7 @@
 CCLBASE=${OBJ}/${SYS}/ccl/ccllisp
 INSTALL=/usr/local/axiom
 COMMAND=${INSTALL}/mnt/${SYS}/bin/axiom
-TANGLE=${SPADBIN}/lib/notangle
+TANGLE=notangle
 
 NOISE="-o ${TMP}/trace"
 
@@ -69,6 +71,7 @@
        @mkdir -p ${OBJ}/noweb
        @mkdir -p ${TMP}
        @mkdir -p ${MNT}/${SYS}/bin/lib
+ifneq "${SYS}" "freebsd"
        @( cd ${OBJ}/noweb ; \
        tar -zxf ${ZIPS}/noweb-2.10a.tgz ; \
        cd ${OBJ}/noweb/src ; \
@@ -80,6 +83,7 @@
        ${MAKE} BIN=${MNT}/${SYS}/bin/lib LIB=${MNT}/${SYS}/bin/lib \
                 MAN=${MNT}/${SYS}/bin/man \
                 TEXINPUTS=${MNT}/${SYS}/bin/tex all install >${TMP}/trace )
+endif
        @echo The file marks the fact that noweb has been made > noweb
 
 nowebclean:
@@ -96,7 +100,13 @@
        @echo 78 installing Axiom in ${INSTALL}
        @mkdir -p ${INSTALL}
        @cp -pr ${MNT} ${INSTALL}
-       @echo AXIOM=${INSTALL}/mnt/${SYS} >${COMMAND}
+       @echo '#!/bin/sh -' >${COMMAND}
+       @echo AXIOM=${INSTALL}/mnt/${SYS} >>${COMMAND}
+       @echo export AXIOM >>${COMMAND}
+       @echo DAASE='$${AXIOM}' >>${COMMAND}
+       @echo export DAASE >>${COMMAND}
+       @echo PATH='$${PATH}':'$${AXIOM}/bin' >>${COMMAND}
+       @echo export PATH >>${COMMAND}
        @cat ${SRC}/etc/axiom >>${COMMAND}
        @chmod +x ${COMMAND}
        @echo 79 Axiom installation finished.
Index: Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/Makefile.pamphlet,v
retrieving revision 1.25
diff -u -d -B -b -r1.25 Makefile.pamphlet
--- Makefile.pamphlet   21 Jul 2004 02:59:33 -0000      1.25
+++ Makefile.pamphlet   8 Aug 2004 10:06:16 -0000
@@ -186,7 +186,7 @@
 CCLBASE=${OBJ}/${SYS}/ccl/ccllisp
 INSTALL=/usr/local/axiom
 COMMAND=${INSTALL}/mnt/${SYS}/bin/axiom
-TANGLE=${SPADBIN}/lib/notangle
+TANGLE=notangle
 
 NOISE="-o ${TMP}/trace"
 
@@ -268,6 +268,7 @@
        @mkdir -p ${OBJ}/noweb
        @mkdir -p ${TMP}
        @mkdir -p ${MNT}/${SYS}/bin/lib
+ifneq "${SYS}" "freebsd"
        @( cd ${OBJ}/noweb ; \
        tar -zxf ${ZIPS}/noweb-2.10a.tgz ; \
        cd ${OBJ}/noweb/src ; \
@@ -279,6 +280,7 @@
        ${MAKE} BIN=${MNT}/${SYS}/bin/lib LIB=${MNT}/${SYS}/bin/lib \
                 MAN=${MNT}/${SYS}/bin/man \
                 TEXINPUTS=${MNT}/${SYS}/bin/tex all install >${TMP}/trace )
+endif
        @echo The file marks the fact that noweb has been made > noweb
 
 nowebclean:
@@ -406,7 +408,13 @@
        @echo 78 installing Axiom in ${INSTALL}
        @mkdir -p ${INSTALL}
        @cp -pr ${MNT} ${INSTALL}
-       @echo AXIOM=${INSTALL}/mnt/${SYS} >${COMMAND}
+       @echo '#!/bin/sh -' >${COMMAND}
+       @echo AXIOM=${INSTALL}/mnt/${SYS} >>${COMMAND}
+       @echo export AXIOM >>${COMMAND}
+       @echo DAASE='$${AXIOM}' >>${COMMAND}
+       @echo export DAASE >>${COMMAND}
+       @echo PATH='$${PATH}':'$${AXIOM}/bin' >>${COMMAND}
+       @echo export PATH >>${COMMAND}
        @cat ${SRC}/etc/axiom >>${COMMAND}
        @chmod +x ${COMMAND}
        @echo 79 Axiom installation finished.
@@ -550,6 +558,11 @@
 optimizations for function calling in Axiom. This is handled automatically
 by changing this variable.
 
+If GCLVERSION is ``gcl-system'', then no GCL is not built locally,
+and it is assumed that the ``gcl'' command is available off the
+path. If this GCL is unsuitable for building Axiom, then very bad
+things will happen.
+
 NOTE WELL: IF YOU CHANGE THIS YOU SHOULD ERASE THE lsp/Makefile FILE.
 This will cause the build to remake the lsp/Makefile from the
 lsp/Makefile.pamphlet file and get the correct version. If you
@@ -562,7 +575,8 @@
 #GCLVERSION=gcl-2.6.1
 #GCLVERSION=gcl-2.6.2
 #GCLVERSION=gcl-2.6.2a
-GCLVERSION=gcl-2.6.3
+#GCLVERSION=gcl-2.6.3
+GCLVERSION=gcl-system
 @
 
 \subsection{Makefile.axposf1v3}
@@ -858,6 +872,53 @@
 <<clean>>
 
 @
+\subsection{Makefile.freebsd}
+Annoyingly enough it seems that GCL uses a default extension of .lsp
+rather than .lisp so we add the {\bf LISP} variable here. We need to
+depend on the default extension behavior because the system build
+will load either the interpreted or compiled form of a file depending
+on which is available. This varies at different stages of the build.
+<<Makefile.freebsd>>=
+# System dependent Makefile for the freebsd platform
+# Platform variable
+PLF:=FREEBSDplatform
+# C compiler flags
+CCF:="-O -pipe -fno-strength-reduce -Wall -D_GNU_SOURCE -D${PLF} 
-I/usr/X11R6/include -I/usr/local/include"
+# Loader flags
+LDF:="-L/usr/X11R6/lib -L/usr/local/lib"
+# C compiler to use
+CC:=gcc 
+AWK=awk
+RANLIB=ranlib
+TOUCH=touch
+TAR=tar
+AXIOMXLROOT=${AXIOM}/compiler
+O=o
+BYE=bye
+LISP=lsp
+DAASE=${SRC}/share
+# where the libXpm.a library lives
+XLIB=/usr/X11R6/lib
+
+ENV=PLF=${PLF} CCF=${CCF} LDF=${LDF} CC=${CC} AWK=${AWK} RANLIB=${RANLIB} \
+    TOUCH=${TOUCH} TAR=${TAR} AXIOMXLROOT=${AXIOMXLROOT} O=${O} BYE=${BYE} \
+    LISP=${LISP} DAASE=${DAASE} XLIB=${XLIB} TANGLE=${TANGLE}
+
+all: rootdirs srcsetup lspdir srcdir
+       @echo 45 Makefile.freebsd called
+       @echo 46 Environment : ${ENV} 
+       @echo 47 finished system build on `date` | tee >lastBuildDate
+
+<<rootdirs>>
+<<noweb>>
+<<literate commands>>
+<<srcsetup>>
+<<src>>
+<<lsp>>
+<<document>>
+<<clean>>
+
+@
 \subsection{Makefile.linux}
 Annoyingly enough it seems that GCL uses a default extension of .lsp
 rather than .lisp so we add the {\bf LISP} variable here. We need to
Index: lsp/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/lsp/Makefile.pamphlet,v
retrieving revision 1.9
diff -u -d -B -b -r1.9 Makefile.pamphlet
--- lsp/Makefile.pamphlet       21 Jul 2004 02:59:33 -0000      1.9
+++ lsp/Makefile.pamphlet       8 Aug 2004 10:06:20 -0000
@@ -744,15 +744,48 @@
          echo 20 applying toploop patch to unixport/init_gcl.lsp ; \
          patch <${SPD}/zips/${GCLVERSION}.unixport.init_gcl.lsp.patch )
 @ 
+\subsection{GCL already installed}
+<<gcl-system>>=
+# locally installed GCL
+OUT=${OBJ}/${SYS}/bin
+
+all:
+       @echo 21 building ${LSP} ${GCLVERSION}
+
+gcldir: 
+       @echo 22 building for ${GCLVERSION}
+       echo '(compiler::link nil "${OUT}/lisp" (format nil "(progn (let 
((*load-path* (cons ~S *load-path*))(si::*load-types* ~S)) (compiler::emit-fn 
t))(when (fboundp (quote si::sgc-on)) (si::sgc-on t))(setq 
compiler::*default-system-p* t))" si::*system-directory* (quote (list ".lsp"))) 
"${OBJ}/${SYS}/lib/cfuns-c.o ${OBJ}/${SYS}/lib/sockio-c.o 
${OBJ}/${SYS}/lib/libspad.a")' | gcl
+       @echo 23 finished gcl build on `date` | tee >gcldir
+
+ccldir: ${LSP}/ccl/Makefile
+       @echo 24 building CCL
+       @mkdir -p ${INT}/ccl
+       @mkdir -p ${OBJ}/${SYS}/ccl
+       @( cd ccl ; ${ENV} ${MAKE} )
+
+${LSP}/ccl/Makefile: ${LSP}/ccl/Makefile.pamphlet
+       @echo 25 making ${LSP}/ccl/Makefile from ${LSP}/ccl/Makefile.pamphlet
+       @( cd ccl ; ${SPADBIN}/document ${NOISE} Makefile )
+
+document:
+       @echo 26 making docs in ${LSP}
+       @mkdir -p ${INT}/doc/lsp/ccl
+       @( cd ccl ; ${ENV} ${MAKE} document )
+
+clean:
+       @echo 27 cleaning ${LSP}/ccl
+       @( cd ccl ; ${ENV} ${MAKE} clean )
+@
+\eject
 <<*>>=
 # gcl version 2.4.1
 OUT=${OBJ}/${SYS}/bin
 
 all:
-       @echo 14 building ${LSP} ${GCLVERSION}
+       @echo 28 building ${LSP} ${GCLVERSION}
 
 gcldir: 
-       @echo 15 building ${GCLVERSION}
+       @echo 29 building ${GCLVERSION}
        @tar -zxf ${ZIPS}/${GCLVERSION}.tgz
 <<gcl-2.4.1.socket.patch>>
 <<gcl-2.4.1.fortran.patch>>
@@ -762,25 +795,25 @@
        ./configure --enable-vssize=65536 ; \
        ${ENV} ${MAKE} ; \
        cp unixport/saved_gcl ${OUT}/lisp )
-       @echo 21 finished system build on `date` | tee >gcldir
+       @echo 30 finished system build on `date` | tee >gcldir
 
 ccldir: ${LSP}/ccl/Makefile
-       @echo 22 building CCL
+       @echo 31 building CCL
        @mkdir -p ${INT}/ccl
        @mkdir -p ${OBJ}/${SYS}/ccl
        @( cd ccl ; ${ENV} ${MAKE} )
 
 ${LSP}/ccl/Makefile: ${LSP}/ccl/Makefile.pamphlet
-       @echo 23 making ${LSP}/ccl/Makefile from ${LSP}/ccl/Makefile.pamphlet
+       @echo 32 making ${LSP}/ccl/Makefile from ${LSP}/ccl/Makefile.pamphlet
        @( cd ccl ; ${SPADBIN}/document ${NOISE} Makefile )
 
 document:
-       @echo 24 making docs in ${LSP}
+       @echo 33 making docs in ${LSP}
        @mkdir -p ${INT}/doc/lsp/ccl
        @( cd ccl ; ${ENV} ${MAKE} document )
 
 clean:
-       @echo 25 cleaning ${LSP}/ccl
+       @echo 34 cleaning ${LSP}/ccl
        @( cd ccl ; ${ENV} ${MAKE} clean )
 @
 \eject
Index: src/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/Makefile.pamphlet,v
retrieving revision 1.11
diff -u -d -B -b -r1.11 Makefile.pamphlet
--- src/Makefile.pamphlet       15 Jul 2004 03:45:11 -0000      1.11
+++ src/Makefile.pamphlet       8 Aug 2004 10:06:24 -0000
@@ -24,8 +24,12 @@
 
 <<environment>>=
 SETUP=scriptsdir libdir
+ifeq ($(PASS1),)
 DIRS=bootdir interpdir sharedir algebradir inputdir etcdir clefdir docdir \
      graphdir
+else
+DIRS=bootdir interpdir sharedir algebradir
+endif
 DOCS=scriptsdocument libdocument ${DIRS:dir=document} 
 CLNS=scriptsclean libclean ${DIRS:dir=clean} 
 
Index: src/boot/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/boot/Makefile.pamphlet,v
retrieving revision 1.6
diff -u -d -B -b -r1.6 Makefile.pamphlet
--- src/boot/Makefile.pamphlet  27 Jun 2004 15:00:58 -0000      1.6
+++ src/boot/Makefile.pamphlet  8 Aug 2004 10:06:48 -0000
@@ -1151,7 +1151,7 @@
 expansion. Adding a single quote symbol will break this expansion.
 
 <<environment>>= 
-CMD0=  (progn (mapcar (function (lambda (x) (load  x))) (quote (${OBJS1}))) 
(system::save-system "${SAVESYS}"))
+CMD0=  (compiler::link (quote (${OBJS1})) "${SAVESYS}" (format nil "(let 
((*load-path* (cons ~S *load-path*))(si::*load-types* ~S)) (compiler::emit-fn 
t)) (when (fboundp (quote si::sgc-on)) (si::sgc-on t)) (setq 
compiler::*default-system-p* t)" si::*system-directory* (quote  (list ".lsp"))))
  
 @
 \subsection{boothdr.lisp \cite{1}}
Index: src/etc/axiom
===================================================================
RCS file: /cvsroot/axiom/axiom/src/etc/axiom,v
retrieving revision 1.3
diff -u -d -B -b -r1.3 axiom
--- src/etc/axiom       7 Feb 2004 03:24:24 -0000       1.3
+++ src/etc/axiom       8 Aug 2004 10:07:42 -0000
@@ -1,8 +1,10 @@
-export AXIOM
 
 system=`uname -s`
 
 case "$system" in
+    FreeBSD) clef -e $AXIOM/bin/AXIOMsys "$@"
+        ;;
+    
     Linux) clef -e $AXIOM/bin/AXIOMsys "$@"
         ;;
     
Index: src/include/useproto.h
===================================================================
RCS file: /cvsroot/axiom/axiom/src/include/useproto.h,v
retrieving revision 1.2
diff -u -d -B -b -r1.2 useproto.h
--- src/include/useproto.h      9 Oct 2003 10:45:16 -0000       1.2
+++ src/include/useproto.h      8 Aug 2004 10:07:50 -0000
@@ -34,7 +34,7 @@
 #ifndef _USEPROTO_H_
 #define _USEPROTO_H_ 1
 
-#if defined(SGIplatform)||defined(LINUXplatform)||defined(HPplatform) 
||defined(RIOSplatform) ||defined(RIOS4platform) || defined(SUN4OS5platform)
+#if defined(SGIplatform)||defined(LINUXplatform)||defined(HPplatform) 
||defined(RIOSplatform) ||defined(RIOS4platform) || 
defined(SUN4OS5platform)||defined(FREEBSDplatform)
 #ifdef _NO_PROTO
 #undef _NO_PROTO
 #endif
Index: src/interp/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/Makefile.pamphlet,v
retrieving revision 1.11
diff -u -d -B -b -r1.11 Makefile.pamphlet
--- src/interp/Makefile.pamphlet        27 Jun 2004 15:01:27 -0000      1.11
+++ src/interp/Makefile.pamphlet        8 Aug 2004 10:08:59 -0000
@@ -1,5 +1,5 @@
 \documentclass{article}
-\usepackage{../../src/scripts/tex/axiom}
+\usepackage{axiom}
 \begin{document}
 \title{\$SPAD/src/interp Makefile}
 \author{Timothy Daly}
@@ -616,8 +616,29 @@
        @ echo '(load "${OUT}/c-util")' >> ${OUT}/makedep.lisp
        @ echo '(unless (probe-file "${OUT}/g-util.${O}") (compile-file 
"${OUT}/g-util.${LISP}" :output-file "${OUT}/g-util.${O}"))' >> 
${OUT}/makedep.lisp
        @ echo '(load "${OUT}/g-util")' >> ${OUT}/makedep.lisp
-       @ (cd ${MNT}/${SYS}/bin ; \
-          echo '(progn (load "${OUT}/makedep.lisp") (spad-save "${DEPSYS}"))' 
| ${LISPSYS})
+       @ (cd ${OBJ}/${SYS}/bin ; \
+          echo '(progn \
+               (setq si::*collect-binary-modules* t) \
+               (load "${OUT}/makedep.lisp") \
+               (compiler::link \
+                       (remove-duplicates si::*binary-modules* :test (quote 
equal)) \
+                       "$(DEPSYS)" \
+                       (format nil "\
+                               (setq si::*collect-binary-modules* t) \
+                               (let ((si::*load-path* (cons ~S 
si::*load-path*))\
+                                       (si::*load-types* ~S))\
+                                       (compiler::emit-fn t))\
+                               (load \"$(OUT)/makedep.lisp\")\
+                               (gbc t)\
+                               (when si::*binary-modules* \
+                                       (error si::*binary-modules*))\
+                               (setq si::collect-binary-modules* nil 
si::*binary-modules* nil)\
+                               (gbc t)\
+                               (when (fboundp (quote si::sgc-on)) (si::sgc-on 
t))\
+                               (setq compiler::*default-system-p* t)\
+                       " si::*system-directory* (quote (list ".lsp")))\
+                       "" \
+                       nil))' | $(LISPSYS))
        @ echo 4 ${DEPSYS} created
 
 @
@@ -670,7 +691,33 @@
        @ echo '#+:akcl (si::gbc-time 0)' >> ${OUT}/makeint.lisp
        @ echo '#+:akcl (setq si::*system-directory* "${SPAD}/bin/")' >> 
${OUT}/makeint.lisp
        @ (cd ${OBJ}/${SYS}/bin ; \
-         echo '(progn (gbc t) (load "${OUT}/makeint.lisp") (gbc t) 
(user::spad-save "${SAVESYS}"))' | ${LISPSYS} )
+         echo '(progn \
+                       (setq si::*collect-binary-modules* t)\
+                       (setq x si::*system-directory*)\
+                       (load "${OUT}/makeint.lisp")\
+                       (setq si::*system-directory* x)\
+                       (unintern (quote x))\
+                       (compiler::link \
+                               (remove-duplicates si::*binary-modules* :test 
(quote equal))\
+                               "$(SAVESYS)" \
+                               (format nil "\
+                                       (let ((si::*load-path* (cons ~S 
si::*load-path*))\
+                                               (si::*load-types* ~S))\
+                                               (compiler::emit-fn t))\
+                                        (setq si::*collect-binary-modules* t)\
+                                        (setq x si::*system-directory*)\
+                                        (load \"$(OUT)/makeint.lisp\")\
+                                        (setq si::*system-directory* x)\
+                                        (unintern (quote x))\
+                                        (when si::*binary-modules* \
+                                               (error si::*binary-modules*))\
+                                       (setq si::collect-binary-modules* nil 
si::*binary-modules* nil)\
+                                       (gbc t)\
+                                       (when (fboundp (quote si::sgc-on)) 
(si::sgc-on t))\
+                                       (setq compiler::*default-system-p* t)\
+                               " si::*system-directory* (quote (list ".lsp")))\
+                       "$(OBJ)/$(SYS)/lib/sockio-c.o 
$(OBJ)/$(SYS)/lib/cfuns-c.o $(OBJ)/$(SYS)/lib/libspad.a" \
+                       nil))' | $(LISPSYS))
        @ echo 6 ${SAVESYS} created
        @ cp ${SAVESYS} ${AXIOMSYS}
        @ echo 6a ${AXIOMSYS} created
@@ -6262,6 +6309,8 @@
 <<Makefile.dvi (DOC from IN)>>=
 ${DOC}/Makefile.dvi: ${IN}/Makefile.pamphlet ${DOC}/axiom.sty
        @echo 613 making ${DOC}/Makefile.dvi from ${IN}/Makefile.pamphlet
+       @echo 'BUG? SOURCE DOES NOT EXIST.'
+       @touch ${IN}/Makefile.dvi
        @cp ${IN}/Makefile.dvi ${DOC}
 
 @
Index: src/interp/nlib.lisp.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/nlib.lisp.pamphlet,v
retrieving revision 1.3
diff -u -d -B -b -r1.3 nlib.lisp.pamphlet
--- src/interp/nlib.lisp.pamphlet       24 May 2004 22:53:55 -0000      1.3
+++ src/interp/nlib.lisp.pamphlet       8 Aug 2004 10:09:03 -0000
@@ -295,7 +295,15 @@
 (defun rpackfile (filespec)
   (setq filespec (make-filename filespec))
   (if (string= (pathname-type filespec) "NRLIB")
-      (recompile-lib-file-if-necessary (concat (namestring filespec) 
"/code.lsp"))
+      (let* ((base (pathname-name filespec))
+            (code (concatenate 'string (namestring filespec) "/code.lsp"))
+            (temp (concatenate 'string (namestring filespec) "/" base ".lsp"))
+            (o (make-pathname :type "o")))
+       (si::system (format nil "cp ~S ~S" code temp))
+       (recompile-lib-file-if-necessary temp)
+       (si::system (format nil "mv ~S ~S~%" 
+                           (namestring (merge-pathnames o temp))
+                           (namestring (merge-pathnames o code)))))
   ;; only pack non libraries to avoid lucid file handling problems    
     (let* ((rstream (rdefiostream (list (cons 'file filespec) (cons 'mode 
'input))))
           (nstream nil)
Index: src/interp/util.lisp.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/util.lisp.pamphlet,v
retrieving revision 1.5
diff -u -d -B -b -r1.5 util.lisp.pamphlet
--- src/interp/util.lisp.pamphlet       24 May 2004 22:54:05 -0000      1.5
+++ src/interp/util.lisp.pamphlet       8 Aug 2004 10:09:12 -0000
@@ -77,6 +77,16 @@
 ;     (compile-file collectfn))
 ;   (load collectfn)
 ;   (compiler::emit-fn t)
+;
+;  (let ((collectfn (concatenate 'string si::*system-directory* 
"../cmpnew/gcl_collectfn.lsp"))
+;       (collectfn1 (concatenate 'string obj "/" sys "/interp/collectfn")))
+;   (with-open-file (st collectfn :direction :input)
+;      (with-open-file (st1 (concatenate 'string collectfn1 ".lsp") :direction 
:output)
+;       (si::copy-stream st st1)))
+;   (unless (probe-file (concatenate 'string collectfn1 ".o"))
+;     (compile-file collectfn1))
+;   (load collectfn1)
+;
    (mapcar
      #'load
      (directory (concatenate 'string obj "/" sys "/interp/*.fn")))
@@ -813,7 +823,7 @@
 This function will do that. A correct call looks like:
 \begin{verbatim}
 (in-package "BOOT")
-(recompile-all-libs "/spad/mnt/linux/algebra")
+(recompile-all-libs "/spad/mnt/${SYS}/algebra")
 \end{verbatim}
 <<recompile-all-libs>>=
 (defun recompile-all-libs (dir)
@@ -838,11 +848,11 @@
 Note that it will build a pathname from the current {\bf AXIOM}
 shell variable. So if the {\bf AXIOM} shell variable had the value
 \begin{verbatim}
-/spad/mnt/linux
+/spad/mnt/${SYS}
 \end{verbatim}
 then the wildcard expands to
 \begin{verbatim}
-/spad/mnt/linux/nalg/*.spad
+/spad/mnt/${SYS}/nalg/*.spad
 \end{verbatim}
 and all of the matching files would be recompiled.
 <<recompile-all-algebra-files>>=
@@ -879,7 +889,7 @@
 before compiling this file. A correct call looks like:
 \begin{verbatim}
 (in-package "BOOT")
-(reroot "/spad/mnt/linux")
+(reroot "/spad/mnt/${SYS}")
 \end{verbatim}
 <<reroot>>=
 (defun reroot (dir)
Index: src/lib/XDither.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/XDither.c.pamphlet,v
retrieving revision 1.4
diff -u -d -B -b -r1.4 XDither.c.pamphlet
--- src/lib/XDither.c.pamphlet  27 Jun 2004 15:01:41 -0000      1.4
+++ src/lib/XDither.c.pamphlet  8 Aug 2004 10:09:16 -0000
@@ -51,7 +51,6 @@
 
 #include <stdio.h>
 #include <stdlib.h>
-#include <malloc.h>
 
 #include <X11/Xlib.h>
 #include <X11/Xutil.h>
Index: src/lib/XShade.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/XShade.c.pamphlet,v
retrieving revision 1.4
diff -u -d -B -b -r1.4 XShade.c.pamphlet
--- src/lib/XShade.c.pamphlet   27 Jun 2004 15:01:42 -0000      1.4
+++ src/lib/XShade.c.pamphlet   8 Aug 2004 10:09:16 -0000
@@ -50,7 +50,6 @@
 #include "useproto.h"
 
 #include <stdio.h>
-#include <malloc.h>
 #include <stdlib.h>
 
 #include <X11/Xlib.h>
Index: src/lib/cfuns-c.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/cfuns-c.c.pamphlet,v
retrieving revision 1.4
diff -u -d -B -b -r1.4 cfuns-c.c.pamphlet
--- src/lib/cfuns-c.c.pamphlet  27 Jun 2004 15:01:43 -0000      1.4
+++ src/lib/cfuns-c.c.pamphlet  8 Aug 2004 10:09:19 -0000
@@ -52,7 +52,6 @@
 #include <unistd.h>
 #include <stdlib.h>
 #include <string.h>
-#include <malloc.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 
Index: src/lib/fnct_key.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/fnct_key.c.pamphlet,v
retrieving revision 1.4
diff -u -d -B -b -r1.4 fnct_key.c.pamphlet
--- src/lib/fnct_key.c.pamphlet 27 Jun 2004 15:01:43 -0000      1.4
+++ src/lib/fnct_key.c.pamphlet 8 Aug 2004 10:09:21 -0000
@@ -352,7 +352,7 @@
                 close(fd);
             }
         }
-        bsdSignal(SIGCLD, null_fnct,RestartSystemCalls);
+        bsdSignal(SIGCHLD, null_fnct,RestartSystemCalls);
         switch (id = fork()) {
           case -1:
             perror("Special key");
Index: src/lib/openpty.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/openpty.c.pamphlet,v
retrieving revision 1.7
diff -u -d -B -b -r1.7 openpty.c.pamphlet
--- src/lib/openpty.c.pamphlet  27 Jun 2004 15:01:44 -0000      1.7
+++ src/lib/openpty.c.pamphlet  8 Aug 2004 10:09:21 -0000
@@ -92,7 +92,7 @@
 #endif
 
 {
-#if defined(SUNplatform) || defined (HP9platform) || defined(RTplatform) 
||defined(AIX370platform) 
+#if defined(SUNplatform) || defined (HP9platform) || defined(RTplatform) 
||defined(AIX370platform) || defined(FREEBSDplatform)
   int looking = 1, i;
   int oflag = O_RDWR;                  /* flag for opening the pty */
   
@@ -204,7 +204,7 @@
        sprintf(serv, "/dev/ttyp%02x", channelNo);
        channelNo++;
 #endif
-#if defined(SUNplatform) || defined (HP9platform) || defined(LINUXplatform) 
+#if defined(FREEBSDplatform) || defined(SUNplatform) || defined (HP9platform) 
|| defined(LINUXplatform) 
        static int channelNo = 0;
        static char group[] = "pqrstuvwxyzPQRST";
        static int groupNo = 0;
Index: src/scripts/document
===================================================================
RCS file: /cvsroot/axiom/axiom/src/scripts/document,v
retrieving revision 1.3
diff -u -d -B -b -r1.3 document
--- src/scripts/document        12 Nov 2003 11:16:15 -0000      1.3
+++ src/scripts/document        8 Aug 2004 10:09:25 -0000
@@ -5,8 +6,9 @@
   exit 0
 fi
 
-tangle=$AXIOM/bin/lib/notangle
-weave=$AXIOM/bin/lib/noweave
+tangle=notangle
+weave=noweave
+
 if [ "$#" = "3" ]; then
  REDIRECT=$2
  FILE=`basename $3 .pamphlet`
==================================================================
==
== Path fixes
==
==================================================================

Index: src/booklets/Sorting.booklet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/booklets/Sorting.booklet,v
retrieving revision 1.1
diff -u -d -B -b -r1.1 Sorting.booklet
--- src/booklets/Sorting.booklet        28 Aug 2003 12:15:28 -0000      1.1
+++ src/booklets/Sorting.booklet        8 Aug 2004 10:06:39 -0000
@@ -1,5 +1,5 @@
 \documentclass{article}
-\usepackage{/home/axiomgnu/new/mnt/linux/bin/tex/noweb}
+\usepackage{noweb}
 \begin{document}
 \title{Sorting Facilities}
 \author{Timothy Daly}
Index: src/clef/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/clef/Makefile.pamphlet,v
retrieving revision 1.3
diff -u -d -B -b -r1.3 Makefile.pamphlet
--- src/clef/Makefile.pamphlet  27 Jun 2004 15:00:58 -0000      1.3
+++ src/clef/Makefile.pamphlet  8 Aug 2004 10:06:48 -0000
@@ -1,5 +1,5 @@
 \documentclass{article}
-\usepackage{../../mnt/linux/bin/axiom}
+\usepackage{axiom}
 \begin{document}
 \title{\$SPAD/src/clef Makefile}
 \author{Timothy Daly}
Index: src/clef/edible.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/clef/edible.c.pamphlet,v
retrieving revision 1.4
diff -u -d -B -b -r1.4 edible.c.pamphlet
--- src/clef/edible.c.pamphlet  30 Jul 2004 16:45:33 -0000      1.4
+++ src/clef/edible.c.pamphlet  8 Aug 2004 10:06:50 -0000
@@ -1,5 +1,5 @@
 \documentclass{article}
-\usepackage{../../mnt/linux/bin/axiom}
+\usepackage{axiom}
 \begin{document}
 \title{\$SPAD/src/clef edible.c}
 \author{The Axiom Team}
Index: src/doc/axiom.bib.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/doc/axiom.bib.pamphlet,v
retrieving revision 1.1
diff -u -d -B -b -r1.1 axiom.bib.pamphlet
--- src/doc/axiom.bib.pamphlet  28 Aug 2003 12:28:30 -0000      1.1
+++ src/doc/axiom.bib.pamphlet  8 Aug 2004 10:07:40 -0000
@@ -12231,7 +12231,7 @@
 \subsection{Makefile}
 <<Makefile>>=
 @MISC{Makefile,
-   path=./mnt/linux/bin/Makefile.pamphlet
+   path=./mnt/${SYS}/bin/Makefile.pamphlet
 }
 
 @
Index: src/interp/debugsys.lisp.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/debugsys.lisp.pamphlet,v
retrieving revision 1.2
diff -u -d -B -b -r1.2 debugsys.lisp.pamphlet
--- src/interp/debugsys.lisp.pamphlet   24 May 2004 22:53:51 -0000      1.2
+++ src/interp/debugsys.lisp.pamphlet   8 Aug 2004 10:09:01 -0000
@@ -79,7 +79,7 @@
       (thesymb "/int/interp/buildom.clisp")
       (thesymb "/int/interp/cattable.clisp")
       (thesymb "/int/interp/cformat.clisp")
-      (thesymb "/obj/linux/interp/cfuns.o")
+      (thesymb "/obj/${SYS}/interp/cfuns.o")
       (thesymb "/int/interp/clam.clisp")
       (thesymb "/int/interp/clammed.clisp")
       (thesymb "/int/interp/comp.lisp")
@@ -152,7 +152,7 @@
       (thesymb "/int/interp/sfsfun.clisp")
       (thesymb "/int/interp/simpbool.clisp")
       (thesymb "/int/interp/slam.clisp")
-      (thesymb "/obj/linux/interp/sockio.o")
+      (thesymb "/obj/${SYS}/interp/sockio.o")
       (thesymb "/int/interp/spad.lisp")
       (thesymb "/int/interp/spaderror.lisp")
       (thesymb "/int/interp/template.clisp")
@@ -232,13 +232,13 @@
    ())
   (list 
    (thesymb "/int/interp/ax.clisp"))
-  "/mnt/linux"
+  "/mnt/${SYS}"
   "/lsp"
   "/src"
   "/int"
   "/obj"
   "/mnt"
-  "linux")
+  "${SYS}")
 (in-package "SCRATCHPAD-COMPILER")
 (boot::set-restart-hook)
 (in-package "BOOT")
@@ -247,7 +247,7 @@
 (load (user::thepath "/int/interp/obey.lsp"))
 ;(si::multiply-bignum-stack 10)
 (si::gbc-time 0)
-(setq si::*system-directory* (user::thepath "/mnt/linux/bin/"))
+(setq si::*system-directory* (user::thepath "/mnt/${SYS}/bin/"))
 (gbc t)
 
 @

==================================================================
==
== Cleaning
==
==================================================================

Index: src/booklets/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/booklets/Makefile.pamphlet,v
retrieving revision 1.1
diff -u -d -B -b -r1.1 Makefile.pamphlet
--- src/booklets/Makefile.pamphlet      28 Aug 2003 12:15:28 -0000      1.1
+++ src/booklets/Makefile.pamphlet      8 Aug 2004 10:06:26 -0000
@@ -19,6 +19,7 @@
 clean:
        @echo 2 cleaning ${INT}/docs/src/booklets
        @rm -rf ${INT}/docs/src/booklets
+       @rm -f Makefile Makefile.dvi
 @
 \eject
 \begin{thebibliography}{99}
Index: src/doc/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/doc/Makefile.pamphlet,v
retrieving revision 1.7
diff -u -d -B -b -r1.7 Makefile.pamphlet
--- src/doc/Makefile.pamphlet   27 Jun 2004 15:00:59 -0000      1.7
+++ src/doc/Makefile.pamphlet   8 Aug 2004 10:06:50 -0000
@@ -105,6 +105,7 @@
 
 clean:
        @echo 4 cleaning ${SRC}/doc
+       @rm -f Makefile Makefile.dvi
 @
 \eject
 \begin{thebibliography}{99}
Index: src/etc/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/etc/Makefile.pamphlet,v
retrieving revision 1.6
diff -u -d -B -b -r1.6 Makefile.pamphlet
--- src/etc/Makefile.pamphlet   27 Jun 2004 15:00:59 -0000      1.6
+++ src/etc/Makefile.pamphlet   8 Aug 2004 10:07:42 -0000
@@ -91,6 +91,7 @@
        @rm -rf ${MID}
        @echo 4 cleaning ${DOC}
        @rm -rf ${DOC}
+       @rm -f Makefile Makefile.dvi
 
 @
 \eject
Index: src/input/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/input/Makefile.pamphlet,v
retrieving revision 1.10
diff -u -d -B -b -r1.10 Makefile.pamphlet
--- src/input/Makefile.pamphlet 15 Jul 2004 03:45:11 -0000      1.10
+++ src/input/Makefile.pamphlet 8 Aug 2004 10:08:22 -0000
@@ -6880,6 +6880,7 @@
        @rm -rf ${MID}
        @echo 7 cleaning ${OUT}
        @rm -rf ${OUT}
+       @rm -f Makefile Makefile.dvi
 
 <<algaggr>>
 <<algbrbf>>
Index: src/lib/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/Makefile.pamphlet,v
retrieving revision 1.8
diff -u -d -B -b -r1.8 Makefile.pamphlet
--- src/lib/Makefile.pamphlet   27 Jun 2004 15:01:39 -0000      1.8
+++ src/lib/Makefile.pamphlet   8 Aug 2004 10:09:14 -0000
@@ -490,6 +490,7 @@
 clean:
        @echo 70 cleaning ${IN}
        @rm -rf ${MID} ${OUT} ${DOCINT} ${DOCMNT}
+       @rm -f Makefile Makefile.dvi
 
 @
 \subsection{Makefile documentation}
Index: src/scripts/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/scripts/Makefile.pamphlet,v
retrieving revision 1.2
diff -u -d -B -b -r1.2 Makefile.pamphlet
--- src/scripts/Makefile.pamphlet       27 Jun 2004 15:01:44 -0000      1.2
+++ src/scripts/Makefile.pamphlet       8 Aug 2004 10:09:25 -0000
@@ -19,6 +19,10 @@
        @cp -pr * ${OUT}
        @mkdir -p ${OUT}/tex
        @rm -f ${OUT}/Makefile*
+
+clean:
+       @echo 2 cleaning ${SRC}/scripts
+       @rm -f Makefile Makefile.dvi
 @
 \eject
 \begin{thebibliography}{99}

==================================================================
==
== Bugfixes
==
==================================================================

Index: src/graph/Makefile.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/graph/Makefile.pamphlet,v
retrieving revision 1.1
diff -u -d -B -b -r1.1 Makefile.pamphlet
--- src/graph/Makefile.pamphlet 27 Jun 2004 15:00:59 -0000      1.1
+++ src/graph/Makefile.pamphlet 8 Aug 2004 10:07:44 -0000
@@ -414,7 +414,7 @@
 
 ${DOC}/viewports:
        @ echo 25 making ${DOC}/viewports from ${IN}/viewports 
-       @ cp -pr ${IN}/viewports ${DOC}
+       @ echo 'BUG? SOURCE DOES NOT EXIST.' cp -pr ${IN}/viewports ${DOC}
 
 <<viewmandir>>
 <<Gdrawsdir>>
Index: src/graph/viewman/cleanup.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/graph/viewman/cleanup.c.pamphlet,v
retrieving revision 1.1
diff -u -d -B -b -r1.1 cleanup.c.pamphlet
--- src/graph/viewman/cleanup.c.pamphlet        27 Jun 2004 15:01:22 -0000      
1.1
+++ src/graph/viewman/cleanup.c.pamphlet        8 Aug 2004 10:07:47 -0000
@@ -53,7 +53,6 @@
 #include <stdlib.h>
 #include <unistd.h>
 #include <stdio.h>
-#include <malloc.h>
 #include <assert.h>
 #include <signal.h>
 #include <sys/wait.h>
Index: src/graph/viewman/sselect.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/graph/viewman/sselect.c.pamphlet,v
retrieving revision 1.1
diff -u -d -B -b -r1.1 sselect.c.pamphlet
--- src/graph/viewman/sselect.c.pamphlet        27 Jun 2004 15:01:24 -0000      
1.1
+++ src/graph/viewman/sselect.c.pamphlet        8 Aug 2004 10:07:47 -0000
@@ -104,7 +104,7 @@
        /* flush(spadSock); */
         /* send_int(spadSock,1);   acknowledge to spad */
         checkClosedChild = no;
-        bsdSignal(SIGCLD,endChild,DontRestartSystemCalls);
+        bsdSignal(SIGCHLD,endChild,DontRestartSystemCalls);
       }
     }
     ret_val = select(n, (void *)rd, (void *)wr, (void *)ex, (void *)timeout);
Index: src/graph/viewman/viewman.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/graph/viewman/viewman.c.pamphlet,v
retrieving revision 1.1
diff -u -d -B -b -r1.1 viewman.c.pamphlet
--- src/graph/viewman/viewman.c.pamphlet        27 Jun 2004 15:01:24 -0000      
1.1
+++ src/graph/viewman/viewman.c.pamphlet        8 Aug 2004 10:07:50 -0000
@@ -116,7 +116,7 @@
   int keepLooking,code;
   
   bsdSignal(SIGPIPE,brokenPipe,DontRestartSystemCalls);
-  bsdSignal(SIGCLD,endChild,RestartSystemCalls);
+  bsdSignal(SIGCHLD,endChild,RestartSystemCalls);
   bsdSignal(SIGTERM,goodbye,DontRestartSystemCalls);
   
   /* Connect up to AXIOM server */

==================================================================
==
== Warning fixes
==
==================================================================

Index: src/lib/pixmap.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/pixmap.c.pamphlet,v
retrieving revision 1.4
diff -u -d -B -b -r1.4 pixmap.c.pamphlet
--- src/lib/pixmap.c.pamphlet   27 Jun 2004 15:01:44 -0000      1.4
+++ src/lib/pixmap.c.pamphlet   8 Aug 2004 10:09:23 -0000
@@ -361,8 +361,7 @@
 write_pixmap_file(Display *dsp, int scr, char  *fn, Window wid, int x, int y, 
int width,int height)
 #endif
 {
-  XpmAttributes attr;
-  XImage *xi,*xireturn;
+  XImage *xi;
   int status;
   
   /* reads image structure in ZPixmap format */
Index: src/lib/wct.c.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/lib/wct.c.pamphlet,v
retrieving revision 1.4
diff -u -d -B -b -r1.4 wct.c.pamphlet
--- src/lib/wct.c.pamphlet      27 Jun 2004 15:01:44 -0000      1.4
+++ src/lib/wct.c.pamphlet      8 Aug 2004 10:09:25 -0000
@@ -287,7 +287,7 @@
   printTime((long *)&(pwct->ftime));
   cc = skimString(pwct->fimage, pwct->fsize, NHEAD, NTAIL);
   printf("%s", "            " + (cc - (NHEAD + NTAIL)));
-  printf(" [%d w, %d c]", pwct->wordc, pwct->fsize);
+  printf(" [%d w, %ld c]", pwct->wordc, (long)pwct->fsize);
   printf("\n");
 
 #ifdef SHOW_WORDS

reply via email to

[Prev in Thread] Current Thread [Next in Thread]