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
130
131
132
133
134
135
136
137
138
139
140
141
|
$ v0 = 0
$ v = f$verify(v0)
$! 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(v0)
$ IF f$getsyi("ARCH_NAME") .eqs. "Alpha" .or. -
f$getsyi("ARCH_NAME") .eqs. "IA64" .or. -
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(v0)
$ 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(v0)
$ ELSE
$ CHRcompiler := "VAXC"
$ v1 = f$verify(1)
$! VAXC:
$ cc := cc 'CHRcc_opts'/INCLUDE=([],[-],[--],[--.WWW.Library.Implementation])
$ v1 = f$verify(v0)
$ ENDIF
$ ENDIF
$!
$ v1 = f$verify(1)
$ cc makeuctb
$ v1 = f$verify(v0)
$!
$ Link_makeuctb:
$!=============
$ v1 = f$verify(1)
$!
$! Link the Lynx [.SRC.CHRTRANS]makeuctb module.
$!
$ IF f$getsyi("ARCH_NAME") .eqs. "IA64"
$ THEN
$ optslibs=""
$ ELSE
$ optslibs=", sys$disk:[-]''CHRcompiler'.opt/opt"
$ ENDIF
$
$ link/exe=makeuctb.exe'CHRlink_opts' makeuctb 'optslibs
$ v1 = f$verify(v0)
$!
$ 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 cp857_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 iso13_uni.tbl
$ makeuctb iso14_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(v0)
$ exit
$!
$ CLEANUP:
$ v1 = f$verify(0)
$ write sys$output "Default directory:"
$ show default
$ v1 = f$verify(v)
$ exit
|