|
1 $! make Freetype2 under OpenVMS |
|
2 $! |
|
3 $! Copyright 2003, 2004, 2006, 2007 by |
|
4 $! David Turner, Robert Wilhelm, and Werner Lemberg. |
|
5 $! |
|
6 $! This file is part of the FreeType project, and may only be used, modified, |
|
7 $! and distributed under the terms of the FreeType project license, |
|
8 $! LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
9 $! indicate that you have read the license and understand and accept it |
|
10 $! fully. |
|
11 $! |
|
12 $! |
|
13 $! External libraries (like Freetype, XPM, etc.) are supported via the |
|
14 $! config file VMSLIB.DAT. Please check the sample file, which is part of this |
|
15 $! distribution, for the information you need to provide |
|
16 $! |
|
17 $! This procedure currently does support the following commandline options |
|
18 $! in arbitrary order |
|
19 $! |
|
20 $! * DEBUG - Compile modules with /noopt/debug and link shareable image |
|
21 $! with /debug |
|
22 $! * LOPTS - Options to be passed to the link command |
|
23 $! * CCOPT - Options to be passed to the C compiler |
|
24 $! |
|
25 $! In case of problems with the install you might contact me at |
|
26 $! zinser@zinser.no-ip.info(preferred) or |
|
27 $! zinser@sysdev.deutsche-boerse.com (work) |
|
28 $! |
|
29 $! Make procedure history for Freetype2 |
|
30 $! |
|
31 $!------------------------------------------------------------------------------ |
|
32 $! Version history |
|
33 $! 0.01 20040401 First version to receive a number |
|
34 $! 0.02 20041030 Add error handling, Freetype 2.1.9 |
|
35 $! |
|
36 $ on error then goto err_exit |
|
37 $ true = 1 |
|
38 $ false = 0 |
|
39 $ tmpnam = "temp_" + f$getjpi("","pid") |
|
40 $ tt = tmpnam + ".txt" |
|
41 $ tc = tmpnam + ".c" |
|
42 $ th = tmpnam + ".h" |
|
43 $ its_decc = false |
|
44 $ its_vaxc = false |
|
45 $ its_gnuc = false |
|
46 $! |
|
47 $! Setup variables holding "config" information |
|
48 $! |
|
49 $ Make = "" |
|
50 $ ccopt = "/name=as_is/float=ieee" |
|
51 $ lopts = "" |
|
52 $ dnsrl = "" |
|
53 $ aconf_in_file = "config.hin" |
|
54 $ name = "Freetype2" |
|
55 $ mapfile = name + ".map" |
|
56 $ optfile = name + ".opt" |
|
57 $ s_case = false |
|
58 $ liblist = "" |
|
59 $! |
|
60 $ whoami = f$parse(f$environment("Procedure"),,,,"NO_CONCEAL") |
|
61 $ mydef = F$parse(whoami,,,"DEVICE") |
|
62 $ mydir = f$parse(whoami,,,"DIRECTORY") - "][" |
|
63 $ myproc = f$parse(whoami,,,"Name") + f$parse(whoami,,,"type") |
|
64 $! |
|
65 $! Check for MMK/MMS |
|
66 $! |
|
67 $ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS" |
|
68 $ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK" |
|
69 $! |
|
70 $! Which command parameters were given |
|
71 $! |
|
72 $ gosub check_opts |
|
73 $! |
|
74 $! Create option file |
|
75 $! |
|
76 $ open/write optf 'optfile' |
|
77 $! |
|
78 $! Pull in external libraries |
|
79 $! |
|
80 $ create libs.opt |
|
81 $ open/write libsf libs.opt |
|
82 $ gosub check_create_vmslib |
|
83 $! |
|
84 $! Create objects |
|
85 $! |
|
86 $ if libdefs .nes. "" |
|
87 $ then |
|
88 $ ccopt = ccopt + "/define=(" + f$extract(0,f$length(libdefs)-1,libdefs) + ")" |
|
89 $ endif |
|
90 $! |
|
91 $ if f$locate("AS_IS",f$edit(ccopt,"UPCASE")) .lt. f$length(ccopt) - |
|
92 then s_case = true |
|
93 $ gosub crea_mms |
|
94 $! |
|
95 $ 'Make' /macro=(comp_flags="''ccopt'") |
|
96 $ purge/nolog [...]descrip.mms |
|
97 $! |
|
98 $! Add them to options |
|
99 $! |
|
100 $FLOOP: |
|
101 $ file = f$edit(f$search("[...]*.obj"),"UPCASE") |
|
102 $ if (file .nes. "") |
|
103 $ then |
|
104 $ if f$locate("DEMOS",file) .eqs. f$length(file) then write optf file |
|
105 $ goto floop |
|
106 $ endif |
|
107 $! |
|
108 $ close optf |
|
109 $! |
|
110 $! |
|
111 $! Alpha gets a shareable image |
|
112 $! |
|
113 $ If f$getsyi("HW_MODEL") .gt. 1024 |
|
114 $ Then |
|
115 $ write sys$output "Creating freetype2shr.exe" |
|
116 $ call anal_obj_axp 'optfile' _link.opt |
|
117 $ open/append optf 'optfile' |
|
118 $ if s_case then WRITE optf "case_sensitive=YES" |
|
119 $ close optf |
|
120 $ LINK_/NODEB/SHARE=[.lib]freetype2shr.exe - |
|
121 'optfile'/opt,libs.opt/opt,_link.opt/opt |
|
122 $ endif |
|
123 $! |
|
124 $ exit |
|
125 $! |
|
126 $ |
|
127 $ERR_LIB: |
|
128 $ write sys$output "Error reading config file vmslib.dat" |
|
129 $ goto err_exit |
|
130 $FT2_ERR: |
|
131 $ write sys$output "Could not locate Freetype 2 include files" |
|
132 $ goto err_exit |
|
133 $ERR_EXIT: |
|
134 $ set message/facil/ident/sever/text |
|
135 $ close/nolog optf |
|
136 $ close/nolog out |
|
137 $ close/nolog libdata |
|
138 $ close/nolog in |
|
139 $ close/nolog atmp |
|
140 $ close/nolog xtmp |
|
141 $ write sys$output "Exiting..." |
|
142 $ exit 2 |
|
143 $! |
|
144 $!------------------------------------------------------------------------------ |
|
145 $! |
|
146 $! If MMS/MMK are available dump out the descrip.mms if required |
|
147 $! |
|
148 $CREA_MMS: |
|
149 $ write sys$output "Creating descrip.mms files ..." |
|
150 $ write sys$output "... Main directory" |
|
151 $ create descrip.mms |
|
152 $ open/append out descrip.mms |
|
153 $ copy sys$input: out |
|
154 $ deck |
|
155 # |
|
156 # FreeType 2 build system -- top-level Makefile for OpenVMS |
|
157 # |
|
158 |
|
159 |
|
160 # Copyright 2001 by |
|
161 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
162 # |
|
163 # This file is part of the FreeType project, and may only be used, modified, |
|
164 # and distributed under the terms of the FreeType project license, |
|
165 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
166 # indicate that you have read the license and understand and accept it |
|
167 # fully. |
|
168 $ EOD |
|
169 $ write out "CFLAGS = ", ccopt |
|
170 $ copy sys$input: out |
|
171 $ deck |
|
172 |
|
173 |
|
174 all : |
|
175 define freetype [--.include.freetype] |
|
176 define psaux [-.psaux] |
|
177 define autofit [-.autofit] |
|
178 define autohint [-.autohint] |
|
179 define base [-.base] |
|
180 define cache [-.cache] |
|
181 define cff [-.cff] |
|
182 define cid [-.cid] |
|
183 define pcf [-.pcf] |
|
184 define psnames [-.psnames] |
|
185 define raster [-.raster] |
|
186 define sfnt [-.sfnt] |
|
187 define smooth [-.smooth] |
|
188 define truetype [-.truetype] |
|
189 define type1 [-.type1] |
|
190 define winfonts [-.winfonts] |
|
191 if f$search("lib.dir") .eqs. "" then create/directory [.lib] |
|
192 set default [.builds.vms] |
|
193 $(MMS)$(MMSQUALIFIERS) |
|
194 # set default [--.src.autofit] |
|
195 # $(MMS)$(MMSQUALIFIERS) |
|
196 set default [--.src.autohint] |
|
197 $(MMS)$(MMSQUALIFIERS) |
|
198 set default [-.base] |
|
199 $(MMS)$(MMSQUALIFIERS) |
|
200 set default [-.bdf] |
|
201 $(MMS)$(MMSQUALIFIERS) |
|
202 set default [-.cache] |
|
203 $(MMS)$(MMSQUALIFIERS) |
|
204 set default [-.cff] |
|
205 $(MMS)$(MMSQUALIFIERS) |
|
206 set default [-.cid] |
|
207 $(MMS)$(MMSQUALIFIERS) |
|
208 set default [-.gzip] |
|
209 $(MMS)$(MMSQUALIFIERS) |
|
210 set default [-.lzw] |
|
211 $(MMS)$(MMSQUALIFIERS) |
|
212 set default [-.otvalid] |
|
213 $(MMS)$(MMSQUALIFIERS) |
|
214 set default [-.pcf] |
|
215 $(MMS)$(MMSQUALIFIERS) |
|
216 set default [-.pfr] |
|
217 $(MMS)$(MMSQUALIFIERS) |
|
218 set default [-.psaux] |
|
219 $(MMS)$(MMSQUALIFIERS) |
|
220 set default [-.pshinter] |
|
221 $(MMS)$(MMSQUALIFIERS) |
|
222 set default [-.psnames] |
|
223 $(MMS)$(MMSQUALIFIERS) |
|
224 set default [-.raster] |
|
225 $(MMS)$(MMSQUALIFIERS) |
|
226 set default [-.sfnt] |
|
227 $(MMS)$(MMSQUALIFIERS) |
|
228 set default [-.smooth] |
|
229 $(MMS)$(MMSQUALIFIERS) |
|
230 set default [-.truetype] |
|
231 $(MMS)$(MMSQUALIFIERS) |
|
232 set default [-.type1] |
|
233 $(MMS)$(MMSQUALIFIERS) |
|
234 set default [-.type42] |
|
235 $(MMS)$(MMSQUALIFIERS) |
|
236 set default [-.winfonts] |
|
237 $(MMS)$(MMSQUALIFIERS) |
|
238 set default [--] |
|
239 |
|
240 # EOF |
|
241 $ eod |
|
242 $ close out |
|
243 $ write sys$output "... [.builds.vms] directory" |
|
244 $ create [.builds.vms]descrip.mms |
|
245 $ open/append out [.builds.vms]descrip.mms |
|
246 $ copy sys$input: out |
|
247 $ deck |
|
248 # |
|
249 # FreeType 2 system rules for VMS |
|
250 # |
|
251 |
|
252 |
|
253 # Copyright 2001 by |
|
254 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
255 # |
|
256 # This file is part of the FreeType project, and may only be used, modified, |
|
257 # and distributed under the terms of the FreeType project license, |
|
258 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
259 # indicate that you have read the license and understand and accept it |
|
260 # fully. |
|
261 |
|
262 |
|
263 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([],[--.include],[--.src.base]) |
|
264 |
|
265 OBJS=ftsystem.obj |
|
266 |
|
267 all : $(OBJS) |
|
268 library/create [--.lib]freetype.olb $(OBJS) |
|
269 |
|
270 ftsystem.obj : ftsystem.c ftconfig.h |
|
271 |
|
272 # EOF |
|
273 $ eod |
|
274 $ close out |
|
275 $ write sys$output "... [.src.autofit] directory" |
|
276 $ create [.src.autofit]descrip.mms |
|
277 $ open/append out [.src.autofit]descrip.mms |
|
278 $ copy sys$input: out |
|
279 $ deck |
|
280 # |
|
281 # FreeType 2 auto-fit module compilation rules for VMS |
|
282 # |
|
283 |
|
284 |
|
285 # Copyright 2002 by |
|
286 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
287 # |
|
288 # This file is part of the FreeType project, and may only be used, modified, |
|
289 # and distributed under the terms of the FreeType project license, |
|
290 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
291 # indicate that you have read the license and understand and accept it |
|
292 # fully. |
|
293 |
|
294 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.autofit]) |
|
295 |
|
296 OBJS=afangles.obj,afhints.obj,aflatin.obj |
|
297 |
|
298 all : $(OBJS) |
|
299 library [--.lib]freetype.olb $(OBJS) |
|
300 |
|
301 # EOF |
|
302 $ eod |
|
303 $ close out |
|
304 $ write sys$output "... [.src.autohint] directory" |
|
305 $ create [.src.autohint]descrip.mms |
|
306 $ open/append out [.src.autohint]descrip.mms |
|
307 $ copy sys$input: out |
|
308 $ deck |
|
309 # |
|
310 # FreeType 2 auto-hinter module compilation rules for VMS |
|
311 # |
|
312 |
|
313 |
|
314 # Copyright 2001, 2002 Catharon Productions Inc. |
|
315 # |
|
316 # This file is part of the Catharon Typography Project and shall only |
|
317 # be used, modified, and distributed under the terms of the Catharon |
|
318 # Open Source License that should come with this file under the name |
|
319 # `CatharonLicense.txt'. By continuing to use, modify, or distribute |
|
320 # this file you indicate that you have read the license and |
|
321 # understand and accept it fully. |
|
322 # |
|
323 # Note that this license is compatible with the FreeType license. |
|
324 |
|
325 |
|
326 CFLAGS=$(COMP_FLAGS)$(DEBUG)/incl=([--.include],[--.src.autohint]) |
|
327 |
|
328 OBJS=autohint.obj |
|
329 |
|
330 all : $(OBJS) |
|
331 library [--.lib]freetype.olb $(OBJS) |
|
332 |
|
333 # EOF |
|
334 $ eod |
|
335 $ close out |
|
336 $ write sys$output "... [.src.base] directory" |
|
337 $ create [.src.base]descrip.mms |
|
338 $ open/append out [.src.base]descrip.mms |
|
339 $ copy sys$input: out |
|
340 $ deck |
|
341 # |
|
342 # FreeType 2 base layer compilation rules for VMS |
|
343 # |
|
344 |
|
345 |
|
346 # Copyright 2001, 2003 by |
|
347 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
348 # |
|
349 # This file is part of the FreeType project, and may only be used, modified, |
|
350 # and distributed under the terms of the FreeType project license, |
|
351 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
352 # indicate that you have read the license and understand and accept it |
|
353 # fully. |
|
354 |
|
355 |
|
356 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.builds.vms],[--.include],[--.src.base]) |
|
357 |
|
358 OBJS=ftbase.obj,ftinit.obj,ftglyph.obj,ftdebug.obj,ftbdf.obj,ftmm.obj,\ |
|
359 fttype1.obj,ftxf86.obj,ftpfr.obj,ftstroke.obj,ftwinfnt.obj,ftbbox.obj,\ |
|
360 ftbitmap.obj ftlcdfil.obj ftgasp.obj |
|
361 |
|
362 all : $(OBJS) |
|
363 library [--.lib]freetype.olb $(OBJS) |
|
364 |
|
365 # EOF |
|
366 $ eod |
|
367 $ close out |
|
368 $ write sys$output "... [.src.bdf] directory" |
|
369 $ create [.src.bdf]descrip.mms |
|
370 $ open/append out [.src.bdf]descrip.mms |
|
371 $ copy sys$input: out |
|
372 $ deck |
|
373 # |
|
374 # FreeType 2 BDF driver compilation rules for VMS |
|
375 # |
|
376 |
|
377 |
|
378 # Copyright 2002 by |
|
379 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
380 # |
|
381 # This file is part of the FreeType project, and may only be used, modified, |
|
382 # and distributed under the terms of the FreeType project license, |
|
383 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
384 # indicate that you have read the license and understand and accept it |
|
385 # fully. |
|
386 |
|
387 |
|
388 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.bdf]) |
|
389 |
|
390 OBJS=bdf.obj |
|
391 |
|
392 all : $(OBJS) |
|
393 library [--.lib]freetype.olb $(OBJS) |
|
394 |
|
395 # EOF |
|
396 $ eod |
|
397 $ close out |
|
398 $ write sys$output "... [.src.cache] directory" |
|
399 $ create [.src.cache]descrip.mms |
|
400 $ open/append out [.src.cache]descrip.mms |
|
401 $ copy sys$input: out |
|
402 $ deck |
|
403 # |
|
404 # FreeType 2 Cache compilation rules for VMS |
|
405 # |
|
406 |
|
407 |
|
408 # Copyright 2001, 2002, 2003, 2004 by |
|
409 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
410 # |
|
411 # This file is part of the FreeType project, and may only be used, modified, |
|
412 # and distributed under the terms of the FreeType project license, |
|
413 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
414 # indicate that you have read the license and understand and accept it |
|
415 # fully. |
|
416 |
|
417 |
|
418 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.cache]) |
|
419 |
|
420 OBJS=ftcache.obj |
|
421 |
|
422 all : $(OBJS) |
|
423 library [--.lib]freetype.olb $(OBJS) |
|
424 |
|
425 ftcache.obj : ftcache.c ftcbasic.c ftccache.c ftccmap.c ftcglyph.c ftcimage.c \ |
|
426 ftcmanag.c ftcmru.c ftcsbits.c |
|
427 |
|
428 # EOF |
|
429 $ eod |
|
430 $ close out |
|
431 $ write sys$output "... [.src.cff] directory" |
|
432 $ create [.src.cff]descrip.mms |
|
433 $ open/append out [.src.cff]descrip.mms |
|
434 $ copy sys$input: out |
|
435 $ deck |
|
436 # |
|
437 # FreeType 2 OpenType/CFF driver compilation rules for VMS |
|
438 # |
|
439 |
|
440 |
|
441 # Copyright 2001, 2002 by |
|
442 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
443 # |
|
444 # This file is part of the FreeType project, and may only be used, modified, |
|
445 # and distributed under the terms of the FreeType project license, |
|
446 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
447 # indicate that you have read the license and understand and accept it |
|
448 # fully. |
|
449 |
|
450 |
|
451 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.cff]) |
|
452 |
|
453 OBJS=cff.obj |
|
454 |
|
455 all : $(OBJS) |
|
456 library [--.lib]freetype.olb $(OBJS) |
|
457 |
|
458 # EOF |
|
459 $ eod |
|
460 $ close out |
|
461 $ write sys$output "... [.src.cid] directory" |
|
462 $ create [.src.cid]descrip.mms |
|
463 $ open/append out [.src.cid]descrip.mms |
|
464 $ copy sys$input: out |
|
465 $ deck |
|
466 # |
|
467 # FreeType 2 CID driver compilation rules for VMS |
|
468 # |
|
469 |
|
470 |
|
471 # Copyright 2001 by |
|
472 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
473 # |
|
474 # This file is part of the FreeType project, and may only be used, modified, |
|
475 # and distributed under the terms of the FreeType project license, |
|
476 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
477 # indicate that you have read the license and understand and accept it |
|
478 # fully. |
|
479 |
|
480 |
|
481 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.cid]) |
|
482 |
|
483 OBJS=type1cid.obj |
|
484 |
|
485 all : $(OBJS) |
|
486 library [--.lib]freetype.olb $(OBJS) |
|
487 |
|
488 # EOF |
|
489 $ eod |
|
490 $ close out |
|
491 $ write sys$output "... [.src.gzip] directory" |
|
492 $ create [.src.gzip]descrip.mms |
|
493 $ open/append out [.src.gzip]descrip.mms |
|
494 $ copy sys$input: out |
|
495 $ deck |
|
496 # |
|
497 # FreeType 2 GZip support compilation rules for VMS |
|
498 # |
|
499 |
|
500 |
|
501 # Copyright 2002 by |
|
502 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
503 # |
|
504 # This file is part of the FreeType project, and may only be used, modified, |
|
505 # and distributed under the terms of the FreeType project license, |
|
506 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
507 # indicate that you have read the license and understand and accept it |
|
508 # fully. |
|
509 $EOD |
|
510 $ if libincs .nes. "" then write out "LIBINCS = ", libincs - ",", "," |
|
511 $ write out "COMP_FLAGS = ", ccopt |
|
512 $ copy sys$input: out |
|
513 $ deck |
|
514 |
|
515 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=($(LIBINCS)[--.include],[--.src.gzip]) |
|
516 |
|
517 OBJS=ftgzip.obj |
|
518 |
|
519 all : $(OBJS) |
|
520 library [--.lib]freetype.olb $(OBJS) |
|
521 |
|
522 # EOF |
|
523 $ eod |
|
524 $ close out |
|
525 $ write sys$output "... [.src.lzw] directory" |
|
526 $ create [.src.lzw]descrip.mms |
|
527 $ open/append out [.src.lzw]descrip.mms |
|
528 $ copy sys$input: out |
|
529 $ deck |
|
530 # |
|
531 # FreeType 2 LZW support compilation rules for VMS |
|
532 # |
|
533 |
|
534 |
|
535 # Copyright 2004 by |
|
536 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
537 # |
|
538 # This file is part of the FreeType project, and may only be used, modified, |
|
539 # and distributed under the terms of the FreeType project license, |
|
540 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
541 # indicate that you have read the license and understand and accept it |
|
542 # fully. |
|
543 $EOD |
|
544 $ if libincs .nes. "" then write out "LIBINCS = ", libincs - ",", "," |
|
545 $ write out "COMP_FLAGS = ", ccopt |
|
546 $ copy sys$input: out |
|
547 $ deck |
|
548 |
|
549 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=($(LIBINCS)[--.include],[--.src.lzw]) |
|
550 |
|
551 OBJS=ftlzw.obj |
|
552 |
|
553 all : $(OBJS) |
|
554 library [--.lib]freetype.olb $(OBJS) |
|
555 |
|
556 # EOF |
|
557 $ eod |
|
558 $ close out |
|
559 $ write sys$output "... [.src.otlayout] directory" |
|
560 $ create [.src.otlayout]descrip.mms |
|
561 $ open/append out [.src.otlayout]descrip.mms |
|
562 $ copy sys$input: out |
|
563 $ deck |
|
564 # |
|
565 # FreeType 2 OT layout compilation rules for VMS |
|
566 # |
|
567 |
|
568 |
|
569 # Copyright 2004 by |
|
570 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
571 # |
|
572 # This file is part of the FreeType project, and may only be used, modified, |
|
573 # and distributed under the terms of the FreeType project license, |
|
574 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
575 # indicate that you have read the license and understand and accept it |
|
576 # fully. |
|
577 |
|
578 |
|
579 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.otlayout]) |
|
580 |
|
581 OBJS=otlbase.obj,otlcommn.obj,otlgdef.obj,otlgpos.obj,otlgsub.obj,\ |
|
582 otljstf.obj,otlparse.obj |
|
583 |
|
584 all : $(OBJS) |
|
585 library [--.lib]freetype.olb $(OBJS) |
|
586 |
|
587 |
|
588 # EOF |
|
589 $ eod |
|
590 $ close out |
|
591 $ write sys$output "... [.src.otvalid] directory" |
|
592 $ create [.src.otvalid]descrip.mms |
|
593 $ open/append out [.src.otvalid]descrip.mms |
|
594 $ copy sys$input: out |
|
595 $ deck |
|
596 # |
|
597 # FreeType 2 OpenType validation module compilation rules for VMS |
|
598 # |
|
599 |
|
600 |
|
601 # Copyright 2004 by |
|
602 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
603 # |
|
604 # This file is part of the FreeType project, and may only be used, modified, |
|
605 # and distributed under the terms of the FreeType project license, |
|
606 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
607 # indicate that you have read the license and understand and accept it |
|
608 # fully. |
|
609 |
|
610 |
|
611 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.otvalid]) |
|
612 |
|
613 OBJS=otvalid.obj |
|
614 |
|
615 all : $(OBJS) |
|
616 library [--.lib]freetype.olb $(OBJS) |
|
617 |
|
618 # EOF |
|
619 $ eod |
|
620 $ close out |
|
621 $ write sys$output "... [.src.pcf] directory" |
|
622 $ create [.src.pcf]descrip.mms |
|
623 $ open/append out [.src.pcf]descrip.mms |
|
624 $ copy sys$input: out |
|
625 $ deck |
|
626 # |
|
627 # FreeType 2 pcf driver compilation rules for VMS |
|
628 # |
|
629 |
|
630 |
|
631 # Copyright (C) 2001, 2002 by |
|
632 # Francesco Zappa Nardelli |
|
633 # |
|
634 # Permission is hereby granted, free of charge, to any person obtaining a copy |
|
635 # of this software and associated documentation files (the "Software"), to deal |
|
636 # in the Software without restriction, including without limitation the rights |
|
637 # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
|
638 # copies of the Software, and to permit persons to whom the Software is |
|
639 # furnished to do so, subject to the following conditions: |
|
640 # |
|
641 # The above copyright notice and this permission notice shall be included in |
|
642 # all copies or substantial portions of the Software. |
|
643 # |
|
644 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
|
645 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
|
646 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
|
647 # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
|
648 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
|
649 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN |
|
650 # THE SOFTWARE. |
|
651 |
|
652 |
|
653 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.pcf]) |
|
654 |
|
655 OBJS=pcf.obj |
|
656 |
|
657 all : $(OBJS) |
|
658 library [--.lib]freetype.olb $(OBJS) |
|
659 |
|
660 # EOF |
|
661 $ eod |
|
662 $ close out |
|
663 $ write sys$output "... [.src.pfr] directory" |
|
664 $ create [.src.pfr]descrip.mms |
|
665 $ open/append out [.src.pfr]descrip.mms |
|
666 $ copy sys$input: out |
|
667 $ deck |
|
668 # |
|
669 # FreeType 2 PFR driver compilation rules for VMS |
|
670 # |
|
671 |
|
672 |
|
673 # Copyright 2002 by |
|
674 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
675 # |
|
676 # This file is part of the FreeType project, and may only be used, modified, |
|
677 # and distributed under the terms of the FreeType project license, |
|
678 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
679 # indicate that you have read the license and understand and accept it |
|
680 # fully. |
|
681 |
|
682 |
|
683 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.pfr]) |
|
684 |
|
685 OBJS=pfr.obj |
|
686 |
|
687 all : $(OBJS) |
|
688 library [--.lib]freetype.olb $(OBJS) |
|
689 |
|
690 # EOF |
|
691 $ eod |
|
692 $ close out |
|
693 $ write sys$output "... [.src.psaux] directory" |
|
694 $ create [.src.psaux]descrip.mms |
|
695 $ open/append out [.src.psaux]descrip.mms |
|
696 $ copy sys$input: out |
|
697 $ deck |
|
698 # |
|
699 # FreeType 2 PSaux driver compilation rules for VMS |
|
700 # |
|
701 |
|
702 |
|
703 # Copyright 2001, 2002 by |
|
704 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
705 # |
|
706 # This file is part of the FreeType project, and may only be used, modified, |
|
707 # and distributed under the terms of the FreeType project license, |
|
708 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
709 # indicate that you have read the license and understand and accept it |
|
710 # fully. |
|
711 |
|
712 |
|
713 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.psaux]) |
|
714 |
|
715 OBJS=psaux.obj |
|
716 |
|
717 all : $(OBJS) |
|
718 library [--.lib]freetype.olb $(OBJS) |
|
719 |
|
720 # EOF |
|
721 $ eod |
|
722 $ close out |
|
723 $ write sys$output "... [.src.pshinter] directory" |
|
724 $ create [.src.pshinter]descrip.mms |
|
725 $ open/append out [.src.pshinter]descrip.mms |
|
726 $ copy sys$input: out |
|
727 $ deck |
|
728 # |
|
729 # FreeType 2 PSHinter driver compilation rules for OpenVMS |
|
730 # |
|
731 |
|
732 |
|
733 # Copyright 2001, 2002 by |
|
734 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
735 # |
|
736 # This file is part of the FreeType project, and may only be used, modified, |
|
737 # and distributed under the terms of the FreeType project license, |
|
738 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
739 # indicate that you have read the license and understand and accept it |
|
740 # fully. |
|
741 |
|
742 |
|
743 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.psnames]) |
|
744 |
|
745 OBJS=pshinter.obj |
|
746 |
|
747 all : $(OBJS) |
|
748 library [--.lib]freetype.olb $(OBJS) |
|
749 |
|
750 # EOF |
|
751 $ eod |
|
752 $ close out |
|
753 $ write sys$output "... [.src.psnames] directory" |
|
754 $ create [.src.psnames]descrip.mms |
|
755 $ open/append out [.src.psnames]descrip.mms |
|
756 $ copy sys$input: out |
|
757 $ deck |
|
758 # |
|
759 # FreeType 2 PSNames driver compilation rules for VMS |
|
760 # |
|
761 |
|
762 |
|
763 # Copyright 2001, 2002 by |
|
764 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
765 # |
|
766 # This file is part of the FreeType project, and may only be used, modified, |
|
767 # and distributed under the terms of the FreeType project license, |
|
768 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
769 # indicate that you have read the license and understand and accept it |
|
770 # fully. |
|
771 |
|
772 |
|
773 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.psnames]) |
|
774 |
|
775 OBJS=psnames.obj |
|
776 |
|
777 all : $(OBJS) |
|
778 library [--.lib]freetype.olb $(OBJS) |
|
779 |
|
780 # EOF |
|
781 $ eod |
|
782 $ close out |
|
783 $ write sys$output "... [.src.raster] directory" |
|
784 $ create [.src.raster]descrip.mms |
|
785 $ open/append out [.src.raster]descrip.mms |
|
786 $ copy sys$input: out |
|
787 $ deck |
|
788 # |
|
789 # FreeType 2 renderer module compilation rules for VMS |
|
790 # |
|
791 |
|
792 |
|
793 # Copyright 2001 by |
|
794 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
795 # |
|
796 # This file is part of the FreeType project, and may only be used, modified, |
|
797 # and distributed under the terms of the FreeType project license, |
|
798 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
799 # indicate that you have read the license and understand and accept it |
|
800 # fully. |
|
801 |
|
802 |
|
803 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.raster]) |
|
804 |
|
805 OBJS=raster.obj |
|
806 |
|
807 all : $(OBJS) |
|
808 library [--.lib]freetype.olb $(OBJS) |
|
809 |
|
810 # EOF |
|
811 $ eod |
|
812 $ close out |
|
813 $ write sys$output "... [.src.sfnt] directory" |
|
814 $ create [.src.sfnt]descrip.mms |
|
815 $ open/append out [.src.sfnt]descrip.mms |
|
816 $ copy sys$input: out |
|
817 $ deck |
|
818 # |
|
819 # FreeType 2 SFNT driver compilation rules for VMS |
|
820 # |
|
821 |
|
822 |
|
823 # Copyright 2001, 2002 by |
|
824 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
825 # |
|
826 # This file is part of the FreeType project, and may only be used, modified, |
|
827 # and distributed under the terms of the FreeType project license, |
|
828 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
829 # indicate that you have read the license and understand and accept it |
|
830 # fully. |
|
831 |
|
832 |
|
833 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.sfnt]) |
|
834 |
|
835 OBJS=sfnt.obj |
|
836 |
|
837 all : $(OBJS) |
|
838 library [--.lib]freetype.olb $(OBJS) |
|
839 |
|
840 # EOF |
|
841 $ eod |
|
842 $ close out |
|
843 $ write sys$output "... [.src.smooth] directory" |
|
844 $ create [.src.smooth]descrip.mms |
|
845 $ open/append out [.src.smooth]descrip.mms |
|
846 $ copy sys$input: out |
|
847 $ deck |
|
848 # |
|
849 # FreeType 2 smooth renderer module compilation rules for VMS |
|
850 # |
|
851 |
|
852 |
|
853 # Copyright 2001 by |
|
854 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
855 # |
|
856 # This file is part of the FreeType project, and may only be used, modified, |
|
857 # and distributed under the terms of the FreeType project license, |
|
858 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
859 # indicate that you have read the license and understand and accept it |
|
860 # fully. |
|
861 |
|
862 |
|
863 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.smooth]) |
|
864 |
|
865 OBJS=smooth.obj |
|
866 |
|
867 all : $(OBJS) |
|
868 library [--.lib]freetype.olb $(OBJS) |
|
869 |
|
870 # EOF |
|
871 $ eod |
|
872 $ close out |
|
873 $ write sys$output "... [.src.truetype] directory" |
|
874 $ create [.src.truetype]descrip.mms |
|
875 $ open/append out [.src.truetype]descrip.mms |
|
876 $ copy sys$input: out |
|
877 $ deck |
|
878 # |
|
879 # FreeType 2 TrueType driver compilation rules for VMS |
|
880 # |
|
881 |
|
882 |
|
883 # Copyright 2001, 2002 by |
|
884 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
885 # |
|
886 # This file is part of the FreeType project, and may only be used, modified, |
|
887 # and distributed under the terms of the FreeType project license, |
|
888 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
889 # indicate that you have read the license and understand and accept it |
|
890 # fully. |
|
891 |
|
892 |
|
893 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.truetype]) |
|
894 |
|
895 OBJS=truetype.obj |
|
896 |
|
897 all : $(OBJS) |
|
898 library [--.lib]freetype.olb $(OBJS) |
|
899 |
|
900 # EOF |
|
901 $ eod |
|
902 $ close out |
|
903 $ write sys$output "... [.src.type1] directory" |
|
904 $ create [.src.type1]descrip.mms |
|
905 $ open/append out [.src.type1]descrip.mms |
|
906 $ copy sys$input: out |
|
907 $ deck |
|
908 # |
|
909 # FreeType 2 Type1 driver compilation rules for VMS |
|
910 # |
|
911 |
|
912 |
|
913 # Copyright 1996-2000, 2002 by |
|
914 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
915 # |
|
916 # This file is part of the FreeType project, and may only be used, modified, |
|
917 # and distributed under the terms of the FreeType project license, |
|
918 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
919 # indicate that you have read the license and understand and accept it |
|
920 # fully. |
|
921 |
|
922 |
|
923 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.type1]) |
|
924 |
|
925 OBJS=type1.obj |
|
926 |
|
927 all : $(OBJS) |
|
928 library [--.lib]freetype.olb $(OBJS) |
|
929 |
|
930 type1.obj : type1.c t1parse.c t1load.c t1objs.c t1driver.c t1gload.c t1afm.c |
|
931 |
|
932 # EOF |
|
933 $ eod |
|
934 $ close out |
|
935 $ write sys$output "... [.src.type42] directory" |
|
936 $ create [.src.type42]descrip.mms |
|
937 $ open/append out [.src.type42]descrip.mms |
|
938 $ copy sys$input: out |
|
939 $ deck |
|
940 # |
|
941 # FreeType 2 Type 42 driver compilation rules for VMS |
|
942 # |
|
943 |
|
944 |
|
945 # Copyright 2002 by |
|
946 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
947 # |
|
948 # This file is part of the FreeType project, and may only be used, modified, |
|
949 # and distributed under the terms of the FreeType project license, |
|
950 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
951 # indicate that you have read the license and understand and accept it |
|
952 # fully. |
|
953 |
|
954 |
|
955 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.type42]) |
|
956 |
|
957 OBJS=type42.obj |
|
958 |
|
959 all : $(OBJS) |
|
960 library [--.lib]freetype.olb $(OBJS) |
|
961 |
|
962 # EOF |
|
963 $ eod |
|
964 $ close out |
|
965 $ write sys$output "... [.src.winfonts] directory" |
|
966 $ create [.src.winfonts]descrip.mms |
|
967 $ open/append out [.src.winfonts]descrip.mms |
|
968 $ copy sys$input: out |
|
969 $ deck |
|
970 # |
|
971 # FreeType 2 Windows FNT/FON driver compilation rules for VMS |
|
972 # |
|
973 |
|
974 |
|
975 # Copyright 2001, 2002 by |
|
976 # David Turner, Robert Wilhelm, and Werner Lemberg. |
|
977 # |
|
978 # This file is part of the FreeType project, and may only be used, modified, |
|
979 # and distributed under the terms of the FreeType project license, |
|
980 # LICENSE.TXT. By continuing to use, modify, or distribute this file you |
|
981 # indicate that you have read the license and understand and accept it |
|
982 # fully. |
|
983 |
|
984 |
|
985 CFLAGS=$(COMP_FLAGS)$(DEBUG)/include=([--.include],[--.src.winfonts]) |
|
986 |
|
987 OBJS=winfnt.obj |
|
988 |
|
989 all : $(OBJS) |
|
990 library [--.lib]freetype.olb $(OBJS) |
|
991 |
|
992 # EOF |
|
993 $ eod |
|
994 $ close out |
|
995 $ return |
|
996 $!------------------------------------------------------------------------------ |
|
997 $! |
|
998 $! Check command line options and set symbols accordingly |
|
999 $! |
|
1000 $ CHECK_OPTS: |
|
1001 $ i = 1 |
|
1002 $ OPT_LOOP: |
|
1003 $ if i .lt. 9 |
|
1004 $ then |
|
1005 $ cparm = f$edit(p'i',"upcase") |
|
1006 $ if cparm .eqs. "DEBUG" |
|
1007 $ then |
|
1008 $ ccopt = ccopt + "/noopt/deb" |
|
1009 $ lopts = lopts + "/deb" |
|
1010 $ endif |
|
1011 $ if f$locate("CCOPT=",cparm) .lt. f$length(cparm) |
|
1012 $ then |
|
1013 $ start = f$locate("=",cparm) + 1 |
|
1014 $ len = f$length(cparm) - start |
|
1015 $ ccopt = ccopt + f$extract(start,len,cparm) |
|
1016 $ endif |
|
1017 $ if cparm .eqs. "LINK" then linkonly = true |
|
1018 $ if f$locate("LOPTS=",cparm) .lt. f$length(cparm) |
|
1019 $ then |
|
1020 $ start = f$locate("=",cparm) + 1 |
|
1021 $ len = f$length(cparm) - start |
|
1022 $ lopts = lopts + f$extract(start,len,cparm) |
|
1023 $ endif |
|
1024 $ if f$locate("CC=",cparm) .lt. f$length(cparm) |
|
1025 $ then |
|
1026 $ start = f$locate("=",cparm) + 1 |
|
1027 $ len = f$length(cparm) - start |
|
1028 $ cc_com = f$extract(start,len,cparm) |
|
1029 if (cc_com .nes. "DECC") .and. - |
|
1030 (cc_com .nes. "VAXC") .and. - |
|
1031 (cc_com .nes. "GNUC") |
|
1032 $ then |
|
1033 $ write sys$output "Unsupported compiler choice ''cc_com' ignored" |
|
1034 $ write sys$output "Use DECC, VAXC, or GNUC instead" |
|
1035 $ else |
|
1036 $ if cc_com .eqs. "DECC" then its_decc = true |
|
1037 $ if cc_com .eqs. "VAXC" then its_vaxc = true |
|
1038 $ if cc_com .eqs. "GNUC" then its_gnuc = true |
|
1039 $ endif |
|
1040 $ endif |
|
1041 $ if f$locate("MAKE=",cparm) .lt. f$length(cparm) |
|
1042 $ then |
|
1043 $ start = f$locate("=",cparm) + 1 |
|
1044 $ len = f$length(cparm) - start |
|
1045 $ mmks = f$extract(start,len,cparm) |
|
1046 $ if (mmks .eqs. "MMK") .or. (mmks .eqs. "MMS") |
|
1047 $ then |
|
1048 $ make = mmks |
|
1049 $ else |
|
1050 $ write sys$output "Unsupported make choice ''mmks' ignored" |
|
1051 $ write sys$output "Use MMK or MMS instead" |
|
1052 $ endif |
|
1053 $ endif |
|
1054 $ i = i + 1 |
|
1055 $ goto opt_loop |
|
1056 $ endif |
|
1057 $ return |
|
1058 $!------------------------------------------------------------------------------ |
|
1059 $! |
|
1060 $! Take care of driver file with information about external libraries |
|
1061 $! |
|
1062 $! Version history |
|
1063 $! 0.01 20040220 First version to receive a number |
|
1064 $! 0.02 20040229 Echo current procedure name; use general error exit handler |
|
1065 $! Remove xpm hack -> Replaced by more general dnsrl handling |
|
1066 $CHECK_CREATE_VMSLIB: |
|
1067 $! |
|
1068 $ if f$search("VMSLIB.DAT") .eqs. "" |
|
1069 $ then |
|
1070 $ type/out=vmslib.dat sys$input |
|
1071 ! |
|
1072 ! This is a simple driver file with information used by vms_make.com to |
|
1073 ! check if external libraries (like t1lib and freetype) are available on |
|
1074 ! the system. |
|
1075 ! |
|
1076 ! Layout of the file: |
|
1077 ! |
|
1078 ! - Lines starting with ! are treated as comments |
|
1079 ! - Elements in a data line are separated by # signs |
|
1080 ! - The elements need to be listed in the following order |
|
1081 ! 1.) Name of the Library (only used for informative messages |
|
1082 ! from vms_make.com) |
|
1083 ! 2.) Location where the object library can be found |
|
1084 ! 3.) Location where the include files for the library can be found |
|
1085 ! 4.) Include file used to verify library location |
|
1086 ! 5.) CPP define to pass to the build to indicate availability of |
|
1087 ! the library |
|
1088 ! |
|
1089 ! Example: The following lines show how definitions |
|
1090 ! might look like. They are site specific and the locations of the |
|
1091 ! library and include files need almost certainly to be changed. |
|
1092 ! |
|
1093 ! Location: All of the libaries can be found at the following addresses |
|
1094 ! |
|
1095 ! ZLIB: http://zinser.no-ip.info/vms/sw/zlib.htmlx |
|
1096 ! |
|
1097 ZLIB # sys$library:libz.olb # sys$library: # zlib.h # FT_CONFIG_OPTION_SYSTEM_ZLIB |
|
1098 $ write sys$output "New driver file vmslib.dat created." |
|
1099 $ write sys$output "Please customize libary locations for your site" |
|
1100 $ write sys$output "and afterwards re-execute ''myproc'" |
|
1101 $ goto err_exit |
|
1102 $ endif |
|
1103 $! |
|
1104 $! Init symbols used to hold CPP definitions and include path |
|
1105 $! |
|
1106 $ libdefs = "" |
|
1107 $ libincs = "" |
|
1108 $! |
|
1109 $! Open data file with location of libraries |
|
1110 $! |
|
1111 $ open/read/end=end_lib/err=err_lib libdata VMSLIB.DAT |
|
1112 $LIB_LOOP: |
|
1113 $ read/end=end_lib libdata libline |
|
1114 $ libline = f$edit(libline, "UNCOMMENT,COLLAPSE") |
|
1115 $ if libline .eqs. "" then goto LIB_LOOP ! Comment line |
|
1116 $ libname = f$edit(f$element(0,"#",libline),"UPCASE") |
|
1117 $ write sys$output "Processing ''libname' setup ..." |
|
1118 $ libloc = f$element(1,"#",libline) |
|
1119 $ libsrc = f$element(2,"#",libline) |
|
1120 $ testinc = f$element(3,"#",libline) |
|
1121 $ cppdef = f$element(4,"#",libline) |
|
1122 $ old_cpp = f$locate("=1",cppdef) |
|
1123 $ if old_cpp.lt.f$length(cppdef) then cppdef = f$extract(0,old_cpp,cppdef) |
|
1124 $ if f$search("''libloc'").eqs. "" |
|
1125 $ then |
|
1126 $ write sys$output "Can not find library ''libloc' - Skipping ''libname'" |
|
1127 $ goto LIB_LOOP |
|
1128 $ endif |
|
1129 $ libsrc_elem = 0 |
|
1130 $ libsrc_found = false |
|
1131 $LIBSRC_LOOP: |
|
1132 $ libsrcdir = f$element(libsrc_elem,",",libsrc) |
|
1133 $ if (libsrcdir .eqs. ",") then goto END_LIBSRC |
|
1134 $ if f$search("''libsrcdir'''testinc'") .nes. "" then libsrc_found = true |
|
1135 $ libsrc_elem = libsrc_elem + 1 |
|
1136 $ goto LIBSRC_LOOP |
|
1137 $END_LIBSRC: |
|
1138 $ if .not. libsrc_found |
|
1139 $ then |
|
1140 $ write sys$output "Can not find includes at ''libsrc' - Skipping ''libname'" |
|
1141 $ goto LIB_LOOP |
|
1142 $ endif |
|
1143 $ if (cppdef .nes. "") then libdefs = libdefs + cppdef + "," |
|
1144 $ libincs = libincs + "," + libsrc |
|
1145 $ lqual = "/lib" |
|
1146 $ libtype = f$edit(f$parse(libloc,,,"TYPE"),"UPCASE") |
|
1147 $ if f$locate("EXE",libtype) .lt. f$length(libtype) then lqual = "/share" |
|
1148 $ write optf libloc , lqual |
|
1149 $ if (f$trnlnm("topt") .nes. "") then write topt libloc , lqual |
|
1150 $! |
|
1151 $! Nasty hack to get the freetype includes to work |
|
1152 $! |
|
1153 $ ft2def = false |
|
1154 $ if ((libname .eqs. "FREETYPE") .and. - |
|
1155 (f$locate("FREETYPE2",cppdef) .lt. f$length(cppdef))) |
|
1156 $ then |
|
1157 $ if ((f$search("freetype:freetype.h") .nes. "") .and. - |
|
1158 (f$search("freetype:[internal]ftobjs.h") .nes. "")) |
|
1159 $ then |
|
1160 $ write sys$output "Will use local definition of freetype logical" |
|
1161 $ else |
|
1162 $ ft2elem = 0 |
|
1163 $FT2_LOOP: |
|
1164 $ ft2srcdir = f$element(ft2elem,",",libsrc) |
|
1165 $ if f$search("''ft2srcdir'''testinc'") .nes. "" |
|
1166 $ then |
|
1167 $ if f$search("''ft2srcdir'internal.dir") .nes. "" |
|
1168 $ then |
|
1169 $ ft2dev = f$parse("''ft2srcdir'",,,"device","no_conceal") |
|
1170 $ ft2dir = f$parse("''ft2srcdir'",,,"directory","no_conceal") |
|
1171 $ ft2conc = f$locate("][",ft2dir) |
|
1172 $ ft2len = f$length(ft2dir) |
|
1173 $ if ft2conc .lt. ft2len |
|
1174 $ then |
|
1175 $ ft2dir = f$extract(0,ft2conc,ft2dir) + - |
|
1176 f$extract(ft2conc+2,ft2len-2,ft2dir) |
|
1177 $ endif |
|
1178 $ ft2dir = ft2dir - "]" + ".]" |
|
1179 $ define freetype 'ft2dev''ft2dir','ft2srcdir' |
|
1180 $ ft2def = true |
|
1181 $ else |
|
1182 $ goto ft2_err |
|
1183 $ endif |
|
1184 $ else |
|
1185 $ ft2elem = ft2elem + 1 |
|
1186 $ goto ft2_loop |
|
1187 $ endif |
|
1188 $ endif |
|
1189 $ endif |
|
1190 $ goto LIB_LOOP |
|
1191 $END_LIB: |
|
1192 $ close libdata |
|
1193 $ return |
|
1194 $!------------------------------------------------------------------------------ |
|
1195 $! |
|
1196 $! Analyze Object files for OpenVMS AXP to extract Procedure and Data |
|
1197 $! information to build a symbol vector for a shareable image |
|
1198 $! All the "brains" of this logic was suggested by Hartmut Becker |
|
1199 $! (Hartmut.Becker@compaq.com). All the bugs were introduced by me |
|
1200 $! (zinser@decus.de), so if you do have problem reports please do not |
|
1201 $! bother Hartmut/HP, but get in touch with me |
|
1202 $! |
|
1203 $! Version history |
|
1204 $! 0.01 20040006 Skip over shareable images in option file |
|
1205 $! |
|
1206 $ ANAL_OBJ_AXP: Subroutine |
|
1207 $ V = 'F$Verify(0) |
|
1208 $ SAY := "WRITE_ SYS$OUTPUT" |
|
1209 $ |
|
1210 $ IF F$SEARCH("''P1'") .EQS. "" |
|
1211 $ THEN |
|
1212 $ SAY "ANAL_OBJ_AXP-E-NOSUCHFILE: Error, inputfile ''p1' not available" |
|
1213 $ goto exit_aa |
|
1214 $ ENDIF |
|
1215 $ IF "''P2'" .EQS. "" |
|
1216 $ THEN |
|
1217 $ SAY "ANAL_OBJ_AXP: Error, no output file provided" |
|
1218 $ goto exit_aa |
|
1219 $ ENDIF |
|
1220 $ |
|
1221 $ open/read in 'p1 |
|
1222 $ create a.tmp |
|
1223 $ open/append atmp a.tmp |
|
1224 $ loop: |
|
1225 $ read/end=end_loop in line |
|
1226 $ if f$locate("/SHARE",f$edit(line,"upcase")) .lt. f$length(line) |
|
1227 $ then |
|
1228 $ write sys$output "ANAL_SKP_SHR-i-skipshare, ''line'" |
|
1229 $ goto loop |
|
1230 $ endif |
|
1231 $ if f$locate("/LIB",f$edit(line,"upcase")) .lt. f$length(line) |
|
1232 $ then |
|
1233 $ write libsf line |
|
1234 $ write sys$output "ANAL_SKP_LIB-i-skiplib, ''line'" |
|
1235 $ goto loop |
|
1236 $ endif |
|
1237 $ f= f$search(line) |
|
1238 $ if f .eqs. "" |
|
1239 $ then |
|
1240 $ write sys$output "ANAL_OBJ_AXP-w-nosuchfile, ''line'" |
|
1241 $ goto loop |
|
1242 $ endif |
|
1243 $ def/user sys$output nl: |
|
1244 $ def/user sys$error nl: |
|
1245 $ anal/obj/gsd 'f /out=x.tmp |
|
1246 $ open/read xtmp x.tmp |
|
1247 $ XLOOP: |
|
1248 $ read/end=end_xloop xtmp xline |
|
1249 $ xline = f$edit(xline,"compress") |
|
1250 $ write atmp xline |
|
1251 $ goto xloop |
|
1252 $ END_XLOOP: |
|
1253 $ close xtmp |
|
1254 $ goto loop |
|
1255 $ end_loop: |
|
1256 $ close in |
|
1257 $ close atmp |
|
1258 $ if f$search("a.tmp") .eqs. "" - |
|
1259 then $ exit |
|
1260 $ ! all global definitions |
|
1261 $ search a.tmp "symbol:","EGSY$V_DEF 1","EGSY$V_NORM 1"/out=b.tmp |
|
1262 $ ! all procedures |
|
1263 $ search b.tmp "EGSY$V_NORM 1"/wind=(0,1) /out=c.tmp |
|
1264 $ search c.tmp "symbol:"/out=d.tmp |
|
1265 $ def/user sys$output nl: |
|
1266 $ edito/edt/command=sys$input d.tmp |
|
1267 sub/symbol: "/symbol_vector=(/whole |
|
1268 sub/"/=PROCEDURE)/whole |
|
1269 exit |
|
1270 $ ! all data |
|
1271 $ search b.tmp "EGSY$V_DEF 1"/wind=(0,1) /out=e.tmp |
|
1272 $ search e.tmp "symbol:"/out=f.tmp |
|
1273 $ def/user sys$output nl: |
|
1274 $ edito/edt/command=sys$input f.tmp |
|
1275 sub/symbol: "/symbol_vector=(/whole |
|
1276 sub/"/=DATA)/whole |
|
1277 exit |
|
1278 $ sort/nodupl d.tmp,f.tmp 'p2' |
|
1279 $ delete a.tmp;*,b.tmp;*,c.tmp;*,d.tmp;*,e.tmp;*,f.tmp;* |
|
1280 $ if f$search("x.tmp") .nes. "" - |
|
1281 then $ delete x.tmp;* |
|
1282 $! |
|
1283 $ close libsf |
|
1284 $ EXIT_AA: |
|
1285 $ if V then set verify |
|
1286 $ endsubroutine |