diff options
Diffstat (limited to 'build-slang.com')
| -rw-r--r-- | build-slang.com | 42 |
1 files changed, 41 insertions, 1 deletions
diff --git a/build-slang.com b/build-slang.com index 63b38d66..d2806907 100644 --- a/build-slang.com +++ b/build-slang.com @@ -24,6 +24,8 @@ $ exit $ EndIf $!========================================================================== $! +$! 28-Jun-1997 F.Macrides macrides@sci.wfeb.edu +$! Added chartrans support. $! 29-Mar-1996 F.Macrides macrides@sci.wfeb.edu $! Modified build.com to create build-slang.com $! 29-Feb-1996 F.Macrides macrides@sci.wfeb.edu @@ -125,7 +127,7 @@ $ Else $ read sys$command/prompt=" Update it [default Y]? " reply $ if reply .nes. "" .and. - f$extract(0,1,f$edit(reply, "TRIM, UPCASE")) .nes. "Y" then - -$ goto Compile_SRC +$ goto Compile_CHRTRANS $ EndIf $ ENDIF $ v1 = f$verify(1) @@ -138,6 +140,37 @@ $ @libmake 'option' 'cc_opts' $ v1 = f$verify(1) $ set default [-.-.-] $ v1 = 'f$verify(0)' +$ ON CONTROL_Y THEN GOTO CLEANUP +$ ON ERROR THEN GOTO CLEANUP +$! +$Compile_CHRTRANS: +$ IF f$search("[.src.chrtrans]makeuctb.exe") .nes. "" +$ THEN +$ write sys$output " [.src.chrtrans]makeuctb.exe already exists." +$ If f$mode() .eqs. "BATCH" +$ Then +$ write sys$output " Updating makeuctb.exe and chrtrans header files." +$ Else +$ read sys$command - + /prompt=" Update it and chrtrans header files [default Y]? " reply +$ if reply .nes. "" .and. - + f$extract(0,1,f$edit(reply, "TRIM, UPCASE")) .nes. "Y" then - +$ goto Compile_SRC +$ EndIf +$ ENDIF +$! +$ v1 = f$verify(1) +$! +$! Build the chrtrans modules. +$! +$ set default [.src.chrtrans] +$ v1 = 'f$verify(0)' +$ @build-chrtrans 'cc_opts' +$ v1 = f$verify(1) +$ set default [-.-] +$ v1 = 'f$verify(0)' +$ ON CONTROL_Y THEN GOTO CLEANUP +$ ON ERROR THEN GOTO CLEANUP $! $Compile_SRC: $ v1 = f$verify(1) @@ -222,6 +255,9 @@ $ cc LYStrings $ cc LYTraversal $ cc LYUpload $ cc LYUtils +$ cc UCAuto +$ cc UCAux +$ cc UCdomap $! $! Link the objects and libaries. $! @@ -265,6 +301,9 @@ LYStrings.obj, - LYTraversal.obj, - LYUpload.obj, - LYUtils.obj, - +UCAuto.obj, - +UCAux.obj, - +UCdomap.obj, - [-.WWW.Library.Implementation]WWWLib_'option'.olb/library, - 'SLANGLIB'slang.olb/lib, - sys$disk:[]'optfile'.opt/opt, sys$disk:[]'compiler'.opt/opt @@ -286,6 +325,7 @@ $ write sys$output "" $! $ CLEANUP: $ v1 = 'f$verify(0)' +$ set default 'where' $ write sys$output "Default directory:" $ show default $ v1 = f$verify(v) |