diff options
| author | William <r.3@libertysurf.fr> | 2012-06-27 14:09:11 (GMT) |
|---|---|---|
| committer | William <r.3@libertysurf.fr> | 2012-08-23 21:23:43 (GMT) |
| commit | 53ea6fa0b10a97c3323174582cfa84caffcd266a (patch) | |
| tree | 7d5d072713cad4b0f2c3bb5154b72c636e3f07d6 /src/ocaml-flexdll-test.c | |
| parent | 265514be947b05cc7d513f1852b50ddca8455844 (diff) | |
| download | mxe-53ea6fa0b10a97c3323174582cfa84caffcd266a.zip mxe-53ea6fa0b10a97c3323174582cfa84caffcd266a.tar.gz mxe-53ea6fa0b10a97c3323174582cfa84caffcd266a.tar.bz2 | |
add package ocaml-flexdll
Diffstat (limited to 'src/ocaml-flexdll-test.c')
| -rwxr-xr-x | src/ocaml-flexdll-test.c | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/src/ocaml-flexdll-test.c b/src/ocaml-flexdll-test.c new file mode 100755 index 0000000..3e231ca --- /dev/null +++ b/src/ocaml-flexdll-test.c @@ -0,0 +1,44 @@ +/*****************************************************************
+ FlexDLL
+ Alain Frisch
+
+ Copyright 2007 Institut National de Recherche en Informatique et
+ en Automatique.
+
+******************************************************************/
+
+/* An example (main program) */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include "flexdll.h"
+
+typedef void torun();
+
+void api(char *msg){ printf("API: %s\n", msg); }
+
+int main(int argc, char **argv)
+{
+ void *sym;
+ void *handle;
+ int i;
+ torun *torun;
+
+ printf("INIT\n"); fflush(stdout);
+ flexdll_dump_exports(NULL);
+ printf("OK\n"); fflush(stdout);
+ for (i = 1; i < argc; i++) {
+ printf("** Loading %s\n", argv[i]);
+ handle = flexdll_dlopen(argv[i], FLEXDLL_RTLD_GLOBAL);
+ if (NULL == handle) { printf("error: %s\n", flexdll_dlerror()); exit(2); }
+ printf("** handle = %p\n", handle);
+ flexdll_dump_exports(handle);
+ flexdll_dump_relocations(handle);
+
+ if (NULL == handle) { printf("error: %s\n", flexdll_dlerror()); exit(2); }
+
+ torun = flexdll_dlsym(handle, "torun");
+ if (torun) torun();
+ }
+ exit(0);
+}
|