Hi Tim,

Finally managed to get the interface running and building from pamphlets
properly.  I've attached two files - there is a tar file which should be
unpacked in axiom/src - this contains an 'aldor' directory.  The patch
file contains some minor (but important) changes to files in src/interp.

Typing 'make' in the aldor directory should kick the build off.  It
takes less than an hour on my 2Ghz pentium.

To build, you'll need java, and aldor 1.0.2 set up.  

I've tried to document how the makefiles fit together in the .pamphlet
files, hopefully some of them will make a form of sense.  Basically, the
idea is that the build uses a small java program to dynamically
determine dependencies, and then let make deal with compilation order.  

Minor changes: I've changed where axiom looks for the aldor files - they
go to $AXIOM/aldor, not $AXIOM/compiler, mostly 'cos compiler is too
ambiguous.  The other changes are simple bug fixes.

For testing, I've appended a very stupid aldor domain (the maths inside
is not meant to be taken seriously; 'tis a silly idea that can't work).
The file contains a short test script at the end.

Pete.

On Sun, 2005-08-14 at 12:07 -0500, [EMAIL PROTECTED] wrote:
> Pete,
> 
> Excellent. Just send me the pamphlets and I'll work on the merge piece.
> 
> re: delay. progress is not measured by time. Once I see what you've
> been up to I can work out testing methods and integrate them into 
> the whole.
> 
> Tim
-- 
Peter Broadbery <[EMAIL PROTECTED]>
* looking for [EMAIL PROTECTED]/axiom--main--1--patch-44 to compare with
* comparing to [EMAIL PROTECTED]/axiom--main--1--patch-44
M  src/interp/patches.lisp.pamphlet
M  src/interp/daase.lisp.pamphlet
M  src/interp/foam_l.lisp.pamphlet
M  src/interp/ax.boot.pamphlet
M  src/interp/i-syscmd.boot.pamphlet

* modified files

--- orig/src/interp/ax.boot.pamphlet
+++ mod/src/interp/ax.boot.pamphlet
@@ -294,6 +294,7 @@
    op = 'has =>
       [name,type] := args
       if name = '$ then name := '%
+      else name := axFormatOp name
       ftype := axFormatOp type
       if ftype is ['Declare,:.] then
            ftype := ['With, [], ftype]


--- orig/src/interp/daase.lisp.pamphlet
+++ mod/src/interp/daase.lisp.pamphlet
@@ -1465,7 +1465,7 @@
  (set (foam::axiomxl-file-init-name "filecliq") NOPfuncall)
  (set (foam::axiomxl-file-init-name "attrib") NOPfuncall)
 ;; following needs to happen inside restart since $AXIOM may change
- (let ((asharprootlib (strconc (|getEnv| "AXIOM") "/compiler/lib/")))
+ (let ((asharprootlib (strconc (|getEnv| "AXIOM") "/aldor/lib/")))
    (set-file-getter (strconc asharprootlib "runtime"))
    (set-file-getter (strconc asharprootlib "lang"))
    (set-file-getter (strconc asharprootlib "attrib"))


--- orig/src/interp/foam_l.lisp.pamphlet
+++ mod/src/interp/foam_l.lisp.pamphlet
@@ -884,8 +884,8 @@
  (cond ( (or (NULL u) (NULL v)) nil)
        ( (and (ATOM u) (ATOM v)) (eql u v))
        ( (or (ATOM u) (ATOM v)) nil)
-       ( (equal (length u) (length v)) (|magicEq1| u v)) 
-       nil ))
+;;       ( (equal (length u) (length v)) (|magicEq1| u v))
+       (t (eq u v))))
 
 (defun |magicEq1| (u v)
  (cond ( (and (atom u) (atom v)) (|politicallySound| u v))


--- orig/src/interp/i-syscmd.boot.pamphlet
+++ mod/src/interp/i-syscmd.boot.pamphlet
@@ -75,12 +75,12 @@
 new aldor compiler.z
 This used to read:
 \begin{verbatim}
-     STRCONC(TRUENAME(STRCONC(GETENV('"AXIOM"),'"/compiler/bin/")),"axiomxl ", asharpArgs, '" ", namestring args)
+     STRCONC(TRUENAME(STRCONC(GETENV('"ALDORROOT"),'"/bin/")),"aldor ", asharpArgs, '" ", namestring args)
 \end{verbatim}
 but now reads:
 <<remove TRUENAME>>=
-     STRCONC(STRCONC(GETENV('"AXIOM"),'"/compiler/bin/"),_
-               "axiomxl ", asharpArgs, '" ", namestring args)
+     STRCONC(STRCONC(GETENV('"ALDORROOT"),'"/bin/"),_
+               "aldor ", asharpArgs, '" ", namestring args)
 @
 
 \section{License}


--- orig/src/interp/patches.lisp.pamphlet
+++ mod/src/interp/patches.lisp.pamphlet
@@ -266,7 +266,7 @@
   (operationopen);; all of the operations known to the system
   (categoryopen);; answer hasCategory question
   (browseopen)
-  (let ((asharprootlib (strconc (|getEnv| "AXIOM") "/compiler/lib/")))
+  (let ((asharprootlib (strconc (|getEnv| "AXIOM") "/aldor/lib/")))
     (set-file-getter (strconc asharprootlib "runtime.o"))
     (set-file-getter (strconc asharprootlib "lang.o"))
     (set-file-getter (strconc asharprootlib "attrib.o"))



Attachment: rr.as
Description: application/applix-spreadsheet

Attachment: src_aldor.tgz
Description: application/compressed-tar

_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer

Reply via email to