Add 'game-sml/' from commit '113c3e67abe635f714f972a1e2ab0e4b24ff10f4'
git-subtree-dir: game-sml git-subtree-mainline:aa5357714dgit-subtree-split:113c3e67ab
This commit is contained in:
170
game-sml/ffi/export.h
Normal file
170
game-sml/ffi/export.h
Normal file
@@ -0,0 +1,170 @@
|
||||
#ifndef __OMS_ML_H__
|
||||
#define __OMS_ML_H__
|
||||
|
||||
/* Copyright (C) 2004-2007 Henry Cejtin, Matthew Fluet, Suresh
|
||||
* Jagannathan, and Stephen Weeks.
|
||||
*
|
||||
* MLton is released under a HPND-style license.
|
||||
* See the file MLton-LICENSE for details.
|
||||
*/
|
||||
|
||||
#ifndef _MLTON_MLTYPES_H_
|
||||
#define _MLTON_MLTYPES_H_
|
||||
|
||||
/* We need these because in header files for exported SML functions,
|
||||
* types.h is included without cenv.h.
|
||||
*/
|
||||
#if (defined (_AIX) || defined (__hpux__) || defined (__OpenBSD__))
|
||||
#include <inttypes.h>
|
||||
#elif (defined (__sun__))
|
||||
#include <sys/int_types.h>
|
||||
#else
|
||||
#include <stdint.h>
|
||||
#endif
|
||||
|
||||
/* ML types */
|
||||
typedef unsigned char PointerAux __attribute__ ((may_alias));
|
||||
typedef PointerAux* Pointer;
|
||||
#define Array(t) Pointer
|
||||
#define Ref(t) Pointer
|
||||
#define Vector(t) Pointer
|
||||
|
||||
typedef int8_t Int8_t;
|
||||
typedef int8_t Int8;
|
||||
typedef int16_t Int16_t;
|
||||
typedef int16_t Int16;
|
||||
typedef int32_t Int32_t;
|
||||
typedef int32_t Int32;
|
||||
typedef int64_t Int64_t;
|
||||
typedef int64_t Int64;
|
||||
typedef float Real32_t;
|
||||
typedef float Real32;
|
||||
typedef double Real64_t;
|
||||
typedef double Real64;
|
||||
typedef uint8_t Word8_t;
|
||||
typedef uint8_t Word8;
|
||||
typedef uint16_t Word16_t;
|
||||
typedef uint16_t Word16;
|
||||
typedef uint32_t Word32_t;
|
||||
typedef uint32_t Word32;
|
||||
typedef uint64_t Word64_t;
|
||||
typedef uint64_t Word64;
|
||||
|
||||
typedef Int8_t WordS8_t;
|
||||
typedef Int8_t WordS8;
|
||||
typedef Int16_t WordS16_t;
|
||||
typedef Int16_t WordS16;
|
||||
typedef Int32_t WordS32_t;
|
||||
typedef Int32_t WordS32;
|
||||
typedef Int64_t WordS64_t;
|
||||
typedef Int64_t WordS64;
|
||||
|
||||
typedef Word8_t WordU8_t;
|
||||
typedef Word8_t WordU8;
|
||||
typedef Word16_t WordU16_t;
|
||||
typedef Word16_t WordU16;
|
||||
typedef Word32_t WordU32_t;
|
||||
typedef Word32_t WordU32;
|
||||
typedef Word64_t WordU64_t;
|
||||
typedef Word64_t WordU64;
|
||||
|
||||
typedef WordU8_t Char8_t;
|
||||
typedef WordU8_t Char8;
|
||||
typedef WordU16_t Char16_t;
|
||||
typedef WordU16_t Char16;
|
||||
typedef WordU32_t Char32_t;
|
||||
typedef WordU32_t Char32;
|
||||
|
||||
typedef Vector(Char8_t) String8_t;
|
||||
typedef Vector(Char8_t) String8;
|
||||
typedef Vector(Char16_t) String16_t;
|
||||
typedef Vector(Char16_t) String16;
|
||||
typedef Vector(Char32_t) String32_t;
|
||||
typedef Vector(Char32_t) String32;
|
||||
|
||||
typedef Int32_t Bool_t;
|
||||
typedef Int32_t Bool;
|
||||
typedef String8_t NullString8_t;
|
||||
typedef String8_t NullString8;
|
||||
|
||||
typedef void* CPointer;
|
||||
typedef Pointer Objptr;
|
||||
|
||||
#endif /* _MLTON_MLTYPES_H_ */
|
||||
|
||||
/* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
|
||||
* Jagannathan, and Stephen Weeks.
|
||||
* Copyright (C) 1997-2000 NEC Research Institute.
|
||||
*
|
||||
* MLton is released under a HPND-style license.
|
||||
* See the file MLton-LICENSE for details.
|
||||
*/
|
||||
|
||||
#ifndef _MLTON_EXPORT_H_
|
||||
#define _MLTON_EXPORT_H_
|
||||
|
||||
/* ------------------------------------------------- */
|
||||
/* Symbols */
|
||||
/* ------------------------------------------------- */
|
||||
|
||||
/* An external symbol is something not defined by the module
|
||||
* (executable or library) being built. Rather, it is provided
|
||||
* from a library dependency (dll, dylib, or shared object).
|
||||
*
|
||||
* A public symbol is defined in this module as being available
|
||||
* to users outside of this module. If building a library, this
|
||||
* means the symbol will be part of the public interface.
|
||||
*
|
||||
* A private symbol is defined within this module, but will not
|
||||
* be made available outside of it. This is typically used for
|
||||
* internal implementation details that should not be accessible.
|
||||
*/
|
||||
|
||||
#if defined(_WIN32) || defined(_WIN64) || defined(__CYGWIN__)
|
||||
#define EXTERNAL __declspec(dllimport)
|
||||
#define PUBLIC __declspec(dllexport)
|
||||
#define PRIVATE
|
||||
#else
|
||||
#define EXTERNAL __attribute__((visibility("default")))
|
||||
#define PUBLIC __attribute__((visibility("default")))
|
||||
#define PRIVATE __attribute__((visibility("hidden")))
|
||||
#endif
|
||||
|
||||
#endif /* _MLTON_EXPORT_H_ */
|
||||
|
||||
#if !defined(PART_OF_OMS) && \
|
||||
!defined(STATIC_LINK_OMS) && \
|
||||
!defined(DYNAMIC_LINK_OMS)
|
||||
#define PART_OF_OMS
|
||||
#endif
|
||||
|
||||
#if defined(PART_OF_OMS)
|
||||
#define MLLIB_PRIVATE(x) PRIVATE x
|
||||
#define MLLIB_PUBLIC(x) PUBLIC x
|
||||
#elif defined(STATIC_LINK_OMS)
|
||||
#define MLLIB_PRIVATE(x)
|
||||
#define MLLIB_PUBLIC(x) PUBLIC x
|
||||
#elif defined(DYNAMIC_LINK_OMS)
|
||||
#define MLLIB_PRIVATE(x)
|
||||
#define MLLIB_PUBLIC(x) EXTERNAL x
|
||||
#else
|
||||
#error Must specify linkage for oms
|
||||
#define MLLIB_PRIVATE(x)
|
||||
#define MLLIB_PUBLIC(x)
|
||||
#endif
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
MLLIB_PUBLIC(void mltonKeyCallback (Int32 x0, Int32 x1, Int32 x2, Int32 x3);)
|
||||
MLLIB_PUBLIC(void mltonFramebufferSizeCallback (Real32 x0, Real32 x1);)
|
||||
|
||||
#undef MLLIB_PRIVATE
|
||||
#undef MLLIB_PUBLIC
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
|
||||
#endif /* __OMS_ML_H__ */
|
||||
Reference in New Issue
Block a user