Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

54 lines (53 sloc) 0.966 kB
$ 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
Jump to Line
Something went wrong with that request. Please try again.