62 lines
1.3 KiB
C
62 lines
1.3 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2002 Sanchez Computer Associates, 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 "gtm_string.h"
|
|
|
|
#include "io.h"
|
|
#include "gtm_logicals.h"
|
|
|
|
#include "gtm_unistd.h"
|
|
|
|
GBLDEF mstr sys_input;
|
|
GBLDEF mstr sys_output;
|
|
GBLDEF mstr gtm_principal;
|
|
|
|
void io_init_name(void)
|
|
{
|
|
char *temp, *c;
|
|
short i;
|
|
|
|
if (isatty(0))
|
|
{
|
|
temp = TTYNAME(0);
|
|
for(i = 1, c = temp; *c != '\0'; i++)
|
|
c++;
|
|
sys_input.addr = (char*) malloc(i);
|
|
memcpy(sys_input.addr,temp, i);
|
|
sys_input.len = i - 1;
|
|
}
|
|
else
|
|
{
|
|
sys_input.addr = "0";
|
|
sys_input.len = 1;
|
|
}
|
|
if (isatty(1))
|
|
{
|
|
temp = TTYNAME(1);
|
|
for(i = 1, c = temp; *c != '\0'; i++)
|
|
c++;
|
|
sys_output.addr = (char *)malloc(i);
|
|
memcpy(sys_output.addr,temp, i);
|
|
sys_output.len = i - 1;
|
|
} else
|
|
{
|
|
sys_output.addr = "&";
|
|
sys_output.len = 1;
|
|
}
|
|
gtm_principal.addr = GTM_PRINCIPAL;
|
|
gtm_principal.len = STR_LIT_LEN(GTM_PRINCIPAL);
|
|
return;
|
|
}
|
|
|