[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-29 04:04:12 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.20.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m

[01;34mwith[m Ada[31m.[mUnchecked_Deallocation[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mWide_Unbounded[31m;[m
[01;34mwith[m Gnat[31m.[mOs_Lib[31m;[m
[01;34muse[m Gnat[31m;[m

[01;34mpackage[m Gnos[31m.[mResults [01;34mis[m
   [01;34msubtype[m U_String [01;34mis[m Ada[31m.[mStrings[31m.[mWide_Unbounded[31m.[mUnbounded_Wide_String[31m;[m
   [01;34muse[m [01;34mtype[m U_String[31m;[m
   
   [01;34mfunction[m [31m"+"[m[31m([mS[31m:[m [32mWide_String[m[31m)[m [01;34mreturn[m U_String
     [01;34mrenames[m Ada[31m.[mStrings[31m.[mWide_Unbounded[31m.[mTo_Unbounded_Wide_String[31m;[m
 
   [01;34mfunction[m [31m"-"[m[31m([mU[31m:[m U_String[31m)[m [01;34mreturn[m [32mWide_String[m
     [01;34mrenames[m Ada[31m.[mStrings[31m.[mWide_Unbounded[31m.[mTo_Wide_String[31m;[m
 
   [01;34mtype[m Variadic_Array [01;34mis[m [01;34marray[m[31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m U_String[31m;[m
   
   [01;34mtype[m Variadic_Access [01;34mis[m [01;34maccess[m Variadic_Array[31m;[m
   
   [01;34mtype[m Wide_String_Access [01;34mis[m [01;34maccess[m [01;34mall[m [32mWide_String[m[31m;[m
   [01;34mprocedure[m Free [01;34mis[m [01;34mnew[m Ada[31m.[m[01;30mUnchecked_Deallocation[m[31m([m[32mWide_String[m[31m,[m Wide_String_Access[31m);[m
   
   [01;34mprocedure[m Free [01;34mis[m [01;34mnew[m Ada[31m.[m[01;30mUnchecked_Deallocation[m[31m([mVariadic_Array[31m,[m Variadic_Access[31m);[m
   
   [01;34mtype[m Wide_Result_Type [01;34mis[m 
     [01;34mabstract[m [01;34mtagged[m
      [01;34mrecord[m
	 File_Content   [31m:[m Variadic_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Spawn_Result_Type [01;34mis[m
     [01;34mnew[m Wide_Result_Type [01;34mwith[m
      [01;34mrecord[m
	 Process_Id     [31m:[m Gnat[31m.[mOs_Lib[31m.[mProcess_Id[31m;[m
	 Program_Name   [31m:[m U_String[31m;[m
	 Args           [31m:[m Os_Lib[31m.[mArgument_List_Access[31m;[m	 
	 Output_File    [31m:[m U_String[31m;[m
	 Success        [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
	 Return_Code    [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 Err_To_Out     [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m Search_Result_Type [01;34mis[m
     [01;34mnew[m Wide_Result_Type [01;34mwith[m
      [01;34mrecord[m
         Pattern   [31m:[m Wide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
	 Address   [31m:[m Os_Lib[31m.[mString_Access[31m;[m
         Doc_Name  [31m:[m Wide_String_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m         
   
   
   [01;34mtype[m Result_Access [01;34mis[m [01;34maccess[m [01;34mall[m Wide_Result_Type'Class[31m;[m
   
   [01;34mfunction[m [01;30mSpawn[m[31m([mLine [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m Spawn_Result_Type[31m;[m
   
[01;34mend[m Gnos[31m.[mResults[31m;[m
