X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FDotnet.h;fp=ghc%2Fincludes%2FDotnet.h;h=89dace2ced9f741a62e30824c8e359ec17d0634b;hb=a7d8f43718b167689c0a4a4c23b33a325e0239f1;hp=0000000000000000000000000000000000000000;hpb=c4282406d8cf94962f41ebd7eaa7abf4ee23ac7d;p=ghc-hetmet.git

diff --git a/ghc/includes/Dotnet.h b/ghc/includes/Dotnet.h
new file mode 100644
index 0000000..89dace2
--- /dev/null
+++ b/ghc/includes/Dotnet.h
@@ -0,0 +1,64 @@
+/*
+ * Types and definitions to support GHC .NET interop.
+ *
+ * (c) 2003, sof.
+ *
+ */
+#ifndef __DOTNET_H__
+#define __DOTNET_H__
+
+typedef enum { 
+  Dotnet_Byte = 0,
+  Dotnet_Boolean,
+  Dotnet_Char,
+  Dotnet_Double,
+  Dotnet_Float,
+  Dotnet_Int,
+  Dotnet_Int8,
+  Dotnet_Int16,
+  Dotnet_Int32,
+  Dotnet_Int64,
+  Dotnet_Word8,
+  Dotnet_Word16,
+  Dotnet_Word32,
+  Dotnet_Word64,
+  Dotnet_Ptr,
+  Dotnet_Unit,
+  Dotnet_Object,
+  Dotnet_String
+} DotnetType;
+
+typedef union {
+  unsigned char      arg_byte;
+  unsigned int       arg_bool;
+  unsigned char      arg_char;
+  int                arg_int;
+  signed   char      arg_int8;
+  signed   short     arg_int16;
+  signed   int       arg_int32;
+#if defined(_MSC_VER)
+  signed  __int64    arg_int64;
+#else
+  signed  long long  arg_int64;
+#endif
+  float              arg_float;
+  double             arg_double;
+  unsigned char      arg_word8;
+  unsigned short     arg_word16;
+  unsigned int       arg_word32;
+#if defined(_MSC_VER)
+  unsigned __int64   arg_word64;
+#else
+  unsigned long long arg_word64;
+#endif
+  void*              arg_ptr;
+  void*              arg_obj;
+  void*              arg_str;
+} DotnetArgVal;
+
+typedef struct {
+  DotnetArgVal arg;
+  DotnetType   arg_type;
+} DotnetArg;
+
+#endif /* __DOTNET_H__ */