blob: 31c88f33a58702540e5b128129661e8d89210e5e (
plain)
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
|
$! MAKE_BIBTEX.COM
$ on error then goto exit
$ on control_y then goto exit
$ old_verify = f$verify (1)
$!
$ if f$getsyi("HW_MODEL") .ge. 1024
$ then
$ arch_name = "Alpha"
$ ARCH_PREF = "AXP_"
$ PCFLAGS = "/opt/check=none/float=g_float/align=vax/nolist"
$ else
$ arch_name = "VAX"
$ ARCH_PREF = "VAX_"
$ PCFLAGS = "/opt/check=none/g_float/nolist"
$ endif
$ define/user CHANGEFILE "bibtex.vms-changes"
$!
$! Call Tangle to generate BIBTEX.PAS
$!
$ on warning then goto err_tangle
$ tangle bibtex
CHANGEFILE
$ on error then goto exit
$!
$! Compile the sources
$!
$ pasc 'PCFLAGS' /obj=.'ARCH_PREF'obj bibtex
$!
$! (Re)compile the internal command table
$!
$ set command/object=.'ARCH_PREF'obj bibtex_cli.cld
$!
$! Link
$!
$ link /exe=.'ARCH_PREF'exe bibtex.'ARCH_PREF'obj,bibtex_cli.'ARCH_PREF'obj
$!
$! Do not keep the compiled command table:
$!
$ delete/noconfirm/nolog bibtex_cli.'ARCH_PREF'obj;*
$!
$! Clean up environment, and exit
$!
$exit:
$ dummy=f$verify ('old_verify')
$ exit
$!
$! error messages:
$!
$! 1.) TANGLE problems
$err_tangle:
$ write sys$output "Tangle ERROR: Cannot find TANGLE, or (less likely)"
$ write sys$output -
" Tangle has found some problem in the source."
$ write sys$output -
" >>> Please correct the problem !! <<<"
$ goto exit
|