[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Agnostic is Ada Generic Neural Object System Engineering.                                                                                                --[m
[31m-- Gnostic (C) Copyright 2016 Manuel De Girardi.                                                                                                           --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
  
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Date        := 2016-11-27 20:53:00 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.14.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m

[01;34mwith[m Ada[31m.[mWide_Text_Io[31m;[m
[01;34mwith[m Ada[31m.[mText_Io[31m;[m
[01;34mwith[m Gnat[31m.[mCommand_Line[31m;[m
[01;34muse[m Gnat[31m;[m
[01;34muse[m Ada[31m;[m
[01;34mwith[m Ada[31m.[mCharacters[31m.[mHandling[31m;[m
[01;34muse[m Ada[31m.[mCharacters[31m.[mHandling[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mUTF_Encoding[31m.[mStrings[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m.[mUTF_Encoding[31m.[mStrings[31m;[m

[01;34mpackage[m [01;34mbody[m Gnos[31m.[mOptions [01;34mis[m
   
   [01;34mfunction[m Get_Options_From_Command_Line
     [31m-- To get Options_Kit_array_Type from argument in command_line ;[m
     
     [01;34mreturn[m Options_Kit_Array_Type [01;34mis[m
      
      Options_Kit [31m:[m [01;34mconstant[m Options_Kit_Array_Type [31m:=[m Full_Line_Options_Kit[31m;[m
      
   [01;34mbegin[m
      [31m-- D'abord je traite les arguments de la ligne de commande ;                 --[m
  Opt [31m:[m
      [01;34mloop[m	 
	 [01;34mbegin[m
	    [01;34mloop[m
	       [01;34mbegin[m
		  [01;34mcase[m Command_Line[31m.[m[01;30mGetopt[m [31m([m[31m"F: h v n: u: c: V: o: p: e: w: W: l: a: g: s:"[m[31m)[m [01;34mis[m
		     
		     [01;34mwhen[m ASCII[31m.[mNUL [31m=>[m [01;34mexit[m Opt[31m;[m
			
		     [01;34mwhen[m [31m'F'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"F"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mConfig_Filename[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mConfig_Filename[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
			
		     [01;34mwhen[m [31m'h'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"h"[m [01;34mthen[m		     
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mHelp[31m).[mIs_Setted [31m:=[m True[31m;[m			
		     [01;34mwhen[m [31m'v'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"v"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mVersion_Edition[31m).[mIs_Setted [31m:=[m True[31m;[m
		     [01;34mwhen[m [31m'n'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"n"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mName_Length[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mName_Length[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
			
		     [01;34mwhen[m [31m'u'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"u"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mUnit_Max[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mUnit_Max[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
			
		     [01;34mwhen[m [31m'c'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"c"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mChar_Max[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mChar_Max[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'V'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"V"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mVersion[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mVersion[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
			
		     [01;34mwhen[m [31m'o'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"o"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mObjects_Max[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mObjects_Max[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'p'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"p"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mSelf_Programming[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mSelf_Programming[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'e'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"e"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mSelf_Executed[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mSelf_Executed[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'w'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"w"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mSelf_Wait[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mSelf_Wait[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'W'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"W"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mUser_Wait[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mUser_Wait[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'l'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"l"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mLang[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mLang[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'g'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"g"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mWith_Gtk[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mWith_Gtk[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m'a'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"a"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mWith_Ada[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mWith_Ada[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     [01;34mwhen[m [31m's'[m [31m=>[m
			[01;34mif[m Command_Line[31m.[mFull_Switch [31m/=[m [31m"s"[m [01;34mthen[m
			   [01;34mraise[m Command_Line[31m.[mInvalid_Switch[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mOptions_Kit[m[31m([mWith_Aws[31m).[mIs_Setted [31m:=[m True[31m;[m
			[01;30mOptions_Kit[m[31m([mWith_Aws[31m).[mValue [31m:=[m
			  [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mCommand_Line[31m.[mParameter[31m)));[m
		     
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mraise[m Program_Error[31m;[m         [31m-- cannot occur!			[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
		  
	       [01;34mexception[m
		  [01;34mwhen[m Command_Line[31m.[mInvalid_Switch    [31m=>[m Text_Io[31m.[m[01;30mPut_Line[m [31m([m[31m"Invalid Switch "[m [31m&[m Command_Line[31m.[mFull_Switch[31m);[m
		     
		     [01;34mraise[m[31m;[m
		     
		  [01;34mwhen[m Command_Line[31m.[mInvalid_Parameter [31m=>[m
		     
		     [01;34mraise[m Spec_Error[31m;[m
		     		  
	       [01;34mend[m[31m;[m
		  
	    [01;34mend[m [01;34mloop[m[31m;[m      
	 [01;34mexception[m
	    [01;34mwhen[m Spec_Error [31m=>[m
	       Text_Io[31m.[m[01;30mPut_Line[m [31m([m[31m"No parameter for "[m [31m&[m Command_Line[31m.[mFull_Switch[31m);[m
	       [01;34mraise[m[31m;[m
	       
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m opt[31m;[m
      
      [01;34mreturn[m Options_Kit[31m;[m
      

      
      
   [01;34mend[m Get_Options_From_Command_Line[31m;[m
   [31m-- return Options_Kit_Array_Type;[m
   
   
   [01;34mfunction[m Get_Options_From_File
     [31m([mFilename [31m:[m [01;34min[m [32mWide_String[m[31m)[m
     [31m-- To get Options_Kit_array_Type from argument in file ;[m
     
     [01;34mreturn[m Options_Kit_Array_Type [01;34mis[m
      Options_Kit [31m:[m [01;34mconstant[m Options_Kit_Array_Type [31m:=[m Full_File_Options_Kit[31m;[m
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m     
      
      Wide_Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mIn_File[31m,[m [01;30mTo_String[m[31m([mFilename[31m));[m
      [01;34mwhile[m [01;34mnot[m Wide_Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m

	 [01;34mdeclare[m
	    Line   [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m Wide_Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
	    Switch [31m:[m [01;34mconstant[m [32mCharacter[m [31m:=[m [01;30mTo_Character[m[31m([m[01;30mLine[m[31m([mLine'First[31m));[m
	    Parameter [31m:[m [01;34maccess[m [32mString[m[31m;[m
	 [01;34mbegin[m
	    
	    [01;34mif[m Line'Length [31m>[m [35m1[m [01;34mthen[m
	       Parameter [31m:=[m [01;34mnew[m [32mString[m [31m' (To_String(Line(Line'[mFirst[31m+[m[35m1[m[31m..[mLine'last[31m)));[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    
	    [01;34mcase[m Switch [01;34mis[m
	       [01;34mwhen[m [31m'F'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mConfig_Filename[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mConfig_Filename[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
		  
	       [01;34mwhen[m [31m'h'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mHelp[31m).[mIs_Setted [31m:=[m True[31m;[m		  
		  
	       [01;34mwhen[m [31m'v'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mVersion[31m).[mIs_Setted [31m:=[m True[31m;[m

	       [01;34mwhen[m [31m'n'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mName_Length[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mName_Length[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
		  
	       [01;34mwhen[m [31m'u'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mUnit_Max[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mUnit_max[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
		  
	       [01;34mwhen[m [31m'c'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mChar_max[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mChar_max[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'V'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mVersion[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mVersion[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
		  
	       [01;34mwhen[m [31m'o'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mObjects_Max[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mObjects_Max[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'p'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mSelf_Programming[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mSelf_Programming[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'e'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mSelf_Executed[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mSelf_Executed[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'w'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mSelf_wait[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mSelf_wait[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'W'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mUser_wait[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mUser_wait[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'l'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mLang[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mLang[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'g'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mWith_Gtk[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mWith_Gtk[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m'a'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mWith_Ada[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mWith_Ada[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [31m's'[m [31m=>[m
		  
		  [01;30mOptions_Kit[m[31m([mWith_Aws[31m).[mIs_Setted [31m:=[m True[31m;[m
		  [01;30mOptions_Kit[m[31m([mWith_Aws[31m).[mValue [31m:=[m
		    [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTo_Wide_String[m[31m([m[01;30mDecode[m[31m([mParameter[31m.[m[01;34mall[m[31m)));[m
	       [01;34mwhen[m [01;34mothers[m [31m=>[m
		  [01;34mnull[m[31m;[m
	    [01;34mend[m [01;34mcase[m[31m;[m

	    
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m

      
      
      Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
     [01;34mreturn[m Options_Kit[31m;[m
   [01;34mend[m Get_Options_From_File[31m;[m
   [31m-- return Options_Kit_Array_Type;  [m
   
  
[01;34mend[m Gnos[31m.[mOptions[31m;[m
