summaryrefslogtreecommitdiffstats
path: root/src/chrtrans/build-header.com
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 16:37:15 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 16:37:15 +0000
commitae5d181b854d3ccb373b6bc01b4869e44ff4d87a (patch)
tree91f59efb48c56a84cc798e012fccb667b63d3fee /src/chrtrans/build-header.com
parentInitial commit. (diff)
downloadlynx-upstream/2.9.0dev.12.tar.xz
lynx-upstream/2.9.0dev.12.zip
Adding upstream version 2.9.0dev.12.upstream/2.9.0dev.12upstream
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.com37
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