[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Gnostic is Ada Generic Neural Object System Engineering.                                                                                                --[m
[31m-- Gnostic (C) Copyright 2016 Manuel De Girardi.                                                                                                           --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m

[01;34mwith[m Gnos[31m;[m
[01;34mwith[m Gnos[31m.[mWindows[31m;[m
[01;34mwith[m Gnos[31m.[mParameters[31m;[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Date        := 2016-12-06 15:54:11 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.36.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m-- Dependences : bash xterm source-highlight make tail head tar[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m

[01;34mwith[m Text_Io[31m;[m
[01;34mwith[m Gtk[31m.[mMain[31m;[m

[01;34mprocedure[m Gnostic [01;34mis[m
   
   [01;34muse[m Gnos[31m;[m
   [01;34muse[m Gnos[31m.[mParameters[31m;[m
   
   End_Of_Task  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   
   Gnose_Params [31m:[m [01;34maliased[m Gnose_Parameters_Type[31m;[m
      
[01;34mbegin[m

   [31m--Text_Io.Put_Line("Setting parameters and options from config file or command_line...");[m
   Parameters[31m.[m[01;30mInitialize[m[31m([mGnose_Params[31m,[m End_Of_Task[31m);[m
      
   [01;34mif[m End_Of_Task [01;34mthen[m      
      [01;34mreturn[m[31m;[m
   [01;34mend[m [01;34mif[m[31m;[m
   
   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"You are setted this options from config file or command_line..."[m[31m);[m
   Text_Io[31m.[mNew_Line[31m;[m
   [01;30mPrint_Parameters[m[31m([mGnose_Params[31m.[mkit[31m);[m
   
   [01;34mdeclare[m
      
      [01;34muse[m Gnos[31m.[mWindows[31m;[m
      [01;34muse[m Gnos[31m.[mWindows[31m.[mAgnose[31m;[m
      [31m-- use Gnos.Windows.Agnose.Neural;[m
      [31m-- use Gnos.Windows.Agnose.Neural.Objects_System;[m
      [31m-- use Gnos.Windows.Agnose.Neural.Objects_System.Objects_System;[m
      [31m-- use Gnos.Windows.Agnose.Neural.Objects_System.Objects_system.Language;[m
      [31m-- use Gnos.Windows.Agnose.Neural.Objects_System.Objects_System.Language.Agnose_Projects;[m
      
      
      Gnostic [31m:[m Gnose_Access[31m;[m
      Gnose_Context [31m:[m [01;34mconstant[m [01;34maccess[m Gnose_Context_Record [31m:=[m [01;34mnew[m Gnose_Context_Record[31m;[m
            	 
   [01;34mbegin[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"If this options are correct then press enter, else press Ctl+D"[m[31m);[m
      Text_Io[31m.[mSkip_Line[31m;[m
      Text_Io[31m.[mNew_Line[31m;[m			
      [01;30mInitialize[m[31m([mGnose_Context[31m.[m[01;34mall[m[31m,[m Gnose_Params[31m);[m   
      Text_Io[31m.[mNew_Line[31m;[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to check parameters..."[m[31m);[m
      Text_Io[31m.[mNew_Line[31m;[m
      [01;34mif[m [01;34mnot[m Gnos[31m.[mWindows[31m.[mAgnose[31m.[m[01;30mCheck_Parameters[m[31m([mGnose_Context[31m.[m[01;34mall[m[31m,[m Gnose_Params[31m)[m [01;34mthen[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m			
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"This values are setted for Context use."[m[31m);[m
      Text_Io[31m.[mNew_Line[31m;[m
      [01;30mPrint_Context[m[31m([mGnose_Context[31m.[m[01;34mall[m[31m);[m			
      Text_Io[31m.[mNew_Line[31m;[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"If this values are correct then press enter, else press Ctl+D"[m[31m);[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"(--Text_Io.Skip_Line)"[m[31m);[m
      
      Gtk[31m.[mMain[31m.[mInit[31m;[m 
           
      Gnostic [31m:=[m [01;30mGnose_Initialize[m[31m([mGnose_Context[31m,[m Gnose_Params'[01;34maccess[m[31m);[m      
      [01;34mif[m Gnostic [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Gnostic[31m.[mGnose_Interface [31m/=[m [01;34mnull[m [01;34mthen[m
	 Gtk[31m.[mMain[31m.[mMain[31m;[m
      [01;34melse[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m[31m;[m
   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"End of program."[m[31m);[m
[01;34mexception[m
   [01;34mwhen[m Text_Io[31m.[mEnd_Error [31m=>[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"End of program."[m[31m);[m
   
[01;34mend[m Gnostic[31m;[m
