diff options
Diffstat (limited to 'src/chrtrans/build-header.com')
| -rw-r--r-- | src/chrtrans/build-header.com | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/src/chrtrans/build-header.com b/src/chrtrans/build-header.com deleted file mode 100644 index ff8a6f52..00000000 --- a/src/chrtrans/build-header.com +++ /dev/null @@ -1,37 +0,0 @@ -$ 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 |