home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / polskie / orhmet / dfdisk / clipface / sprzedaz.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-06  |  1.5 KB  |  108 lines
  1. #include <extend.h>
  2. #include "../rlibc/rlibc.h"
  3.  
  4. CLIPPER dfStartTra ( void )
  5. {
  6.     _retni(DFStartTran());
  7. }
  8.  
  9. CLIPPER dfSetInfo ( void )
  10. {
  11.     if (PCOUNT<1)
  12.     {
  13.         _retni(R4);
  14.         return;
  15.     }
  16.     if (_parinfo(1)!=CHARACTER)
  17.     {
  18.         _retni(R4);
  19.         return;
  20.     }
  21.     _retni(DFSetInfo(_parc(1)));
  22. }
  23.  
  24. CLIPPER dfAdd ( void )
  25. {
  26.     if (PCOUNT<5)
  27.     {
  28.         _retni(R4);
  29.         return;
  30.     }
  31.     if (_parinfo(1)!=CHARACTER || _parinfo(2)!=CHARACTER || 
  32.             _parinfo(3)!=CHARACTER || _parinfo(4)!=CHARACTER || _parinfo(4)!=CHARACTER )
  33.     {
  34.         _retni(R4);
  35.         return;
  36.     }
  37.     _retni(DFAdd(_parc(1), _parc(2), _parc(3), _parc(4), _parc(5) ));
  38. }
  39.  
  40. CLIPPER dfCancel ( void )
  41. {
  42.     _retni(DFCancel());
  43. }
  44.  
  45. CLIPPER dfCancelTr ( void )
  46. {
  47.     _retni(DFCancelTran());
  48. }
  49.  
  50. CLIPPER dfCross ( void )
  51. {
  52.     if (PCOUNT<1)
  53.     {
  54.         _retni(R4);
  55.         return;
  56.     }
  57.     if (_parinfo(1)!=CHARACTER)
  58.     {
  59.         _retni(R4);
  60.         return;
  61.     }
  62.     _retni(DFCross(_parc(1)));
  63. }
  64.  
  65. CLIPPER dfFinish ( void )
  66. {
  67.     int wynik;
  68.     char bufor[11];
  69.  
  70.     if (PCOUNT<1)
  71.     {
  72.         _retni(R4);
  73.         return;
  74.     }
  75.     wynik=DFFinish(bufor);
  76.     _storc(bufor, 1);
  77.     _retni(wynik);
  78. }
  79.  
  80. CLIPPER dfPrParf ( void )
  81. {
  82.     if (PCOUNT<3)
  83.     {
  84.         _retni(R4);
  85.         return;
  86.     }
  87.     if ((_parinfo(1)!=CHARACTER) || (_parinfo(2)!=CHARACTER) || (_parinfo(3)!=CHARACTER))
  88.     {
  89.         _retni(R4);
  90.         return;
  91.     }
  92.     _retni(DFPrParf(_parc(1),_parc(2),_parc(3)));
  93. }
  94.  
  95. CLIPPER dfPrPokw ( void )
  96. {
  97.     if (PCOUNT<2)
  98.     {
  99.         _retni(R4);
  100.         return;
  101.     }
  102.     if ((_parinfo(1)!=CHARACTER) || (_parinfo(2)!=CHARACTER))
  103.     {
  104.         _retni(R4);
  105.         return;
  106.     }
  107.     _retni(DFPrPokw(_parc(1),_parc(2)));
  108. }