watcher/link.com at master · endlesssoftware/watcher · GitHub

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
76
77
78
79
80
$! LINK.COM
$!
$!  This procedure links the two WATCHER images.
$!
$ VMSVER = F$GETSYI("VERSION")
$ PREFIX = "V" + F$EXTRACT(1,1,VMSVER)
$ arch = F$EDIT(F$GETSYI("ARCH_NAME"),"TRIM,UPCASE")
$ IF arch .EQS. ""
$ THEN
$   WRITE SYS$OUTPUT "Cannot determine system architecture"
$   EXIT 1
$ ENDIF
$ IF arch .EQS. "ALPHA"
$ THEN
$   IF PREFIX .EQS. "V1" .AND. F$EXTRACT(3,1,VMSVER) .EQS. "5" THEN PREFIX = "V15"
$   IF PREFIX .EQS. "V8" THEN PREFIX = "V7"
$   IF F$SEARCH("''PREFIX'_WATCHER.ALPHA_OPT") .EQS. ""
$   THEN
$   	WRITE SYS$OUTPUT "You must recompile from sources for this version of VMS."
$   	EXIT
$   ENDIF
$   IF F$PARSE("[.BIN-ALPHA]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-ALPHA]
$   ENDIF
$   LINK/EXE=WATCHER.EXE/SYSEXE 'PREFIX'_WATCHER.ALPHA_OPT/OPT,VERSION.OPT/OPT
$   IF F$PARSE("[.BIN-ALPHA]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-ALPHA]
$   ENDIF
$   LINK/EXE=WCP.EXE/NOTRACE BIN_DIR:WCP.OLB/INCLUDE=WCP/LIB,SYS$DISK:[]VERSION.OPT/OPT
$   IF F$PARSE("[.BIN-ALPHA]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-ALPHA]
$   ENDIF
$   LINK/EXE=FORCE_EXIT.EXE/NOTRACE BIN_DIR:FORCE_EXIT.OBJ
$ ENDIF
$ IF arch .EQS. "VAX"
$ THEN
$   IF PREFIX .EQS. "V7" .AND. F$EXTRACT(3,1,VMSVER) .LES. "1" THEN PREFIX = "V6"
$   IF F$SEARCH("''PREFIX'_WATCHER.OPT") .EQS. ""
$   THEN
$   	WRITE SYS$OUTPUT "You must recompile from sources for this version of VMS."
$   	EXIT
$   ENDIF
$   IF F$PARSE("[.BIN-VAX]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-VAX]
$   ENDIF
$   LINK/EXE=WATCHER.EXE 'PREFIX'_WATCHER.OPT/OPT,VERSION.OPT/OPT
$   IF F$PARSE("[.BIN-VAX]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-VAX]
$   ENDIF
$   LINK/EXE=WCP.EXE/NOTRACE BIN_DIR:WCP.OLB/INCLUDE=WCP/LIB,SYS$DISK:[]VERSION.OPT/OPT
$   IF F$PARSE("[.BIN-VAX]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-VAX]
$   ENDIF
$   LINK/EXE=FORCE_EXIT.EXE/NOTRACE BIN_DIR:FORCE_EXIT.OBJ
$ ENDIF
$ IF arch .EQS. "IA64"
$ THEN
$   IF F$PARSE("[.BIN-IA64]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-IA64]
$   ENDIF
$   LINK/EXE=WATCHER.EXE/SYSEXE WATCHER.IA64_OPT/OPT,VERSION.OPT/OPT
$   IF F$PARSE("[.BIN-IA64]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-IA64]
$   ENDIF
$   LINK/EXE=WCP.EXE/NOTRACE BIN_DIR:WCP.OLB/INCLUDE=WCP/LIB,SYS$DISK:[]VERSION.OPT/OPT
$   IF F$PARSE("[.BIN-IA64]") .EQS. ""
$   THEN DEFINE/USER BIN_DIR SYS$DISK:[]
$   ELSE DEFINE/USER BIN_DIR SYS$DISK:[.BIN-IA64]
$   ENDIF
$   LINK/EXE=FORCE_EXIT.EXE/NOTRACE BIN_DIR:FORCE_EXIT.OBJ
$ ENDIF
$ EXIT