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
|
$ v = 'f$verify(0)'
$!********************************************************************
$ IF P1 .EQS. ""
$ THEN
$ type/nopage sys$input:
Usage:
@make UCX
@make WOLLONGONG
@make MULTINET
@make CMUIP
@make NETLIB
@make TCPWARE
$ exit
$ ENDIF
$!
$ ON CONTROL_Y THEN GOTO CLEANUP
$ ON ERROR THEN GOTO CLEANUP
$ v1 = f$verify(1)
$ set default [.object]
$ v1 = 'f$verify(0)'
$ @compile 'P1' 'P2'
$ @link 'P1' 'P2'
$!
$ v1 = f$verify(1)
$ set default [-.gopher]
$ v1 = 'f$verify(0)'
$ @compile 'P1' 'P2'
$ @link 'P1' 'P2'
$!
$ v1 = f$verify(1)
$ set default [-.gophfilt]
$ v1 = 'f$verify(0)'
$ @make_gophfilt 'P1' 'P2'
$ IF P2 .eqs. "DEBUG"
$ THEN
$ v1 = f$verify(1)
$ set default [-]
$ v1 = 'f$verify(0)'
$ goto CLEANUP
$ ENDIF
$!
$ v1 = f$verify(1)
$ set default [-.gopher.locales]
$ v1 = 'f$verify(0)'
$ @make
$!
$ v1 = f$verify(1)
$ set default [-.-]
$ v1 = 'f$verify(0)'
$!
$ CLEANUP:
$ v1 = f$verify(v)
$exit
|
