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
|
$! File: gnv$gawk_Startup.com / gnv_gawk_startup.com
$!
$! Procedure to setup the GAWK images for use by programs from the
$! VMS SYSTARTUP*.COM procedure.
$!
$! 14-Mar-2011 J. Malmberg
$! 04-May-2011 J. Malmberg Use GNV_PCSI_DESTINATION to find the
$! value to assing GNV$GNU per suggestion
$! by Martin Vorlander.
$! 02-Jan-2014 J. Malmberg Gawk Version
$!========================================================================
$!
$!
$! GNV$GNU if needed.
$ if f$trnlnm("GNV$GNU") .eqs. ""
$ then
$ x = f$trnlnm("GNU","LNM$SYSTEM_TABLE")
$ if x .nes. ""
$ then
$ write sys$output -
"Notice: logical name GNU: was found in the system table instead of GNV$GNU:"
$ write sys$output -
"This is a known bug in the GNV 2.1.3 and earlier kits."
$ define/system/exec/trans=conc GNV$GNU 'x'
$ else
$!
$! File name per VMS standards
$! ---------------------------
$ file1 = "sys$startup:gnv$destination_''f$getsyi("ARCH_NAME")'.com"
$!
$! File name in GNV 2.1.3
$! ----------------------
$ file2 = "sys$startup:gnv_destination_''f$getsyi("ARCH_NAME")'.com"
$!
$! File name before GNV 2.1.3
$! ---------------------------
$ file3 = "sys$startup:gnv_destination''f$getsyi("ARCH_NAME")'.com"
$ arch_file = ""
$ if f$search(file1) .nes. ""
$ then
$ arch_file = file1
$ else
$ if f$search(file2) .nes. ""
$ then
$ arch_file = file2
$ else
$ if f$search("file3") .nes. "" then arch_file = file3
$ endif
$ endif
$ if (arch_file) .nes. "" then @'arch_file'
$!
$! Logical name per VMS standards
$! -------------------------------
$ destination = f$trnlnm("GNV$PCSI_DESTINATION")
$!
$! Logical name in GNV 2.1.3
$! --------------------------
$ if destination .eqs. ""
$ then
$ destination = f$trnlnm("GNV_PCSI_DESTINATION")
$ endif
$ if destination .eqs. ""
$ then
$ !Assume this procedure is on the same volume as the GNV install.
$ my_proc = f$environment("PROCEDURE")
$ my_dev = f$parse(my_proc,,,"DEVICE","NO_CONCEAL")
$ destination = "''my_dev'[vms$common.gnv.]"
$ endif
$ define/system/exec/trans=conc gnv$gnu 'destination'
$ endif
$ endif
$!
$!
$all_exit:
$ exit
|
