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
40
41
42
43
|
#include <stdio.h>
#include "tpl.h"
#define ILEN 10
#define KLEN 8
#define FLEN 5
struct st {
char c;
double f[FLEN];
};
int main() {
tpl_node *tn;
/* some meaningless test data */
struct st s = {'z', {0.9, 0.8, 0.7, 0.6, 0.5 }};
int j;
int i[ILEN] = {-1, -2, -3, -4, -5, -6, -7, -8, -9, -10};
int k[KLEN] = {100, 200, 300, 400, 500, 600, 700, 800};
char a = '&';
char b = 'x';
tn = tpl_map("cA(i#)S(cf#)A(ci#)", &a, i, ILEN, &s, FLEN, &b, k, KLEN);
tpl_pack(tn,0);
tpl_pack(tn,1);
for(j=0; j < ILEN; j++) i[j]--;
tpl_pack(tn,1);
for(j=0; j < ILEN; j++) i[j]--;
tpl_pack(tn,1);
tpl_pack(tn,2);
b++;
for(j=0; j < KLEN; j++) k[j] += 50;
tpl_pack(tn,2);
b++;
for(j=0; j < KLEN; j++) k[j] += 50;
tpl_pack(tn,2);
tpl_dump(tn,TPL_FILE,"/tmp/test82.tpl");
tpl_free(tn);
return(0);
}
|
