$! 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