[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-16 15:39:33 ; [m
[31m-- Version := 0.37.21a ; [m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m
[01;34mwith[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m
[01;34mwith[m Ada[31m.[mText_Io[31m;[m
[01;34muse[m Ada[31m.[mText_Io[31m;[m
[01;34mpackage[m [01;34mbody[m M[31m.[mEngineering [01;34mis[m
   
   [01;34mfunction[m [31m"<"[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m Abstract_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Left [31m/=[m [01;34mnull[m [01;34mand[m Right [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;34mif[m Left[31m.[mInfo[31m.[mCreated [31m<[m Right[31m.[mInfo[31m.[mCreated [01;34mthen[m
	    [01;34mreturn[m True[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mreturn[m False[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mreturn[m Left[31m.[mDate [31m<[m Right[31m.[mDate[31m;[m
   [01;34mend[m [31m"<"[m[31m;[m
   
   
[01;34mend[m M[31m.[mEngineering [31m;[m 
