diff options
| author | Juergen Kahrs <Juergen.Kahrs@googlemail.com> | 2014-06-24 13:18:33 +0200 |
|---|---|---|
| committer | Juergen Kahrs <Juergen.Kahrs@googlemail.com> | 2014-06-24 13:18:33 +0200 |
| commit | f1245d04a9f076773c60499b468f44ed9c91b59b (patch) | |
| tree | 2b49234400150bfaac7ebf8c017562300edc7471 /vms/gnv_gawk_startup.com | |
| parent | ee9707cc44eea3ca64cb71666ac3e8ed26a3bb7f (diff) | |
| parent | 78ded8ee8f11a321c96417e7d02dac2f5723a221 (diff) | |
| download | egawk-f1245d04a9f076773c60499b468f44ed9c91b59b.tar.gz egawk-f1245d04a9f076773c60499b468f44ed9c91b59b.tar.bz2 egawk-f1245d04a9f076773c60499b468f44ed9c91b59b.zip | |
Merge remote-tracking branch 'origin/master' into cmake
Diffstat (limited to 'vms/gnv_gawk_startup.com')
| -rw-r--r-- | vms/gnv_gawk_startup.com | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/vms/gnv_gawk_startup.com b/vms/gnv_gawk_startup.com new file mode 100644 index 00000000..e691965e --- /dev/null +++ b/vms/gnv_gawk_startup.com @@ -0,0 +1,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 |