FreeBASIC
0.91.0
Main Page
Data Structures
Files
File List
Globals
data_readwstr.c
Go to the documentation of this file.
1
/* read stmt for wstring's */
2
3
#include "
fb.h
"
4
5
FBCALL
void
fb_DataReadWstr
(
FB_WCHAR
*dst, ssize_t dst_size )
6
{
7
FB_LOCK
();
8
9
if
(
__fb_data_ptr
) {
10
if
(
__fb_data_ptr
->
len
==
FB_DATATYPE_OFS
) {
11
/* !!!WRITEME!!! */
12
}
else
if
(
__fb_data_ptr
->
len
&
FB_DATATYPE_WSTR
) {
13
fb_WstrAssign
( dst, dst_size,
__fb_data_ptr
->
wstr
);
14
}
else
{
15
fb_WstrAssignFromA
( dst, dst_size,
__fb_data_ptr
->
zstr
,
__fb_data_ptr
->
len
);
16
}
17
}
else
{
18
/* no more DATA, return empty string */
19
fb_WstrAssign
( dst, dst_size,
_LC
(
""
) );
20
}
21
22
fb_DataNext
( );
23
24
FB_UNLOCK
();
25
}
rtlib
data_readwstr.c
Generated on Thu Jan 23 2014 19:40:07 for FreeBASIC by
1.8.4