home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / cdccyber / cd3ker.ins < prev    next >
Text File  |  1988-08-15  |  3KB  |  83 lines
  1. .PROC,KERMINS.
  2. .******************************
  3. .*
  4. .*  BUILD KERMIT V3 BINARY FROM SOURCE
  5. .*
  6. .*  WRITTEN BY JOERG HALLBAUER -- CAL STATE UNIVERSITIES
  7. .*  REVISED FOR V3 RELEASE BY STEVE ROSEMAN  --  LEHIGH UNIVERSITY
  8. .*  REVISED FOR 3.4 BY OLAF PORS -- UNIVERSITY OF VIRGINIA
  9. .*
  10. .*  INPUT@D   KERMSRC    KERMIT UPDATE SOURCE FILE
  11. .*           KERMOD1     FIRST (OPTIONAL) MODS FILE
  12. .*           KERMOD2     SECOND (OPTIONAL) MODS FILE
  13. .*  OUTPUT@D  KERMIT     KERMIT EXECUTABLE OVERLAY FILE
  14. .*           KERMLST    COMPILATION LISTING AND LOAD MAP
  15. .*
  16. .*  THE REASON FOR TWO MODS FILES IS THAT THE KERMIT RELEASE
  17. .*  MAY CONSIST OF A BASE SOURCE FILE (SAY VERSION 3.3),
  18. .*  AND A MODSET WHICH IS THE DIFFERENCE BETWEEN VERSION 3.3
  19. .*  AND THE LATEST VERSION.  IT IS ADVISABLE TO RETAIN SUCH 
  20. .*  A MODSET IN THE RELEASE TO ELIMINATE QUESTIONS LIKE
  21. .*  "DO I HAVE THE LATEST SOURCE FILE?", AND TO BE ABLE TO
  22. .*  BACK OUT CHANGES IF PROBLEMS ARISE.  THE SECOND MODSET
  23. .*  IS WHATEVER MODS A SITE IS ADDING TO THE RELEASED KERMIT.
  24. .*  IF THE SECOND MODSET IS TO BE A PERMANENT ADDITION TO
  25. .*  THE RELEASED KERMIT, IT SHOULD BE APPENDED TO THE
  26. .*  FIRST AND SHIPPED BACK TO COLUMBIA (ONLY THE COMBINED
  27. .*  MODSET NEEDS TO BE SENT; THE BASE FILE WILL REMAIN THE SAME).
  28. .*  ONLY IF THE FIRST MODSET GETS TOO BIG SHOULD A NEW BASE 
  29. .*  FILE BE CREATED.
  30. ********************************
  31. $RETURN,B1,B2,B3,KERMITB,COMPILE,KERMLST.
  32. $REWIND(*)
  33. $IF,FILE(KERMSRC,.NOT.AS),GETIT.
  34.    $GET,KERMSRC/NA. 
  35.    $IF,FILE(KERMSRC,.NOT.AS),ATTACHIT.
  36.       $ATTACH,KERMSRC/NA.
  37.       $IF,FILE(KERMSRC,.NOT.AS),MISSING.
  38.          $NOTE(,NR)+ +FILE *KERMSRC* IS MISSING!+ +
  39.          $REVERT,ABORT.
  40.       $ENDIF,MISSING.
  41.    $ENDIF,ATTACHIT. 
  42. $ENDIF,GETIT.
  43. .*  CREATE KERMIT PL FROM THE BASE SOURCE FILE.
  44. $UPDATE,N=KERMPL,I=KERMSRC,C=0.
  45. .IF(FILE(KERMOD1,.NOT.AS))GET,KERMOD1/NA.
  46. .IF(FILE(KERMOD2,.NOT.AS))GET,KERMOD2/NA.
  47. $REWIND(KERMOD1,KERMOD2,UPDIR)
  48. $COPYBR,KERMOD1,UPDIR.
  49. $COPYBR,KERMOD2,UPDIR.
  50. $NOTE(UPDIR,NR)+*COMPILE,KERMIT,KERMLIB 
  51. $PACK(UPDIR)
  52. .*  CREATE COMPILE FILE INCLUDING THE TWO MODSETS.
  53. $UPDATE,Q,P=KERMPL,I=UPDIR,O=KERMLST,L=1234.
  54. $FTN5,OPT=2,I,B=B1,L=KERMLST,LO=S/-A,EL=F,S,PN,BL,CS,ET=F,S=NOSTEXT,S=PSSTEXT.
  55. $FTN5,OPT=2,I,B=B2,L=KERMLST,LO=S/-A,EL=F,S,PN,BL,CS,ET=F,S=NOSTEXT,S=PSSTEXT.
  56. $LIBGEN,F=B2,P=KERMLIB.
  57. $LDSET,LIB=KERMLIB/FTN5LIB/SRVLIB,ERR=ALL.
  58. $LDSET,MAP=SB/KERMLST.
  59. $LOAD,B1. 
  60. $NOGO,KERMITB.
  61. $LIBEDIT,C,P=KERMITB,I=LIBDIR,L=0,B=0.
  62. $RETURN,B1,B2,B3,COMPILE,LIBDIR,KERMPL,UPDIR,KERMLIB,NEW.
  63. $RENAME,KERMIT=KERMITB.
  64. $REVERT.KERMIT BUILD COMPLETE 
  65. $EXIT.
  66. $REVERT,ABORT.ERROR IN KERMIT BUILD.
  67. .DATA LIBDIR
  68. *COMMENT OVL/KRM0100 KERMIT - INITIALIZATION
  69. *COMMENT OVL/KRM0200 KERMIT - EXECUTE CONTROL STATEMENT
  70. *COMMENT OVL/KRM0300 KERMIT - HELP
  71. *COMMENT OVL/KRM0400 KERMIT - RECEIVE FILE
  72. *COMMENT OVL/KRM0500 KERMIT - SEND FILE 
  73. *COMMENT OVL/KRM0600 KERMIT - SET ATTRIBUTES
  74. *COMMENT OVL/KRM0700 KERMIT - SHOW SETTINGS
  75. *COMMENT OVL/KRM1000 KERMIT - STATUS OF TRANSFER
  76. *COMMENT OVL/KRM1100 KERMIT - SERVER MODE
  77. *COMMENT OVL/KRM1101 KERMIT - SERVER RECEIVE
  78. *COMMENT OVL/KRM1102 KERMIT - SERVER INITIALIZE
  79. *COMMENT OVL/KRM1103 KERMIT - SERVER SEND
  80. *COMMENT OVL/KRM1104 KERMIT - SERVER GENERIC FUNCTIONS
  81. *COMMENT OVL/KRM1200 KERMIT - DIRECTORY COMMAND
  82. *COMMENT OVL/KRM1300 KERMIT - TAKE COMMAND
  83.