| blob | ffb63db6d46defcc3cff799574e53da9444f9d9b |
1 $! Id: vmsbuild.com,v 1.1 2000/11/21 00:38:46 tom Exp
2 $! VMS build-script for BYACC. Requires installed C compiler
3 $!
4 $! Screen Configurations
5 $! ---------------------
6 $! To build BYACC, type:
7 $! $ @vmsbuild [BYACC [<compiler> [bld_target]]]
8 $!
9 $! where:
10 $! <compiler> :== { decc | vaxc }
11 $!
12 $! The default compiler on VAX hosts is vaxc, else decc (Alpha hosts).
13 $!
14 $! -----------------------------------------------------------
15 $ hlp = f$edit("''p1'", "UPCASE")
16 $ if "''hlp'" .eqs. "HELP" .or. -
17 "''hlp'" .eqs. "-H" .or. -
18 "''hlp'" .eqs. "-?" .or. -
19 "''hlp'" .eqs. "?" then gosub usage
20 $ goto start
21 $!
22 $ vaxc_config:
23 $ comp = "__vaxc__=1"
24 $ CFLAGS = "/VAXC"
25 $ DEFS = ",HAVE_STRERROR"
26 $ using_vaxc = 1
27 $ return
28 $!
29 $ decc_config:
30 $ comp = "__decc__=1"
31 $ CFLAGS = "/DECC/prefix=all"
32 $ DEFS = ",HAVE_ALARM,HAVE_STRERROR"
33 $ return
34 $!
35 $ usage:
36 $ write sys$output "usage: "
37 $ write sys$output " $ @vmsbuild [BYACC [{decc | vaxc} [<bldtarget>]]]"
38 $ exit 2
39 $!
40 $ start:
41 $! -----------------------------------------------------------
42 $! pickup user's compiler choice, if any
43 $! -----------------------------------------------------------
44 $!
45 $ comp = ""
46 $ using_vaxc = 0
47 $ if "''p2'" .nes. ""
48 $ then
49 $ comp = f$edit(p2, "UPCASE")
50 $ if "''comp'" .eqs. "VAXC"
51 $ then
52 $ gosub vaxc_config
53 $ else
54 $ if "''comp'" .eqs. "DECC"
55 $ then
56 $ gosub decc_config
57 $ else
58 $ gosub usage
59 $ endif
60 $ endif
61 $ endif
62 $! -----------------------------------------------------------
63 $! Build the option-file
64 $!
65 $ open/write optf vms_link.opt
66 $ write optf "closure.obj"
67 $ write optf "error.obj"
68 $ write optf "lalr.obj"
69 $ write optf "lr0.obj"
70 $ write optf "mkpar.obj"
71 $ write optf "output.obj"
72 $ write optf "reader.obj"
73 $ write optf "skeleton.obj"
74 $ write optf "symtab.obj"
75 $ write optf "verbose.obj"
76 $ write optf "warshall.obj"
77 $! ----------------------------------
78 $! Look for the compiler used and specify architecture.
79 $!
80 $ CC = "CC"
81 $ if f$getsyi("HW_MODEL").ge.1024
82 $ then
83 $ arch = "__alpha__=1"
84 $ if "''comp'" .eqs. "" then gosub decc_config
85 $ else
86 $ arch = "__vax__=1"
87 $ if "''comp'" .nes. "" then goto screen_config
88 $ if f$search("SYS$SYSTEM:VAXC.EXE").nes.""
89 $ then
90 $ gosub vaxc_config
91 $ else
92 $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").nes.""
93 $ then
94 $ gosub decc_config
95 $ else
96 $ DEFS = ",HAVE_STRERROR"
97 $ if f$trnlnm("GNU_CC").eqs.""
98 $ then
99 $ write sys$output "C compiler required to rebuild BYACC"
100 $ close optf
101 $ exit
102 $ else
103 $ write optf "gnu_cc:[000000]gcclib.olb/lib"
104 $ comp = "__gcc__=1"
105 $ CC = "GCC"
106 $ endif
107 $ endif
108 $ endif
109 $ endif
110 $!
111 $ screen_config:
112 $!
113 $ if using_vaxc .eq. 1 then write optf "sys$library:vaxcrtl.exe/share"
114 $ close optf
115 $! -------------- vms_link.opt is created -------------
116 $ if f$edit("''p1'", "UPCASE") .eqs. "VMS_LINK.OPT"
117 $ then
118 $! mms called this script to build vms_link.opt. all done
119 $ exit
120 $ endif
121 $!
122 $ if f$search("SYS$SYSTEM:MMS.EXE").eqs.""
123 $ then
124 $! can also use /Debug /Listing, /Show=All
125 $
126 $ CFLAGS := 'CFLAGS/Diagnostics /Define=("''DEFS'") /Include=([])
127 $
128 $ if "''p3'" .nes. "" then goto 'p3
129 $!
130 $!
131 $ all :
132 $!
133 $ call make closure
134 $ call make error
135 $ call make lalr
136 $ call make lr0
137 $ call make main
138 $ call make mkpar
139 $ call make output
140 $ call make reader
141 $ call make skeleton
142 $ call make symtab
143 $ call make verbose
144 $ call make warshall
145 $!
146 $ link /exec='target/map/cross main.obj, vms_link/opt
147 $ goto build_last
148 $!
149 $ install :
150 $ WRITE SYS$ERROR "** no rule for install"
151 $ goto build_last
152 $!
153 $ clobber :
154 $ if f$search("BYACC.com") .nes. "" then delete BYACC.com;*
155 $ if f$search("*.exe") .nes. "" then delete *.exe;*
156 $! fallthru
157 $!
158 $ clean :
159 $ if f$search("*.obj") .nes. "" then delete *.obj;*
160 $ if f$search("*.bak") .nes. "" then delete *.bak;*
161 $ if f$search("*.lis") .nes. "" then delete *.lis;*
162 $ if f$search("*.log") .nes. "" then delete *.log;*
163 $ if f$search("*.map") .nes. "" then delete *.map;*
164 $ if f$search("*.opt") .nes. "" then delete *.opt;*
165 $! fallthru
166 $!
167 $ build_last :
168 $ if f$search("*.dia") .nes. "" then delete *.dia;*
169 $ if f$search("*.lis") .nes. "" then purge *.lis
170 $ if f$search("*.obj") .nes. "" then purge *.obj
171 $ if f$search("*.map") .nes. "" then purge *.map
172 $ if f$search("*.opt") .nes. "" then purge *.opt
173 $ if f$search("*.exe") .nes. "" then purge *.exe
174 $ if f$search("*.log") .nes. "" then purge *.log
175 $! fallthru
176 $!
177 $ vms_link_opt :
178 $ exit 1
179 $!
180 $! Runs BYACC from the current directory (used for testing)
181 $ byacc_com :
182 $ if "''f$search("BYACC.com")'" .nes. "" then delete BYACC.com;*
183 $ copy nl: BYACC.com
184 $ open/append test_script BYACC.com
185 $ write test_script "$ temp = f$environment(""procedure"")"
186 $ write test_script "$ temp = temp -"
187 $ write test_script " - f$parse(temp,,,""version"",""syntax_only"") -"
188 $ write test_script " - f$parse(temp,,,""type"",""syntax_only"")"
189 $ write test_script "$ BYACC :== $ 'temp'.exe"
190 $ write test_script "$ define/user_mode sys$input sys$command"
191 $ write test_script "$ define/user_mode sys$output sys$command"
192 $ write test_script "$ BYACC 'p1 'p2 'p3 'p4 'p5 'p6 'p7 'p8"
193 $ close test_script
194 $ write sys$output "** made BYACC.com"
195 $ exit
196 $!
197 $ else
198 $ mms/ignore=warning/macro=('comp','mmstar','arch') 'p3
199 $ endif
200 $ exit
201 $ make: subroutine
202 $ if f$search("''p1'.obj") .eqs. ""
203 $ then
204 $ write sys$output "compiling ''p1'"
205 $ 'CC 'CFLAGS 'p1.c
206 $ if f$search("''p1'.dia") .nes. "" then delete 'p1.dia;*
207 $ endif
208 $exit
209 $ return
210 $ endsubroutine