home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / polskie / orhmet / dfdisk / rlibc / ustaw.c < prev   
Encoding:
C/C++ Source or Header  |  1996-05-13  |  4.3 KB  |  261 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.     initport(port);
  21.     return (D1);
  22. }
  23.  
  24. int DFSetSymbol ( char *symbol )
  25. {
  26.     int wynik;
  27.     char *bufor="  ";
  28.  
  29.     if (strlen(symbol)!=5)
  30.         return (R4);
  31.     wynik=podaj_rozkaz("I1");            
  32.     if (wynik!=I1)
  33.         return (wynik);
  34.     if (sendport(5, symbol)==-1)        
  35.         return (R0);
  36.     if (recvport(2, bufor)==-1)
  37.         return (R0);
  38.     return (mk_translate(bufor));
  39. }
  40.  
  41. int DFSetUserTime ( char *st )
  42. {
  43.     int wynik;
  44.     char *bufor="  ";
  45.  
  46.     if (strlen(st)!=1)
  47.         return (R4);
  48.     wynik=podaj_rozkaz("K2");            
  49.     if (wynik!=I1)
  50.         return (wynik);
  51.     if (sendport(1, st)==-1)        
  52.         return (R0);
  53.     if (recvport(2, bufor)==-1)
  54.         return (R0);
  55.     return (mk_translate(bufor));
  56. }
  57.  
  58. int DFSetTTime ( char *czas )
  59. {
  60.     int wynik;
  61.     char *bufor="  ";
  62.  
  63.     if (strlen(czas)!=2)
  64.         return (R4);
  65.     wynik=podaj_rozkaz("C1");            
  66.     if (wynik!=I1)
  67.         return (wynik);
  68.     if (sendport(2, czas)==-1)        
  69.         return (R0);
  70.     if (recvport(2, bufor)==-1)
  71.         return (R0);
  72.     return (mk_translate(bufor));
  73. }
  74.  
  75.  
  76.  
  77. int DFSetCode ( char *kod )
  78. {
  79.     int wynik;
  80.     char *bufor="  ";
  81.  
  82.     if (strlen(kod)!=2)
  83.         return (R4);
  84.     wynik=podaj_rozkaz("K1");            
  85.     if (wynik!=I1)
  86.         return (wynik);
  87.     if (sendport(2, kod)==-1)        
  88.         return (R0);
  89.     if (recvport(2, bufor)==-1)
  90.         return (R0);
  91.     wynik=mk_translate(bufor);
  92.     if (wynik==D1)
  93.         memcpy(convtype, kod, 3);
  94.     return (wynik);
  95. }
  96.  
  97.  
  98.  
  99. int DFSetHeader ( char *tresc )
  100. {
  101.     int wynik;
  102.     char *bufor="  ";
  103.  
  104.     if (strlen(tresc)!=144)
  105.         return (R4);
  106.     wynik=podaj_rozkaz("N1");            
  107.     if (wynik!=I1)
  108.         return (wynik);
  109.     if (sendport(144, tresc)==-1)    
  110.         return (R0);
  111.     if (recvport(2, bufor)==-1)
  112.         return (R0);
  113.     return (mk_translate(bufor));
  114. }
  115.  
  116.  
  117.  
  118. int DFSetFooter ( char *tresc )
  119. {
  120.     int wynik;
  121.  
  122.     char *bufor="  ";
  123.     if (strlen(tresc)!=144)
  124.         return (R4);
  125.     wynik=podaj_rozkaz("N2");            
  126.     if (wynik!=I1)
  127.         return (wynik);
  128.     if (sendport(144, tresc)==-1)    
  129.         return (R0);
  130.     if (recvport(2, bufor)==-1)
  131.         return (R0);
  132.     return (mk_translate(bufor));
  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. int DFSetVatRates2 ( char *stawki )
  154. {
  155.     int wynik;
  156.     char *bufor="  ";
  157.  
  158.     if (strlen(stawki)!=24)
  159.         return (R4);
  160.     wynik=podaj_rozkaz("S2");            
  161.     if (wynik!=I1)
  162.         return (wynik);
  163.     if (sendport(24, stawki)==-1)    
  164.         return (R0);
  165.     if (recvport(2, bufor)==-1)
  166.         return (R0);
  167.     return (mk_translate(bufor));
  168. }
  169.  
  170.  
  171.  
  172. int DFSetUnique ( char *unikat )
  173. {
  174.     int wynik;
  175.     char *bufor="  ";
  176.  
  177.     if (strlen(unikat)!=28)
  178.         return (R4);
  179.     wynik=podaj_rozkaz("U1");            
  180.     if (wynik!=I1)
  181.         return (wynik);
  182.     if (sendport(28, unikat)==-1)    
  183.         return (R0);
  184.     if (recvport(2, bufor)==-1)
  185.         return (R0);
  186.     return (mk_translate(bufor));
  187. }
  188.  
  189.  
  190.  
  191. int DFSetNIP ( char *NIP )
  192. {
  193.     int wynik;
  194.     char *bufor="  ";
  195.  
  196.     if (strlen(NIP)!=10)
  197.         return (R4);
  198.     wynik=podaj_rozkaz("U2");            
  199.     if (wynik!=I1)
  200.         return (wynik);
  201.     if (sendport(10, NIP)==-1)    
  202.         return (R0);
  203.     if (recvport(2, bufor)==-1)
  204.         return (R0);
  205.     return (mk_translate(bufor));
  206. }
  207.  
  208.  
  209.  
  210. int DFSetDate ( char *data )
  211. {
  212.     int wynik;
  213.     char *bufor="  ";
  214.  
  215.     if (strlen(data)!=6)
  216.         return (R4);
  217.     wynik=podaj_rozkaz("U3");
  218.     if (wynik!=I1)
  219.         return (wynik);
  220.     if (sendport(6, data)==-1)
  221.         return (R0);
  222.     if (recvport(2, bufor)==-1)
  223.         return (R0);
  224.     return (mk_translate(bufor));
  225. }
  226.  
  227.  
  228.  
  229. int DFSetTime ( char *czas )
  230. {
  231.     int wynik;
  232.     char *bufor="  ";
  233.  
  234.     if (strlen(czas)!=4)
  235.         return (R4);
  236.     wynik=podaj_rozkaz("U4");
  237.     if (wynik!=I1)
  238.         return (wynik);
  239.     if (sendport(4, czas)==-1)
  240.         return (R0);
  241.     if (recvport(2, bufor)==-1)
  242.         return (R0);
  243.     return (mk_translate(bufor));
  244. }
  245.  
  246. int DFSetOnLine ( char *st )
  247. {
  248.     int wynik;
  249.     char *bufor="  ";
  250.  
  251.     if (strlen(st)!=1)
  252.         return (R4);
  253.     wynik=podaj_rozkaz("K4");
  254.     if (wynik!=I1)
  255.         return (wynik);
  256.     if (sendport(1, st)==-1)
  257.         return (R0);
  258.     if (recvport(2, bufor)==-1)
  259.         return (R0);
  260.     return (mk_translate(bufor));
  261. }