[31m-- aish is another attempt of A. i. written with Ada.[m
[31m-- Aish is Copyright (C) 2024 Manuel De Girardi ; [m
[31m--[m
[31m--   This program is free software; you can redistribute it and/or modify[m
[31m--   it under the terms of the GNU General Public License as published by[m
[31m--   the Free Software Foundation; either version 2 of the License, or[m
[31m--   (at your option) any later version.[m
[31m--[m
[31m--   This program is distributed in the hope that it will be useful,[m
[31m--   but WITHOUT ANY WARRANTY; without even the implied warranty of[m
[31m--   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the[m
[31m--   GNU General Public License for more details.[m
[31m--[m
[31m--   You should have received a copy of the GNU General Public License[m
[31m--   along with this program; if not, write to the Free Software[m
[31m--   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA[m
[31m--[m
[31m-- Date := "2024-04-29 20:25:34"[m
[31m-- Version := "1.1.0r"[m
[01;34mpackage[m Ai[31m.[mParameters [01;34mis[m
   [01;34mtype[m [01;30mParameter_Record[m [31m([mRequiered_Parameter [31m:[m [32mBoolean[m[31m)[m [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m	 
	 Switch   [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m	 	 
	 Num_Iter [31m:[m Natural [31m:=[m [35m0[m[31m;[m	 	 
	 Is_Setted [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
	 Parameter_Flag [31m:[m Flag_Enum [31m:=[m None[31m;[m	 
	 Descr [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m	 
	 [01;34mcase[m Requiered_Parameter [01;34mis[m
	    [01;34mwhen[m False [31m=>[m
	       [01;34mnull[m[31m;[m
	    [01;34mwhen[m True [31m=>[m
	       
	       param [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	       Value [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   [01;34mtype[m Parameters_Kit [01;34mis[m 
     [01;34marray[m [31m([mFlag_Enum[31m)[m [01;34mof[m 
     [01;34maccess[m Parameter_Record[31m;[m
               
   Line_Parameters [31m:[m [01;34mconstant[m Parameters_Kit [31m:=[m 
     [31m([m
      
      None [31m=>[m [01;34mnull[m[31m,[m
      Config_Filename [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"F"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Config_Filename[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Configuration filename"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      
      Help [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"h"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m help[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print this message"[m[31m)),[m
      
      Version [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"v"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print the version"[m[31m)),[m
      Term_Name [31m=>[m [01;34mnew[m Parameter_Record '
      	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"N"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
      	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Term_Name[31m,[m 
      	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Terminal name"[m[31m),[m
      	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
      	 Value [31m=>[m [01;34mnull[m[31m),[m
      Initialize [31m=>[m [01;34mnew[m Parameter_Record '	
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"i"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Initialize[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"initiaize total value"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Add [31m=>[m [01;34mnew[m Parameter_Record '	
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Add[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Adding value to total"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Remove [31m=>[m [01;34mnew[m Parameter_Record '	
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"r"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Remove[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Remove value from total"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Total [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"t"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Total[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print fixed from -999999.99 to 999999.99"[m[31m))[m
     [31m);[m
   

   File_Parameters [31m:[m [01;34mconstant[m Parameters_Kit [31m:=[m 
	[31m([m
      
      None [31m=>[m [01;34mnull[m[31m,[m
	 Config_Filename [31m=>[m [01;34mnew[m Parameter_Record ' 
	   [31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"F"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Config_Filename[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Configuration filename"[m[31m),[m
	    Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	    Value [31m=>[m [01;34mnull[m[31m),[m
	 
	 Help [31m=>[m [01;34mnew[m Parameter_Record '
	   [31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"h"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m help[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print this message"[m[31m)),[m
	 
	 Version [31m=>[m [01;34mnew[m Parameter_Record '
	   [31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"v"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print the version"[m[31m)),[m
	 
	 Term_Name [31m=>[m [01;34mnew[m Parameter_Record '
	   [31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"N"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Term_Name[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Terminal name"[m[31m),[m
	    Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
	    Value [31m=>[m [01;34mnull[m[31m),[m
	 Initialize [31m=>[m [01;34mnew[m Parameter_Record '	
	   [31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"i"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Initialize[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"initiaize total value"[m[31m),[m
	    Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	    Value [31m=>[m [01;34mnull[m[31m),[m
	 Add [31m=>[m [01;34mnew[m Parameter_Record '	
	   [31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Add[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Adding value to total"[m[31m),[m
	    Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	    Value [31m=>[m [01;34mnull[m[31m),[m
	 Remove [31m=>[m [01;34mnew[m Parameter_Record '	
	   [31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"r"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Remove[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Remove value from total"[m[31m),[m
	    Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	    Value [31m=>[m [01;34mnull[m[31m),[m
	 Total [31m=>[m [01;34mnew[m Parameter_Record '
	   [31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"t"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	    Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Total[31m,[m 
	    Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print fixed from -999999.99 to 999999.99"[m[31m))[m
	[31m);[m
   
[01;34mend[m Ai[31m.[mParameters [31m;[m 
