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
|
/*
\funcref{fun\_atoi}{void fun\_atoi ()}
{}
{}
{discard()}
{fun\_atol(), etc.}
{funatoi.c}
{
This funtion converts the string variable which was last pushed to an
integer variable. The {\em type} field of the last used stack position
(this is {\em stack[sp]}) is set to {\em e\_int} and the {\em
vu.intval} field is assigned to hold the integer representation of the
{\em vu.str} field.
The string variable which occupied the stack is discarded.
}
*/
#include "icm-exec.h"
void fun_atoi ()
{
VAR_
tmp;
tmp = stack [sp];
stack [sp].type = e_int;
stack [sp].vu.intval = atoi (tmp.vu.i->ls.str);
discard (tmp);
}
|
