New test.
[mono.git] / mcs / class / corlib / System.Runtime.InteropServices / MarshalAsAttribute.cs
1 //
2 // System.Runtime.InteropServices.MarshalAsAttribute.cs
3 //
4 // Author:
5 //   Andreas Nahr (ClassDevelopment@A-SoftTech.com)
6 //
7
8 //
9 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
10 //
11 // Permission is hereby granted, free of charge, to any person obtaining
12 // a copy of this software and associated documentation files (the
13 // "Software"), to deal in the Software without restriction, including
14 // without limitation the rights to use, copy, modify, merge, publish,
15 // distribute, sublicense, and/or sell copies of the Software, and to
16 // permit persons to whom the Software is furnished to do so, subject to
17 // the following conditions:
18 // 
19 // The above copyright notice and this permission notice shall be
20 // included in all copies or substantial portions of the Software.
21 // 
22 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
23 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
25 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
26 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
27 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
28 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
29 //
30
31 using System;
32
33 namespace System.Runtime.InteropServices {
34
35         [ComVisible(true)]
36         [AttributeUsage (AttributeTargets.Field | AttributeTargets.Parameter | 
37                          AttributeTargets.ReturnValue, Inherited=false)]
38         public sealed class MarshalAsAttribute : Attribute {
39                 private UnmanagedType utype;
40                 public UnmanagedType ArraySubType;
41                 public string MarshalCookie;
42
43                 [ComVisible(true)]
44                 public string MarshalType;
45
46                 [ComVisible(true)]
47                 public Type MarshalTypeRef;
48                 
49 #if !MOONLIGHT
50                 public VarEnum SafeArraySubType;
51 #endif
52
53                 public int SizeConst;
54                 public short SizeParamIndex;
55                 public Type SafeArrayUserDefinedSubType;
56                 public int IidParameterIndex;
57
58                 public MarshalAsAttribute (short unmanagedType) {
59                         utype = (UnmanagedType)unmanagedType;
60                 }
61                 public MarshalAsAttribute( UnmanagedType unmanagedType) {
62                         utype = unmanagedType;
63                 }
64                 public UnmanagedType Value {
65                         get {return utype;}
66                 }
67         }
68 }