tpl/tests/test38.c

20 lines
382 B
C
Raw Permalink Normal View History

2013-03-12 16:38:58 -04:00
#include <stdio.h>
#include "tpl.h"
int main() {
tpl_node *tn;
int j;
tn = tpl_map("A(A(i))",&j);
tpl_load(tn,TPL_FILE, "/tmp/test37.tpl");
while (tpl_unpack(tn,1) > 0) {
printf("unpacking index 1:\n");
while (tpl_unpack(tn,2) > 0) {
printf(" unpacking index 2: j is %d\n", j);
}
}
tpl_free(tn);
return(0);
}