home *** CD-ROM | disk | FTP | other *** search
- #include <extend.h>
- #include "../rlibc/rlibc.h"
-
- CLIPPER dfTimeOut ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=NUMERIC)
- {
- _retni(R4);
- return;
- }
- _retni(DFTimeOut(_parni(1)));
- }
-
- CLIPPER dfStart ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=NUMERIC )
- {
- _retni(R4);
- return;
- }
- _retni(DFStart(_parni(1)));
- }
-
- CLIPPER dfSetTTime ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetTTime(_parc(1)));
- }
-
- CLIPPER dfSetSym ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetSymbol(_parc(1)));
- }
-
- CLIPPER dfSetUserT ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetUserTime(_parc(1)));
- }
-
- CLIPPER dfSetCode ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER )
- {
- _retni(R4);
- return;
- }
- _retni(DFSetCode(_parc(1)));
- }
-
- CLIPPER dfSetHead ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetHeader(_parc(1)));
- }
-
- CLIPPER dfSetFoot ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetFooter(_parc(1)));
- }
-
- CLIPPER dfSetVatR ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetVatRates(_parc(1)));
- }
-
- CLIPPER dfSetVR2 ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetVatRates2(_parc(1)));
- }
-
- CLIPPER dfSetNIP( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetNIP(_parc(1)));
- }
-
- CLIPPER dfSetDate ( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetDate(_parc(1)));
- }
-
- CLIPPER dfSetTime( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetTime(_parc(1)));
- }
-
- CLIPPER dfSetOnLin( void )
- {
- if (PCOUNT<1)
- {
- _retni(R4);
- return;
- }
- if (_parinfo(1)!=CHARACTER)
- {
- _retni(R4);
- return;
- }
- _retni(DFSetOnLine(_parc(1)));
- }