[31m-- main is main file of main project written with Ada.[m
[31m-- Main is Copyright (C) 2025 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-09-17 22:48:46 ; [m
[31m-- Version := 0.38.0a ; [m
[01;34mwith[m M[31m.[mStrings[31m;[m
[01;34muse[m M[31m.[mStrings[31m;[m
[01;34mwith[m Gnat[31m.[mOs_Lib[31m;[m
[01;34muse[m Gnat[31m.[mOS_Lib[31m;[m
[01;34mpackage[m M[31m.[mTypes [01;34mis[m
   
   
   [01;34msubtype[m Rank_Range [01;34mis[m natural [01;34mrange[m Natural'First [31m..[m [35m10[m [31m;[m 
   
   
   [31m-- Audit type is used by m-server from webspir C. G. I. .[m
   [01;34mtype[m Audit_Type [01;34mis[m
      [01;34mrecord[m
	 Logname [31m:[m Wide_Access[31m;[m
	 Pgr_Name [31m:[m String_Access[31m;[m
	 Installation [31m:[m String_Access[31m;[m
	 Utilisation [31m:[m String_Access[31m;[m
	 Ergonomy [31m:[m String_Access[31m;[m
	 Rank [31m:[m Rank_Range [31m:=[m [35m0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m Audits_counter_Type [01;34mis[m
      [01;34mrecord[m
	 Count    [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 Pgr_Name [31m:[m String_Access[31m;[m
	 Beginner [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 advanced [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 expert [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 easy [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 difficult [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 simple [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 detailed [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 complex [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 Rank    [31m:[m [32minteger[m [31m:=[m [35m0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Rate_Type [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m5[m [01;34mrange[m [35m0.0[m [31m..[m [35m100.0[m[31m;[m
   
   
   
   [01;34mtype[m Audits_Stat_Type [01;34mis[m
      [01;34mrecord[m
	 Pgr_Name [31m:[m String_Access[31m;[m
	 Beginner [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 advanced [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 expert [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 easy [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 difficult [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 simple [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 detailed [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 complex [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
	 Rank    [31m:[m [32mfloat[m [31m:=[m [35m0.0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
[01;34mend[m M[31m.[mTypes [31m;[m 
