[Axiom-developer] Re: Debian ports

[Camm Maguire]

Greetings!

Tim Daly <address@hidden> writes:

> Camm Maguire wrote:
>> Hi Tim!  Is there a reason that makeint.lisp needs to load bookvol5
>> twice?
>>
>> Take care,
>>   
> Camm,
>
> I have been away on a business trip for the last week.
> I will look at this shortly.
>
> Tim

Great to be in contact again.

1) I've apparently fixed the issue with the non-native-reloc ports, at
least temporarily, by loading bookvol5 in makeint.lisp as a .lsp the
first time.  I provide more detail later if desired.

2) I've just committed to the 2.6.8pre branch socket code which I hope
will obviate the need for your recent read.d patch regarding
read-char-no-hang.  I really think the current behavior is correct,
though I could of course be overlooking something.  Newlines are read
and returned.  The old implementation, among other things, returned
'eof for (read-char-no-hang *standard-input* nil 'eof)<Return>. 

I think you are rolling your own socket code, but I've been testing
briefly with this:

=============================================================================
>(in-package 'si)

#<"SYSTEM" package>

SYSTEM>(defun foo (&rest r ) nil)

FOO

SYSTEM>(let* ((s (socket 8081 :server #'foo))(a (accept s))) (do nil ((eq 'eof 
(setq ch (read-char-no-hang a nil 'eof)))) (sleep 1) (when ch (print ch))))

#\a 
#\s 
#\d 
#\Return 
#\Newline 
NIL

SYSTEM>.
=============================================================================
(other xterm)
telnet localhost 8081 </tmp/foo
Trying 127.0.0.1...
Connected to localhost.m.enhanced.com.
Escape character is '^]'.
Connection closed by foreign host.
=============================================================================
file /tmp/foo
asd
=============================================================================

3) I don't really know how to test or use )browse at the moment.  And
I have forgotten how to escape to the lisp propmt, (as opposed to one
command at a time )lisp)

4) It would be great to integrate the compiler::link patches for now
at least.  At some point I hope to have native object relocation
everywhere, but this is likely a ways off.

Note I'm turning off sgc for now, but this should not be permanent.

=============================================================================
--- ./lsp/Makefile.pamphlet.orig        2010-01-04 16:45:15.000000000 +0000
+++ ./lsp/Makefile.pamphlet     2010-01-04 16:46:18.000000000 +0000
@@ -1161,12 +1161,8 @@
 
 gcldir: 
        @echo 2 building ${GCLVERSION}
-       @tar -zxf ${ZIPS}/${GCLVERSION}.tgz
-<<gcl-2.6.8pre.socket.patch>>
-<<gcl-2.6.8pre.libspad.patch>>
-<<gcl-2.6.8pre.toploop.patch>>
-<<gcl-2.6.8pre.collectfn.fix>>
-<<gclConfigureMake>>
+#      @tar -zxf ${ZIPS}/${GCLVERSION}.tgz
+       echo '(compiler::link (list (compile-file "${BOOKS}/tangle.lisp")) 
"${OUT}/lisp" (format nil "(progn (let ((*load-path* (cons ~S 
*load-path*))(si::*load-types* ~S)) (compiler::emit-fn t))(fmakunbound (quote 
si::sgc-on))(when (fboundp (quote si::sgc-on)) (si::sgc-on 
t))#-native-reloc(setq compiler::*default-system-p* t))" si::*system-directory* 
(quote (list #+native-reloc".o" ".lsp"))) "${OBJ}/${SYS}/lib/cfuns-c.o 
${OBJ}/${SYS}/lib/sockio-c.o ${OBJ}/${SYS}/lib/libspad.a")' | gcl
        @echo 13 finished system build on `date` | tee >gcldir
 
 ccldir: ${LSP}/ccl/Makefile
--- ./src/interp/Makefile.pamphlet.orig 2010-01-11 17:34:04.000000000 +0000
+++ ./src/interp/Makefile.pamphlet      2010-01-11 17:33:38.000000000 +0000
@@ -426,8 +426,28 @@
 \begin{verbatim}
 <<save depsys image>>=
        @ (cd ${MNT}/${SYS}/bin ; \
-          echo '(progn (load "${OUT}/makedep.lisp")' \
-                '(spad-save "${DEPSYS}"))' | ${LISPSYS})
+          echo '#+native-reloc(progn (load "${OUT}/makedep.lisp") (spad-save 
"${DEPSYS}"))#-native-reloc(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 (apply 'concatenate 
'string \"Binary module load error: \" si::*binary-modules*)))\
+                                       (setq si::collect-binary-modules* nil 
si::*binary-modules* nil)\
+                                       (gbc t)\
+                                       (fmakunbound (quote si::sgc-on))(when 
(fboundp (quote si::sgc-on)) (si::sgc-on t))\
+                                       (setq compiler::*default-system-p* t)\
+                               " si::*system-directory* (quote (list ".lsp")))\
+                               ""\
+                               nil))' | sed 's,\\$$,,g' | ${LISPSYS})
 @
 \end{verbatim}
 
@@ -697,7 +717,7 @@
 #      @ cp -p ${SRC}/doc/msgs/co-eng.msgs ${SPAD}/doc/msgs
        @ echo '${PROCLAIMS}' > ${OUT}/makeint.lisp
        @ echo '(load "${OUT}/nocompil")' >> ${OUT}/makeint.lisp
-       @ echo '(load "${OUT}/bookvol5")' >> ${OUT}/makeint.lisp
+       @ echo '(load "${OUT}/bookvol5.lsp")' >> ${OUT}/makeint.lisp
        @ echo '(load "${OUT}/util")' >> ${OUT}/makeint.lisp
        @ echo '(in-package "BOOT")' >> ${OUT}/makeint.lisp
        @ touch ${TIMESTAMP}
@@ -728,8 +748,33 @@
        @ 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 '#+native-reloc(progn (gbc t) (setq x 
si::*system-directory*)(load "${OUT}/makeint.lisp") (setq 
si::*system-directory* x) (unintern (quote x))(gbc t)(user::spad-save 
"${SAVESYS}"))#-native-reloc(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 (apply 'concatenate 
'string \"Binary module load error: \" si::*binary-modules*)))\
+                                       (setq si::collect-binary-modules* nil 
si::*binary-modules* nil)\
+                                       (gbc t)\
+                                       (fmakunbound (quote si::sgc-on))(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))' | sed 's,\\$$,,g' | $(LISPSYS))
        @ echo 6 ${SAVESYS} created
        @ cp ${SAVESYS} ${AXIOMSYS}
        @ echo 6a ${AXIOMSYS} created
--- ./src/etc/Makefile.pamphlet.orig    2010-01-04 15:26:34.000000000 +0000
+++ ./src/etc/Makefile.pamphlet 2010-01-04 14:55:31.000000000 +0000
@@ -24,7 +24,7 @@
        @ cp ${SRC}/doc/topics.data ${INT}/algebra
        @ cp ${SRC}/doc/topics.data ${INT}/algebra
        @ (cd ${INT}/algebra ; \
-           echo ')lisp (make-databases "" nil)' | ${INTERPSYS} )
+           echo ')lisp #+native-reloc(make-databases "" nil) 
#-native-reloc(system "cp ${SRC}/../debian/*.daase ${INT}/algebra/")' | 
${INTERPSYS} )
        @ cp -pr ${INT}/algebra/*.daase ${MNT}/${SYS}/algebra
 
 @
=============================================================================

Take care,

>
>
>
>
>

-- 
Camm Maguire                                        address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah