diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 20:21:21 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 20:21:21 +0000 |
commit | 510ed32cfbffa6148018869f5ade416505a450b3 (patch) | |
tree | 0aafabcf3dfaab7685fa0fcbaa683dafe287807e /src/chrtrans/build-header.com | |
parent | Initial commit. (diff) | |
download | lynx-510ed32cfbffa6148018869f5ade416505a450b3.tar.xz lynx-510ed32cfbffa6148018869f5ade416505a450b3.zip |
Adding upstream version 2.9.0rel.0.upstream/2.9.0rel.0
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'src/chrtrans/build-header.com')
-rw-r--r-- | src/chrtrans/build-header.com | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/src/chrtrans/build-header.com b/src/chrtrans/build-header.com new file mode 100644 index 0000000..ff8a6f5 --- /dev/null +++ b/src/chrtrans/build-header.com @@ -0,0 +1,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 |