summaryrefslogtreecommitdiff
path: root/biblio/bibtex/vms/make_bibtex.com
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