72 lines
2.1 KiB
C
72 lines
2.1 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2009 Fidelity Information Services, Inc *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
|
||
|
|
#include "errno.h"
|
||
|
|
#include "gtm_unistd.h"
|
||
|
|
|
||
|
|
#include "io_params.h"
|
||
|
|
#include "io.h"
|
||
|
|
#include "stringpool.h"
|
||
|
|
#include "gtmio.h"
|
||
|
|
|
||
|
|
#define DEF_NL_WIDTH 255
|
||
|
|
#define DEF_NL_LENGTH 66
|
||
|
|
|
||
|
|
LITREF unsigned char io_params_size[];
|
||
|
|
|
||
|
|
short ionl_open(io_log_name *dev_name, mval *pp, int fd, mval *mspace, int4 timeout)
|
||
|
|
{
|
||
|
|
unsigned char ch;
|
||
|
|
io_desc *d_in, *d_out, *ioptr;
|
||
|
|
int p_offset, status;
|
||
|
|
|
||
|
|
p_offset = 0;
|
||
|
|
/* If UNIX, then /dev/null was actually opened by io_open_try so we have to close it
|
||
|
|
since we don't use the device, we just simulate it by doing nothing on writes except
|
||
|
|
maintaining the appropriate pointers. We test for fd >= 0 since the less than zero
|
||
|
|
values mean no device was opened.
|
||
|
|
*/
|
||
|
|
UNIX_ONLY(
|
||
|
|
if (0 <= fd)
|
||
|
|
CLOSEFILE_RESET(fd, status); /* resets "fd" to FD_INVALID */
|
||
|
|
);
|
||
|
|
ioptr = dev_name->iod;
|
||
|
|
ioptr->state = dev_open;
|
||
|
|
d_in = ioptr->pair.in;
|
||
|
|
d_out = ioptr->pair.out;
|
||
|
|
ioptr->length = DEF_NL_LENGTH;
|
||
|
|
ioptr->width = DEF_NL_WIDTH;
|
||
|
|
ioptr->wrap = TRUE;
|
||
|
|
ioptr->dollar.za = 0;
|
||
|
|
ioptr->dollar.zeof = FALSE;
|
||
|
|
ioptr->dollar.x = 0;
|
||
|
|
ioptr->dollar.y = 0;
|
||
|
|
while (*(pp->str.addr + p_offset) != iop_eol)
|
||
|
|
{
|
||
|
|
if ((ch = *(pp->str.addr + p_offset++)) == iop_wrap)
|
||
|
|
d_out->wrap = TRUE;
|
||
|
|
if ((ch = *(pp->str.addr + p_offset++)) == iop_nowrap)
|
||
|
|
d_out->wrap = FALSE;
|
||
|
|
if ((ch = *(pp->str.addr + p_offset++)) == iop_exception)
|
||
|
|
{
|
||
|
|
ioptr->error_handler.len = *(pp->str.addr + p_offset);
|
||
|
|
ioptr->error_handler.addr = (char *)(pp->str.addr + p_offset + 1);
|
||
|
|
s2pool(&ioptr->error_handler);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
p_offset += ((IOP_VAR_SIZE == io_params_size[ch]) ?
|
||
|
|
(unsigned char)*(pp->str.addr + p_offset) + 1 : io_params_size[ch]);
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|