about summary refs log tree commit diff
path: root/vms/SetUp.com
diff options
context:
space:
mode:
Diffstat (limited to 'vms/SetUp.com')
-rwxr-xr-xvms/SetUp.com37
1 files changed, 0 insertions, 37 deletions
diff --git a/vms/SetUp.com b/vms/SetUp.com
deleted file mode 100755
index 077318b5..00000000
--- a/vms/SetUp.com
+++ /dev/null
@@ -1,37 +0,0 @@
-$ 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