Dream 52/Amiga_Dream_52.iso/Linux/Divers/lynx2.8.1dev.10.tar.gz/lynx2.8.1dev.10.tar/lynx2-8/src/chrtrans/build-header.com

Text File | 1997-07-10 | 932b | 38 lines

$ v = 'f$verify(0)'
$!            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        [e-mail]
$!    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
$ define/user sys$output 'CHRwhere''P1'.h
$ makeuctb 'P1'.tbl
$ v1 = 'f$verify(0)'
$ exit
$!
$ CLEANUP:
$    v1 = 'f$verify(0)'
$    write sys$output "Default directory:"
$    show default
$    v1 = f$verify(v)
$ exit