home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / tandem / tandem.dif < prev    next >
Text File  |  1997-11-12  |  9KB  |  341 lines
  1. *** tandem.tal    Tue Aug 16 22:04:44 1988
  2. --- tandem.src    Thu Nov 13 15:49:52 1997
  3. ***************
  4. *** 1,4 ****
  5. --- 1,5 ----
  6.   ?NOCODE
  7. + ?symbols
  8.   ?INSPECT
  9.   DEFINE VERSTRING = "Tandem KERMIT server - Version 1.0"#;
  10.   !*****************************************************************************!
  11. ***************
  12. *** 184,190 ****
  13.       STRING EIGHT^BIT;
  14.       STRING CHECK^TYPE;
  15.       STRING REPEAT^CHAR;
  16. !     STRING RESERVED[0:1];
  17.       END;
  18.   
  19.   DEFINE CHAR(X) = ((X) + " ")#,
  20. --- 185,192 ----
  21.       STRING EIGHT^BIT;
  22.       STRING CHECK^TYPE;
  23.       STRING REPEAT^CHAR;
  24. !    !STRING RESERVED[0:1];
  25. !     STRING RESERVED[0:3];
  26.       END;
  27.   
  28.   DEFINE CHAR(X) = ((X) + " ")#,
  29. ***************
  30. *** 236,242 ****
  31.                                          CTL(0),   !PAD CHARACTER!
  32.                                          CHAR(CR), !END OF LINE CHARACTER!
  33.                                          "#",      !CONTROL QUOTE!
  34. !                                        "N",      !8 BIT QUOTE!
  35.                                          "1",      !CHKSUM TYPE!
  36.                                          "~",      !REPEAT QUOTER!
  37.                                          "  "];    !RESERVED!
  38. --- 238,245 ----
  39.                                          CTL(0),   !PAD CHARACTER!
  40.                                          CHAR(CR), !END OF LINE CHARACTER!
  41.                                          "#",      !CONTROL QUOTE!
  42. !                                       !"N",     !!8 BIT QUOTE!
  43. !                                        "Y",      !8 BIT QUOTE!
  44.                                          "1",      !CHKSUM TYPE!
  45.                                          "~",      !REPEAT QUOTER!
  46.                                          "    "];  !RESERVED!
  47. ***************
  48. *** 444,449 ****
  49. --- 447,455 ----
  50.   IF ERROR = 0 THEN
  51.       BEGIN
  52.       FILE^OPEN^FLAG := TRUE;
  53. + 
  54. +     ! 4/3/95 - do not trim for binary files
  55. +     CALL SET^FILE(FILE^FCB,SET^READ^TRIM,0);
  56.       RETURN TRUE;
  57.       END;
  58.   CALL ERROR^PACKET(ERROR);
  59. ***************
  60. *** 461,472 ****
  61. --- 467,483 ----
  62.                 ELSE FLAGS := FLAGS + MUSTBENEW;
  63.   
  64.   CALL SET^FILE(FILE^FCB,ASSIGN^OPENACCESS, WRITE^ACCESS);
  65. + CALL SET^FILE(FILE^FCB,ASSIGN^FILECODE,0);
  66.   ERROR := OPEN^FILE(COMMON^FCB,FILE^FCB,FILE^BUF,OUT^BLKLEN,
  67.            FLAGS,
  68.            ABORT^OPENERR+ABORT^XFERERR+AUTO^CREATE+PURGE^DATA+MUSTBENEW);
  69.   IF ERROR = 0 THEN
  70.       BEGIN
  71.       FILE^OPEN^FLAG := TRUE;
  72. +     CALL SET^FILE(FILE^FCB,SET^WRITE^PAD,0);
  73. + 
  74. +     ! 4/3/95 - do not trim for binary files
  75. +     CALL SET^FILE(FILE^FCB,SET^WRITE^TRIM,0);
  76.       RETURN TRUE;
  77.       END;
  78.   CALL ERROR^PACKET(ERROR);
  79. ***************
  80. *** 774,780 ****
  81.   IF HIS^PARAMS.EIGHT^BIT <> "Y" THEN
  82.       BEGIN
  83.       OUT^PARAMS.EIGHT^BIT := "Y";
  84. !     OUT^PARAMS.EIGHT^BIT := "N";    !REMOVE IF YOUR KERMIT WORKS!
  85.       END
  86.   ELSE
  87.       BEGIN
  88. --- 785,791 ----
  89.   IF HIS^PARAMS.EIGHT^BIT <> "Y" THEN
  90.       BEGIN
  91.       OUT^PARAMS.EIGHT^BIT := "Y";
  92. !    !OUT^PARAMS.EIGHT^BIT := "N";   !!REMOVE IF YOUR KERMIT WORKS!
  93.       END
  94.   ELSE
  95.       BEGIN
  96. ***************
  97. *** 787,793 ****
  98.   IF HIS^PARAMS.BUFSIZ <> " " THEN
  99.               MAX^DATA^CHARS := UNCHAR(HIS^PARAMS.BUFSIZ) - 3;
  100.   
  101. ! LENGTH := $LEN(PARAMS) + 5;
  102.   OUT^PACKET[1] := CHAR(LENGTH - 2);
  103.   OUT^PACKET^LENGTH := CHECKSUMMER(OUT^PACKET,LENGTH);
  104.   RETURN;
  105. --- 798,823 ----
  106.   IF HIS^PARAMS.BUFSIZ <> " " THEN
  107.               MAX^DATA^CHARS := UNCHAR(HIS^PARAMS.BUFSIZ) - 3;
  108.   
  109. ! ! 12/16/94 - trun off 'a' packet capability
  110. ! ! didn't seem to have any qffect on procomm - still got a packet
  111. ! ! accept 'A' packets
  112. ! !OUT^PARAMS.RESERVED[0] := %h28 ;
  113. ! 
  114. ! ! no capabilities
  115. ! OUT^PARAMS.RESERVED[0] := %h20 ;
  116. ! 
  117. ! ! sliding windows size
  118. ! OUT^PARAMS.RESERVED[1] := %h20 ;
  119. ! 
  120. ! ! extended packet size
  121. ! OUT^PARAMS.RESERVED[2] := %h20 ;
  122. ! OUT^PARAMS.RESERVED[3] := %h20 ;
  123. ! 
  124. ! !LENGTH := $LEN(PARAMS) + 5;
  125. ! !LENGTH := $LEN(PARAMS) + 4;
  126. ! 
  127. ! ! try 1 byte capabilities mask only
  128. ! LENGTH := $LEN(PARAMS) + 5 - 3 ;
  129.   OUT^PACKET[1] := CHAR(LENGTH - 2);
  130.   OUT^PACKET^LENGTH := CHECKSUMMER(OUT^PACKET,LENGTH);
  131.   RETURN;
  132. ***************
  133. *** 798,804 ****
  134.   NOT^IMPL^D;
  135.   RETURN;
  136.   END;
  137. ! PROC GENERIC^PROC;
  138.   BEGIN
  139.   IF IN^BUF^S = "L" THEN
  140.       BEGIN
  141. --- 828,834 ----
  142.   NOT^IMPL^D;
  143.   RETURN;
  144.   END;
  145. ! INT PROC GENERIC^PROC;
  146.   BEGIN
  147.   IF IN^BUF^S = "L" THEN
  148.       BEGIN
  149. ***************
  150. *** 807,814 ****
  151.       CALL GET^PACKET;
  152.       CALL GIVE^IT^UP(TRUE);
  153.       END;
  154.   NOT^IMPL^D;
  155. ! RETURN;
  156.   END;
  157.   ?PAGE "PROC RECEIVE PROC"
  158.   INT PROC RECEIVE^PROC;
  159. --- 837,851 ----
  160.       CALL GET^PACKET;
  161.       CALL GIVE^IT^UP(TRUE);
  162.       END;
  163. + 
  164. + ! swallow change directory command
  165. + IF IN^BUF^S = "C" THEN
  166. +     BEGIN
  167. +     CALL FORMAT^ACK;
  168. +     RETURN -1;
  169. +     END;
  170.   NOT^IMPL^D;
  171. ! RETURN 0;
  172.   END;
  173.   ?PAGE "PROC RECEIVE PROC"
  174.   INT PROC RECEIVE^PROC;
  175. ***************
  176. *** 939,966 ****
  177.   
  178.           CALL GET^NEXT^CHAR;
  179.   
  180. !         IF CHRSAV = LF AND LF^WAIT THEN
  181. !             BEGIN
  182. !             LF^WAIT := FALSE;
  183. !             REPEAT^COUNT := REPEAT^COUNT - 1;
  184. !             WRITE^IT^OUT := TRUE;
  185. !             END;
  186. !         IF LF^WAIT AND CHRSAV <> LF THEN
  187. !             BEGIN
  188. !             SBUF[OUT^COUNT] := CR;
  189. !             OUT^COUNT := OUT^COUNT + 1;
  190. !             LF^WAIT := FALSE;
  191. !             END;
  192. !         IF CHRSAV = CR THEN
  193. !             BEGIN
  194. !             REPEAT^COUNT := REPEAT^COUNT - 1;
  195. !             LF^WAIT := TRUE;
  196. !             END;
  197. !         IF CHRSAV = TAB AND TABS^FLAG THEN
  198. !             BEGIN
  199. !             REPEAT^COUNT := 8 * REPEAT^COUNT - (OUT^COUNT LAND 7);
  200. !             CHRSAV := " ";
  201. !             END;
  202.           END; !NEW CHARACTER, REPEAT COUNT = 0!
  203.   
  204.       END; !LOOP!
  205. --- 976,1004 ----
  206.   
  207.           CALL GET^NEXT^CHAR;
  208.   
  209. ! ! 12/15/94 - only for text files
  210. ! !       IF CHRSAV = LF AND LF^WAIT THEN
  211. ! !           BEGIN
  212. ! !           LF^WAIT := FALSE;
  213. ! !           REPEAT^COUNT := REPEAT^COUNT - 1;
  214. ! !           WRITE^IT^OUT := TRUE;
  215. ! !           END;
  216. ! !       IF LF^WAIT AND CHRSAV <> LF THEN
  217. ! !           BEGIN
  218. ! !           SBUF[OUT^COUNT] := CR;
  219. ! !           OUT^COUNT := OUT^COUNT + 1;
  220. ! !           LF^WAIT := FALSE;
  221. ! !           END;
  222. ! !       IF CHRSAV = CR THEN
  223. ! !           BEGIN
  224. ! !           REPEAT^COUNT := REPEAT^COUNT - 1;
  225. ! !           LF^WAIT := TRUE;
  226. ! !           END;
  227. ! !       IF CHRSAV = TAB AND TABS^FLAG THEN
  228. ! !           BEGIN
  229. ! !           REPEAT^COUNT := 8 * REPEAT^COUNT - (OUT^COUNT LAND 7);
  230. ! !           CHRSAV := " ";
  231. ! !           END;
  232.           END; !NEW CHARACTER, REPEAT COUNT = 0!
  233.   
  234.       END; !LOOP!
  235. ***************
  236. *** 970,976 ****
  237.   
  238.   SUBPROC RECEIVE^FILE^HEADER;
  239.   BEGIN
  240. ! LEGAL^PACKETS^D("SZBF");
  241.   WHILE 1 DO
  242.       BEGIN
  243.       CHECK^LEGAL^D;
  244. --- 1008,1015 ----
  245.   
  246.   SUBPROC RECEIVE^FILE^HEADER;
  247.   BEGIN
  248. ! ! LEGAL^PACKETS^D("SZBF");
  249. ! LEGAL^PACKETS^D("SZBFA");
  250.   WHILE 1 DO
  251.       BEGIN
  252.       CHECK^LEGAL^D;
  253. ***************
  254. *** 995,1000 ****
  255. --- 1034,1044 ----
  256.           RETURN;
  257.           END;
  258.   
  259. + !4!     BEGIN  !FILE ATTRIBUTES|
  260. +         CALL FORMAT^ACK;
  261. +         CALL GET^PACKET;
  262. +         END;
  263. + 
  264.           OTHERWISE BAD^PACKET^D;
  265.   
  266.           END; !CASE!
  267. ***************
  268. *** 1004,1010 ****
  269.   
  270.   SUBPROC RECEIVE^DATA;
  271.   BEGIN
  272. ! LEGAL^PACKETS^D("FZD");
  273.   WHILE 1 DO
  274.       BEGIN
  275.       CHECK^LEGAL^D;
  276. --- 1048,1054 ----
  277.   
  278.   SUBPROC RECEIVE^DATA;
  279.   BEGIN
  280. ! LEGAL^PACKETS^D("FZDA");
  281.   WHILE 1 DO
  282.       BEGIN
  283.       CHECK^LEGAL^D;
  284. ***************
  285. *** 1033,1038 ****
  286. --- 1077,1087 ----
  287.           RETURN;
  288.           END;
  289.   
  290. + !3!     BEGIN  !FILE ATTRIBUTES!
  291. +         CALL FORMAT^ACK;
  292. +         CALL GET^PACKET;
  293. +         END;
  294. + 
  295.           OTHERWISE BAD^PACKET^D;
  296.   
  297.           END; !CASE!
  298. ***************
  299. *** 1292,1299 ****
  300.           IF ERROR = 0 THEN @IN^POINTER := @IN^BUF^S;
  301.   
  302.           OUT^OF^INPUT := FALSE;
  303. !         SBUF[COUNT^READ] ':=' [CR,LF];
  304. !         COUNT^READ := COUNT^READ + 2;
  305.           IN^COUNT := 0;
  306.       END;
  307.   
  308. --- 1341,1349 ----
  309.           IF ERROR = 0 THEN @IN^POINTER := @IN^BUF^S;
  310.   
  311.           OUT^OF^INPUT := FALSE;
  312. !         ! only for text files
  313. !        !SBUF[COUNT^READ] ':=' [CR,LF];
  314. !        !COUNT^READ := COUNT^READ + 2;
  315.           IN^COUNT := 0;
  316.       END;
  317.   
  318. ***************
  319. *** 1346,1352 ****
  320.               DONT^NAK := TRUE;
  321.           END;
  322.   !R!     CALL SEND^PROC;
  323. ! !G!     CALL GENERIC^PROC;
  324.   !C!     CALL COMMAND^PROC;
  325.   !NAK!   ;
  326.   !ACK!   ;
  327. --- 1396,1402 ----
  328.               DONT^NAK := TRUE;
  329.           END;
  330.   !R!     CALL SEND^PROC;
  331. ! !G!     DONT^NAK := GENERIC^PROC;
  332.   !C!     CALL COMMAND^PROC;
  333.   !NAK!   ;
  334.   !ACK!   ;
  335. ***************
  336. *** 1357,1359 ****
  337. --- 1407,1410 ----
  338.           CLOSE^FILE^D(FILE^FCB);
  339.       END; !FOREVER LOOP!
  340.   END;!MAIN!
  341.