home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / polskie / orhmet / dfdisk / clipface / raporty.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-04-18  |  834 b   |  58 lines
  1. #include <extend.h>
  2. #include "../rlibc/rlibc.h"
  3.  
  4. CLIPPER dfPrintPer ( void )
  5. {
  6.     if (PCOUNT<2)
  7.     {
  8.         _retni(R4);
  9.         return;
  10.     }
  11.     if (_parinfo(1)!=CHARACTER || _parinfo(2)!=CHARACTER)
  12.     {
  13.         _retni(R4);
  14.         return;
  15.     }
  16.     _retni(DFPrintPeriod(_parc(1), _parc(2)));
  17. }
  18.  
  19. CLIPPER dfSendPSt ( void )
  20. {
  21.     if (PCOUNT<2)
  22.     {
  23.         _retni(R4);
  24.         return;
  25.     }
  26.     if (_parinfo(1)!=CHARACTER || _parinfo(2)!=CHARACTER )
  27.     {
  28.         _retni(R4);
  29.         return;
  30.     }
  31.     _retni(DFSendPeriodStart(_parc(1), _parc(2) ));
  32. }
  33.  
  34. CLIPPER dfSendPCo ( void )
  35. {
  36.     char line[19];
  37.     int rvalue;
  38.  
  39.     if (PCOUNT<1)
  40.     {
  41.         _retni(R4);
  42.         return;
  43.     }
  44.     if (_parinfo(1)!=(MPTR|CHARACTER) )
  45.     {
  46.         _retni(R4);
  47.         return;
  48.     }
  49.  
  50.     rvalue = DFSendPeriodCont(line);
  51.     _storclen( line, 18, 1 );
  52.     _retni( rvalue );
  53. }
  54.  
  55. CLIPPER dfPrintDay ( void )
  56. {
  57.     _retni(DFPrintDay());
  58. }