[31m-- Skywalker is another attempt of A. i. written with Ada.[m
[31m-- Skywalker 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-11-22 21:24:47 ; [m
[31m-- Version := 0.13.0a ; [m
[01;34mpackage[m Sky[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
      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
      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
      Geometry [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"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m geometry[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Descibe the term geometry ; (eg : 67x240)"[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
      style [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"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m style[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"style"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"string : Black_And_White, Black_And_Color, Color_And_White"[m [31m&[m
				       Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m&[m
				       [31m"                       White_And_Color, Color_And_Color, White_And_White"[m[31m),[m
	 Value [31m=>[m [01;34mnull[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
      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
      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
      Geometry [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"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m geometry[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Descibe the term geometry ; (eg : 67x240)"[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
      style [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"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m style[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"style"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"string : Black_And_White, Black_And_Color, Color_And_White"[m [31m&[m
				       Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m&[m
				       [31m"                       White_And_Color, Color_And_Color, White_And_White"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m)[m
     [31m);[m
      
[01;34mend[m Sky[31m.[mParameters [31m;[m 
