File: link.com

package info (click to toggle)
gopher 3.0.3woody2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,796 kB
  • ctags: 2,008
  • sloc: ansic: 23,055; perl: 1,950; sh: 1,691; makefile: 457; asm: 1
file content (26 lines) | stat: -rw-r--r-- 707 bytes parent folder | download | duplicates (11)
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
$ vo = 'f$verify(0)'
$!
$ ON CONTROL_Y THEN GOTO CLEANUP
$ ON ERROR THEN GOTO CLEANUP
$!
$ IF P2 .eqs. "DEBUG
$ THEN
$ vo1 = f$verify(1)
$ library/create libgopher_debug compatible.objd,daarray.objd,-
    gdgopherdir.objd,gsgopherobj.objd,locale.objd,-
    strstring.objd,blblock.objd,views.objd,util.objd,-
    getopt.objd,sockets.objd,Debug.objd,url.objd,fileio.objd
$!
$ vo1 = 'f$verify(0)'
$ ELSE
$ vo1 = f$verify(1)
$ library/create libgopher compatible.obj,daarray.obj,-
    gdgopherdir.obj,gsgopherobj.obj,locale.obj,-
    strstring.obj,blblock.obj,views.obj,util.obj,-
    getopt.obj,sockets.obj,Debug.obj,url.obj,fileio.obj
$!
$ vo1 = 'f$verify(0)'
$ ENDIF
$ CLEANUP:
$    vo1 = f$verify(vo)
$exit