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
|
/*
\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 "builtin.ih"
void fun_element ()
{
size_t idx = intValue(top());
reg = *stringConstructor_cP
(
idx < listSize(top() - 1) ?
listAt(top() - 1, idx)
:
""
);
}
|
