home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / orhmet / df1 / rlibc / ustaw.c < prev    next >
C/C++ Source or Header  |  1996-02-28  |  4KB  |  227 lines
  1. #include "rlibc.h"
  2. #include <string.h>
  3.  
  4. char *rbasefilename=0L;
  5. char convtype[3]={'M','K','T'};        /*    (mazovia, kropka, tak)                */
  6.  
  7.  
  8. int DFTimeOut ( int timeout )
  9. {
  10.     if (timeout<1 || timeout>520)
  11.         return (R4);
  12.     set_timeout(timeout);
  13.     return (D1);
  14. }
  15.  
  16.  
  17.  
  18. int DFStart ( unsigned int port )
  19. {
  20.     return initport(port);
  21. }
  22.  
  23. int DFSetSymbol ( char *symbol )
  24. {
  25.     int wynik;
  26.     char *bufor="  ";
  27.  
  28.     if (strlen(symbol)!=5)
  29.         return (R4);
  30.     wynik=podaj_rozkaz("I1");            
  31.     if (wynik!=I1)
  32.         return (wynik);
  33.     if (sendport(5, symbol)==-1)        
  34.         return (R0);
  35.     if (recvport(2, bufor)==-1)
  36.         return (R0);
  37.     return (mk_translate(bufor));
  38. }
  39.  
  40. int DFSetUserTime ( char *st )
  41. {
  42.     int wynik;
  43.     char *bufor="  ";
  44.  
  45.     if (strlen(st)!=1)
  46.         return (R4);
  47.     wynik=podaj_rozkaz("K2");            
  48.     if (wynik!=I1)
  49.         return (wynik);
  50.     if (sendport(1, st)==-1)        
  51.         return (R0);
  52.     if (recvport(2, bufor)==-1)
  53.         return (R0);
  54.     return (mk_translate(bufor));
  55. }
  56.  
  57. int DFSetTTime ( char *czas )
  58. {
  59.     int wynik;
  60.     char *bufor="  ";
  61.  
  62.     if (strlen(czas)!=2)
  63.         return (R4);
  64.     wynik=podaj_rozkaz("C1");            
  65.     if (wynik!=I1)
  66.         return (wynik);
  67.     if (sendport(2, czas)==-1)        
  68.         return (R0);
  69.     if (recvport(2, bufor)==-1)
  70.         return (R0);
  71.     return (mk_translate(bufor));
  72. }
  73.  
  74.  
  75.  
  76. int DFSetCode ( char *kod )
  77. {
  78.     int wynik;
  79.     char *bufor="  ";
  80.  
  81.     if (strlen(kod)!=2)
  82.         return (R4);
  83.     wynik=podaj_rozkaz("K1");            
  84.     if (wynik!=I1)
  85.         return (wynik);
  86.     if (sendport(2, kod)==-1)        
  87.         return (R0);
  88.     if (recvport(2, bufor)==-1)
  89.         return (R0);
  90.     wynik=mk_translate(bufor);
  91.     if (wynik==D1)
  92.         memcpy(convtype, kod, 3);
  93.     return (wynik);
  94. }
  95.  
  96.  
  97.  
  98. int DFSetHeader ( char *tresc )
  99. {
  100.     int wynik;
  101.     char *bufor="  ";
  102.  
  103.     if (strlen(tresc)!=144)
  104.         return (R4);
  105.     wynik=podaj_rozkaz("N1");            
  106.     if (wynik!=I1)
  107.         return (wynik);
  108.     if (sendport(144, tresc)==-1)    
  109.         return (R0);
  110.     if (recvport(2, bufor)==-1)
  111.         return (R0);
  112.     return (mk_translate(bufor));
  113. }
  114.  
  115.  
  116.  
  117. int DFSetFooter ( char *tresc )
  118. {
  119.     int wynik;
  120.  
  121.     char *bufor="  ";
  122.     if (strlen(tresc)!=144)
  123.         return (R4);
  124.     wynik=podaj_rozkaz("N2");            
  125.     if (wynik!=I1)
  126.         return (wynik);
  127.     if (sendport(144, tresc)==-1)    
  128.         return (R0);
  129.     if (recvport(2, bufor)==-1)
  130.         return (R0);
  131.     return (mk_translate(bufor));
  132. }
  133.  
  134.  
  135.  
  136. int DFSetVatRates ( char *stawki )
  137. {
  138.     int wynik;
  139.     char *bufor="  ";
  140.  
  141.     if (strlen(stawki)!=8)
  142.         return (R4);
  143.     wynik=podaj_rozkaz("S1");            
  144.     if (wynik!=I1)
  145.         return (wynik);
  146.     if (sendport(8, stawki)==-1)    
  147.         return (R0);
  148.     if (recvport(2, bufor)==-1)
  149.         return (R0);
  150.     return (mk_translate(bufor));
  151. }
  152.  
  153.  
  154.  
  155. int DFSetUnique ( char *unikat )
  156. {
  157.     int wynik;
  158.     char *bufor="  ";
  159.  
  160.     if (strlen(unikat)!=28)
  161.         return (R4);
  162.     wynik=podaj_rozkaz("U1");            
  163.     if (wynik!=I1)
  164.         return (wynik);
  165.     if (sendport(28, unikat)==-1)    
  166.         return (R0);
  167.     if (recvport(2, bufor)==-1)
  168.         return (R0);
  169.     return (mk_translate(bufor));
  170. }
  171.  
  172.  
  173.  
  174. int DFSetNIP ( char *NIP )
  175. {
  176.     int wynik;
  177.     char *bufor="  ";
  178.  
  179.     if (strlen(NIP)!=10)
  180.         return (R4);
  181.     wynik=podaj_rozkaz("U2");            
  182.     if (wynik!=I1)
  183.         return (wynik);
  184.     if (sendport(10, NIP)==-1)    
  185.         return (R0);
  186.     if (recvport(2, bufor)==-1)
  187.         return (R0);
  188.     return (mk_translate(bufor));
  189. }
  190.  
  191.  
  192.  
  193. int DFSetDate ( char *data )
  194. {
  195.     int wynik;
  196.     char *bufor="  ";
  197.  
  198.     if (strlen(data)!=6)
  199.         return (R4);
  200.     wynik=podaj_rozkaz("U3");
  201.     if (wynik!=I1)
  202.         return (wynik);
  203.     if (sendport(6, data)==-1)
  204.         return (R0);
  205.     if (recvport(2, bufor)==-1)
  206.         return (R0);
  207.     return (mk_translate(bufor));
  208. }
  209.  
  210.  
  211.  
  212. int DFSetTime ( char *czas )
  213. {
  214.     int wynik;
  215.     char *bufor="  ";
  216.  
  217.     if (strlen(czas)!=4)
  218.         return (R4);
  219.     wynik=podaj_rozkaz("U4");
  220.     if (wynik!=I1)
  221.         return (wynik);
  222.     if (sendport(4, czas)==-1)
  223.         return (R0);
  224.     if (recvport(2, bufor)==-1)
  225.         return (R0);
  226.     return (mk_translate(bufor));
  227. }