ORCA-Pascal/make at master · byteworksinc/ORCA-Pascal · GitHub

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
unset exit
set flags +t +e

Newer obj/pascal pascal.rez
if {status} != 0
   set exit on
   echo compile -e pascal.rez keep=obj/Pascal
   compile -e pascal.rez keep=obj/Pascal
   unset exit
end

if {#} == 0 then

   Newer obj/gen.a gen.pas
   if {Status} != 0
      set gen gen
      set dag dag
   end

   Newer obj/cgc.a cgc.pas cgc.asm cgc.macros
   if {Status} != 0
      set cgc cgc
      set dag dag
      set gen gen
      set objout objout
      set native native
      set symbols symbols
   end

   Newer obj/dag.a dag.pas dag.asm dag.macros
   if {Status} != 0
      set dag dag
   end

   Newer obj/pascal.a pascal.pas
   if {Status} != 0
      set pascal pascal
   end

   Newer obj/parser.a parser.pas
   if {Status} != 0
      set parser parser
      set pascal pascal
   end

   Newer obj/call.a call.pas
   if {Status} != 0
      set call call
      set parser parser
   end

   Newer obj/objout.a objout.pas objout.asm objout.macros
   if {Status} != 0
      set objout objout
      set symbols symbols
      set native native
      set gen gen
   end

   Newer obj/native.a native.pas native.asm native.pas
   if {Status} != 0
      set native native
      set symbols symbols
      set gen gen
   end

   Newer obj/cgi.a cgi.pas cgi.asm
   if {Status} != 0
      set cgi cgi
      set call call
      set native native
      set scanner scanner
      set symbols symbols
      set parser parser
      set pascal pascal
      set dag dag
      set cgc cgc
      set gen gen
      set objout objout
   end

   Newer obj/scanner.a scanner.pas scanner.asm scanner.macros
   if {Status} != 0
      set scanner scanner
      set symbols symbols
      set call call
      set parser parser
      set pascal pascal
   end

   Newer obj/symbols.a symbols.pas symbols.asm symbols.macros
   if {Status} != 0
      set symbols symbols
      set call call
      set parser parser
      set pascal pascal
   end

   Newer obj/pcommon.a pcommon.pas pcommon.asm pcommon.macros
   if {Status} != 0
      set pcommon pcommon
      set call call
      set symbols symbols
      set cgi cgi
      set native native
      set objout objout
      set parser parser
      set dag dag
      set cgc cgc
      set gen gen
   end

   set exit on
   set list {pcommon} {cgi} {cgc} {objout} {native} {gen} {dag} {scanner} {symbols} {call} {parser} {pascal}
   for i in {list}
      echo compile {flags} {i}.pas keep=obj/{i}
      compile {flags} {i}.pas keep=obj/{i}
   end

else

   set exit on
   for i in {parameters}
      echo compile {flags} {i}.pas keep=obj/{i}
      compile {flags} {i}.pas keep=obj/{i}
   end
end

* echo purge
* purge >.null
echo linkit
linkit
echo copy -c obj/pascal 16/Pascal
copy -c obj/pascal 16/Pascal