blob: ff8a6f52c472b1aefd8981ee1bebc0c7821d78a1 (
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
|
$ v0 = 0
$ v = f$verify(v0)
$! BUILD-HEADER.COM
$!
$! Command file to use MAKEUCTB.EXE on VMS systems for creating
$! a chrtrans header (foo.h) file from a table (foo.tbl) file.
$! Use the file root as P1, e.g.:
$!
$! $ @build-header iso05_uni
$!
$! will create iso05_uni.h from iso05_uni.tbl.
$!
$! 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")
$!
$ Create_header:
$!=============
$ v1 = f$verify(1)
$!
$! Create a Lynx [.SRC.CHRTRANS] header file.
$!
$ makeuctb := $'CHRwhere'makeuctb
$ makeuctb 'P1'.tbl
$ v1 = f$verify(v0)
$ exit
$!
$ CLEANUP:
$ v1 = f$verify(v0)
$ write sys$output "Default directory:"
$ show default
$ v1 = f$verify(v)
$ exit
|
