[31m-- main is main file of main project written with Ada.[m
[31m-- Main is Copyright (C) 2026 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 := "2026-10-05 21:18:35"[m
[31m-- Version := "0.43.22a"[m
[01;34mpackage[m Org[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
      Quiet [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"q"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Quiet[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"quiet option"[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
      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
      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

     [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
      Quiet [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"q"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Quiet[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"quiet option"[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

      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
      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

     [31m);[m


   [01;34mtype[m Parameters_Kit_Record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Kit [31m:[m Parameters_kit[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m

[01;34mend[m Org[31m.[mParameters [31m;[m 
