Move the sources to trunk
[opencv] / interfaces / ch / c / handmade / cxcore / constcharp2_chdl.c
1 #include <cxcore.h>
2 #include <ch.h>
3
4 EXPORTCH void cvCalcCovarMatrix_chdl(void *varg) {
5     ChInterp_t interp;
6     va_list ap;
7     const CvArr** vects;
8     int count;
9     CvArr* cov_mat;
10     CvArr* avg;
11     int flags;
12
13     Ch_VaStart(interp, ap, varg);
14     vects = Ch_VaArg(interp, ap, const CvArr**);
15     count = Ch_VaArg(interp, ap, int);
16     cov_mat = Ch_VaArg(interp, ap, CvArr*);
17     avg = Ch_VaArg(interp, ap, CvArr*);
18     flags = Ch_VaArg(interp, ap, int);
19     cvCalcCovarMatrix(vects, count, cov_mat, avg, flags);
20     Ch_VaEnd(interp, ap);
21 }
22
23 EXPORTCH void cvGetModuleInfo_chdl(void *varg) {
24     ChInterp_t interp;
25     va_list ap;
26     char* module_name;
27     const char** version;
28     const char** loaded_addon_plugins;
29
30     Ch_VaStart(interp, ap, varg);
31     module_name = Ch_VaArg(interp, ap, char*);
32     version = Ch_VaArg(interp, ap, const char**);
33     loaded_addon_plugins = Ch_VaArg(interp, ap, const char**);
34     cvGetModuleInfo(module_name, version, loaded_addon_plugins);
35     Ch_VaEnd(interp, ap);
36 }
37
38 EXPORTCH int cvGetErrInfo_chdl(void *varg) {
39     ChInterp_t interp;
40     va_list ap;
41     const char** errcode_desc;
42     const char** description;
43     const char** filename;
44     int* line;
45     int retval;
46
47     Ch_VaStart(interp, ap, varg);
48     errcode_desc = Ch_VaArg(interp, ap, const char**);
49     description = Ch_VaArg(interp, ap, const char**);
50     filename = Ch_VaArg(interp, ap, const char**);
51     line = Ch_VaArg(interp, ap, int*);
52     retval = cvGetErrInfo(errcode_desc, description, filename, line);
53     Ch_VaEnd(interp, ap);
54     return retval;
55 }
56
57
58 EXPORTCH void* cvLoad_chdl(void *varg) {
59     ChInterp_t interp;
60     va_list ap;
61     char* filename;
62     CvMemStorage* memstorage;
63     char* name;
64     const char** real_name;
65     void*retval;
66
67     Ch_VaStart(interp, ap, varg);
68     filename = Ch_VaArg(interp, ap, char*);
69     memstorage = Ch_VaArg(interp, ap, CvMemStorage*);
70     name = Ch_VaArg(interp, ap, char*);
71     real_name = Ch_VaArg(interp, ap, const char**);
72     retval = cvLoad(filename, memstorage, name, real_name);
73     Ch_VaEnd(interp, ap);
74     return retval;
75 }