when linking, ignore unknown .reloc section that appeared in gcc 3.4.5(?)
[ghc-hetmet.git] / rts / dotnet / Invoker.h
1 //
2 // (c) 2003, sof.
3 //
4 // Dynamic invocation helper classes. The details of how
5 // to access the .NET object model via the Reflection API
6 // is taken care of by Invoker.{h,cpp}
7 //
8 #pragma once
9 #using <mscorlib.dll>
10
11 using namespace System;
12 using namespace System::Reflection;
13 using namespace System::Text;
14 using namespace System::Runtime::InteropServices;
15
16 [assembly:AssemblyKeyFileAttribute(S"invoker.snk")];
17
18 namespace DynInvoke {
19
20 //
21 // Class: TypeName
22 //
23 // Purpose: pairing up an assembly name and the type/class name.
24 //
25 [ComVisible(false)]
26 public __gc class TypeName {
27
28 public:
29   System::String* m_assembly;
30   System::String* m_class;
31   int     m_length;
32
33   TypeName() { 
34     m_assembly = String::Empty;
35     m_class = String::Empty;
36     m_length = 0;
37   }
38
39   void Print() {
40     if (m_assembly && m_assembly != String::Empty ) {
41       Console::Write("[");
42       Console::Write(m_assembly);
43       Console::Write("]");
44     }
45     Console::WriteLine(m_class);
46   }
47   
48   int Length() { return m_length; }
49
50   System::String* toStdString() {
51     System::String* res = new System::String(m_class->ToCharArray());
52     
53     if (m_assembly && m_assembly != String::Empty ){
54       res = String::Concat(res, S",");
55       res = String::Concat(res, m_assembly);
56     }
57     return res;
58   }
59 };
60
61 // 
62 // Class:   InvokeBridge
63 // 
64 // Purpose: Collection of (static) methods for dynamically creating
65 //          objects and accessing methods/fields on them. 
66 //
67 [ClassInterface(ClassInterfaceType::AutoDual),
68 GuidAttribute("39D497D9-60E0-3525-B7F2-7BC096D3A2A3"),
69 ComVisible(true)
70 ]
71 public __gc class InvokeBridge {
72 public:
73   InvokeBridge() {
74     Assembly* corAss      = Assembly::Load("mscorlib.dll"); 
75     System::String*  dir  = System::IO::Path::GetDirectoryName(corAss->Location);
76    
77     m_assemblies = new System::Collections::ArrayList();
78    
79     System::String* fs[] = System::IO::Directory::GetFiles(dir, "*.dll");
80     for (int i=0;i < fs->Length; i++) {
81       try {
82         Assembly* tAss = Assembly::LoadFrom(fs[i]);
83         m_assemblies->Add(tAss->FullName);
84       } catch (Exception* e) {
85         continue;
86       }
87     }
88   }
89
90   //
91   // Method: CreateObject(String* assemName, String* objSpec, Object* args[])
92   //
93   // Purpose: Given a fully qualified name of a class/type, try
94   //          to create an instance of it.
95   //
96   Object* CreateObject(System::String* assemName,
97                        System::String* objSpec,
98                        Object* args[]);
99           
100   //
101   // Method:  InvokeMethod
102   // 
103   // Purpose: Given a pointer to an already created object, look up
104   //          one of its method. If found, invoke the method passing it
105   //          'args' as arguments.
106   //
107   // Comments: the format of the method-spec is "methodName(type1,..,typeN)" [N>=0]
108   //
109   Object* InvokeMethod(Object* obj, 
110                        System::String* methSpec,
111                        Object* args[]);
112                               
113   //
114   // Method:  InvokeStaticMethod
115   // 
116   // Purpose: Invoke a static method, given the fully qualified name
117   //          of the method (and its arguments). If found, invoke the
118   //          method passing it 'args' as arguments.
119   //
120   // Comments: the format of the method-spec is 
121   //              "T1.T2.<..>.Tn.methodName(type1,..,typeN)" [N>=0]
122   //
123   Object* InvokeStaticMethod(System::String* assemName,
124                              System::String* methSpec,
125                              Object* args[]);
126                               
127   //
128   // Method:  GetField
129   //
130   // Purpose: Fetch the (boxed) value of named field of a given object.
131   //
132   Object* GetField(Object* obj, System::String* fieldSpec);
133
134   //
135   // Method:  GetField
136   //
137   // Purpose: Fetch the (boxed) value of named static field.
138   //
139   Object* GetStaticField(System::String* clsName, 
140                          System::String* fieldSpec);
141
142   //
143   // Method:  SetField
144   //
145   // Purpose: Replace the (boxed) value of named field of a given object.
146   //
147   void SetField(Object* obj, System::String* fieldSpec, Object* val);
148             
149   //
150   // Method:  SetStaticField
151   //
152   // Purpose: Replace the (boxed) value of named field of a given object.
153   //
154   void SetStaticField(System::String* clsName,
155                       System::String* fieldSpec,
156                       Object* val);
157             
158
159   // 
160   // Method:  NewString
161   // 
162   // Purpose: construct a System.String object copy in a manner that avoids
163   //          COM Interop from deconstructing it to a BSTR.
164   //
165   System::Object* NewString( System::String* s);
166
167   //
168   // Method:  NewArgArray
169   //
170   // Purpose: create a new array for holding (boxed) arguments to constructors/
171   //          methods.
172   //
173   Array* NewArgArray(int sz);
174   
175   //
176   // Method: SetArg
177   //
178   // Purpose: set an entry in the argument vector.
179   //
180   void SetArg(Object* arr[], Object* val, int idx);
181
182   //
183   // Method: GetArg
184   //
185   // Purpose: get an entry in the argument vector.
186   //
187   Object* GetArg(Object* arr[], int idx);
188
189   System::Type* InvokeBridge::GetType(System::String* typeName);
190
191 protected:
192   System::Collections::ArrayList __gc* m_assemblies;
193   Object* InvokeBridge::CreateInstance(TypeName* typeName,
194                                        Object* args[]);
195 };
196
197 } /* namespace */