home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / p205_pcb.zip / ckop200.ini < prev    next >
Text File  |  1994-12-18  |  10KB  |  227 lines
  1. ; FILE P200.INI (CKOP200.INI)
  2. ;  Macros for invoking P version 2.xx from OS/2 C-Kermit.
  3. ;
  4. ; Jeffrey Altman, Altmania Productions and Seer Technologies, New York
  5. ;  <p00118@psilink.com>
  6. ;  September 6, 1994
  7. ;
  8. ; P is an external protocol package providing X-modem, Y-modem, Y-modem-G
  9. ; and Z-modem send and receive capabilities on OS/2 via Serial, IBM TCP/IP 2.0,
  10. ; and Named Pipe connections written by Jyrki Salmi <jytasa@jyu.fi>.
  11. ;
  12. ; The P protocol dynamic link library is freeware available from most major
  13. ; ftp sites (ftp-os2.nmsu.edu, ftp.cdrom.com), bulletin board services 
  14. ; and CompuServe (IBMCOM and OS2BVEN).  From the documentation:
  15. ;
  16. ;"3. Distribution policy
  17. ;
  18. ;    P.EXE - the front-end for the DLL is distributed as public
  19. ;    domain, which means that anyone can modify and recompile the
  20. ;    sources and do whatever they want with it. However, credits to
  21. ;    the original author (me) would be highly appreciated but not
  22. ;    required, if found so repugnant.
  23. ;
  24. ;    P.DLL - the transfer protocol engine is distributed as
  25. ;    freeware, which means that the author (me) wants to keep his
  26. ;    copyright to the program but gives everyone the right to use
  27. ;    and copy it freely, without of charge."
  28. ;
  29. ; P version 2.xx was designed with OS/2 C-Kermit in mind.  The following
  30. ; macro definitions provide X,Y, and Z modem file send and receive 
  31. ; capabilities on all connection types supported by OS/2 C-Kermit 5A(190)
  32. ; excluding NetBIOS and DECnet.  With C-Kermit versions prior to 5A(190)
  33. ; only asynchronous connections are supported.
  34. ;
  35. ; Commands:
  36. ;    sz/rz - send/receive with Zmodem
  37. ;    sy/ry - send/receive with Ymodem
  38. ;    sg/rg - send/receive with Ymodem-G
  39. ;    sx/rx - send/receive with Xmodem
  40. ;
  41. ; As of this writing, the current release of P is 2.03.
  42. ;
  43. ; WARNING:
  44. ;   It has been observed that P 2.00 through 2.03 only work on OS/2 systems
  45. ;   that have IBM TCP/IP 2.0 installed.  This should rectified in a
  46. ;   forthcoming release of P.  If when trying these commands on a TCP/IP
  47. ;   TELNET connection, you receive an error "cannot load SO32DLL" this means
  48. ;   that you are not using IBM TCP/IP version 2.0.  This file should need no
  49. ;   changes in order to work with future 2.xx releases of P.
  50. ;
  51. ; DISCLAIMER:
  52. ;   These macro definitions are included with C-Kermit as a convenience
  53. ;   to users of P 2.0x.  Columbia University is not a source for the P
  54. ;   software, nor does it support P in any way.
  55. ;
  56. echo Initializing X,Y,YG,Z-modem support using P version 2.xx... 
  57.  
  58. if < \v(version) 501190 goto asynconly
  59.  
  60. ; Send via Zmodem 
  61. define sz, -
  62.   if equal "\v(connection)" "serial" goto async, -
  63.   if equal "\v(connection)" "named_pipe" goto pipe, -
  64.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  65.   echo "sz not supported on \v(connection) connections.",-
  66.   end, -
  67.   :async, -
  68.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  69.        -filebuf 8192 -mileage -protocol zmodem -send \%1, end, -
  70.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  71.            -mileage -protocol zmodem -send \%1, end, -
  72.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  73.            -filebuf 32768 -mileage -protocol zmodem -send \%1, end
  74.  
  75. ; Receive via Zmodem
  76. define rz, -
  77.   if equal "\v(connection)" "serial" goto async, -
  78.   if equal "\v(connection)" "named_pipe" goto pipe, -
  79.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  80.   echo "rz not supported on \v(connection) connections.",-
  81.   end, -
  82.   :async, -
  83.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  84.        -commbufs 4096 -filebuf 8192 -mileage -protocol zmodem -receive, end, -
  85.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  86.            -mileage -protocol zmodem -receive, end, -
  87.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  88.            -filebuf 32768 -mileage -protocol zmodem -receive, end
  89.  
  90. ; Send via Ymodem-G
  91. define sg, - 
  92.   if equal "\v(connection)" "serial" goto async, -
  93.   if equal "\v(connection)" "named_pipe" goto pipe, -
  94.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  95.   echo "sy not supported on \v(connection) connections.",-
  96.   end, -
  97.   :async, -
  98.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  99.      -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -send \%1, end, -
  100.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  101.            -mileage -protocol ymodem-g -send \%1, end, -
  102.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  103.            -filebuf 32768 -mileage -protocol ymodem-g -send \%1, end
  104.  
  105. ; Receive via Ymodem-G
  106. define rg, -
  107.   if equal "\v(connection)" "serial" goto async, -
  108.   if equal "\v(connection)" "named_pipe" goto pipe, -
  109.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  110.   echo "ry not supported on \v(connection) connections.",-
  111.   end, -
  112.   :async, -
  113.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  114.      -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -receive, end, -
  115.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  116.            -mileage -protocol ymodem-g -receive, end, -
  117.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  118.            -filebuf 32768 -mileage -protocol ymodem-g -receive, end
  119.  
  120. ; Send via Ymodem
  121. define sy, - 
  122.   if equal "\v(connection)" "serial" goto async, -
  123.   if equal "\v(connection)" "named_pipe" goto pipe, -
  124.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  125.   echo "sy not supported on \v(connection) connections.",-
  126.   end, -
  127.   :async, -
  128.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  129.       -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -send \%1, end, -
  130.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  131.            -mileage -protocol ymodem -send \%1, end, -
  132.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  133.            -filebuf 32768 -mileage -protocol ymodem -send \%1, end
  134.  
  135. ; Receive via Ymodem
  136. define ry, -
  137.   if equal "\v(connection)" "serial" goto async, -
  138.   if equal "\v(connection)" "named_pipe" goto pipe, -
  139.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  140.   echo "ry not supported on \v(connection) connections.",-
  141.   end, -
  142.   :async, -
  143.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  144.       -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -receive, end, -
  145.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  146.            -mileage -protocol ymodem -receive, end, -
  147.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  148.            -filebuf 32768 -mileage -protocol ymodem -receive, end
  149.  
  150. ; Send via Xmodem
  151. define sx, -
  152.   if equal "\v(connection)" "serial" goto async, -
  153.   if equal "\v(connection)" "named_pipe" goto pipe, -
  154.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  155.   echo "sx not supported on \v(connection) connections.",-
  156.   end, -
  157.   :async, -
  158.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  159.       -filebuf 8192 -mileage -protocol xmodem -send \%1, end, -
  160.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  161.            -mileage -protocol xmodem -send \%1, end, -
  162.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  163.            -filebuf 32768 -mileage -protocol xmodem -send \%1, end
  164.  
  165. ; Receive via Xmodem
  166. define rx, -
  167.   if equal "\v(connection)" "serial" goto async, -
  168.   if equal "\v(connection)" "named_pipe" goto pipe, -
  169.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  170.   echo "rx not supported on \v(connection) connections.",-
  171.   end, -
  172.   :async, -
  173.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  174.       -filebuf 8192 -mileage -protocol xmodem -receive, end, -
  175.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  176.            -mileage -protocol xmodem -receive, end, -
  177.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  178.            -filebuf 32768 -mileage -protocol xmodem -receive, end
  179.  
  180. forward p200end
  181.  
  182. :asynconly ; support for async connections only when \v(connection) is 
  183.            ; not defined.
  184.  
  185. ; Send via Zmodem 
  186. define sz, -
  187.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  188.        -filebuf 8192 -mileage -protocol zmodem -send \%1, end, -
  189.  
  190. ; Receive via Zmodem
  191. define rz, -
  192.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  193.        -commbufs 4096 -filebuf 8192 -mileage -protocol zmodem -receive, end, -
  194.  
  195. ; Send via Ymodem-G
  196. define sg, - 
  197.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  198.      -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -send \%1, end, -
  199.  
  200. ; Receive via Ymodem-G
  201. define rg, -
  202.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  203.      -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -receive, end, -
  204.  
  205. ; Send via Ymodem
  206. define sy, - 
  207.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  208.       -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -send \%1, end, -
  209.  
  210. ; Receive via Ymodem
  211. define ry, -
  212.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  213.       -commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -receive, end, -
  214.  
  215. ; Send via Xmodem
  216. define sx, -
  217.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  218.       -filebuf 8192 -mileage -protocol xmodem -send \%1, end, -
  219.  
  220. ; Receive via Xmodem
  221. define rx, -
  222.     !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  223.       -filebuf 8192 -mileage -protocol xmodem -receive, end, -
  224.  
  225. :p200end
  226.  
  227.