home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / polskie / orhmet / dfdisk / clipface / ustaw.c < prev   
Encoding:
C/C++ Source or Header  |  1996-05-13  |  2.5 KB  |  213 lines
  1. #include <extend.h>
  2. #include "../rlibc/rlibc.h"
  3.  
  4. CLIPPER dfTimeOut ( void )
  5. {
  6.     if (PCOUNT<1)
  7.     {
  8.         _retni(R4);
  9.         return;
  10.     }
  11.     if (_parinfo(1)!=NUMERIC)
  12.     {
  13.         _retni(R4);
  14.         return;
  15.     }
  16.     _retni(DFTimeOut(_parni(1)));
  17. }
  18.  
  19. CLIPPER dfStart ( void )
  20. {
  21.     if (PCOUNT<1)
  22.     {
  23.         _retni(R4);
  24.         return;
  25.     }
  26.     if (_parinfo(1)!=NUMERIC )
  27.     {
  28.         _retni(R4);
  29.         return;
  30.     }
  31.     _retni(DFStart(_parni(1)));
  32. }
  33.  
  34. CLIPPER dfSetTTime ( void )
  35. {
  36.     if (PCOUNT<1)
  37.     {
  38.         _retni(R4);
  39.         return;
  40.     }
  41.     if (_parinfo(1)!=CHARACTER)
  42.     {
  43.         _retni(R4);
  44.         return;
  45.     }
  46.     _retni(DFSetTTime(_parc(1)));
  47. }
  48.  
  49. CLIPPER dfSetSym ( void )
  50. {
  51.     if (PCOUNT<1)
  52.     {
  53.         _retni(R4);
  54.         return;
  55.     }
  56.     if (_parinfo(1)!=CHARACTER)
  57.     {
  58.         _retni(R4);
  59.         return;
  60.     }
  61.     _retni(DFSetSymbol(_parc(1)));
  62. }
  63.  
  64. CLIPPER dfSetUserT ( void )
  65. {
  66.     if (PCOUNT<1)
  67.     {
  68.         _retni(R4);
  69.         return;
  70.     }
  71.     if (_parinfo(1)!=CHARACTER)
  72.     {
  73.         _retni(R4);
  74.         return;
  75.     }
  76.     _retni(DFSetUserTime(_parc(1)));
  77. }
  78.  
  79. CLIPPER dfSetCode ( void )
  80. {
  81.     if (PCOUNT<1)
  82.     {
  83.         _retni(R4);
  84.         return;
  85.     }
  86.     if (_parinfo(1)!=CHARACTER )
  87.     {
  88.         _retni(R4);
  89.         return;
  90.     }
  91.     _retni(DFSetCode(_parc(1)));
  92. }
  93.  
  94. CLIPPER dfSetHead ( void )
  95. {
  96.     if (PCOUNT<1)
  97.     {
  98.         _retni(R4);
  99.         return;
  100.     }
  101.     if (_parinfo(1)!=CHARACTER)
  102.     {
  103.         _retni(R4);
  104.         return;
  105.     }
  106.     _retni(DFSetHeader(_parc(1)));
  107. }
  108.  
  109. CLIPPER dfSetFoot ( void )
  110. {
  111.     if (PCOUNT<1)
  112.     {
  113.         _retni(R4);
  114.         return;
  115.     }
  116.     if (_parinfo(1)!=CHARACTER)
  117.     {
  118.         _retni(R4);
  119.         return;
  120.     }
  121.     _retni(DFSetFooter(_parc(1)));
  122. }
  123.  
  124. CLIPPER dfSetVatR ( void )
  125. {
  126.     if (PCOUNT<1)
  127.     {
  128.         _retni(R4);
  129.         return;
  130.     }
  131.     if (_parinfo(1)!=CHARACTER)
  132.     {
  133.         _retni(R4);
  134.         return;
  135.     }
  136.     _retni(DFSetVatRates(_parc(1)));
  137. }
  138.  
  139. CLIPPER dfSetVR2 ( void )
  140. {
  141.     if (PCOUNT<1)
  142.     {
  143.         _retni(R4);
  144.         return;
  145.     }
  146.     if (_parinfo(1)!=CHARACTER)
  147.     {
  148.         _retni(R4);
  149.         return;
  150.     }
  151.     _retni(DFSetVatRates2(_parc(1)));
  152. }
  153.  
  154. CLIPPER dfSetNIP( void )
  155. {
  156.     if (PCOUNT<1)
  157.     {
  158.         _retni(R4);
  159.         return;
  160.     }
  161.     if (_parinfo(1)!=CHARACTER)
  162.     {
  163.         _retni(R4);
  164.         return;
  165.     }
  166.     _retni(DFSetNIP(_parc(1)));
  167. }
  168.  
  169. CLIPPER dfSetDate ( void )
  170. {
  171.     if (PCOUNT<1)
  172.     {
  173.         _retni(R4);
  174.         return;
  175.     }
  176.     if (_parinfo(1)!=CHARACTER)
  177.     {
  178.         _retni(R4);
  179.         return;
  180.     }
  181.     _retni(DFSetDate(_parc(1)));
  182. }
  183.  
  184. CLIPPER dfSetTime( void )
  185. {
  186.     if (PCOUNT<1)
  187.     {
  188.         _retni(R4);
  189.         return;
  190.     }
  191.     if (_parinfo(1)!=CHARACTER)
  192.     {
  193.         _retni(R4);
  194.         return;
  195.     }
  196.     _retni(DFSetTime(_parc(1)));
  197. }
  198.  
  199. CLIPPER dfSetOnLin( void )
  200. {
  201.     if (PCOUNT<1)
  202.     {
  203.         _retni(R4);
  204.         return;
  205.     }
  206.     if (_parinfo(1)!=CHARACTER)
  207.     {
  208.         _retni(R4);
  209.         return;
  210.     }
  211.     _retni(DFSetOnLine(_parc(1)));
  212. }
  213.