[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-30 21:43:38 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.26.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m

[01;34mwith[m Gnos[31m.[mVersions[31m.[mEnvironment[31m;[m
[01;34mwith[m Gnos[31m.[mParameters[31m;[m
[01;34muse[m Gnos[31m.[mParameters[31m;[m

[01;34mwith[m Gnos[31m.[mGnose[31m;[m
[01;34mwith[m Gtk[31m.[mPaned[31m;[m
[01;34mwith[m Gtk[31m.[mFrame[31m;[m
[01;34mwith[m Gtk[31m.[mBox[31m;[m
[01;34mwith[m Gtk[31m.[mScrolled_Window[31m;[m
[01;34mwith[m Gtk[31m.[mNotebook[31m;[m
[01;34mwith[m Gtk[31m.[mText_View[31m;[m
[01;34mwith[m Gtk[31m.[mText_Buffer[31m;[m
[31m--with Gtk.Text;[m
[01;34mwith[m Gtkada[31m.[mCanvas[31m;[m
[01;34mwith[m Gdk[31m;[m
[01;34mwith[m Gdk[31m.[mColor[31m;[m
[01;34mwith[m Cairo[31m;[m
[01;34mwith[m Glib[31m;[m
[01;34mwith[m Glib[31m.[mMain[31m;[m

[01;34muse[m Gtk[31m.[mPaned[31m;[m
[01;34muse[m Gtk[31m.[mFrame[31m;[m
[01;34muse[m Gtk[31m.[mBox[31m;[m
[01;34muse[m Gtk[31m.[mScrolled_Window[31m;[m
[01;34muse[m Gtk[31m.[mNotebook[31m;[m
[01;34muse[m Gtk[31m.[mText_View[31m;[m
[01;34muse[m Gtk[31m.[mText_Buffer[31m;[m
[31m--use Gtk.Text;[m
[01;34muse[m Gtkada[31m.[mCanvas[31m;[m
[01;34muse[m Gdk[31m;[m
[01;34muse[m Gdk[31m.[mColor[31m;[m
[01;34muse[m Cairo[31m;[m
[01;34muse[m Glib[31m;[m
[01;34muse[m Glib[31m.[mMain[31m;[m
[01;34mwith[m Pango[31m.[mLayout[31m;[m        [01;34muse[m Pango[31m.[mLayout[31m;[m
[01;34mwith[m Gdk[31m.[mEvent[31m;[m           [01;34muse[m Gdk[31m.[mEvent[31m;[m

[01;34mwith[m Gtk[31m.[mMain[31m;[m
[01;34mwith[m Gtk[31m.[mHandlers[31m;[m
[01;34mpragma[m [01;30mElaborate_All[m[31m([mGtk[31m.[mHandlers[31m);[m
[01;34muse[m Gtk[31m.[mHandlers[31m;[m

[01;34mwith[m Gtk[31m.[mWindow[31m;[m
[01;34muse[m Gtk[31m.[mWindow[31m;[m
[01;34mwith[m Gtk[31m.[mUI_Manager[31m;[m                    [01;34muse[m Gtk[31m.[mUI_Manager[31m;[m
[01;34mwith[m Gtk[31m.[mAction_Group[31m;[m                  [01;34muse[m Gtk[31m.[mAction_Group[31m;[m

[01;34mwith[m System[31m.[mAddress_To_Access_Conversions[31m;[m
[01;34muse[m System[31m;[m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m

[01;34mwith[m Gnat[31m.[mOS_Lib[31m;[m
[01;34muse[m Gnat[31m.[mOs_Lib[31m;[m

[01;34mwith[m Gnos[31m.[mResults[31m;[m
[01;34muse[m Gnos[31m.[mResults[31m;[m

[01;34mpackage[m Gnos[31m.[mWindows [01;34mis[m
   
   Gnose_Params [31m:[m Gnose_Parameters_Type[31m;[m
   
   [01;34mpackage[m Agnose [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mGnose[m[31m([mGnose_Params[31m);[m
   [01;34muse[m Agnose[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_system[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_System[31m.[mLanguage[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_System[31m.[mLanguage[31m.[mAgnose_Projects[31m;[m
   
   [01;34mpackage[m Environment [01;34mis[m [01;34mnew[m Gnos[31m.[mVersions[31m.[m[01;30mEnvironment[m[31m([mAgnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_System[31m.[mLanguage[31m.[mAgnose_Projects[31m);[m
   [01;34muse[m Environment[31m;[m
   
   [01;34mtype[m Gnose_Record[31m;[m
   
   [01;34mtask[m [01;34mtype[m [01;30mGnose_Process[m[31m([mGnostic [31m:[m [01;34maccess[m Gnose_Record[31m)[m [01;34mis[m
      [01;34mentry[m Initialize
	[31m([mDate [31m:[m [01;34min[m Time[31m;[m
	 Self[31m,[m User [31m:[m [01;34min[m [32mDuration[m[31m);[m
      [01;34mentry[m [01;30mRun[m[31m([mProgramming[31m,[m Executed [31m:[m [01;34min[m [32mBoolean[m[31m);[m
      [01;34mentry[m Halt[31m;[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Respond[31m;[m
      [01;34mentry[m Train[31m;[m
      [01;34mentry[m Info[31m;[m
      [01;34mentry[m [01;30mSet_Neural[m[31m([mHuman_Lang [31m:[m [01;34min[m Human_Lang_Enum[31m);[m      
      [01;34mentry[m [01;30mGet_Language[m[31m([mLanguage_Unit [31m:[m [01;34mout[m Language_Unit_Access[31m;[m
			 Machine_Lang [31m:[m [01;34min[m Machine_Lang_Enum[31m);[m
      [01;34mentry[m [01;30mGet_Neural[m[31m([mNeural_Unit [31m:[m [01;34mout[m Neural_Unit_Access[31m;[m
		       Human_Lang [31m:[m [01;34min[m Human_Lang_Enum[31m);[m      
      [01;34mentry[m Build[31m;[m
      [01;34mentry[m Execute[31m;[m
   [01;34mend[m Gnose_Process[31m;[m
   
   [01;34mtype[m Gnose_Access [01;34mis[m [01;34maccess[m [01;34mall[m Gnose_Record[31m;[m
     
   Pro_Path [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"."[m[31m;[m
   Ada_Path [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"/usr/lib/gcc/x86_64-linux-gnu/8/adainclude/"[m[31m;[m
   Gtk_Path [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"/usr/share/ada/adainclude/gtkada/"[m[31m;[m
   Aws_Path [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"/usr/share/ada/adainclude/aws/"[m[31m;[m

   [01;34mfunction[m Gnose_Initialize
     [31m([mGnose_Context [31m:[m [01;34maccess[m Gnose_Context_Record[31m;[m
      Gnose_Params [31m:[m [01;34maccess[m Gnose_Parameters_Type[31m)[m
          [01;34mreturn[m Gnose_Access[31m;[m
   
   
   
   [01;34mtype[m Common_Paned_Frame_Type [01;34mis[m [01;34mabstract[m [01;34mtagged[m
      [01;34mrecord[m
	 Frame  [31m:[m Gtk_Frame[31m;[m
	 Box    [31m:[m Gtk_Vbox[31m;[m
	 Scroll [31m:[m Gtk_Scrolled_Window[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Machine_Language_Frame_Type [01;34mis[m [01;34mnew[m Common_Paned_Frame_Type [01;34mwith[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Machine_Access [01;34mis[m [01;34maccess[m Machine_Language_Frame_Type[31m;[m
   
   [01;34mtype[m Machine_Set [01;34mis[m [01;34marray[m [31m([mMachine_Lang_Enum[31m)[m [01;34mof[m Machine_Access[31m;[m
   
   [01;34mtype[m Human_Language_Frame_Type [01;34mis[m [01;34mnew[m Common_Paned_Frame_Type [01;34mwith[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Human_Language_Frame_Access [01;34mis[m [01;34maccess[m [01;34mall[m Human_Language_Frame_Type[31m;[m
   
   
   [01;34mtype[m Parmeters_Frame_Type [01;34mis[m [01;34mnew[m Common_Paned_Frame_Type [01;34mwith[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Image_Canvas_Record [01;34mis[m [01;34mnew[m Interactive_Canvas_Record [01;34mwith[m [01;34mnull[m [01;34mrecord[m[31m;[m
      
   [01;34mtype[m Image_Canvas [01;34mis[m [01;34maccess[m [01;34mall[m Image_Canvas_Record'Class[31m;[m
   
   [01;34mtype[m Display_Item_Record [01;34mis[m [01;34mnew[m Canvas_Item_Record [01;34mwith[m [01;34mrecord[m
      Canvas [31m:[m Interactive_Canvas[31m;[m
      Color  [31m:[m Gdk[31m.[mColor[31m.[mGdk_Color[31m;[m
      Title  [31m:[m Gdk[31m.[mColor[31m.[mGdk_Color[31m;[m
      W[31m,[m H   [31m:[m Gint[31m;[m
      Num    [31m:[m Positive[31m;[m
      Name     [31m:[m Name_type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
      Filename [31m:[m Name_Type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Display_Item [01;34mis[m [01;34maccess[m [01;34mall[m Display_Item_Record'Class[31m;[m
   
   
   [01;34mprocedure[m Draw
     [31m([mItem   [31m:[m [01;34maccess[m Display_Item_Record[31m;[m
      Cr     [31m:[m Cairo_Context[31m);[m
   [31m--  Draw the item to the double-buffer   [m
   
   [01;34mfunction[m [01;30mOn_Button_click[m[31m([mItem   [31m:[m [01;34maccess[m Display_Item_Record[31m;[m
			    Event  [31m:[m Gdk[31m.[mEvent[31m.[mGdk_Event_Button[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   
   [01;34mtype[m Item_Array_Type [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Display_Item[31m;[m         
   
   
   Item_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m8192[m[31m;[m
   
   [01;34mtype[m Canvas_Record_Type [01;34mis[m
      [01;34mrecord[m
	 Frame      [31m:[m Gtk_Frame[31m;[m
	 Box        [31m:[m Gtk_Vbox[31m;[m
	 Scroll     [31m:[m Gtk_Scrolled_Window[31m;[m
	 Canvas     [31m:[m Image_Canvas[31m;[m
	 Item_Array [31m:[m [01;30mItem_Array_Type[m[31m([m[35m1[m[31m..[mItem_Max[31m);[m
	 Item_Last  [31m:[m Natural [31m:=[m [35m0[m[31m;[m	 
	 [31m----------------------[m
	 [31m-- The layout.      --[m
	 [31m----------------------[m
	 Layout [31m:[m Pango_Layout[31m;[m
	 X_ads [31m:[m Gint [31m:=[m [35m400[m[31m;[m
	 Y_ads [31m:[m Gint [31m:=[m [35m50[m[31m;[m
	 
	 X_adb [31m:[m Gint [31m:=[m [35m200[m[31m;[m
	 Y_adb [31m:[m Gint [31m:=[m [35m100[m[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Canvas_Record_Access [01;34mis[m [01;34maccess[m Canvas_Record_Type[31m;[m
   
   [01;34mtype[m Canvas_Set [01;34mis[m [01;34marray[m [31m([mMachine_Lang_Enum[31m)[m [01;34mof[m Canvas_Record_Access[31m;[m
   
   
   
   [01;34mtype[m Gnose_Interface_Record [01;34mis[m [01;34mnew[m Gtk_Window_Record [01;34mwith[m
      [01;34mrecord[m
	 UI            [31m:[m Gtk_UI_Manager[31m;[m
	 Actions       [31m:[m Gtk_Action_Group[31m;[m
	 Gnostic       [31m:[m Gnose_Access[31m;[m	 
	 End_Of_Task   [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 
	 Main_Vbox     [31m:[m Gtk_Vbox[31m;[m
	 
	 Language_Set   [31m:[m Machine_Set[31m;[m
	 
	 System_Frame           [31m:[m Human_Language_Frame_Type[31m;[m
	 System_Text_view       [31m:[m Gtk_Text_view[31m;[m	
	 System_Text_buffer     [31m:[m Gtk_Text_buffer[31m;[m	
	 System_Scroll          [31m:[m Gtk_Scrolled_Window[31m;[m	 
	 
	 User_Frame           [31m:[m Human_Language_Frame_Type[31m;[m	 	 
	 User_Text_View       [31m:[m Gtk[31m.[mText_View[31m.[mGtk_Text_View[31m;[m	 
	 User_Text_Buffer     [31m:[m Gtk[31m.[mText_Buffer[31m.[mGtk_Text_Buffer[31m;[m
	 User_Handler         [31m:[m Handler_Id[31m;[m
	 User_Position        [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 User_Scroll          [31m:[m Gtk_Scrolled_Window[31m;[m
	 
	 Parmeters_Frame [31m:[m Parmeters_Frame_Type[31m;[m
	 
	 
	 Main_Pan [31m:[m Gtk_Vpaned[31m;[m
	 Bot_Main_Pan [31m:[m Gtk_Hpaned[31m;[m
	 Bot_Second_Pan [31m:[m Gtk_Hpaned[31m;[m
	 
	 First_Machines_Left_Pan [31m:[m Gtk_Vpaned[31m;[m
	 Second_Machines_Left_Pan [31m:[m Gtk_Vpaned[31m;[m
	 
	 Human_Pan [31m:[m Gtk_Vpaned[31m;[m
	 
	 Project_Pan [31m:[m Gtk_Vpaned[31m;[m
	 
	 Graph_Book [31m:[m Gtk_Notebook[31m;[m
	 Book_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Graph_Set  [31m:[m Canvas_Set[31m;[m	 	 
	 
   [01;34mend[m [01;34mrecord[m[31m;[m      
   
   [01;34mtype[m Gnose_Interface_Access [01;34mis[m [01;34maccess[m Gnose_Interface_Record[31m;[m
   
   [01;34mtype[m System_Step_Enum [01;34mis[m [31m([mList[31m,[m Prepare[31m,[m Computation[31m,[m Reload[31m,[m Update[31m,[m Clean[31m,[m Arch[31m,[m Build[31m,[m Restart[31m,[m At_Limit[31m,[m On_Error[31m);[m
   
   [31m-- Message Timeout Enumeration :[m
   [01;34mtype[m Message_Enum [01;34mis[m [31m([mAutomation_Message[31m,[m
			 On_Error_Message[31m,[m
			 System_Step_Message[31m,[m
			 Computation_message[31m);[m
   
   [01;34mtype[m Planning_Enum [01;34mis[m [31m([mSpec[31m,[m Impl[31m);[m

   [01;34mtype[m Gnose_Record [01;34mis[m [01;34mlimited[m
      [01;34mrecord[m
	 Context              [31m:[m [01;34maccess[m Agnose[31m.[mGnose_Context_Record[31m;[m
	 System               [31m:[m Agnose[31m.[mNeural[31m.[mNeural_System[31m;[m
	 Process              [31m:[m [01;30mGnose_Process[m[31m([mGnose_Record'[01;34mAccess[m[31m);[m	 
	 Gnose_Interface      [31m:[m Gnose_Interface_Access[31m;[m
	 Id                   [31m:[m Process_Id[31m;[m	 
	 Self_Execute_Timeout [31m:[m Glib[31m.[mMain[31m.[mG_Source_Id[31m;[m
	 Exit_Result          [31m:[m Results[31m.[mSpawn_Result_Type[31m;[m
	 System_Step          [31m:[m System_Step_Enum [31m:=[m List[31m;[m
	 System_Error         [31m:[m System_Step_Enum [31m:=[m List[31m;[m
	 Plan                 [31m:[m Planning_Enum [31m:=[m Spec[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   [01;34mpackage[m Window_Conversions [01;34mis[m [01;34mnew[m [01;30mAddress_To_Access_Conversions[m[31m([mGnose_Record[31m);[m
   
   [01;34muse[m Window_Conversions[31m;[m
   
   [01;34mpackage[m Main_Timeout [01;34mis[m [01;34mnew[m Glib[31m.[mMain[31m.[m[01;30mgeneric_sources[m[31m([mObject_Pointer[31m);[m
   [01;34muse[m Main_Timeout[31m;[m
   
[01;34mend[m Gnos[31m.[mWindows[31m;[m
