home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gccdist / gcc-src / kitdist.com next >
Encoding:
Text File  |  1992-04-29  |  1.5 KB  |  51 lines

  1. $!
  2. $! This command file creates a VMSINSTAL-able distribution of GCC.  The
  3. $! kit is written to the device pointed to by the logical name "dist".
  4. $! The version should be a 3 digit number, two major, and one minor.
  5. $! (VMSINSTAL restriction).
  6. $!
  7. $! In order to do this, you need a tar writer that runs on VMS.  VMSINSTAL
  8. $! unpacks all of the files into one directory (losing the directory 
  9. $! structure).  I could have nested backup save-sets, but this is a waste
  10. $! of space.  Tar is much more efficient.
  11. $!
  12. $! This procedure assumes that the files are layed out in the directory 
  13. $! tree structure with subdirectories bison, gcc-src, and gcc.  It assumes
  14. $! that kitinstal.com is in the current directory.
  15. $!
  16. $ define dist $diska:[eric]
  17. $vers:=014
  18. $!
  19. $!
  20. $tarwrite:=$tarwrite
  21. $assign [-]gcc-src.tar tape
  22. $set def [.gcc-src]
  23. $tarwrite cv
  24. $assign [--]gcc-include.tar tape
  25. $set def [-.gcc.include]
  26. $tarwrite cv
  27. $set def [--]
  28. $deassign tape
  29. $!
  30. $!
  31. $backup_flag := /block=8192
  32. $!
  33. $if f$getdvi("dist","devclass").ne.2 then goto noinit
  34. $! initialize the dist
  35. $init dist gcc
  36. $ mount /foreign dist:
  37. $backup_flag := /verify/label=""GCC""
  38. $noinit:
  39. $backup/interchange 'backup_flag' kitinstal.com; dist:gcc'vers'.a/save
  40. $backup/interchange 'backup_flag'   -
  41.     [.gcc]*.*;,[]gcc-src.tar,[]gcc-include.tar, -
  42.     []tarread.exe; dist:gcc'vers'.b/save
  43. $backup/interchange 'backup_flag'   [.bison]*.*; dist:gcc'vers'.c/save
  44. $if f$getdvi("dist","devclass").eq.2 then dismount dist:
  45. $!
  46. $! Now clean up a little
  47. $!
  48. $delete gcc-src.tar;/nolog
  49. $delete gcc-include.tar;/nolog
  50. $exit
  51.