summaryrefslogtreecommitdiff
path: root/dviware/crudetype/version3/vms-build.com
blob: 1e665dfc9f4a1675bf729348f75d2a170931e2a2 (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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
$!   VMS.COM.  Skeleton of command file to compile versions of
$!   Crudetype on VMS.  Needs TANGLE  and PASCAL compiler.
$!   Adapted to Crudetype v2, will probably need to be modified
$!   at other sites. Extra stuff also needed for any other version.
$!
$!
$! 
$!
$!
$!
$!
$ask:
$ if p1 .nes "" then goto try
$ inquire p1 "What version do you want?"
$goto ask
$!
$!
$try:
$ on warning then goto bad
$ goto 'p1'
$!
$! 
$bad: write sys$output "UNKNOWN version, ", 'p1'
$exit
$!
$!
$crudetype:
$ on warning then exit
$ set verify
$tangle xxx
crudetype.web
vms.ch
crudetype.pas
crudetype.pool

$pascal/check crudetype
$link crudetype
$exit
$!
$!
$hpgf:
$!
$!
$!HPGF. Typical example for a printer changefile. It must be 
$! appended after the system changefile.
$!
$!
$ on warning then exit
$ set verify
$copy vms.ch hpgf.vch
$append hpgf.ch hpgf.vch
$tangle xxx
crudetype.web
hpgf.vch
hpgf.pas
hpgf.pool

$pascal/check hpgf
$link hpgf
$exit
$!
$!
$noscheme:
$! 
$! this is a weirdo. Use it if your TFM files dont have coding schemes
$!
$!
$ on warning then exit
$ set verify
$copy crudetype.web noscheme.web
$append noscheme.add noscheme.web
$tangle xxx
noscheme.web
vms.ch
crudetype.pas
crudetype.pool

$pascal/check crudetype
$link crudetype
$exit
$ set noverify
$!
$!