Imported Upstream version 6.4.0.137

Former-commit-id: 943baa9f16a098c33e129777827f3a9d20da00d6

mcs/class/System.Private.CoreLib/System.Reflection.Emit/UnmanagedMarshal.cs

@@ -0,0 +1,138 @@
+#nullable disable
+
+//
+// Copyright (C) 2004 Novell, Inc (http://www.novell.com)
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+// 
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+// 
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+//
+// System.Reflection.Emit/UnmanagedMarshal.cs
+//
+// Author:
+//   Paolo Molaro (lupus@ximian.com)
+//
+// (C) 2001-2002 Ximian, Inc.  http://www.ximian.com
+//
+
+#if MONO_FEATURE_SRE
+using System.Reflection.Emit;
+using System.Runtime.InteropServices;
+using System;
+
+namespace System.Reflection.Emit {
+
+	[Obsolete ("An alternate API is available: Emit the MarshalAs custom attribute instead.")]
+	[ComVisible (true)]
+	[Serializable]
+	[StructLayout (LayoutKind.Sequential)]
+	public sealed class UnmanagedMarshal {
+#pragma warning disable 169, 414
+		private int count;
+		private UnmanagedType t;
+		private UnmanagedType tbase;
+		string guid;
+		string mcookie;
+		string marshaltype;
+		internal Type marshaltyperef;
+		private int param_num;
+		private bool has_size;
+#pragma warning restore 169, 414
+		
+		private UnmanagedMarshal (UnmanagedType maint, int cnt) {
+			count = cnt;
+			t = maint;
+			tbase = maint;
+		}
+		private UnmanagedMarshal (UnmanagedType maint, UnmanagedType elemt) {
+			count = 0;
+			t = maint;
+			tbase = elemt;
+		}
+		
+		public UnmanagedType BaseType {
+			get {
+				if (t == UnmanagedType.LPArray)
+					throw new ArgumentException ();
+
+#if FEATURE_COMINTEROP
+				if (t == UnmanagedType.SafeArray)
+					throw new ArgumentException ();
+#endif
+				return tbase;
+			}
+		}
+
+		public int ElementCount {
+			get {return count;}
+		}
+
+		public UnmanagedType GetUnmanagedType {
+			get {return t;}
+		}
+
+		public Guid IIDGuid {
+			get {return new Guid (guid);}
+		}
+
+		public static UnmanagedMarshal DefineByValArray( int elemCount) {
+			return new UnmanagedMarshal (UnmanagedType.ByValArray, elemCount);
+		}
+
+		public static UnmanagedMarshal DefineByValTStr( int elemCount) {
+			return new UnmanagedMarshal (UnmanagedType.ByValTStr, elemCount);
+		}
+
+		public static UnmanagedMarshal DefineLPArray( UnmanagedType elemType) {
+			return new UnmanagedMarshal (UnmanagedType.LPArray, elemType);
+		}
+#if FEATURE_COMINTEROP
+		public static UnmanagedMarshal DefineSafeArray( UnmanagedType elemType) {
+			return new UnmanagedMarshal (UnmanagedType.SafeArray, elemType);
+		}
+#endif
+		public static UnmanagedMarshal DefineUnmanagedMarshal( UnmanagedType unmanagedType) {
+			return new UnmanagedMarshal (unmanagedType, unmanagedType);
+		}
+#if FEATURE_COMINTEROP
+		internal static UnmanagedMarshal DefineCustom (Type typeref, string cookie, string mtype, Guid id) {
+			UnmanagedMarshal res = new UnmanagedMarshal (UnmanagedType.CustomMarshaler, UnmanagedType.CustomMarshaler);
+			res.mcookie = cookie;
+			res.marshaltype = mtype;
+			res.marshaltyperef = typeref;
+			if (id == Guid.Empty)
+				res.guid = String.Empty;
+			else
+				res.guid = id.ToString ();
+			return res;
+		}
+#endif		
+		// sizeConst and sizeParamIndex can be -1 meaning they are not specified
+		internal static UnmanagedMarshal DefineLPArrayInternal (UnmanagedType elemType, int sizeConst, int sizeParamIndex) {
+			UnmanagedMarshal res = new UnmanagedMarshal (UnmanagedType.LPArray, elemType);
+			res.count = sizeConst;
+			res.param_num = sizeParamIndex;
+			res.has_size = true;
+
+			return res;
+		}
+	}
+}
+#endif