home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gccdist / kitdist.com < prev    next >
Encoding:
Text File  |  1992-04-30  |  2.0 KB  |  63 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. $! This procedure assumes that the files are layed out in the directory 
  8. $! tree structure with subdirectories bison, gcc-src, and gcc.
  9. $!
  10. $if f$search("bison.dir").eqs."" then goto nope
  11. $if f$search("gcc-src.dir").eqs."" then goto nope
  12. $if f$search("gcc.dir").eqs."" then goto nope
  13. $if f$search("[.gcc]include.dir").eqs."" then goto nope
  14. $ define dist $diska:[eric]
  15. $vers:=014
  16. $!
  17. $!
  18. $   ROOT = -
  19.     F$PARSE (f$environment("DEFAULT"),,,"DEVICE","NO_CONCEAL") -
  20.     + F$PARSE (f$environment("DEFAULT"),,,"DIRECTORY","NO_CONCEAL") -
  21.     - "][" - "]" + ".]"
  22. $assign 'root' dumping/tran=conc
  23. $backup dumping:[gcc-src...]*.*; gcc-src.sav/save/block=8192/noverify/nolog
  24. $!
  25. $root = root - ".]" + ".gcc.]"
  26. $assign 'root' dumping1/tran=conc
  27. $backup dumping1:[include...]*.*; gcc-include.sav/save/block=8192/noverify/nolog
  28. $deassign dumping1
  29. $!
  30. $backup_flag := /block=8192
  31. $!
  32. $if f$getdvi("dist","devclass").ne.2 then goto noinit
  33. $! initialize the dist
  34. $init dist gcc
  35. $ mount /foreign dist:
  36. $backup_flag := /verify/label=""GCC""
  37. $noinit:
  38. $backup/interchange 'backup_flag' -
  39.     dumping:[000000]aaaread.me;, -
  40.     dumping:[000000]kitinstal.com; -
  41.     dist:gcc'vers'.a/save
  42. $backup/interchange 'backup_flag' /excl=*.dir  -
  43.     dumping:[gcc]*.*;,dumping:[000000]gcc-src.sav;, -
  44.     dumping:[000000]gcc-include.sav; dist:gcc'vers'.b/save
  45. $backup/interchange 'backup_flag'   dumping:[bison]*.*; dist:gcc'vers'.c/save
  46. $if f$getdvi("dist","devclass").eq.2 then dismount dist:
  47. $deassign dist
  48. $deassign dumping
  49. $!
  50. $! Now clean up a little
  51. $!
  52. $delete gcc-src.sav;/nolog
  53. $delete gcc-include.sav;/nolog
  54. $exit
  55. $!
  56. $!
  57. $nope:
  58. $type sys$input
  59.     You have not run this command procedure from the proper directory.
  60. You must have bison, gcc-src, and gcc subdirectories, and a [.gcc]include 
  61. subsubdirectory.
  62. $exit 4
  63.