rbdc 0.8.0

data/dyncall/dynload/dynload_syms_pe.c

@@ -0,0 +1,109 @@
+/*
+
+ Package: dyncall
+ Library: dynload
+ File: dynload/dynload_syms_pe.c
+ Description: 
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>, 
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+                           Olivier Chafik <olivier.chafik@gmail.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+#include "dynload.h"
+#include "dynload_alloc.h"
+
+#include <windows.h>
+
+struct DLLib_
+{
+  IMAGE_DOS_HEADER dos_header;
+};
+
+
+struct DLSyms_
+{
+  DLLib*                pLib;
+  const char*           pBase;
+  const DWORD*          pNames;
+  const DWORD*          pFuncs;
+  const unsigned short* pOrds;
+  size_t                count;
+};
+
+
+DLSyms* dlSymsInit(const char* libPath)
+{
+  DLLib* pLib = dlLoadLibrary(libPath);
+  DLSyms* pSyms = (DLSyms*)dlAllocMem(sizeof(DLSyms));
+  const char* base = (const char*) pLib;
+  IMAGE_DOS_HEADER*       pDOSHeader      = (IMAGE_DOS_HEADER*) base;  
+  IMAGE_NT_HEADERS*       pNTHeader       = (IMAGE_NT_HEADERS*) ( base + pDOSHeader->e_lfanew );  
+  IMAGE_DATA_DIRECTORY*   pExportsDataDir = &pNTHeader->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT];
+  IMAGE_EXPORT_DIRECTORY* pExports        = (IMAGE_EXPORT_DIRECTORY*) (base + pExportsDataDir->VirtualAddress);  
+
+  pSyms->pBase  = base;
+  pSyms->pNames = (DWORD*)(base + pExports->AddressOfNames);
+  pSyms->pFuncs = (DWORD*)(base + pExports->AddressOfFunctions);
+  pSyms->pOrds  = (unsigned short*)(base + pExports->AddressOfNameOrdinals);
+  pSyms->count  = (size_t)pExports->NumberOfNames;
+  pSyms->pLib   = pLib;
+
+  return pSyms;
+}
+
+
+void dlSymsCleanup(DLSyms* pSyms)
+{
+  if(pSyms) {
+    dlFreeLibrary(pSyms->pLib);
+    dlFreeMem(pSyms);
+  }
+}
+
+
+int dlSymsCount(DLSyms* pSyms)
+{
+  return (int)pSyms->count;
+}
+
+
+const char* dlSymsName(DLSyms* pSyms, int index)
+{
+  return (const char*)((const char*)pSyms->pBase + pSyms->pNames[index]);
+}
+
+
+void* dlSymsValue(DLSyms* pSyms, int index)
+{
+  return (void*)(pSyms->pBase + pSyms->pFuncs[pSyms->pOrds[index]]);
+}
+
+
+const char* dlSymsNameFromValue(DLSyms* pSyms, void* value) 
+{
+  int i, c=dlSymsCount(pSyms);
+  for(i=0; i<c; ++i)
+  {
+    if(dlSymsValue(pSyms, i) == value)
+      return dlSymsName(pSyms, i);
+  }
+
+  /* Not found. */
+  return NULL;
+}

data/dyncall/dynload/dynload_unix.c

@@ -0,0 +1,57 @@
+/*
+
+ Package: dyncall
+ Library: dynload
+ File: dynload/dynload_unix.c
+ Description: 
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>, 
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+/*
+
+  dynload_unix.c
+
+  dynload module for .so (unix) and .dylib (mach-o darwin/OS X) files
+
+*/
+
+
+#include "dynload.h"
+
+#include <dlfcn.h>
+
+
+DLLib* dlLoadLibrary(const char* libPath)
+{
+  return (DLLib*)dlopen(libPath,RTLD_NOW|RTLD_GLOBAL);
+}
+
+
+void* dlFindSymbol(DLLib* libHandle, const char* symbol)
+{
+  return dlsym((void*)libHandle, symbol);
+}
+
+
+void dlFreeLibrary(DLLib* libHandle)
+{
+  dlclose((void*)libHandle);
+}
+

data/dyncall/dynload/dynload_windows.c

@@ -0,0 +1,59 @@
+/*
+
+ Package: dyncall
+ Library: dynload
+ File: dynload/dynload_windows.c
+ Description: 
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>, 
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+/*
+
+  dynload_windows.c
+
+  dynload module for .dll files
+
+*/
+
+
+#include "dynload.h"
+
+#include <windows.h>
+
+DLLib* dlLoadLibrary(const char* libPath)
+{
+  if (libPath != NULL) {
+    return (DLLib*) LoadLibraryA(libPath);
+    /*return (DLLib*) LoadLibraryA(libPath, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);*/
+  } else {
+    return (DLLib*) GetModuleHandle(NULL);
+  }
+}
+
+void* dlFindSymbol(DLLib* libHandle, const char* symbol)
+{
+  return (void*) GetProcAddress( (HINSTANCE)libHandle, symbol);
+}
+
+void  dlFreeLibrary(DLLib* libHandle)
+{
+  FreeLibrary( (HINSTANCE)libHandle );
+}
+

