home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Usenet 1994 October
/
usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso
/
misc
/
volume4
/
vms-vi-2
/
part17
< prev
next >
Wrap
Internet Message Format
|
1989-02-03
|
3KB
Path: xanth!mcnc!gatech!cwjcc!hal!ncoast!allbery
From: gregg@a.cs.okstate.edu (Gregg Wonderly)
Newsgroups: comp.sources.misc
Subject: v04i108: TPUVI for VMS part 17 of 17
Message-ID: <8809211811.AA21941@uunet.UU.NET>
Date: 27 Sep 88 22:20:44 GMT
Sender: allbery@ncoast.UUCP
Reply-To: gregg@a.cs.okstate.edu (Gregg Wonderly)
Lines: 69
Approved: allbery@ncoast.UUCP
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'