The Datafile PD-CD 4/DATAFILE_PDCD4.iso/utilities/utilsm/netpbmsca/vms/com/SetUp

Text File | 1993-10-04 | 1.7 KB | 38 lines

$ VERIFY = F$Verify (0)
$ On Error Then GoTo EXIT
$ Write Sys$Output "SETting UP PBMplus (ver netpbm-VMS)..."
$!
$!  Keep this proc in the top directory of the PBMPLUS tree. Execute it from
$!  anywhere and it will set up command symbols for all executables in the
$!  PBMplus_Root:[EXE] directory.
$!  There is a problem if this directory is located in a "rooted"
$!  directory structure already.  It is not possible to define a "rooted"
$!  directory twice, i.e.:
$! BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD
$! BAD                                                                 BAD
$! BAD     Define /Trans=conceal Public Disk$:[Dir.]                   BAD
$! BAD     Define /Trans=conceal PBMplus_Root Public:[PBMplus.]        BAD
$! BAD                                                                 BAD
$! BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD BAD
$!  THIS WILL NOT WORK!  In this case, you will have to manually define
$!  PBMplus_Root instead of the autosensing feature below....
$!
$ PBMPLUS_PATH = F$Element (0, "]", F$Environment ("PROCEDURE")) + ".]"
$ Define /Translation_Attributes = Concealed PBMplus_Root "''PBMPLUS_PATH'"
$ Define PBMplus_Dir PBMplus_Root:[000000]
$ Define PBMplusShr PBMplus_Dir:PBMplusShr
$ NAME = "PBMplus_Root:[Exe]*.EXE"
$LOOP:
$   PROG = F$Search (NAME)
$   If PROG .nes. ""
$       Then
$           PROG = PROG - F$Parse (PROG, , , "VERSION")
$           CMD = F$Parse (PROG, , , "NAME")
$           'CMD' :== $ 'PROG'
$       GoTo LOOP
$   EndIf
$   @ PBMplus_Dir:ADD_LIST Hlp$Library PBMplus_Dir:PBMPLUS.HLB
$EXIT:
$   VERIFY = F$Verify (VERIFY)
$   Exit