build-header.com

来自「基于rtos开发的浏览器！」· COM 代码 · 共 38 行

$ 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