12 lines
298 B
Text
12 lines
298 B
Text
record r;
|
|
text s;
|
|
|
|
r_put(r, "A", 33); # an integer value
|
|
r_put(r, "C", 2.5); # a real value
|
|
r_put(r, "B", "associative"); # a string value
|
|
|
|
if (r_first(r, s)) {
|
|
do {
|
|
o_form("key ~, value ~ (~)\n", s, r[s], r_type(r, s));
|
|
} while (rsk_greater(r, s, s));
|
|
}
|