![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vmsconfig.com CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [GCC 2.x] / gcc|
Return to vmsconfig.com CVS log | Up to [GCC 2.x] / gcc |
1.1 root 1: $ !
2: $ ! Set up to compile GCC on VAX/VMS
3: $ !
4: $! Set the def dir to proper place for use in batch. Works for interactive too.
5: $flnm = f$enviroment("PROCEDURE") ! get current procedure name
6: $set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")'
7: $ !
8: $set symbol/scope=(nolocal,noglobal)
9: $ !
10: $ echo = "write sys$output"
11: $ !
12: $ if f$search("config.h") .nes. "" then delete config.h.*
13: $ copy [.config]xm-vax-vms.h []config.h
14: $ echo "Linked `config.h' to `[.config]xm-vax-vms.h'.
15: $ !
16: $ if f$search("tconfig.h") .nes. "" then delete tconfig.h.*
17: $ create []tconfig.h
18: $DECK
19: /* tconfig.h == config.h :: target and host configurations are the same */
20: #include "config.h"
21: $EOD
22: $ echo "Created `tconfig.h'.
23: $ !
24: $ if f$search("hconfig.h") .nes. "" then delete hconfig.h.*
25: $ create []hconfig.h
26: $DECK
27: /* hconfig.h == config.h :: target and host configurations are the same */
28: #include "config.h"
29: $EOD
30: $ echo "Created `hconfig.h'.
31: $ !
32: $ if f$search("tm.h") .nes. "" then delete tm.h.*
33: $ copy [.config]vax-vms.h []tm.h
34: $ echo "Linked `tm.h' to `[.config]vax-vms.h'.
35: $ !
36: $ if f$search("md.") .nes. "" then delete md..*
37: $ copy [.config]vax.md []md.
38: $ echo "Linked `md' to `[.config]vax.md'.
39: $ !
40: $ if f$search("aux-output.c") .nes. "" then delete aux-output.c.*
41: $ copy [.config]vax.c []aux-output.c
42: $ echo "Linked `aux-output.c' to `[.config]vax.c'.
43: $ !
44: $!
45: $!
46: $! Create the file version.opt, which helps identify the executable.
47: $!
48: $search version.c version_string,"="/match=and/output=t.tmp
49: $open ifile$ t.tmp
50: $read ifile$ line
51: $close ifile$
52: $delete t.tmp;
53: $ijk=f$locate("""",line)+1
54: $line=f$extract(ijk,f$length(line)-ijk,line)
55: $ijk=f$locate("""",line)
56: $line=f$extract(0,ijk,line)
57: $ijk=f$locate("\n",line)
58: $line=f$extract(0,ijk,line)
59: $!
60: $i=0
61: $loop:
62: $elm=f$element(i," ",line)
63: $if elm.eqs."" then goto no_ident
64: $if (elm.les."9").and.(elm.ges."0") then goto write_ident
65: $i=i+1
66: $goto loop
67: $!
68: $no_ident:
69: $elm="?.??"
70: $!
71: $!
72: $write_ident:
73: $open ifile$ version.opt/write
74: $write ifile$ "ident="+""""+elm+""""
75: $close ifile$
76: $purge version.opt
77: $!
78: $!
79: $! create linker options files that lists all of the components for all
80: $! possible compilers. We do this by editing the file Makefile.in, and
81: $! generating the relevant files from it.
82: $!
83: $!
84: $! Make a copy of the makefile if the sources are on a disk that is NFS
85: $! mounted on a unix machine.
86: $if f$search("Makefile.in").eqs."" .and. f$search("$M$akefile.in").nes."" -
87: then copy $M$akefile.in Makefile.in
88: $!
89: $!
90: $echo "Now processing Makefile.in to generate linker option files."
91: $edit/tpu/nojournal/nosection/nodisplay/command=sys$input
92: PROCEDURE generate_option_file (TAG_NAME, outfile)
93: position (beginning_of (newbuffer));
94: recursive_fetch_tag (TAG_NAME);
95: !
96: ! Now fix up a few things in the output buffer
97: !
98: pat_replace (".o ",",");
99: pat_replace (".o",""); !appear at end of lines.
100: !
101: ! Remove trailing commas, if present.
102: !
103: position (beginning_of (newbuffer));
104: LOOP
105: range1 := search_quietly("," & ((SPAN(" ") & LINE_END) | LINE_END),
106: FORWARD, EXACT);
107: exitif range1 = 0;
108: position (beginning_of (range1));
109: erase(range1);
110: split_line;
111: ENDLOOP;
112: ! get rid of leading spaces on lines.
113: position (beginning_of (current_buffer)) ;
114: LOOP
115: range1 := search_quietly ( LINE_BEGIN & " ", FORWARD, EXACT) ;
116: EXITIF range1 = 0;
117: position (end_of (range1));
118: erase_character(1);
119: ENDLOOP;
120: !
121: ! Now write the output file.
122: !
123: SET(OUTPUT_FILE, newbuffer, outfile);
124: write_file (newbuffer);
125: erase (newbuffer);
126: ENDPROCEDURE;
127:
128: !
129: ! Looks up a tag, copies it to newbuffer, and then translates any $(...)
130: ! definitions that appear. The translation is put at the current point.
131: !
132: PROCEDURE recursive_fetch_tag (TAG_N);
133: fetch_tag (TAG_N);
134: !
135: ! substitute any makefile symbols $(...)
136: !
137: position (beginning_of (current_buffer)) ;
138: LOOP
139: range1 := search_quietly ("$(" &
140: SPAN("abcdefghijklmnopqrstuvwxyz_ABCDEFGHIJKLMNOPQRSTUVWXYZ#~0123456789")
141: & ")", FORWARD, EXACT) ;
142: EXITIF range1 = 0;
143: position (beginning_of (range1));
144: move_horizontal(2);
145: mark_1 := MARK (NONE);
146: position (end_of (range1));
147: move_horizontal(-1);
148: mark_2 := MARK (NONE);
149: tag_range := CREATE_RANGE(MARK_1, MARK_2, NONE);
150: position (end_of (range1));
151: tag_string := STR (tag_range);
152: erase (range1);
153: fetch_tag (LINE_BEGIN & tag_string & ((SPAN(" ") & "=") | "="));
154: position (beginning_of (current_buffer)) ;
155: ENDLOOP;
156: ENDPROCEDURE;
157:
158: !
159: ! Looks up the translation of a tag, and inserts it at the current location
160: ! in the buffer
161: !
162: PROCEDURE fetch_tag (TAG_N);
163: LOCAL mark1, mark2, mark3, range2;
164: mark3 := MARK(NONE) ;
165: position (beginning_of (mainbuffer)) ;
166: range2 := search_quietly (TAG_N, FORWARD, EXACT) ;
167: IF (range2 = 0) then
168: position (mark3);
169: return;
170: endif;
171: position (end_of (range2)) ;
172: MOVE_HORIZONTAL(1);
173: mark1 := MARK(NONE) ;
174: position (beginning_of (range2)) ;
175: MOVE_VERTICAL(1);
176: MOVE_HORIZONTAL(-2);
177: LOOP
178: EXITIF CURRENT_CHARACTER <> "\" ;
179: ERASE_CHARACTER(1);
180: MOVE_HORIZONTAL(1);
181: MOVE_VERTICAL(1);
182: MOVE_HORIZONTAL(-2);
183: ENDLOOP;
184: MOVE_HORIZONTAL(1);
185: mark2 := MARK(NONE) ;
186: range2 := CREATE_RANGE(mark1, mark2, NONE) ;
187: position (mark3);
188: if (length(range2) = 0) then return; endif;
189: copy_text(range2);
190: ENDPROCEDURE;
191:
192: PROCEDURE pat_replace (
193: oldstring, !
194: newstring) !
195: LOCAL range2;
196: position (beginning_of (current_buffer)) ;
197: LOOP
198: range2 := search_quietly (oldstring, FORWARD, EXACT) ;
199: EXITIF range2 = 0 ;
200: position (beginning_of (range2)) ;
201: erase (range2) ;
202: copy_text (newstring) ;
203: ENDLOOP ;
204: ENDPROCEDURE ;
205:
206: ! this is the start of the main procedure
207: filename := GET_INFO (COMMAND_LINE, 'file_name') ;
208: mainbuffer := CREATE_BUFFER ("Makefile.in", "Makefile.in") ;
209: newbuffer := CREATE_BUFFER("outfile");
210: compiler_list := CREATE_BUFFER("compilers");
211: !
212: ! Add to this list, as required. The file "Makefile.in" is searched for a
213: ! tag that looks like "LINE_BEGIN + 'tag + (optional space) + "="". The
214: ! contents are assumed to be a list of object files, and from this list a
215: ! VMS linker options file is generated.
216: !
217: position (beginning_of (compiler_list));
218: recursive_fetch_tag(LINE_BEGIN & "COMPILERS" & ((SPAN(" ") & "=") | "="));
219: position (beginning_of (compiler_list));
220: LOOP ! kill leading spaces.
221: exitif current_character <> " ";
222: erase_character(1);
223: ENDLOOP;
224: position (beginning_of (compiler_list));
225: LOOP ! remove any double spaces.
226: range1 := search_quietly (" ", FORWARD, EXACT) ; EXITIF range1 = 0 ;
227: position (beginning_of (range1)) ;
228: erase_character(1);
229: ENDLOOP ;
230: position (end_of (compiler_list));
231: move_horizontal(-1);
232: LOOP ! kill trailing spaces.
233: exitif current_character <> " ";
234: erase_character(1);
235: move_horizontal(-1);
236: ENDLOOP;
237: position (beginning_of (compiler_list));
238: LOOP
239: range1 := search_quietly (" ", FORWARD, EXACT) ;
240: EXITIF range1 = 0 ;
241: position (beginning_of (range1)) ;
242: erase (range1) ;
243: split_line;
244: ENDLOOP ;
245: !
246: ! We now have a list of supported compilers. Now write it, and use it.
247: !
248: SET(OUTPUT_FILE, compiler_list, "compilers.list");
249: write_file (compiler_list);
250: generate_option_file(LINE_BEGIN & "OBJS" & ((SPAN(" ") & "=") | "="),
251: "independent.opt");
252: generate_option_file(LINE_BEGIN & "LIB2FUNCS" & ((SPAN(" ") & "=") | "="),
253: "libgcc2.list");
254: !
255: ! Now change OBJS in the Makefile, so each language specific options file
256: ! does not pick up all of the language independent files.
257: !
258: position (beginning_of (mainbuffer));
259: range1 := search_quietly (LINE_BEGIN & "OBJS" & ((SPAN(" ") & "=") | "="),
260: FORWARD, EXACT) ;
261: position (end_of (range1));
262: split_line;
263: position (beginning_of (compiler_list));
264: LOOP
265: cmark := mark(NONE);
266: exitif cmark = end_of(compiler_list);
267: message(current_line);
268: generate_option_file(LINE_BEGIN & Current_line & ((SPAN(" ") & ":") | ":"),
269: current_line+"-objs.opt");
270: position (cmark);
271: move_vertical(1);
272: ENDLOOP ;
273: quit ;
274: $ echo ""
275: $!
276: $! Remove excessive versions of the option files...
277: $!
278: $ purge *.opt
279: $ purge compilers.list,libgcc2.list
280: $!
281: $!
282: $!
283: $ if f$search("config.status") .nes. "" then delete config.status.*
284: $ open/write file config.status
285: $ write file "Links are now set up for use with a vax running VMS."
286: $ close file
287: $ type config.status
288: $ echo ""
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.