[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] [#37 )co aldor file does not work] the patch document
From: |
anonymous |
Subject: |
[Axiom-developer] [#37 )co aldor file does not work] the patch document |
Date: |
Wed, 19 Jan 2005 11:32:09 -0600 |
? 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Axiom-developer] [#37 )co aldor file does not work] the patch document,
anonymous <=