data/dyncall/mkfile

@@ -0,0 +1,36 @@
+#//////////////////////////////////////////////////////////////////////////////
+#
+# Copyright (c) 2010 Daniel Adler <dadler@uni-goettingen.de>, 
+#                    Tassilo Philipp <tphilipp@potion-studios.com>
+#
+# Permission to use, copy, modify, and distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+#
+#//////////////////////////////////////////////////////////////////////////////
+
+
+TOP = .
+
+<$TOP/buildsys/mk/prolog.mk
+
+# directories:
+DIRS  = dyncall dyncallback
+AUTOS = ConfigVars
+
+#.PHONY: tests doc
+tests:V:
+	cd test; $MK
+doc:V:
+	cd $target/manual; $MK
+
+<$TOP/buildsys/mk/epilog.mk
+

data/dyncall/portasm/README.txt

@@ -0,0 +1,42 @@
+portasm - a toolkit for writing portable generic assembler sources 
+------------------------------------------------------------------
+
+Copyright (C) 2011 Daniel Adler <dadler@uni-goettingen.de>.
+Licensed under BSD two-clause license.
+
+
+Requirements
+------------
+- C Preprocessor
+
+
+Supported Architectures and Tool-chains:
+----------------------------------------
+
+- x86: gas, apple as, masm
+- x64: gas, apple as, masm
+- ppc: gas, apple as
+- arm: gas, apple as
+
+
+Usage:
+------
+
+Implement assembler sources in *.S files which use C preprocessor.
+#include portasm-<ARCH>.S at front
+
+In order to generate MASM files for X86 and X64, run 
+  'gen-masm.sh <name>' script which reads <name>.S and outputs <name>.masm file.
+
+
+Common Macros:
+--------------
+
+BEGIN_ASM
+END_ASM
+BEGIN_PROC(name)
+END_PROC(name)
+GLOBAL(name)
+HEX(value)
+
+

data/dyncall/portasm/gen-masm.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+gcc -E -P -DGEN_MASM $1.S >$1.asm
+

data/dyncall/portasm/portasm-arm.S

@@ -0,0 +1,36 @@
+/*
+
+ Package: dyncall
+ Library: portasm
+ File: portasm/portasm-arm.S
+ Description: 
+ License:
+
+   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>,
+                      Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+#define BEGIN_ASM	.text
+#include "../autovar/autovar_OS.h"
+#if defined(OS_Darwin)
+#define GLOBAL_C(X) .globl _##X
+#define ENTRY_C(X) _##X:
+#else
+#define GLOBAL_C(X) .globl X
+#define ENTRY_C(X) X:
+#endif
+

data/dyncall/portasm/portasm-ppc.S

@@ -0,0 +1,98 @@
+/*
+
+ Package: dyncall
+ Library: portasm
+ File: portasm/portasm-ppc.S
+ Description: Portable Assembler Macros for ppc
+ License:
+
+   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+#include "../autovar/autovar_OS.h"
+#if defined(OS_Darwin)
+#define GLOBAL_C(X) .globl _##X 
+#define ENTRY_C(X)  _##X:
+#else
+#define GLOBAL_C(X) .globl X 
+#define ENTRY_C(X) X:
+#define r0 0
+#define r1 1
+#define r2 2
+#define r3 3
+#define r4 4
+#define r5 5
+#define r6 6
+#define r7 7
+#define r8 8
+#define r9 9
+#define r10 10
+#define r11 11
+#define r12 12
+#define r13 13
+#define r14 14
+#define r15 15
+#define r16 16
+#define r17 17
+#define r18 18
+#define r19 19
+#define r20 20
+#define r21 21
+#define r22 22
+#define r23 23
+#define r24 24
+#define r25 25
+#define r26 26
+#define r27 27
+#define r28 28
+#define r29 29
+#define r30 30
+#define r31 31
+#define f0 0
+#define f1 1
+#define f2 2
+#define f3 3
+#define f4 4
+#define f5 5
+#define f6 6
+#define f7 7
+#define f8 8
+#define f9 9
+#define f10 10
+#define f11 11
+#define f12 12
+#define f13 13
+#define f14 14
+#define f15 15
+#define f16 16
+#define f17 17
+#define f18 18
+#define f19 19
+#define f20 20
+#define f21 21
+#define f22 22
+#define f23 23
+#define f24 24
+#define f25 25
+#define f26 26
+#define f27 27
+#define f28 28
+#define f29 29
+#define f30 30
+#define f31 31
+#endif
+