home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume4 / vms-vi-2 / part17 < prev    next >
Internet Message Format  |  1989-02-03  |  3KB

  1. Path: xanth!mcnc!gatech!cwjcc!hal!ncoast!allbery
  2. From: gregg@a.cs.okstate.edu (Gregg Wonderly)
  3. Newsgroups: comp.sources.misc
  4. Subject: v04i108: TPUVI for VMS part 17 of 17
  5. Message-ID: <8809211811.AA21941@uunet.UU.NET>
  6. Date: 27 Sep 88 22:20:44 GMT
  7. Sender: allbery@ncoast.UUCP
  8. Reply-To: gregg@a.cs.okstate.edu (Gregg Wonderly)
  9. Lines: 69
  10. Approved: allbery@ncoast.UUCP
  11.  
  12. Posting-number: Volume 4, Issue 108
  13. Submitted-by: "Gregg Wonderly" <gregg@a.cs.okstate.edu>
  14. Archive-name: vms-vi-2/Part17
  15.  
  16. $ check=2127880897
  17. $ on error then goto oops
  18. $ on severe_error then goto oops
  19. $ on warning then goto oops
  20. $ if f$search("VI.4") .nes. "" then goto assem
  21. $        write sys$output -
  22. "I can't find VI.4, have you executed the command files to extract"
  23. $        write sys$output "each part of the VI.TPU source?"
  24. $        exit
  25. $ ASSEM:
  26. $ if f$search("SRC.DIR") .nes. "" then goto assem_1
  27. $    write sys$output -
  28. "I can't find the [.SRC] directory, have you extracted the other portions"
  29. $    write sys$output "of the distribution yet?
  30. $    exit
  31. $ ASSEM_1:
  32. $ write sys$output "Assembling complete VI.TPU source file..."
  33. $ write sys$output "$ COPY VI.4 [.SRC]VI.TPU"
  34. $ copy VI.4 [.SRC]VI.TPU
  35. $ write sys$output "$ APPEND VI.5 [.SRC]VI.TPU"
  36. $ append VI.5 [.SRC]VI.TPU
  37. $ write sys$output "$ APPEND VI.6 [.SRC]VI.TPU"
  38. $ append VI.6 [.SRC]VI.TPU
  39. $ write sys$output "$ APPEND VI.7 [.SRC]VI.TPU"
  40. $ append VI.7 [.SRC]VI.TPU
  41. $ write sys$output "$ APPEND VI.8 [.SRC]VI.TPU"
  42. $ append VI.8 [.SRC]VI.TPU
  43. $ write sys$output "$ APPEND VI.9 [.SRC]VI.TPU"
  44. $ append VI.9 [.SRC]VI.TPU
  45. $ write sys$output "$ APPEND VI.10 [.SRC]VI.TPU"
  46. $ append VI.10 [.SRC]VI.TPU
  47. $ write sys$output "$ APPEND VI.11 [.SRC]VI.TPU"
  48. $ append VI.11 [.SRC]VI.TPU
  49. $ write sys$output "$ APPEND VI.12 [.SRC]VI.TPU"
  50. $ append VI.12 [.SRC]VI.TPU
  51. $ write sys$output "$ SET DEFAULT [.SRC]"
  52. $ set default [.SRC]
  53. $ write sys$output "VI source file assembled... Checking"
  54. $ checksum VI.TPU
  55. $ if checksum$checksum .ne. check then goto bad_check
  56. $ write sys$output "Checksum OK..."
  57. $ COMPILE:
  58. $ if f$search ("make.com") .nes. "" then goto domake
  59. $        write sys$output "I can't find [.SRC]make.com, perhaps you haven't extracted it yet?"
  60. $        set def [-]
  61. $        exit
  62. $ DOMAKE:
  63. $ write sys$output "$ @MAKE VI"
  64. $ @make VI
  65. $ type sys$input
  66. $ write sys$output -
  67.     f$fao("!/*** The VI TPU section file has been succesfully built ***!/") 
  68. $ DEF = F$ENVIRONMENT ("DEFAULT")
  69. $ TVI=="EDIT/TPU/SECTION=''DEF'VI.GBL"
  70. $ WRITE SYS$OUTPUT "$ SET DEFAULT [-]"
  71. $ SET DEF [-]
  72. $ EXIT
  73. $ bad_check:
  74. $ write sys$output f$fao ("Checksum of file failed, it may be damaged!/")
  75. $ write sys$output check," <> ",checksum$checksum
  76. $ write sys$output -
  77. f$fao ("!/Proceeding with Compile, just in case it is not.!/")
  78. $ goto compile
  79. $ oops:
  80. $  exit '$STATUS'
  81.