25 |
#include <stdio.h> |
#include <stdio.h> |
26 |
#include <malloc.h> |
#include <malloc.h> |
27 |
#include <string.h> |
#include <string.h> |
28 |
#include "/usr/include/ocaml/3.06/caml/mlvalues.h" |
#include "mlvalues.h" |
29 |
#include "/usr/include/ocaml/3.06/caml/callback.h" |
#include "callback.h" |
30 |
#include "/usr/include/ocaml/3.06/caml/memory.h" |
#include "memory.h" |
31 |
#include "/usr/include/ocaml/3.06/caml/alloc.h" |
#include "alloc.h" |
32 |
|
|
33 |
|
|
34 |
|
|
91 |
int verif_cle(double *cle, double *test) |
int verif_cle(double *cle, double *test) |
92 |
{ |
{ |
93 |
int i = 0; |
int i = 0; |
94 |
int bool = 1; |
int boole = 1; |
95 |
|
|
96 |
while ((i < 12) && bool) |
while ((i < 12) && boole) |
97 |
{ |
{ |
98 |
bool = (cle[i]==test[i]); |
boole = (cle[i]==test[i]); |
99 |
i++; |
i++; |
100 |
} |
} |
101 |
|
|
102 |
return bool; |
return boole; |
103 |
} |
} |
104 |
|
|
105 |
|
|
119 |
char *t; |
char *t; |
120 |
double *res; |
double *res; |
121 |
|
|
122 |
efinal = calloc(sizeof(double),12); |
efinal = (double *)calloc(sizeof(double),12); |
123 |
selection = (int**)malloc(sizeof(int*)*10); |
selection = (int**)malloc(sizeof(int*)*10); |
124 |
for (i=0;i<10;i++) |
for (i=0;i<10;i++) |
125 |
selection[i] = calloc (sizeof(int),10); |
selection[i] = (int*)calloc (sizeof(int),10); |
126 |
i = 0; |
i = 0; |
127 |
/*temp = (char*)malloc(sizeof(char)*2); |
/*temp = (char*)malloc(sizeof(char)*2); |
128 |
while (s[i] != '\0') |
while (s[i] != '\0') |