VOID
s_break()
{
/* internal declarations */
i4 tok_type; /* next token type */
i4 rtn_char; /*
** dummy variable for s_g_skip()
** and real variable for
** s_g_ident().
*/
char *name; /* break name */
bool err;
char nrml_buf[(FE_MAXNAME + 1)];
/* start of routine */
if (St_b_given)
{
s_error(0x3A6, NONFATAL, NULL);
s_cmd_skip();
return;
}
St_b_given = TRUE;
save_em(); /* store aside the values of Command fields */
/* Initialize the fields in Command */
STcopy(NAM_BREAK, Ctype);
STcopy(ERx(" "), Csection);
STcopy(ERx(" "), Ccommand);
if (Cact_ren == NULL)
{
s_error(0x38A, FATAL, NULL);
}
Csequence = Cact_ren->ren_bcount;
err = FALSE;
while (!err)
{
tok_type = s_g_skip(TRUE, &rtn_char);
switch (tok_type)
{
case TK_ENDFILE:
case TK_PERIOD:
goto allexit;
case TK_COMMA:
break;
case TK_ALPHA:
case TK_QUOTE:
case TK_DOLLAR:
if (tok_type == TK_ALPHA)
{
name = s_g_ident(FALSE,&rtn_char,
FALSE);
if (rtn_char != UI_REG_ID)
{
s_error(0x39D,NONFATAL,
name,NULL);
s_cmd_skip();
err = TRUE;
break;
}
IIUGdbo_dlmBEobject(name,FALSE);
}
else if (tok_type == TK_QUOTE) /* Delim ID */
{
if (!St_xns_given)
{
s_error(0x39D,NONFATAL,
name,NULL);
s_cmd_skip();
err = TRUE;
break;
}
name = s_g_ident(FALSE,&rtn_char,
FALSE);
if (rtn_char != UI_DELIM_ID)
{
s_error(0x39D,NONFATAL,
name,NULL);
s_cmd_skip();
err = TRUE;
break;
}
_VOID_ IIUGdlm_ChkdlmBEobject(name,
&nrml_buf[0],
FALSE);
name = &nrml_buf[0];
}
else
{
name = s_g_name(FALSE);
IIUGdbo_dlmBEobject(name,FALSE);
}
if (s_sbr_find(name) != NULL)
{ /* already specified */
s_error(0x39E, NONFATAL, name, NULL);
s_cmd_skip();
err = TRUE;
break;
}
/* name not specified. Add it */
s_sbr_add(name);
STcopy(name,Cattid);
_VOID_ s_w_row();
break;
default:
s_error(0x39D, NONFATAL, NULL);
s_cmd_skip();
err = TRUE;
break;
}
}
allexit:
get_em();
}
VOID
s_out_set()
{
/* internal declarations */
char *name = NULL; /* hold name of table */
i4 rtn_char; /* dummy variable for sgskip */
/* start of routine */
if (Cact_ren == NULL)
{
s_error(906, FATAL, NULL);
}
if (St_o_given)
{ /* already specified */
s_error(922, NONFATAL, Cact_ren->ren_report, NULL);
}
save_em(); /* temp store of fields */
/* Set up fields in Command */
STcopy(NAM_OUTPUT,Ctype);
Csequence = 0;
STcopy(ERx(" "), Csection);
STcopy(ERx(" "), Cattid);
STcopy(ERx(" "), Ccommand);
switch(s_g_skip(TRUE, &rtn_char))
{
case(TK_ALPHA):
case(TK_NUMBER):
case(TK_DOLLAR):
/* should be ok */
name = s_g_token(FALSE);
break;
case(TK_QUOTE):
/* Keep the quotes #33314 */
name = s_g_string(FALSE, (i4) TK_QUOTE );
break;
case(TK_SQUOTE):
/* Keep the quotes #33314 */
name = s_g_string(FALSE, (i4) TK_SQUOTE );
break;
default:
s_error(912, NONFATAL, NULL);
break;
}
if (name != NULL)
{
STcopy(name,Ctext);
_VOID_ s_w_row();
}
get_em();
St_o_given = TRUE;
return;
}
