1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
(SETQ TOPLOOPNAME!* "")
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Copyright (C) 1992,1994,1995,1996,2002,2005 Joergen Backelin
%%
%% Bergman is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY. No author or distributor
%% accepts responsibility to anyone for the consequences of using it
%% or for whether it serves any particular purpose or works at all,
%% unless (s)he says so in writing. Refer to the Bergman General
%% Public License for full details.
%% Everyone is granted permission to copy, modify and redistribute
%% bergman, but only under the conditions described in the
%% Bergman General Public License. A copy of this license is
%% supposed to have been given to you along with bergman so you
%% can know your rights and responsibilities. It should be in a
%% file named copyright. Among other things, the copyright notice
%% and this notice must be preserved on all copies.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% CHANGES:
% Added syzmod.sl./ufn 07-08-2006
% Moved first instructions to new header./JoeB 2005-06-30 -- 07-01
% dialogue added./JoeB 2004-04-17
% hscomm added./JoeB 2002-10-12
% pbseries removed./JoeB 1999-11-04
% modinout.sl, modes.sl added/JoeB 1997-09-17
% The architecture handling adopted to `kzz type'/JoeB 1996-11-26.
%14.08.96 Svetlana Cojocaru, Victor Ufnarovski
%The module "full" is divided into two parts to respect the restriction
%on the length of a FASLOUT output file - no more than 64K.
%The module sermul.sl is included additionaly (series multiplication).
(LAPIN (MKBMPATHEXPAND "$bmsrc/macros.sl"))
(OFF RAISE)
(RECLAIM)
% modes.sl contains some macro definitions used later; thus
% compile it first!
(GROUPCOMP (MKBMPATHEXPAND "$bmload/full"))
% (OFF USERMODE)
(ITEMCOMP "$bmsrc/modes.sl")
(ITEMCOMP "$bmsrc/main.sl")
(ITEMCOMP "$bmsrc/inout.sl")
(ITEMCOMP "$bmsrc/monom.sl")
(ITEMCOMP "$bmsrc/ncmonom.sl")
(ITEMCOMP "$bmsrc/normwd.sl")
(ITEMCOMP "$bmsrc/reclaim.sl")
(ITEMCOMP "$bmsrc/polynom.sl")
(ITEMCOMP "$bmsrc/reduct.sl")
(FASLEND)
(RECLAIM)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%14.08.96 Svetlana Cojocaru, Victor Ufnarovski
%The module "full" is divided into two parts to respect the restriction
%on the length of a FASLOUT output file - no more than 64K.
%The module sermul.sl is included additionaly (series multiplication).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(GROUPCOMP (MKBMPATHEXPAND "$bmload/full1"))
(ITEMCOMP "$bmsrc/coeff.sl")
(ITEMCOMP "$bmsrc/char0.sl")
(ITEMCOMP "$bmsrc/strategy.sl")
(ITEMCOMP "$bmsrc/dialogue.sl")
(ITEMCOMP "$bmsrc/syzmod.sl")
(FASLEND)
(RECLAIM)
% Compilation of auxiliary units:
% Removed 1999-11-04, since pbseries now is subsumed in hseries./JoeB
%(FASLOUT (MKBMPATHEXPAND "$bmload/pbseries"))
%(DSKIN (MKBMPATHEXPAND "$bmsrc/pbseries.sl"))
%(FASLEND)
%(RECLAIM)
(COND ((FILEP (MKBMPATHEXPAND "$bmexe/alg2lsp.sl"))
(GROUPCOMP (MKBMPATHEXPAND "$bmload/alg2lsp"))
(ITEMCOMP "$bmexe/alg2lsp.sl")
(FASLEND)
(RECLAIM))
(T
(PRIN2 "*** I could not find alg2lsp.sl; hope it's OK")
(TERPRI)))
(GROUPCOMP (MKBMPATHEXPAND "$bmload/char2"))
(ITEMCOMP "$bmsrc/char2.sl")
(FASLEND)
(RECLAIM)
% Extras (under development):
(GROUPCOMP (MKBMPATHEXPAND "$bmload/auxil"))
(ITEMCOMP "$bmsrc/auxil.sl")
(ITEMCOMP "$bmsrc/homog.sl")
(FASLEND)
(RECLAIM)
% Staggering substantial stuff:
% (OFF REDEFMSG) (OFF USERMODE) (ON GC)
(LAPIN (MKBMPATHEXPAND "$bmsrc/stg/accmacr.sl"))
(LAPIN (MKBMPATHEXPAND "$bmsrc/stg/subsmacr.sl"))
(LAPIN (MKBMPATHEXPAND "$bmsrc/stg/midmacr.sl"))
(OFF RAISE)
% (ON REDEFMSG)
(GROUPCOMP (MKBMPATHEXPAND "$bmload/stg"))
(ITEMCOMP "$bmsrc/stg/checkstg.sl")
(ITEMCOMP "$bmsrc/stg/accproc.sl")
(ITEMCOMP "$bmsrc/stg/subsproc.sl")
(ITEMCOMP "$bmsrc/stg/stg.sl")
(ITEMCOMP "$bmsrc/stg/monomstg.sl")
(ITEMCOMP "$bmsrc/stg/bind.sl")
(ITEMCOMP "$bmsrc/stg/write.sl")
(ITEMCOMP "$bmsrc/stg/ideal.sl")
(FASLEND)
(RECLAIM)
% New July and August 1996:
(LAPIN (MKBMPATHEXPAND "$bmsrc/hmacro.sl"))
(GROUPCOMP (MKBMPATHEXPAND "$bmload/hseries"))
(ITEMCOMP "$bmsrc/hseries.sl")
(ITEMCOMP "$bmsrc/hscomm.sl")
(ITEMCOMP "$bmsrc/modinout.sl")
(ITEMCOMP "$bmsrc/sermul.sl")
(FASLEND)
(RECLAIM)
% Set-up dependent compilation demands, et cetera.
(COND ((FILEP (MKBMPATHEXPAND "$bmexe/speccmp2.sl"))
(LAPIN (MKBMPATHEXPAND "$bmexe/speccmp2.sl"))))
|
