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
|
/*
\fucref{fun\_element}{void fun\_element ()}
{}
{}
{xstrdup(), newvar()}
{}
{funeleme.c}
{
This function is called when an {\em op\_element} opcode is enountered.
The last pushed value is interpreted as a list, the one but last pushed
value as an index.
The return register {\em reg} is set to a string variable, holding a
duplicate of the listelement {\em index}. If index is larger than the
size of the element, {\em reg} holds a null-string.
}
*/
#include "icm-exec.h"
void fun_element ()
{
register unsigned
index;
register LIST_
*list;
reg = newvar (e_str);
index = (unsigned) stack [sp].vu.intval;
list = &(stack [sp - 1].vu.i->ls.list);
if (index < list->size )
reg.vu.i->ls.str = xstrdup (list->element [index]);
else
reg.vu.i->ls.str = xstrdup (nullstring);
}
|
