summaryrefslogtreecommitdiffstats
path: root/src/chrtrans/build-header.com
diff options
context:
space:
mode:
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