diff options
author | Mark Brand <mabrand@mabrand.nl> | 2012-09-18 21:44:16 (GMT) |
---|---|---|
committer | Mark Brand <mabrand@mabrand.nl> | 2012-09-18 21:44:16 (GMT) |
commit | e66d6725dfce3ff98eee2fc9f3b42b6a037d8e5e (patch) | |
tree | bd0602ea626365f99d073c06813097324c323ec0 /src/ocaml-flexdll-test.c | |
parent | e06403840e82d9cff014ac5db33307c04bf603c1 (diff) | |
download | mxe-e66d6725dfce3ff98eee2fc9f3b42b6a037d8e5e.zip mxe-e66d6725dfce3ff98eee2fc9f3b42b6a037d8e5e.tar.gz mxe-e66d6725dfce3ff98eee2fc9f3b42b6a037d8e5e.tar.bz2 |
Revert "add package ocaml-flexdll"
This reverts commit 53ea6fa0b10a97c3323174582cfa84caffcd266a.
Diffstat (limited to 'src/ocaml-flexdll-test.c')
-rwxr-xr-x | src/ocaml-flexdll-test.c | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/src/ocaml-flexdll-test.c b/src/ocaml-flexdll-test.c deleted file mode 100755 index 3e231ca..0000000 --- a/src/ocaml-flexdll-test.c +++ /dev/null @@ -1,44 +0,0 @@ -/*****************************************************************
- 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);
-}
|