1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
/*
O P T I N T S T . C
*/
#include "iccomp.h"
ESTRUC_ *optint_string(type, larg, rarg)
E_TYPE_
type;
ESTRUC_
*larg,
*rarg;
{
etoc(larg); /* argument to stack */
if
(
test_type(larg, e_str) /* left is string */
&&
!rarg->type /* right is zeroframe */
) /* -> P_CHECK implied */
{
rarg->type = e_int | e_const; /* indicate constant */
rarg->evalue = P_CHECK; /* indicate P_CHECK */
etoc(rarg); /* right arg now code */
catcode(larg, rarg); /* catenate code */
}
else if
(
test_type(larg, e_int) /* left is int: explicit check */
&&
test_type(rarg, e_str) /* right must be string */
)
{
etoc(rarg); /* right arg to code */
catcode(rarg, larg);
larg = rarg;
}
else
{
semantic(type_conflict, funstring[type]);
discard (rarg);
return (larg);
}
callrss(larg, type); /* call the function */
return (larg);
}
|
