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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
$ v = 'f$verify(0)'
$! BUILD-CHRTRANS.COM
$!
$! Command file to build MAKEUCTB.EXE on VMS systems
$! and then use it to create the chrtrans header files.
$!
$! 28-Jun-1997 F.Macrides macrides@sci.wfeb.edu
$! Initial version, for Lynx v2.7.1+fotemods
$!
$ ON CONTROL_Y THEN GOTO CLEANUP
$ ON ERROR THEN GOTO CLEANUP
$ CHRproc = f$environment("PROCEDURE")
$ CHRwhere = f$parse(CHRproc,,,"DEVICE") + f$parse(CHRproc,,,"DIRECTORY")
$!
$ if p1 .nes. ""
$ then
$ CHRcc_opts = "/DEBUG/NOOPT"
$ CHRlink_opts = "/DEBUG"
$ else
$ CHRcc_opts = ""
$ CHRlink_opts = ""
$ endif
$!
$ Compile_makeuctb:
$!================
$ v1 = f$verify(1)
$!
$! Compile the Lynx [.SRC.CHRTRANS]makeuctb module.
$!
$ v1 = 'f$verify(0)'
$ IF f$trnlnm("VAXCMSG") .eqs. "DECC$MSG" .or. -
f$trnlnm("DECC$CC_DEFAULT") .eqs. "/DECC" .or. -
f$trnlnm("DECC$CC_DEFAULT") .eqs. "/VAXC"
$ THEN
$ CHRcompiler := "DECC"
$ v1 = f$verify(1)
$! DECC:
$ cc := cc/decc/prefix=all /nomember 'CHRcc_opts'-
/INCLUDE=([],[-],[--],[--.WWW.Library.Implementation])
$ v1 = 'f$verify(0)'
$ ELSE
$ IF f$search("gnu_cc:[000000]gcclib.olb") .nes. ""
$ THEN
$ CHRcompiler := "GNUC"
$ v1 = f$verify(1)
$! GNUC:
$ cc := gcc 'CHRcc_opts'/INCLUDE=([],[-],[--],[--.WWW.Library.Implementation])
$ v1 = 'f$verify(0)'
$ ELSE
$ CHRcompiler := "VAXC"
$ v1 = f$verify(1)
$! VAXC:
$ cc := cc 'CHRcc_opts'/INCLUDE=([],[-],[--],[--.WWW.Library.Implementation])
$ v1 = 'f$verify(0)'
$ ENDIF
$ ENDIF
$!
$ v1 = f$verify(1)
$ cc makeuctb
$ v1 = 'f$verify(0)'
$!
$ Link_makeuctb:
$!=============
$ v1 = f$verify(1)
$!
$! Link the Lynx [.SRC.CHRTRANS]makeuctb module.
$!
$ link/exe=makeuctb.exe'CHRlink_opts' makeuctb, -
sys$disk:[-]'CHRcompiler'.opt/opt
$ v1 = 'f$verify(0)'
$!
$ Create_headers:
$!==============
$ v1 = f$verify(1)
$!
$! Create the Lynx [.SRC.CHRTRANS] header files.
$!
$ makeuctb := $'CHRwhere'makeuctb
$ makeuctb cp1250_uni.tbl
$ makeuctb cp1251_uni.tbl
$ makeuctb cp1252_uni.tbl
$ makeuctb cp1253_uni.tbl
$ makeuctb cp1255_uni.tbl
$ makeuctb cp1256_uni.tbl
$ makeuctb cp1257_uni.tbl
$ makeuctb cp437_uni.tbl
$ makeuctb cp737_uni.tbl
$ makeuctb cp775_uni.tbl
$ makeuctb cp850_uni.tbl
$ makeuctb cp852_uni.tbl
$ makeuctb cp862_uni.tbl
$ makeuctb cp864_uni.tbl
$ makeuctb cp866_uni.tbl
$ makeuctb cp866u_uni.tbl
$ makeuctb cp869_uni.tbl
$ makeuctb def7_uni.tbl
$ makeuctb dmcs_uni.tbl
$ makeuctb hp_uni.tbl
$ makeuctb iso01_uni.tbl
$ makeuctb iso02_uni.tbl
$ makeuctb iso03_uni.tbl
$ makeuctb iso04_uni.tbl
$ makeuctb iso05_uni.tbl
$ makeuctb iso06_uni.tbl
$ makeuctb iso07_uni.tbl
$ makeuctb iso08_uni.tbl
$ makeuctb iso09_uni.tbl
$ makeuctb iso10_uni.tbl
$ makeuctb iso15_uni.tbl
$ makeuctb koi8r_uni.tbl
$ makeuctb koi8u_uni.tbl
$ makeuctb mac_uni.tbl
$ makeuctb mnem_suni.tbl
$ makeuctb mnem2_suni.tbl
$ makeuctb mnem_suni.tbl
$ makeuctb next_uni.tbl
$ makeuctb pt154_uni.tbl
$ makeuctb rfc_suni.tbl
$ makeuctb utf8_uni.tbl
$ makeuctb viscii_uni.tbl
$ v1 = 'f$verify(0)'
$ exit
$!
$ CLEANUP:
$ v1 = 'f$verify(0)'
$ write sys$output "Default directory:"
$ show default
$ v1 = f$verify(v)
$ exit
|