int op_readfl(mval *v, int4 length, int4 timeout)
{
int4 stat; /* status */
size_t cnt, insize, outsize;
char *start_ptr, *save_ptr;
unsigned char *temp_ch;
error_def(ERR_TEXT);
error_def(ERR_RDFLTOOSHORT);
error_def(ERR_RDFLTOOLONG);
if (timeout < 0)
timeout = 0;
if (length <= 0)
rts_error(VARLSTCNT(1) ERR_RDFLTOOSHORT);
if (length > MAX_STRLEN)
rts_error(VARLSTCNT(1) ERR_RDFLTOOLONG);
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
if (stringpool.free + length + ESC_LEN > stringpool.top)
stp_gcol(length + ESC_LEN);
v->mvtype = MV_STR;
v->str.addr = (char *)stringpool.free;
v->str.len = 0;
active_device = io_curr_device.in;
stat = (io_curr_device.in->disp_ptr->readfl)(v, length, timeout);
stringpool.free += v->str.len;
assert((int4)v->str.len <= length);
assert(stringpool.free <= stringpool.top);
if (DEFAULT_CODE_SET != active_device->in_code_set)
{
cnt = insize = outsize = v->str.len;
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
if (cnt > stringpool.top - stringpool.free)
stp_gcol(cnt);
temp_ch = stringpool.free;
save_ptr = v->str.addr;
start_ptr = (char *)temp_ch;
stringpool.free += cnt;
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
ICONVERT(active_device->input_conv_cd, (unsigned char **)&(v->str.addr), &insize, &temp_ch, &outsize);
v->str.addr = start_ptr;
}
active_device = 0;
if (NO_M_TIMEOUT != timeout)
return (stat);
return FALSE;
}
int op_readfl(mval *v, int4 length, int4 timeout)
{
int4 stat; /* status */
size_t cnt, insize, outsize;
char *start_ptr, *save_ptr;
unsigned char *temp_ch;
int b_length;
if (timeout < 0)
timeout = 0;
/* Length is in units of characters, MAX_STRLEN and allocation unit in stp is bytes. Compute the worst case need in bytes.
* Worst case, every Unicode char is 4 bytes
*/
b_length = (!IS_UTF_CHSET(io_curr_device.in->ichset)) ? length : (length * 4);
if (0 >= length)
rts_error_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_RDFLTOOSHORT);
/* This check is more useful in "M" mode. For UTF-8 mode, checks have to be done while reading */
if (MAX_STRLEN < length)
rts_error_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_RDFLTOOLONG);
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
v->mvtype = MV_STR;
v->str.len = 0; /* Nothing kept from any old value */
ENSURE_STP_FREE_SPACE(b_length + ESC_LEN);
v->str.addr = (char *)stringpool.free;
active_device = io_curr_device.in;
stat = (io_curr_device.in->disp_ptr->readfl)(v, length, timeout);
if (IS_AT_END_OF_STRINGPOOL(v->str.addr, 0))
stringpool.free += v->str.len; /* see UNIX iott_readfl */
assert((int4)v->str.len <= b_length);
assert(stringpool.free <= stringpool.top);
# if defined(KEEP_zOS_EBCDIC) || defined(VMS)
if (DEFAULT_CODE_SET != active_device->in_code_set)
{
cnt = insize = outsize = v->str.len;
assert(stringpool.free >= stringpool.base);
ENSURE_STP_FREE_SPACE(cnt);
temp_ch = stringpool.free;
save_ptr = v->str.addr;
start_ptr = (char *)temp_ch;
stringpool.free += cnt;
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
ICONVERT(active_device->input_conv_cd, (unsigned char **)&(v->str.addr), &insize, &temp_ch, &outsize);
v->str.addr = start_ptr;
}
# endif
active_device = 0;
if (NO_M_TIMEOUT != timeout)
return (stat);
return FALSE;
}
void op_write(mval *v)
{
GBLREF spdesc stringpool;
size_t insize, outsize;
int cnt;
unsigned char *temp_ch;
char *start_ptr, *save_ptr;
MV_FORCE_STR(v);
active_device = io_curr_device.out;
#if defined(KEEP_zOS_EBCDIC) || defined(VMS)
if (DEFAULT_CODE_SET != active_device->out_code_set)
{
cnt = insize = outsize = v->str.len;
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
ENSURE_STP_FREE_SPACE(cnt);
temp_ch = stringpool.free;
save_ptr = v->str.addr;
start_ptr = (char *)temp_ch;
stringpool.free += cnt;
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
ICONVERT(active_device->output_conv_cd, (unsigned char **)&v->str.addr, &insize, &temp_ch, &outsize);
v->str.addr = start_ptr;
}
#endif
(io_curr_device.out->disp_ptr->write)(&v->str);
#if defined(KEEP_zOS_EBCDIC) || defined(VMS)
if (DEFAULT_CODE_SET != active_device->out_code_set)
v->str.addr = save_ptr;
#endif
active_device = 0;
return;
}
int op_read(mval *v, int4 timeout)
{
int stat;
mval val;
size_t cnt, insize, outsize;
unsigned char *temp_ch;
char *start_ptr, *save_ptr;
error_def(ERR_TEXT);
if (timeout < 0)
timeout = 0;
active_device = io_curr_device.in;
v->mvtype = MV_STR;
v->str.len = 0;
stat = (io_curr_device.in->disp_ptr->read)(v, timeout);
if (stringpool.free == (unsigned char *)v->str.addr)
stringpool.free += v->str.len; /* see UNIX iott_readfl */
assert(stringpool.free <= stringpool.top);
#ifdef KEEP_zOS_EBCDIC
if (DEFAULT_CODE_SET != io_curr_device.in->in_code_set)
{
cnt = insize = outsize = v->str.len;
assert(stringpool.free >= stringpool.base);
ENSURE_STP_FREE_SPACE(cnt);
temp_ch = stringpool.free;
save_ptr = v->str.addr;
start_ptr = (char *)temp_ch;
stringpool.free += cnt;
assert(stringpool.free >= stringpool.base);
assert(stringpool.free <= stringpool.top);
ICONVERT(io_curr_device.in->input_conv_cd, (unsigned char **)&v->str.addr, &insize, &temp_ch, &outsize);
v->str.addr = start_ptr;
}
#endif
active_device = 0;
if (NO_M_TIMEOUT != timeout)
return(stat);
return FALSE;
}
