home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / orhmet / df1 / rlibc / pobierz.c < prev    next >
C/C++ Source or Header  |  1995-09-24  |  4KB  |  241 lines
  1. #include "rlibc.h"
  2. #include <string.h>
  3.  
  4.  
  5. int DFGetTOut ( void )
  6. {
  7.     return (get_timeout());
  8. }
  9.  
  10. int DFHardwareTest ( char *testno, char *status )
  11. {
  12.     int wynik;
  13.     char *bufor="  ";
  14.  
  15.     if (strlen(testno)!=2 )
  16.         return (R4);
  17.     wynik=podaj_rozkaz("T1");
  18.     if (wynik!=I1)
  19.         return (wynik);
  20.     if (sendport(2,testno)==-1)
  21.         return(R0);
  22.     while (1)
  23.         if (recvport(2,bufor)==-1)
  24.         {
  25.             if ( mk_kbhit() )
  26.                 return (R1);
  27.         }
  28.         else
  29.         {
  30.             if (recvport(6,status)==-1)
  31.                 return(R0);
  32.             return (mk_translate(bufor));
  33.         }
  34. }
  35.  
  36. int DFFiscalTest ( char *type, char *numer, char *bnumer, char *value )
  37. {
  38.     int wynik;
  39.     char *bufor="                             ";
  40.  
  41.     if (strlen(type)!=1 || strlen(numer)!=4 || strlen(bnumer)!=2 ||
  42.         strlen(value ) != 3 )
  43.         return (R4);
  44.     wynik=podaj_rozkaz("L2");
  45.     if (wynik!=I1)
  46.         return (wynik);
  47.     bufor[0] = 0;
  48.     strcat( bufor, type );
  49.     strcat( bufor, numer );
  50.     strcat( bufor, bnumer );
  51.     strcat( bufor, value );
  52.     if (sendport(10,bufor)==-1)
  53.         return(R0);
  54.     if (recvport(2,bufor)==-1)
  55.         return (R1);
  56.     bufor[2] = 0;
  57.     return (mk_translate(bufor));
  58. }
  59.  
  60. int DFGetFiscal ( char *type, char *numer, char *bnumer, char *value )
  61. {
  62.     int wynik;
  63.     char *bufor="                             ";
  64.  
  65.     if (strlen(type)!=1 || strlen(numer)!=4 || strlen(bnumer)!=2 )
  66.         return (R4);
  67.     wynik=podaj_rozkaz("L3");
  68.     if (wynik!=I1)
  69.         return (wynik);
  70.     bufor[0] = 0;
  71.     strcat( bufor, type );
  72.     strcat( bufor, numer );
  73.     strcat( bufor, bnumer );
  74.     if (sendport(7,bufor)==-1)
  75.         return(R0);
  76.     if (recvport(2,bufor)==-1)
  77.         return (R0);
  78.     if (recvport(3,value)==-1)
  79.         return(R0);
  80.     value[3] = 0;
  81.     bufor[2] = 0;
  82.     return (mk_translate(bufor));
  83. }
  84.  
  85.  
  86. int DFGetCode ( char *kod )
  87. {
  88.     int wynik;
  89.     char *bufor="  ";
  90.  
  91.     wynik=podaj_rozkaz("K3");
  92.     if (wynik!=I1)
  93.         return (wynik);
  94.     if (recvport(2, kod)==-1)
  95.         return (R0);
  96.     kod[2]=0;
  97.     if (recvport(2, bufor)==-1)
  98.         return (R0);
  99.     return (mk_translate(bufor));
  100. }
  101.  
  102. int DFGetVatRates ( char *vatrates )
  103. {
  104.     int wynik;
  105.     char *bufor="  ";
  106.  
  107.     wynik=podaj_rozkaz("D2");
  108.     if (wynik!=I1 )
  109.         return (wynik);
  110.     if (recvport(8, vatrates)==-1)
  111.         return (R0);
  112.     vatrates[8]=0;
  113.     if (recvport(2, bufor)==-1)
  114.         return (R0);
  115.     return (mk_translate(bufor));
  116. }
  117.  
  118. int DFTowarInfo ( char *nazwa, char *st )
  119. {
  120.     int wynik;
  121.     char *bufor="  ";
  122.  
  123.     wynik=podaj_rozkaz("L5");
  124.     if (wynik!=I1)
  125.         return (wynik);
  126.     if (sendport(18, nazwa)==-1)        
  127.         return (R0);    
  128.     if (recvport(2, bufor)==-1)
  129.         return (R0);
  130.     if (mk_translate(bufor)!= 1)
  131.         return (mk_translate(bufor));
  132.     if (recvport(5, st)==-1)
  133.         return (R0);
  134.     st[3]=0;
  135.     return(1);
  136. }
  137.  
  138.  
  139. int DFGetTTime ( char *tresc )
  140. {
  141.     int wynik;
  142.     char *bufor="  ";
  143.  
  144.     wynik=podaj_rozkaz("C2");
  145.     if (wynik!=I1)
  146.         return (wynik);
  147.     if (recvport(2, tresc)==-1)
  148.         return (R0);
  149.     tresc[2]=0;
  150.     if (recvport(2, bufor)==-1)
  151.         return (R0);
  152.     return (mk_translate(bufor));
  153. }
  154.  
  155. int DFGetSymbol ( char *symbol )
  156. {
  157.     int wynik;
  158.     char *bufor="  ";
  159.  
  160.     wynik=podaj_rozkaz("I2");
  161.     if (wynik!=I1)
  162.         return (wynik);
  163.     if (recvport(5, symbol)==-1)
  164.         return (R0);
  165.     symbol[5]=0;
  166.     if (recvport(2, bufor)==-1)
  167.         return (R0);
  168.     return (mk_translate(bufor));
  169. }
  170.  
  171. int DFGetHeader ( char *tresc )
  172. {
  173.     int wynik;
  174.     char *bufor="  ";
  175.  
  176.     wynik=podaj_rozkaz("N3");
  177.     if (wynik!=I1)
  178.         return (wynik);
  179.     if (recvport(144, tresc)==-1)
  180.         return (R0);
  181.     tresc[144]=0;
  182.     if (recvport(2, bufor)==-1)
  183.         return (R0);
  184.     return (mk_translate(bufor));
  185. }
  186.  
  187.  
  188.  
  189. int DFGetFooter ( char *tresc )
  190. {
  191.     int wynik;
  192.     char *bufor="  ";
  193.  
  194.     wynik=podaj_rozkaz("N4");
  195.     if (wynik!=I1)
  196.         return (wynik);
  197.     if (recvport(144, tresc)==-1)
  198.         return (R0);
  199.     tresc[144]=0;
  200.     if (recvport(2, bufor)==-1)
  201.         return (R0);
  202.     return (mk_translate(bufor));
  203. }
  204.  
  205.  
  206.  
  207. int DFGetTimDat ( char *data, char *czas )
  208. {
  209.     int wynik;
  210.     char *bufor="  ";
  211.  
  212.     wynik=podaj_rozkaz("U5");
  213.     if (wynik!=I1)
  214.         return (wynik);
  215.     if (recvport(6, data)==-1)
  216.         return (R0);
  217.     data[6]=0;
  218.     if (recvport(4, czas)==-1)
  219.         return (R0);
  220.     czas[4]=0;
  221.     if (recvport(2, bufor)==-1)
  222.         return (R0);
  223.     return (mk_translate(bufor));
  224. }
  225.  
  226. int DFGetSerwis ( char *stat )
  227. {
  228.     int wynik;
  229.     char *bufor="  ";
  230.  
  231.     wynik=podaj_rozkaz("I3");
  232.     if (wynik!=I1)
  233.         return (wynik);
  234.     if (recvport(2, stat)==-1)
  235.         return (R0);
  236.     stat[2]=0;
  237.     if (recvport(2, bufor)==-1)
  238.         return (R0);
  239.     return (mk_translate(bufor));
  240. }
  241.