[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-20 18:49:53 ; [m
[31m-- Version := 0.10.0r ; [m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m

[01;34mpackage[m Sky[31m.[mLogs [01;34mis[m
   
   [01;34mtype[m Log_Enum [01;34mis[m [31m([mNone[31m,[m Organizer[31m,[m Computer[31m,[m Planning[31m,[m
		     Makefile[31m,[m Manpage[31m,[m Project[31m,[m HOWTO[31m,[m HISTORY[31m,[m Test[31m,[m
		     Moneybox[31m,[m Activity[31m,[m Stocks[31m,[m Bank[31m);[m
   
   [01;34mtype[m Session_Record [01;34mis[m
      [01;34mrecord[m
	 Top [31m:[m Time [31m:=[m [01;30mTime_Of[m[31m([m[35m2399[m[31m,[m [35m12[m[31m,[m [35m31[m[31m,[m [35m86399.99[m[31m);[m
	 Bot [31m:[m Time [31m:=[m Clock[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mOpen[m [31m([mSession [31m:[m [01;34min[m [01;34mout[m Session_Record[31m);[m
   [01;34mprocedure[m [01;30mClose[m [31m([mSession [31m:[m [01;34min[m [01;34mout[m Session_Record[31m);[m
   
   [01;34mtype[m Session_Array [01;34mis[m [01;34marray[m [31m([mLog_Enum[31m)[m [01;34mof[m Session_Record[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 Log_Record [01;34mis[m
      [01;34mrecord[m
	 Total [31m:[m Long_Long_Float [31m:=[m [35m0.0[m[31m;[m
	 Rate  [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Log_Array [01;34mis[m [01;34marray[m [31m([mLog_Enum[31m)[m [01;34mof[m Log_Record[31m;[m
   
   [01;34mprocedure[m [01;30mStatistic[m [31m([mSessions [31m:[m [01;34min[m [01;34mout[m Session_Array[31m;[m Logs [31m:[m [01;34min[m [01;34mout[m Log_Array[31m);[m
   
   [01;34mprocedure[m [01;30mSave[m [31m([mLogs [31m:[m [01;34min[m Log_Array[31m;[m Filename [31m:[m [01;34min[m [32mString[m[31m);[m
   [01;34mprocedure[m [01;30mRestore[m [31m([mLogs [31m:[m [01;34mout[m Log_Array[31m;[m Filename [31m:[m [01;34min[m [32mString[m[31m);[m
   
   
   Log_Filename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"sky-logs.txt"[m[31m;[m

[01;34mend[m Sky[31m.[mLogs [31m;[m 
