summaryrefslogtreecommitdiffstats
path: root/src/ocaml-flexdll-test.c
diff options
context:
space:
mode:
authorMark Brand <mabrand@mabrand.nl>2012-09-18 21:44:16 (GMT)
committerMark Brand <mabrand@mabrand.nl>2012-09-18 21:44:16 (GMT)
commite66d6725dfce3ff98eee2fc9f3b42b6a037d8e5e (patch)
treebd0602ea626365f99d073c06813097324c323ec0 /src/ocaml-flexdll-test.c
parente06403840e82d9cff014ac5db33307c04bf603c1 (diff)
downloadmxe-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-xsrc/ocaml-flexdll-test.c44
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);
-}