FreeBASIC
0.91.0
Main Page
Data Structures
Files
File List
Globals
data_readbyte.c
Go to the documentation of this file.
1
/* read stmt for byte's */
2
3
#include "
fb.h
"
4
5
FBCALL
void
fb_DataReadByte
(
char
*dst )
6
{
7
FB_LOCK
();
8
9
if
(
__fb_data_ptr
) {
10
if
(
__fb_data_ptr
->
len
==
FB_DATATYPE_OFS
) {
11
*dst = (size_t)
__fb_data_ptr
->
ofs
;
12
}
else
if
(
__fb_data_ptr
->
len
&
FB_DATATYPE_WSTR
) {
13
*dst =
fb_WstrToInt
(
__fb_data_ptr
->
wstr
,
__fb_data_ptr
->
len
& 0x7FFF );
14
}
else
{
15
*dst =
fb_hStr2Int
(
__fb_data_ptr
->
zstr
,
__fb_data_ptr
->
len
);
16
}
17
}
else
{
18
/* no more DATA */
19
*dst = 0;
20
}
21
22
fb_DataNext
( );
23
24
FB_UNLOCK
();
25
}
rtlib
data_readbyte.c
Generated on Thu Jan 23 2014 19:40:07 for FreeBASIC by
1.8.4