/*:::::*/ FBCALL int fb_InputByte( char *dst ) { char buffer[FB_INPUT_MAXNUMERICLEN+1]; int len, isfp; len = fb_FileInputNextToken( buffer, FB_INPUT_MAXNUMERICLEN, FB_FALSE, &isfp ); if( isfp == FALSE ) *dst = (char)fb_hStr2Int( buffer, len ); else *dst = (char)rint( fb_hStr2Double( buffer, len ) ); return fb_ErrorSetNum( FB_RTERROR_OK ); }
FBCALL void fb_DataReadSingle( float *dst ) { FB_LOCK(); if( __fb_data_ptr ) { if( __fb_data_ptr->len == FB_DATATYPE_OFS ) { *dst = (size_t)__fb_data_ptr->ofs; } else if( __fb_data_ptr->len & FB_DATATYPE_WSTR ) { *dst = fb_WstrToDouble( __fb_data_ptr->wstr, __fb_data_ptr->len & 0x7FFF ); } else { *dst = fb_hStr2Double( __fb_data_ptr->zstr, __fb_data_ptr->len ); } } else { /* no more DATA */ *dst = 0.0; } fb_DataNext( ); FB_UNLOCK(); }
/*:::::*/ FBCALL void fb_DataReadSingle( float *dst ) { short len; FB_LOCK(); len = fb_DataGetLen(); if( len == 0 ) *dst = 0.0; else if( len == FB_DATATYPE_OFS ) *dst = (float)(unsigned long)__fb_data_ptr->ofs; /* wstring? */ else if( len & FB_DATATYPE_WSTR ) *dst = (float)fb_WstrToDouble( __fb_data_ptr->wstr, len & 0x7FFF ); else *dst = (float)fb_hStr2Double( __fb_data_ptr->zstr, len ); if( __fb_data_ptr != NULL ) ++__fb_data_ptr; FB_UNLOCK(); }