Esempio n. 1
0
CLIPPER HB_UNDOC4()
{
   char szText[ 25 ];

   _retds( _pards( 1 ) );
   hb_strncpy( szText, _pards( -1 ), sizeof( szText ) - 1 );
   szText[ 3 ] = '1';
   _retds( szText );
}
Esempio n. 2
0
CLIPPER HB_DATE2()
{
   _retds( _pards( 1, 1 ) );
}
Esempio n. 3
0
CLIPPER HB_DATE1()
{
   _retds( _pards( 1 ) );
}
Esempio n. 4
0
CLIPPER HB_UNDOC13()
{
   _retds( _pards( 1 ) );
   _stords( "20010101", -1 );
}
Esempio n. 5
0
CLIPPER HB_STOD( void )
{
   /* The length check is a fix to avoid buggy behaviour of _retds() */
   _retds( ( ISCHAR( 1 ) && _parclen( 1 ) == 8 ) ? _parc( 1 ) : "        " );
}