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
|
void send_str(char *str,
int with_date)
{
value *f;
CAMLlocal4 (caml_str, caml_int, caml_res, head);
char *domain;
int mo, o;
char *j;
char *m;
char *a;
char *h;
char *decalage;
CAMLparam0();
caml_str = caml_copy_string(str);
caml_int = Val_int(with_date);
f = caml_named_value("call_me");
caml_res = caml_callback2(*f, caml_str, caml_int);
while (caml_res != Val_emptylist)
{
head = Field(caml_res, 0);
domain = String_val(Field(head, 0));
mo = Int_val(Field(Field(head, 1), 0));
o = Int_val(Field(Field(head, 1), 1));
j = String_val(Field(head, 2));
m = String_val(Field(head, 3));
a = String_val(Field(head, 4));
h = String_val(Field(head, 5));
decalage = String_val(Field(head, 6));
printf("Domaine : %s\nMo consommes : %d\noctets consommes : %d\nLe %s/%s/%s a %sh avec %s\n", domain, mo, o, j, m, a, h, decalage);
caml_res = Field(caml_res, 1);
}
CAMLreturn0;
} |
