[Axiom-developer] [#37 )co aldor file does not work] the patch document

[anonymous]

? Makefile
? Makefile.dvi
Index: as.boot.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/as.boot.pamphlet,v
retrieving revision 1.3
diff -u -r1.3 as.boot.pamphlet
--- as.boot.pamphlet    24 May 2004 22:53:49 -0000      1.3
+++ as.boot.pamphlet    8 Jan 2005 19:01:23 -0000
@@ -389,7 +389,8 @@
     HPUT(ht,id,[entry,:HGET(ht,id)])
   opalist := [[op,:REMDUP HGET(ht,op)] for op in HKEYS ht]
   --HPUT($opHash,con,[ancestorAlist,attributeAlist,:opalist])
-  HPUT($opHash,con,[ancestorAlist,attributeAlist,:opalist])
+  --HPUT($opHash,con,[ancestorAlist,attributeAlist,:opalist])
+  HPUT($opHash,con,[ancestorAlist,nil,:opalist])
 
 hackToRemoveAnd p ==
 ---remove this as soon as .asy files do not contain forms (And pred) forms
Index: ax.boot.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/ax.boot.pamphlet,v
retrieving revision 1.3
diff -u -r1.3 ax.boot.pamphlet
--- ax.boot.pamphlet    24 May 2004 22:53:49 -0000      1.3
+++ ax.boot.pamphlet    8 Jan 2005 19:01:26 -0000
@@ -80,11 +80,29 @@
      axForms :=
         [['Foreign, ['Declare, 'dummyDefault, 'Exit], 'Lisp], :axForms]
   axForms := APPEND(axDoLiterals(), axForms)
-  axForm := ['Sequence, ['Import, [], 'AxiomLib], :axForms]
+  axForm := ['Sequence, ['Import, [], 'AxiomLib], ['Import, [], 'Boolean], 
:axForms]
   st := MAKE_-OUTSTREAM(filename)
   PPRINT(axForm,st)
   CLOSE st
 
+makeAxExportForm(filename, constructors) ==
+  $defaultFlag : local := false
+  $literals := []
+  axForms :=
+     [modemapToAx(modemap) for cname in constructors |
+            (modemap:=GETDATABASE(cname,'CONSTRUCTORMODEMAP)) and
+              (not cname in '(Tuple Exit Type)) and
+                not isDefaultPackageName cname]
+  if $baseForms then
+     axForms := [:$baseForms, :axForms]
+  if $defaultFlag then
+     axForms :=
+        [['Foreign, ['Declare, 'dummyDefault, 'Exit], 'Lisp], :axForms]
+  axForms := APPEND(axDoLiterals(), axForms)
+  axForm := ['Sequence, ['Import, [], 'AxiomLib], ['Import, [], 'Boolean], 
:axForms]
+  axForm
+
+
 stripType type ==
   $stripTypes =>
      categoryForm? type => 'Type
Index: i-syscmd.boot.pamphlet
===================================================================
RCS file: /cvsroot/axiom/axiom/src/interp/i-syscmd.boot.pamphlet,v
retrieving revision 1.4
diff -u -r1.4 i-syscmd.boot.pamphlet
--- i-syscmd.boot.pamphlet      28 Dec 2004 07:42:45 -0000      1.4
+++ i-syscmd.boot.pamphlet      8 Jan 2005 19:01:36 -0000
@@ -642,7 +642,7 @@
     if ^beQuiet then sayKeyedMsg("S2IZ0038A",[namestring args, asharpArgs])
 
     command :=
-     STRCONC(TRUENAME(STRCONC(GETENV('"AXIOM"),'"/compiler/bin/")),"axiomxl ", 
asharpArgs, '" ", namestring args)
+     STRCONC(STRCONC(GETENV('"AXIOM"),'"/compiler/bin/"),"axiomxl ", 
asharpArgs, '" ", namestring args)
     rc := OBEY command
 
     if (rc = 0) and doCompileLisp then

--
forwarded from http://page.axiom-developer.org/zope/mathaction/address@hidden