diff options
| author | Thomas E. Dickey <dickey@invisible-island.net> | 2011-06-11 12:12:46 -0400 |
|---|---|---|
| committer | Thomas E. Dickey <dickey@invisible-island.net> | 2011-06-11 12:12:46 -0400 |
| commit | 279010bc0791556e63b4951d83a2c45252142b80 (patch) | |
| tree | 2f0ca07764a555764bb1f5a628a3468e88bf0c59 /src/chrtrans/build-header.com | |
| parent | 0b30d0d375231ff07227872f2d1d25f005e43e98 (diff) | |
| download | lynx-snapshots-279010bc0791556e63b4951d83a2c45252142b80.tar.gz | |
snapshot of project "lynx", label v2_8_8dev_9a
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 |