?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Fixing an issue with output parameters that are of type IntPtr
[castle.git] / MonoRail / NewGenerator / Castle.NewGenerator.Core / GetOptions / OptionDetails.cs
blob517a89d0b6e247e2019af0f318482de7522fa652
1 //
2 // OptionDetails.cs
3 //
4 // Author: Rafael Teixeira (rafaelteixeirabr@hotmail.com)
5 //
6 // (C) 2002 Rafael Teixeira
7 //
8
9 //
10 // Permission is hereby granted, free of charge, to any person obtaining
11 // a copy of this software and associated documentation files (the
12 // "Software"), to deal in the Software without restriction, including
13 // without limitation the rights to use, copy, modify, merge, publish,
14 // distribute, sublicense, and/or sell copies of the Software, and to
15 // permit persons to whom the Software is furnished to do so, subject to
16 // the following conditions:
17 //
18 // The above copyright notice and this permission notice shall be
19 // included in all copies or substantial portions of the Software.
20 //
21 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
22 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
23 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
24 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
25 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
26 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
27 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
28 //
29
30 namespace Mono.GetOptions
31 {
32 using System;
33 using System.Collections;
34 using System.Reflection;
35
36 public enum WhatToDoNext
37 {
38 AbandonProgram,
39 GoAhead
40 }
41
42 internal enum OptionProcessingResult
43 {
44 NotThisOption,
45 OptionAlone,
46 OptionConsumedParameter
47 }
48
49 internal class OptionDetails : IComparable
50 {
51 public string ShortForm;
52 public string LongForm;
53 public string AlternateForm;
54 public string ShortDescription;
55 public bool NeedsParameter;
56 public int MaxOccurs; // negative means there is no limit
57 public int Occurs;
58 public bool BooleanOption;
59 public Options OptionBundle;
60 public MemberInfo MemberInfo;
61 public ArrayList Values;
62 public Type ParameterType;
63 public string paramName = null;
64 public bool VBCStyleBoolean;
65 public bool SecondLevelHelp;
66 public bool Hidden;
67
68 public OptionDetails NextAlternate = null;
69
70 private string ExtractParamName(string shortDescription)
71 {
72 int whereBegins = shortDescription.IndexOf("{");
73 if (whereBegins < 0)
74 paramName = "PARAM";
75 else
76 {
77 int whereEnds = shortDescription.IndexOf("}");
78 if (whereEnds < whereBegins)
79 whereEnds = shortDescription.Length + 1;
80
81 paramName = shortDescription.Substring(whereBegins + 1, whereEnds - whereBegins - 1);
82 shortDescription =
83 shortDescription.Substring(0, whereBegins) +
84 paramName +
85 shortDescription.Substring(whereEnds + 1);
86 }
87 return shortDescription;
88 }
89
90 public string ParamName
91 {
92 get { return paramName; }
93 }
94
95 private bool verboseParsing
96 {
97 get { return OptionBundle.VerboseParsingOfOptions || OptionBundle.DebuggingOfOptions; }
98 }
99
100 // private bool debugOptions { get { return OptionBundle.DebuggingOfOptions; } }
101
102 private OptionsParsingMode parsingMode
103 {
104 get { return OptionBundle.ParsingMode; }
105 }
106
107 private bool useGNUFormat
108 {
109 get { return (parsingMode & OptionsParsingMode.GNU_DoubleDash) == OptionsParsingMode.GNU_DoubleDash; }
110 }
111
112 private bool dontSplitOnCommas
113 {
114 get { return OptionBundle.DontSplitOnCommas; }
115 }
116
117 private string linuxLongPrefix
118 {
119 get { return (useGNUFormat ? "--" : "-"); }
120 }
121
122 public string DefaultForm
123 {
124 get
125 {
126 string shortPrefix = "-";
127 string longPrefix = linuxLongPrefix;
128 if (parsingMode == OptionsParsingMode.Windows)
129 {
130 shortPrefix = "/";
131 longPrefix = "/";
132 }
133 if (ShortForm != string.Empty)
134 return shortPrefix + ShortForm;
135 else
136 return longPrefix + LongForm;
137 }
138 }
139
140 private string optionHelp = null;
141
142 public override string ToString()
143 {
144 if (optionHelp == null)
145 {
146 string shortPrefix;
147 string longPrefix;
148 bool hasLongForm = (LongForm != null && LongForm != string.Empty);
149 if (OptionBundle.ParsingMode == OptionsParsingMode.Windows)
150 {
151 shortPrefix = "/";
152 longPrefix = "/";
153 }
154 else
155 {
156 shortPrefix = "-";
157 longPrefix = linuxLongPrefix;
158 }
159 optionHelp = " ";
160 optionHelp += (ShortForm != string.Empty) ? shortPrefix + ShortForm + " " : " ";
161 optionHelp += hasLongForm ? longPrefix + LongForm : "";
162 if (NeedsParameter)
163 {
164 if (hasLongForm)
165 optionHelp += ":";
166 optionHelp += ParamName;
167 }
168 else if (BooleanOption && VBCStyleBoolean)
169 {
170 optionHelp += "[+|-]";
171 }
172 optionHelp += "\t";
173 if (AlternateForm != string.Empty && AlternateForm != null)
174 optionHelp += "Also " + shortPrefix + AlternateForm + (NeedsParameter ? (":" + ParamName) : "") + ". ";
175 optionHelp += ShortDescription;
176 }
177 return optionHelp;
178 }
179
180 private static Type TypeOfMember(MemberInfo memberInfo)
181 {
182 if ((memberInfo.MemberType == MemberTypes.Field && memberInfo is FieldInfo))
183 return ((FieldInfo) memberInfo).FieldType;
184
185 if ((memberInfo.MemberType == MemberTypes.Property && memberInfo is PropertyInfo))
186 return ((PropertyInfo) memberInfo).PropertyType;
187
188 if ((memberInfo.MemberType == MemberTypes.Method && memberInfo is MethodInfo))
189 {
190 if (((MethodInfo) memberInfo).ReturnType.FullName != typeof(WhatToDoNext).FullName)
191 throw new NotSupportedException("Option method must return '" + typeof(WhatToDoNext).FullName + "'");
192
193 ParameterInfo[] parameters = ((MethodInfo) memberInfo).GetParameters();
194 if ((parameters == null) || (parameters.Length == 0))
195 return null;
196 else
197 return parameters[0].ParameterType;
198 }
199
200 throw new NotSupportedException("'" + memberInfo.MemberType + "' memberType is not supported");
201 }
202
203 public OptionDetails(MemberInfo memberInfo, OptionAttribute option, Options optionBundle)
204 {
205 ShortForm = ("" + option.ShortForm).Trim();
206 if (option.LongForm == null)
207 LongForm = string.Empty;
208 else
209 LongForm = (option.LongForm == string.Empty) ? memberInfo.Name : option.LongForm;
210 AlternateForm = option.AlternateForm;
211 ShortDescription = ExtractParamName(option.ShortDescription);
212 Occurs = 0;
213 OptionBundle = optionBundle;
214 BooleanOption = false;
215 MemberInfo = memberInfo;
216 NeedsParameter = false;
217 Values = null;
218 MaxOccurs = 1;
219 VBCStyleBoolean = option.VBCStyleBoolean;
220 SecondLevelHelp = option.SecondLevelHelp;
221 Hidden = false; // TODO: check other attributes
222
223 ParameterType = TypeOfMember(memberInfo);
224
225 if (ParameterType != null)
226 {
227 if (ParameterType.FullName != "System.Boolean")
228 {
229 if (LongForm.IndexOf(':') >= 0)
230 throw new InvalidOperationException(
231 "Options with an embedded colon (':') in their visible name must be boolean!!! [" +
232 MemberInfo.ToString() + " isn't]");
233
234 NeedsParameter = true;
235
236 if (option.MaxOccurs != 1)
237 {
238 if (ParameterType.IsArray)
239 {
240 Values = new ArrayList();
241 MaxOccurs = option.MaxOccurs;
242 }
243 else
244 {
245 if (MemberInfo is MethodInfo || MemberInfo is PropertyInfo)
246 MaxOccurs = option.MaxOccurs;
247 else
248 throw new InvalidOperationException("MaxOccurs set to non default value (" + option.MaxOccurs + ") for a [" +
249 MemberInfo.ToString() + "] option");
250 }
251 }
252 }
253 else
254 {
255 BooleanOption = true;
256 if (option.MaxOccurs != 1)
257 {
258 if (MemberInfo is MethodInfo || MemberInfo is PropertyInfo)
259 MaxOccurs = option.MaxOccurs;
260 else
261 throw new InvalidOperationException("MaxOccurs set to non default value (" + option.MaxOccurs + ") for a [" +
262 MemberInfo.ToString() + "] option");
263 }
264 }
265 }
266 }
267
268 internal string Key
269 {
270 get
271 {
272 if (useGNUFormat)
273 {
274 string ShortID = ShortForm.ToUpper();
275 if (ShortID == string.Empty)
276 ShortID = "ZZ";
277 return ShortID + " " + LongForm;
278 }
279 else
280 return LongForm + " " + ShortForm;
281 }
282 }
283
284 int IComparable.CompareTo(object other)
285 {
286 return Key.CompareTo(((OptionDetails) other).Key);
287 }
288
289 public void TransferValues()
290 {
291 if (Values != null)
292 {
293 if (MemberInfo is FieldInfo)
294 {
295 ((FieldInfo) MemberInfo).SetValue(OptionBundle, Values.ToArray(ParameterType.GetElementType()));
296 return;
297 }
298
299 if (MemberInfo is PropertyInfo)
300 {
301 ((PropertyInfo) MemberInfo).SetValue(OptionBundle, Values.ToArray(ParameterType.GetElementType()), null);
302 return;
303 }
304
305 if (
306 (WhatToDoNext)
307 ((MethodInfo) MemberInfo).Invoke(OptionBundle, new object[] {Values.ToArray(ParameterType.GetElementType())}) ==
308 WhatToDoNext.AbandonProgram)
309 Environment.Exit(1);
310 }
311 }
312
313 private int HowManyBeforeExceedingMaxOccurs(int howMany)
314 {
315 if (MaxOccurs > 0 && (Occurs + howMany) > MaxOccurs)
316 {
317 Console.Error.WriteLine("Option " + LongForm + " can be used at most " + MaxOccurs + " times. Ignoring extras...");
318 howMany = MaxOccurs - Occurs;
319 }
320 Occurs += howMany;
321 return howMany;
322 }
323
324 private bool AddingOneMoreExceedsMaxOccurs
325 {
326 get { return HowManyBeforeExceedingMaxOccurs(1) < 1; }
327 }
328
329 private void DoIt(bool setValue)
330 {
331 if (AddingOneMoreExceedsMaxOccurs)
332 return;
333
334 if (verboseParsing)
335 Console.WriteLine("<{0}> set to [{1}]", LongForm, setValue);
336
337 if (MemberInfo is FieldInfo)
338 {
339 ((FieldInfo) MemberInfo).SetValue(OptionBundle, setValue);
340 return;
341 }
342 if (MemberInfo is PropertyInfo)
343 {
344 ((PropertyInfo) MemberInfo).SetValue(OptionBundle, setValue, null);
345 return;
346 }
347 if ((WhatToDoNext) ((MethodInfo) MemberInfo).Invoke(OptionBundle, null) == WhatToDoNext.AbandonProgram)
348 Environment.Exit(1);
349 }
350
351 private void DoIt(string parameterValue)
352 {
353 if (parameterValue == null)
354 parameterValue = "";
355
356 string[] parameterValues;
357
358 if (dontSplitOnCommas || MaxOccurs == 1)
359 parameterValues = new string[] {parameterValue};
360 else
361 parameterValues = parameterValue.Split(',');
362
363 int waitingToBeProcessed = HowManyBeforeExceedingMaxOccurs(parameterValues.Length);
364
365 foreach(string parameter in parameterValues)
366 {
367 if (waitingToBeProcessed-- <= 0)
368 break;
369
370 object convertedParameter = null;
371
372 if (verboseParsing)
373 Console.WriteLine("<" + LongForm + "> set to [" + parameter + "]");
374
375 if (Values != null && parameter != null)
376 {
377 try
378 {
379 convertedParameter = Convert.ChangeType(parameter, ParameterType.GetElementType());
380 }
381 catch(Exception)
382 {
383 Console.WriteLine(
384 String.Format("The value '{0}' is not convertible to the appropriate type '{1}' for the {2} option", parameter,
385 ParameterType.GetElementType().Name, DefaultForm));
386 }
387 Values.Add(convertedParameter);
388 continue;
389 }
390
391 if (parameter != null)
392 {
393 try
394 {
395 convertedParameter = Convert.ChangeType(parameter, ParameterType);
396 }
397 catch(Exception)
398 {
399 Console.WriteLine(
400 String.Format("The value '{0}' is not convertible to the appropriate type '{1}' for the {2} option", parameter,
401 ParameterType.Name, DefaultForm));
402 continue;
403 }
404 }
405
406 if (MemberInfo is FieldInfo)
407 {
408 ((FieldInfo) MemberInfo).SetValue(OptionBundle, convertedParameter);
409 continue;
410 }
411
412 if (MemberInfo is PropertyInfo)
413 {
414 ((PropertyInfo) MemberInfo).SetValue(OptionBundle, convertedParameter, null);
415 continue;
416 }
417
418 if ((WhatToDoNext) ((MethodInfo) MemberInfo).Invoke(OptionBundle, new object[] {convertedParameter}) ==
419 WhatToDoNext.AbandonProgram)
420 Environment.Exit(1);
421 }
422 }
423
424 private bool IsThisOption(string arg)
425 {
426 if (arg != null && arg != string.Empty)
427 {
428 arg = arg.TrimStart('-', '/');
429 if (VBCStyleBoolean)
430 arg = arg.TrimEnd('-', '+');
431 return (arg == ShortForm || arg == LongForm || arg == AlternateForm);
432 }
433 return false;
434 }
435
436 public static void LinkAlternatesInsideList(ArrayList list)
437 {
438 Hashtable baseForms = new Hashtable(list.Count);
439 foreach(OptionDetails option in list)
440 {
441 if (option.LongForm != null && option.LongForm.Trim().Length > 0)
442 {
443 string[] parts = option.LongForm.Split(':');
444 if (parts.Length < 2)
445 {
446 baseForms.Add(option.LongForm, option);
447 }
448 else
449 {
450 OptionDetails baseForm = (OptionDetails) baseForms[parts[0]];
451 if (baseForm != null)
452 {
453 // simple linked list
454 option.NextAlternate = baseForm.NextAlternate;
455 baseForm.NextAlternate = option;
456 }
457 }
458 }
459 }
460 }
461
462 private bool IsAlternate(string compoundArg)
463 {
464 OptionDetails next = NextAlternate;
465 while(next != null)
466 {
467 if (next.IsThisOption(compoundArg))
468 return true;
469 next = next.NextAlternate;
470 }
471 return false;
472 }
473
474 public OptionProcessingResult ProcessArgument(string arg, string nextArg)
475 {
476 if (IsAlternate(arg + ":" + nextArg))
477 return OptionProcessingResult.NotThisOption;
478
479 if (IsThisOption(arg))
480 {
481 if (!NeedsParameter)
482 {
483 if (VBCStyleBoolean && arg.EndsWith("-"))
484 DoIt(false);
485 else
486 DoIt(true);
487 return OptionProcessingResult.OptionAlone;
488 }
489 else
490 {
491 DoIt(nextArg);
492 return OptionProcessingResult.OptionConsumedParameter;
493 }
494 }
495
496 if (IsThisOption(arg + ":" + nextArg))
497 {
498 DoIt(true);
499 return OptionProcessingResult.OptionConsumedParameter;
500 }
501
502 return OptionProcessingResult.NotThisOption;
503 }
504 }
505 }
Git import of castle svn