data_readbyte.bas

/' read stmt for byte's '/

#include "fb.bi"

extern "C"
sub fb_DataReadByte FBCALL ( dst as byte ptr )
	FB_LOCK()

	if ( __fb_data_ptr <> NULL) then
		if( __fb_data_ptr->len = FB_DATATYPE_OFS ) then
			*dst = cast(size_t, __fb_data_ptr->ofs)
		elseif ( (__fb_data_ptr->len and FB_DATATYPE_WSTR) <> 0 ) then
			*dst = fb_WstrToInt( __fb_data_ptr->wstr, __fb_data_ptr->len and &h7FFF )
		else
			*dst = fb_hStr2Int( __fb_data_ptr->zstr, __fb_data_ptr->len )
		end if
	else
		/' no more DATA '/
		*dst = 0
	end if

	fb_DataNext( )

	FB_UNLOCK()
end sub
end extern