[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Gnostic is Ada Generic Neural Object System Engineering.                                                                                                --[m
[31m-- Gnostic (C) Copyright 2016 Manuel De Girardi.                                                                                                           --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
  
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Date        := 2016-11-27 19:33:08 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.12.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m

[01;34mpackage[m Gnos[31m.[mTools [01;34mis[m


   
   [01;34mfunction[m [01;30mInteger_Image[m [31m([mValue [31m:[m [01;34min[m [32mInteger[m[31m)[m [01;34mreturn[m [32mString[m[31m;[m
   
   [01;34mprocedure[m [01;30mDifference_In_Years[m[31m([mTop_Date [31m:[m [01;34min[m Time[31m;[m
                                 Bot_Date [31m:[m [01;34min[m Time[31m;[m
                                 Years    [31m:[m [01;34mout[m Natural[31m;[m
                                 Months   [31m:[m [01;34mout[m Natural[31m;[m
                                 Days     [31m:[m [01;34mout[m Natural[31m;[m
                                 Houres   [31m:[m [01;34mout[m Natural[31m;[m
                                 Minutes  [31m:[m [01;34mout[m Natural[31m;[m
                                 Second   [31m:[m [01;34mout[m Natural[31m;[m
                                 Rest     [31m:[m [01;34mout[m [32mDuration[m[31m);[m
   
   [01;34mfunction[m [01;30mYMD_Elapsed_String[m[31m([mYears    [31m:[m [01;34min[m Natural[31m;[m
                           Months   [31m:[m [01;34min[m Natural[31m;[m
                           Days     [31m:[m [01;34min[m Natural[31m)[m [01;34mreturn[m [32mString[m[31m;[m
   
   [01;34mfunction[m [01;30mExpand_filename[m [31m([mLine [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m [32mString[m[31m;[m
   
   [01;34mfunction[m [01;30mNormalize_Quoted_Argument[m[31m([mArg [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m [32mString[m[31m;[m
   
   
   [01;34mprocedure[m [01;30mMakefile[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m);[m
[01;34mend[m Gnos[31m.[mTools[31m;[m
