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
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$! !
$! Copyright 2001, 2004 Sanchez Computer Associates, Inc. !
$! !
$! This source code contains the intellectual property !
$! of its copyright holder(s), and is made available !
$! under a license. If you do not know the terms of !
$! the license, please stop and do not read further. !
$! !
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$! cre_comlist invokes commal to create a typ_comlist.com compile driver
$!
$ interact = (f$mode() .eqs. "INTERACTIVE")
$!
$ if f$search("gtm$libsrc:*.*.*",0) .eqs. ""
$ then
$ write sys$output "GTM$LIBSRC does not point to any sources"
$ if interact
$ then
$ inquire libsrc "Compile directory list"
$ define gtm$libsrc 'libsrc'
$ endif
$ if f$search("gtm$libsrc:*.*.*",0) .eqs. ""
$ then
$ write sys$output "No action taken"
$ exit
$ endif
$ endif
$ show log gtm$libsrc
$ curver = f$element(1,".",f$trnlnm("gtm$vrt"))
$ curimg = f$extract(0,1,f$element(1,"$",f$trnlnm("gtm$exe")))
$! "expand" gtm$src, i.e. get all directories in the search list, if
$! it is a search list
$ src1 = f$trnlnm("gtm$src",,0)
$ src2 = f$trnlnm("gtm$src",,1)
$ define gtmsrc "''src1'"
$ if "" .nes. src2 then define/nolog gtmsrc "''src1',''src2'"
$ define gtm$routines "[]/src=(''f$trnlnm("gtmsrc")')"
$ version p p
$ gtm
o "SYS$COMMAND" u "SYS$COMMAND" d ^comall
$ version 'curver' 'curimg'
$ delete comall.obj.
$ exit
|
