SemVal *p_execute(SemVal *arr)
{
register size_t count;
SemVal
tmp,
*argp, /* pointer to args */
e;
count = arr->type; /* get argument count */
if (count < 6) /* to few arguments */
{
util_semantic(gp_illegalArgCount, "execute");
return (arr); /* dummy args return */
}
argp = codestruc(arr, 0); /* point to first arg */
e = *(argp + 2); /* cmd head info at e */
p_callRss(&e, f_cmd_head); /* code for cmd_head at e */
p_callRss(argp + 3, f_arg_head); /* code for arg_head */
p_catCode(&e, argp + 3); /* code appended to e*/
p_callRss(&argp[count - 2], f_arg_tail); /* code for arg_tail */
p_catCode(&e, &argp[count - 2]); /* code appended to e*/
p_callRss(&argp[count - 1], f_cmd_tail); /* code for cmd_tail */
p_catCode(&e, &argp[count - 1]); /* code appended to e*/
/* keep variable # of args */
memmove(argp + 2, argp + 4, (count - 2) * sizeof(SemVal));
arr->type -= 4; /* remove 4 arguments */
p_catCode(&e, p_specials(f_exec, arr)); /* catenate call-code */
free(gp_stringbuf); /* make sure empty string */
gp_stringbuf = rss_strdup(""); /* is pushed */
tmp = *p_stackFrame(e_str | e_const); /* empty string argument */
p_expr2stack(&tmp);
p_catCode(&e, &tmp); /* empty string on the stack */
p_generateCode(&e, op_call_rss, f_cmd_tail); /* used with cmd_tail..cmd_head */
p_generateCode(&e, op_call_rss, f_arg_tail);
p_generateCode(&e, op_call_rss, f_arg_head);
p_callRss(&e, f_cmd_head);
*arr = e;
return arr;
}
SemVal *p_indexOp(SemVal *larg, SemVal *rarg)
{
register int ok;
ExprType type = f_element;
SemVal *tmp;
p_expr2stack(larg); /* arg to stack */
p_expr2stack(rarg); /* arg to stack */
/* This follows the code of `p_twoArgs.c' to compute a list/string */
/* element */
/* first arg must be int */
if (!test_type(larg, e_int)) /* first expression is no int */
{
tmp = larg; /* then swap */
larg = rarg;
rarg = tmp;
}
if ( (ok = test_type(larg, e_int)) ) /* right arg must be int */
{ /* second arg == list: ok */
if (!(ok = test_type(rarg, e_list)))
{ /* second arg == string: ok */
ok = test_type(rarg, e_str);
type = f_str_el; /* string element requested */
}
}
if (ok)
{
p_catCode(rarg, larg); /* make one code vector */
p_callRss(rarg, type);
}
else
{
util_semantic(gp_typeConflict, gp_funstring[type]);
p_discard(larg);
}
return (rarg);
}
SemVal *p_oneArg(ExprType type, SemVal *arg)
{
msg("calling function 0x%x", type);
register int ok;
p_expr2stack(arg); /* arg to stack */
switch ((FunNr)type)
{
case f_ascii_int:
if ( (ok = test_type(arg, e_str | e_int)) )
{
if (test_type(arg, e_int)) /* int received */
type = f_ascii_str; /* string returned */
}
break;
case f_listlen:
if (strcmp(scanner_savedText(), "listlen") != 0)
rss_warning(util_sourceName(),
scanner_savedLineNr(),
"`%s' is deprecated. Use `listlen'\n",
scanner_savedText());
ok = test_type(arg, e_list);
break;
case f_echo:
ok = test_type(arg, e_int);
break;
default:
/*
case f_backtick:
case f_getenv:
case f_putenv:
case f_eval:
case f_exists:
case f_cmd_head:
case f_cmd_tail:
case f_arg_head:
case f_arg_tail:
case f_g_path:
case f_g_base:
case f_g_ext:
case f_strlen:
case f_strlwr:
case f_strupr:
case f_trim:
case f_trimright:
case f_trimleft:
*/
ok = test_type(arg, e_str);
}
if (ok)
p_callRss(arg, type);
else
util_semantic(gp_typeConflict, gp_funstring[type]);
return (arg);
}
SemVal *p_twoArgs(ExprType type, SemVal *larg, SemVal *rarg)
{
register int ok;
msg("start");
p_expr2stack(larg); /* arg to stack */
p_expr2stack(rarg); /* arg to stack */
switch ((FunNr)type)
{
case f_fgets:
ok = test_type(larg, e_str) && test_type(rarg, e_list);
break;
case f_element: /* f_element */
/* first arg must be int */
if ( (ok = test_type(larg, e_int)) )
{ /* second arg == list: ok */
if (!(ok = test_type(rarg, e_list)))
{ /* second arg == string: ok */
ok = test_type(rarg, e_str);
type = f_str_el; /* string element requested */
}
}
break;
case f_resize:
ok = test_type(larg, e_str) && test_type(rarg, e_int);
break;
case f_listfind:
ok = test_type(larg, e_list) && test_type(rarg, e_str);
break;
case f_listunion:
ok = test_type(larg, e_list) && test_type(rarg, e_str | e_list);
break;
default:
/*
case f_strchr:
case f_strtok:
case f_c_ext:
case f_c_base:
case f_c_path:
case f_strfind:
*/
ok = larg->type & rarg->type & e_str;
}
msg("types test %d, funstring: %x", ok, type);
if (ok)
{
p_catCode(rarg, larg); /* make one code vector */
p_callRss(rarg, type);
}
else
{
util_semantic(gp_typeConflict, gp_funstring[type]);
p_discard(larg);
rarg = p_stackFrame(e_null);
}
msg("leaving");
return rarg;
}
