gregg@a.cs.okstate.edu (Gregg Wonderly) (09/28/88)
Posting-number: Volume 4, Issue 108 Submitted-by: "Gregg Wonderly" <gregg@a.cs.okstate.edu> Archive-name: vms-vi-2/Part17 $ check=2127880897 $ on error then goto oops $ on severe_error then goto oops $ on warning then goto oops $ if f$search("VI.4") .nes. "" then goto assem $ write sys$output - "I can't find VI.4, have you executed the command files to extract" $ write sys$output "each part of the VI.TPU source?" $ exit $ ASSEM: $ if f$search("SRC.DIR") .nes. "" then goto assem_1 $ write sys$output - "I can't find the [.SRC] directory, have you extracted the other portions" $ write sys$output "of the distribution yet? $ exit $ ASSEM_1: $ write sys$output "Assembling complete VI.TPU source file..." $ write sys$output "$ COPY VI.4 [.SRC]VI.TPU" $ copy VI.4 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.5 [.SRC]VI.TPU" $ append VI.5 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.6 [.SRC]VI.TPU" $ append VI.6 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.7 [.SRC]VI.TPU" $ append VI.7 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.8 [.SRC]VI.TPU" $ append VI.8 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.9 [.SRC]VI.TPU" $ append VI.9 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.10 [.SRC]VI.TPU" $ append VI.10 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.11 [.SRC]VI.TPU" $ append VI.11 [.SRC]VI.TPU $ write sys$output "$ APPEND VI.12 [.SRC]VI.TPU" $ append VI.12 [.SRC]VI.TPU $ write sys$output "$ SET DEFAULT [.SRC]" $ set default [.SRC] $ write sys$output "VI source file assembled... Checking" $ checksum VI.TPU $ if checksum$checksum .ne. check then goto bad_check $ write sys$output "Checksum OK..." $ COMPILE: $ if f$search ("make.com") .nes. "" then goto domake $ write sys$output "I can't find [.SRC]make.com, perhaps you haven't extracted it yet?" $ set def [-] $ exit $ DOMAKE: $ write sys$output "$ @MAKE VI" $ @make VI $ type sys$input $ write sys$output - f$fao("!/*** The VI TPU section file has been succesfully built ***!/") $ DEF = F$ENVIRONMENT ("DEFAULT") $ TVI=="EDIT/TPU/SECTION=''DEF'VI.GBL" $ WRITE SYS$OUTPUT "$ SET DEFAULT [-]" $ SET DEF [-] $ EXIT $ bad_check: $ write sys$output f$fao ("Checksum of file failed, it may be damaged!/") $ write sys$output check," <> ",checksum$checksum $ write sys$output - f$fao ("!/Proceeding with Compile, just in case it is not.!/") $ goto compile $ oops: $ exit '$STATUS'