home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / polskie / orhmet / dfdisk / rlibc / pobierz.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-13  |  5.8 KB  |  322 lines
  1. #include "rlibc.h"
  2. #include <string.h>
  3.  
  4.  
  5. int DFGetTOut ( void )
  6. {
  7.     return (get_timeout());
  8. }
  9.  
  10. int DFGetCode ( char *kod )
  11. {
  12.     int wynik;
  13.     char *bufor="  ";
  14.  
  15.     wynik=podaj_rozkaz("K3");
  16.     if (wynik!=I1)
  17.         return (wynik);
  18.     if (recvport(2, kod)==-1)
  19.         return (R0);
  20.     kod[2]=0;
  21.     if (recvport(2, bufor)==-1)
  22.         return (R0);
  23.     return (mk_translate(bufor));
  24. }
  25.  
  26. int DFGetVatRates ( char *vatrates )
  27. {
  28.     int wynik;
  29.     char *bufor="  ";
  30.  
  31.     wynik=podaj_rozkaz("D2");
  32.     if (wynik!=I1 )
  33.         return (wynik);
  34.     if (recvport(8, vatrates)==-1)
  35.         return (R0);
  36.     vatrates[8]=0;
  37.     if (recvport(2, bufor)==-1)
  38.         return (R0);
  39.     return (mk_translate(bufor));
  40. }
  41.  
  42. int DFGetVatRates2 ( char *vatrates )
  43. {
  44.     int wynik;
  45.     char *bufor="  ";
  46.  
  47.     wynik=podaj_rozkaz("D3");
  48.     if (wynik!=I1 )
  49.         return (wynik);
  50.     if (recvport(24, vatrates)==-1)
  51.         return (R0);
  52.     vatrates[24]=0;
  53.     if (recvport(2, bufor)==-1)
  54.         return (R0);
  55.     return (mk_translate(bufor));
  56. }
  57.  
  58. int DFTowarInfo ( char *nazwa, char *st )
  59. {
  60.     int wynik;
  61.     char *bufor="  ";
  62.  
  63.     wynik=podaj_rozkaz("L5");
  64.     if (wynik!=I1)
  65.         return (wynik);
  66.     if (sendport(18, nazwa)==-1)        
  67.         return (R0);    
  68.     if (recvport(2, bufor)==-1)
  69.         return (R0);
  70.     if (mk_translate(bufor)!= 1)
  71.         return (mk_translate(bufor));
  72.     if (recvport(5, st)==-1)
  73.         return (R0);
  74.     st[3]=0;
  75.     return(1);
  76. }
  77.  
  78.  
  79. int DFGetTTime ( char *tresc )
  80. {
  81.     int wynik;
  82.     char *bufor="  ";
  83.  
  84.     wynik=podaj_rozkaz("C2");
  85.     if (wynik!=I1)
  86.         return (wynik);
  87.     if (recvport(2, tresc)==-1)
  88.         return (R0);
  89.     tresc[2]=0;
  90.     if (recvport(2, bufor)==-1)
  91.         return (R0);
  92.     return (mk_translate(bufor));
  93. }
  94.  
  95. int DFGetSymbol ( char *symbol )
  96. {
  97.     int wynik;
  98.     char *bufor="  ";
  99.  
  100.     wynik=podaj_rozkaz("I2");
  101.     if (wynik!=I1)
  102.         return (wynik);
  103.     if (recvport(5, symbol)==-1)
  104.         return (R0);
  105.     symbol[5]=0;
  106.     if (recvport(2, bufor)==-1)
  107.         return (R0);
  108.     return (mk_translate(bufor));
  109. }
  110.  
  111. int DFGetHeader ( char *tresc )
  112. {
  113.     int wynik;
  114.     char *bufor="  ";
  115.  
  116.     wynik=podaj_rozkaz("N3");
  117.     if (wynik!=I1)
  118.         return (wynik);
  119.     if (recvport(144, tresc)==-1)
  120.         return (R0);
  121.     tresc[144]=0;
  122.     if (recvport(2, bufor)==-1)
  123.         return (R0);
  124.     return (mk_translate(bufor));
  125. }
  126.  
  127.  
  128.  
  129. int DFGetFooter ( char *tresc )
  130. {
  131.     int wynik;
  132.     char *bufor="  ";
  133.  
  134.     wynik=podaj_rozkaz("N4");
  135.     if (wynik!=I1)
  136.         return (wynik);
  137.     if (recvport(144, tresc)==-1)
  138.         return (R0);
  139.     tresc[144]=0;
  140.     if (recvport(2, bufor)==-1)
  141.         return (R0);
  142.     return (mk_translate(bufor));
  143. }
  144.  
  145.  
  146.  
  147. int DFGetTimDat ( char *data, char *czas )
  148. {
  149.     int wynik;
  150.     char *bufor="  ";
  151.  
  152.     wynik=podaj_rozkaz("U5");
  153.     if (wynik!=I1)
  154.         return (wynik);
  155.     if (recvport(6, data)==-1)
  156.         return (R0);
  157.     data[6]=0;
  158.     if (recvport(4, czas)==-1)
  159.         return (R0);
  160.     czas[4]=0;
  161.     if (recvport(2, bufor)==-1)
  162.         return (R0);
  163.     return (mk_translate(bufor));
  164. }
  165.  
  166. int DFGetSerwis ( char *stat )
  167. {
  168.     int wynik;
  169.     char *bufor="  ";
  170.  
  171.     wynik=podaj_rozkaz("I3");
  172.     if (wynik!=I1)
  173.         return (wynik);
  174.     if (recvport(2, stat)==-1)
  175.         return (R0);
  176.     stat[2]=0;
  177.     if (recvport(2, bufor)==-1)
  178.         return (R0);
  179.     return (mk_translate(bufor));
  180. }
  181.  
  182.  
  183. int DFGetTotal ( char *data, char *numrap, char *sprzedA, char *sprzedB,
  184.                  char *sprzedC, char *sprzedD, 
  185.                  char *sprzedE, char *sprzedF, char *sprzedZW,
  186.                  char *IlParFisk)
  187. {
  188.     int wynik;
  189.     char bufor[91];
  190.     char bufor1[3];
  191.  
  192.     if (strlen(data)<6 || strlen(numrap)<5 || strlen(sprzedA)<9 ||
  193.          strlen(sprzedB)<9 || strlen(sprzedC)<9 || strlen(sprzedD)<9 ||
  194.          strlen(sprzedE)<9 || strlen(sprzedF)<9 ||
  195.         strlen(sprzedZW)<9 || strlen(IlParFisk)<5 )
  196.         return (R4);
  197.  
  198.     wynik=podaj_rozkaz("T1");
  199.     if (wynik!=I1)
  200.         return (wynik);
  201.     if (recvport(79, bufor)==-1)
  202.         return (R0);
  203.     if (recvport(2, bufor1)==-1)
  204.         return (R0);
  205.  
  206.     memcpy( data, bufor, 6);
  207.     data[6]=0;
  208.     memcpy( numrap, &bufor[6], 5);
  209.     numrap[5]=0;
  210.     memcpy( sprzedA, &bufor[11], 9);
  211.     sprzedA[9]=0;
  212.     memcpy( sprzedB, &bufor[20], 9);
  213.     sprzedB[9]=0;
  214.     memcpy( sprzedC, &bufor[29], 9);
  215.     sprzedC[9]=0;
  216.     memcpy( sprzedD, &bufor[38], 9);
  217.     sprzedD[9]=0;
  218.     memcpy( sprzedE, &bufor[47], 9);
  219.     sprzedE[9]=0;
  220.     memcpy( sprzedF, &bufor[56], 9);
  221.     sprzedF[9]=0;
  222.     memcpy( sprzedZW, &bufor[65], 9);
  223.     sprzedA[9]=0;
  224.     memcpy( IlParFisk, &bufor[74], 5);
  225.     IlParFisk[5]=0;
  226.  
  227.     return (mk_translate(bufor1));
  228. }
  229.  
  230.  
  231. int DFGetNU_NIP ( char *nu, char *nip )
  232. {
  233.     int wynik;
  234.     char bufor[21];
  235.     char bufor1[3];
  236.  
  237.     if (strlen(nu)<10 || strlen(nip)<10 )
  238.         return (R4);
  239.  
  240.     wynik=podaj_rozkaz("B1");
  241.     if (wynik!=I1)
  242.         return (wynik);
  243.     if (recvport(20, bufor)==-1)
  244.         return (R0);
  245.     if (recvport(2, bufor1)==-1)
  246.         return (R0);
  247.  
  248.     memcpy( nu, bufor, 10);
  249.     nu[10]=0;
  250.     memcpy( nip, &bufor[10], 10);
  251.     nip[10]=0;
  252.  
  253.     return (mk_translate(bufor1));
  254. }
  255.  
  256. int DFGetNumRapDob ( char *data, char *numer )
  257. {
  258.     int wynik;
  259.     char bufor[14];
  260.     char bufor1[3];
  261.  
  262.     if (strlen(data)<6 || strlen(numer)<5 )
  263.         return (R4);
  264.  
  265.     wynik=podaj_rozkaz("B2");
  266.     if (wynik!=I1)
  267.         return (wynik);
  268.     if (recvport(11, bufor)==-1)
  269.         return (R0);
  270.     if (recvport(2, bufor1)==-1)
  271.         return (R0);
  272.  
  273.     memcpy( data, bufor, 6);
  274.     data[6]=0;
  275.     memcpy( numer, &bufor[6], 5);
  276.     numer[5]=0;
  277.  
  278.     return (mk_translate(bufor1));
  279. }
  280.  
  281. int DFGetIlZerRAM ( char *il_zer, char *il_zm )
  282. {
  283.     int wynik;
  284.     char bufor[6];
  285.     char bufor1[3];
  286.  
  287.     if (strlen(il_zer)<3 || strlen(il_zm)<2)
  288.         return (R4);
  289.  
  290.     wynik=podaj_rozkaz("B3");
  291.     if (wynik!=I1)
  292.         return (wynik);
  293.     if (recvport(5, bufor)==-1)
  294.         return (R0);
  295.     memcpy( il_zer, bufor, 3 );
  296.     il_zer[3] = 0;
  297.     memcpy( il_zm, &bufor[3], 2 );
  298.     il_zm[2] = 0;
  299.     if (recvport(2, bufor1)==-1)
  300.         return (R0);
  301.  
  302.     return (mk_translate(bufor1));
  303. }
  304.  
  305. int DFGetOnLine ( char *st )
  306. {
  307.     int wynik;
  308.     char bufor[3];
  309.  
  310.     if (strlen(st)<1)
  311.         return (R4);
  312.  
  313.     wynik=podaj_rozkaz("I4");
  314.     if (wynik!=I1)
  315.         return (wynik);
  316.     if (recvport(1, st)==-1)
  317.         return (R0);
  318.     if (recvport(2, bufor)==-1)
  319.         return (R0);
  320.  
  321.     return (mk_translate(bufor));
  322. }