static char * hb_mlGetParams( int iParAdd, ULONG * pulLen, ULONG * pulLineLength, ULONG * pulTabSize, BOOL * pfWordWrap, PHB_EOL_INFO * pEOLs, int * piEOLs ) { char * pszString = hb_parc( 1 ); if( pszString ) { if( ISNUM( 2 ) ) { if( hb_parnd( 2 ) <= 0 ) return NULL; * pulLineLength = hb_parnl( 2 ); } else * pulLineLength = 79; * pulLen = hb_parclen( 1 ); * pulTabSize = ISNUM( 3 + iParAdd ) ? hb_parnl( 3 + iParAdd ) : 4; * pfWordWrap = ISLOG( 4 + iParAdd ) ? hb_parl( 4 + iParAdd ) : TRUE; * pEOLs = hb_mlGetEOLs( 5 + iParAdd, piEOLs ); #ifdef HB_C52_STRICT if( * pulLineLength > 254 ) * pulLineLength = 79; #endif if( * pulTabSize >= * pulLineLength ) * pulTabSize = * pulLineLength - 1; else if( * pulTabSize == 0 ) * pulTabSize = 1; } return pszString; }
static double s_fileDirSpace( PHB_FILE_FUNCS pFuncs, const char * pszDirName, HB_USHORT uiType ) { PHB_IOUSR pIO = ( PHB_IOUSR ) pFuncs; s_pushMethod( pIO, IOUSR_DIRSPACE ); hb_vmPushString( pszDirName, strlen( pszDirName ) ); hb_vmPushInteger( uiType ); hb_vmDo( 2 ); return hb_parnd( -1 ); }
if( xConvert.value != 0 ) { iExponent = ( int ) ( xConvert.string[ 7 ] & 0x07F ); iExponent = iExponent << 4; iExponent += ( int ) ( ( xConvert.string[ 6 ] & 0xF0 ) >> 4 ); iExponent -= 1023; } hb_retni( iExponent ); #else int iExponent = 0; double dValue; dValue = hb_parnd( 1 ); if( dValue == 0.0 ) { hb_retni( 0 ); return; } if( fabs( dValue ) < 1.0 ) { while( fabs( dValue ) < 1.0 ) { dValue *= 2.0; iExponent--; } }