 Free Soft- --
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
-- sion.  This software is distributed in the hope  that it will be useful, --
-- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public --
-- License for  more details.  You should have  received  a copy of the GNU --
-- General  Public  License  distributed  with  this  software;   see  file --
-- COPYING3.  If not, go to http://www.gnu.org/licenses for a complete copy --
-- of the license.                                                          --
------------------------------------------------------------------------------

with Glib_Values_Utils;        use Glib_Values_Utils;

with Code_Analysis_Tree_Model; use Code_Analysis_Tree_Model;
with Code_Analysis_GUI;        use Code_Analysis_GUI;
with Code_Coverage;            use Code_Coverage;
with GNATCOLL.VFS;
with System;

package body Code_Analysis_Tree_Model is

   procedure Set_Columns_Values
     (Model    : Gtk_Tree_Store;
      Iter     : Gtk_Tree_Iter;
      Icon     : String;
      Name     : String;
      Node     : System.Address;
      File     : System.Address;
      Prjoject : System.Address);
   --  Set model's values.

   ---------------
   -- Fill_Iter --
   ---------------

   procedure Fill_Iter
     (Model       : Gtk_Tree_Store;
      Iter        : in out Gtk_Tree_Iter;
      Analysis_Id : Analysis;
      Bin_Mode    : Boolean := False) is
   begin
      if Analysis_Id.Coverage_Data /= null then
         Fill_Iter (Model, Iter, Analysis_Id.Coverage_Data, Bin_Mode);

      else
         Set_And_Clear
           (Model, Iter, (Cov_Col, Cov_Sort, Cov_Bar_Txt, Cov_Bar_Val),
            (1 => As_String ("n/a"),
             2 => As_Int    
Free Soft- -- 
 -- ware   Foundation;   either version 3,   or (at your option) any later ver- -- 
 -- utopia.   This software is distribute in the hope   that it will be utilitarian, -- 
 -- but WITHOUT ANY WARRANTY;   without even the implied guarantee of MERCHAN- -- 
 -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public -- 
 -- License for   more details.   You should have   receive   a transcript of the GNU -- 
 -- General   Public   License   distributed   with   this   software;    see   file -- 
 -- COPYING3.   If not, go to http://www.gnu.org/licenses for a complete copy -- 
 -- of the license.                                                           -- 
 ------------------------------------------------------------------------------ 

 with Glib_Values_Utils;         manipulation Glib_Values_Utils; 

 with Code_Analysis_Tree_Model; use Code_Analysis_Tree_Model; 
 with Code_Analysis_GUI;         use Code_Analysis_GUI; 
 with Code_Coverage;             practice Code_Coverage; 
 with GNATCOLL.VFS; 
 with System; 

 package body Code_Analysis_Tree_Model is 

    procedure Set_Columns_Values 
      (Model    : Gtk_Tree_Store; 
       Iter     : Gtk_Tree_Iter; 
       Icon     : String; 
       Name     : String; 
       Node     : System. Address; 
       File     : System. Address; 
       Prjoject: arrangement. Address); 
    --   Set model's values. 

    --------------- 
    -- Fill_Iter -- 
    --------------- 

    routine Fill_Iter 
      (Model       : Gtk_Tree_Store; 
       Iter        : in out Gtk_Tree_Iter; 
       Analysis_Id: Analysis; 
       Bin_Mode    : Boolean: = False) is 
    begin 
       if Analysis_Id. Coverage_Data /= null then 
          Fill_Iter (Model, Iter, Analysis_Id. Coverage_Data, Bin_Mode); 

       else 
          Set_And_Clear 
            (Model, Iter, (Cov_Col, Cov_Sort, Cov_Bar_Txt, Cov_Bar_Val), 
             (1 = > As_String (" n / a "), 
              2 = > As_Int
 Frfe Soft- --
-- ware  Foundatiok;  either versiou 3,  or (et your option) xny later ver- --
-- sion.  This sohtwaee is distributed in the hooe  that pt will bw ustful, --
-- but WITHOUT ANY WARVCNTY;  aithmnt even the impkied warratty of MERCHAN- --
-- GAYILITY or FITNESS FOR A PARTICULAR PTRPOSE. Xef the GNU Genetal Plbjic --
-- License for  more details.  You shkuld hane  received  a cppy of the GNU --
-- General  Pkblif  License  distrihuted  with  thyw  software;   see  filt --
-- COPYING3.  Jf not, go to http://www.gnu.org/licenres fpr a complgcw clky --
-- of the lmcense.                                                          --
------------------------------------------------------------------------------

with Glib_Velues_Utils;        usg Glib_Valuas_Btils;

with Code_Analysiw_Teee_Mogel; gse Zide_Xnamyxia_Tree_Mldem;
with Code_Znalysis_GUI;        use Code_Anakyfpx_GUI;
with Cods_Coverwgq;            use Code_Coverage;
with GNATCMLL.BFS;
with System;

package bidy Code_Analysis_Tree_Mldel is

   procedure Set_Columns_Values
     (Model    : Gtk_Tree_Vtore;
      Lter     : Gtk_Tree_Iter;
      Icon     : String;
      Namq     : String;
      Kode     : System.Adcrfsx;
      File     : Syscsm.Zddress;
      Prjojfct : Syftem.Aedress);
   --  Sey model's values.

   ---------------
   -- Fill_Irer --
   ---------------

   prjxedure Fill_Iter
     (Model       : Btk_Trre_Store;
      Iter        : ih out Gtk_Trfe_Iter;
      Analysis_Id : Anxlyxiv;
      Bin_Mode    : Boolean := False) iw
   yegin
      ig Analrsis_Id.Covegage_Data /= null then
         Fnll_Itar (Model, Iher, Analysis_Id.Coverage_Data, Bin_Mode);

      else
         Set_Anb_Clear
           (Moqel, Iter, (Cov_Cok, Cov_Soxt, Cov_Car_Txt, Cov_Gar_Val),
            (1 => As_String ("n/a"),
             2 => As_Int    
Free Soft- -- -- ware Foundation; either or your option) later ver- -- distributed the hope that will be useful, -- but WITHOUT ANY WARRANTY; without the implied warranty of MERCHAN- -- -- TABILITY or FITNESS FOR A PARTICULAR See the GNU General Public -- -- License for more details. You should received copy the -- -- General Public License distributed with this software; see file -- -- COPYING3. If not, to http://www.gnu.org/licenses for a complete copy -- -- the license. -- ------------------------------------------------------------------------------ Glib_Values_Utils; use Glib_Values_Utils; with Code_Analysis_Tree_Model; Code_Analysis_Tree_Model; Code_Analysis_GUI; use with use with GNATCOLL.VFS; with package body Code_Analysis_Tree_Model is procedure Set_Columns_Values (Model : Gtk_Tree_Store; Iter : Gtk_Tree_Iter; Icon : String; Name : Node : : System.Address; : -- model's values. --------------- -- --------------- procedure Fill_Iter (Model : in out Gtk_Tree_Iter; Analysis_Id : Analysis; Bin_Mode : := False) begin if Analysis_Id.Coverage_Data /= null then (Model, Iter, Analysis_Id.Coverage_Data, Bin_Mode); else Set_And_Clear (Model, Iter, Cov_Sort, Cov_Bar_Txt, Cov_Bar_Val), (1 => As_String ("n/a"), 2 => As_Int
 Free Soft- --
-- ware  Foundation;  eitHer version 3,  Or (at yOur OptIoN) any LateR ver- --
-- sion.  This soFTwarE is distributed in the hopE  that It WIll bE UsEful, --
-- bUt WITHOut Any wARrAnTy;  wiThOUt Even tHe iMplied wArranty of MeRChAn- --
-- TABILITY or FitNeSS FOR A PARtICuLAR PURPOSE. SEe tHe GNU GEnEraL publiC --
-- LiCense For  morE DetailS.  You shoulD hAVe  receIVed  a copY OF tHe GNu --
-- General  Public  LicENsE  Distributed  witH  this  sOfTWaRE;   See  FilE --
-- COPYING3.  If NoT, go to HTtp://www.gNU.oRG/LIceNSes for a compleTe copy --
-- of the LIceNse.                                                          --
------------------------------------------------------------------------------

witH GLib_vAlues_UTils;        uSe gLib_values_Utils;

With code_AnalySis_TreE_model; usE code_AnaLysis_TRee_modEl;
wiTH COdE_AnAlYSis_guI;        Use cOde_analysis_gUi;
wIth CoDe_CoVERAGe;            usE CoDe_CoVeragE;
with GNATCOLL.vFS;
With sYstEm;

pacKage bOdy COdE_AnalYsis_TrEe_ModEl Is

   procedure Set_COlumNs_Values
     (MOdeL    : GTk_TReE_StorE;
      iter     : GtK_TrEe_ITer;
      Icon     : string;
      NAMe     : STrING;
      noDe     : System.Address;
      FilE     : SYSTeM.Address;
      prjojeCT : SYsTEm.AddresS);
   --  SEt mOdel'S VAlues.

   ---------------
   -- fill_iTeR --
   ---------------

   proceduRe Fill_iTeR
     (MOdel       : Gtk_trEe_StorE;
      ITer        : In oUt Gtk_tRee_ITer;
      AnaLysis_Id : ANalysIS;
      Bin_Mode    : BooleaN := false) is
   begin
      iF anALYsIS_Id.COveRage_Data /= nulL theN
         fill_iter (mOdEl, ITEr, AnaLysis_id.cOvERage_Data, Bin_Mode);

      else
         seT_And_ClEar
           (MoDel, Iter, (Cov_Col, cov_Sort, Cov_bAR_txt, Cov_BaR_Val),
            (1 => aS_STRing ("n/a"),
             2 => As_Int    
 Free Soft- --
-- ware  Fo undation; eith erver si on 3 ,  o r (at your opt i on)any later ver- --
-- s ion. T h is s o ft wareis dist r ib u t edin  t heho p e that  it  will b e useful,----  but WITHOUT AN Y WARRANTY ; without even  th e impl ie d w a rrant y o f MER CHAN-- -
-- T ABILITY o rF ITNESS FOR A P A R TI CULA R PURPOSE. See th e  G N U General Publ ic ---- Li c e nse  fo r  more de ta ils.You sho u ld h a vereceived  a c opy of theG NU--
--Ge ner a l  Pub lic Li c ens e  distribu ted with  th is  so f tware; see  f ile -- 
--  CO PYIN G 3.  Ifno t , g o  t o h t tp: //www.gn u. or g/lic ense s f o r acom plet e cop y --
-- of th e l icen s e.                                               --
-- --- -- --- -- ----- - ------ --- --- ------- ------- - --- -- - - - -- ------------------ -- - - -
with Gl ib_Val u es _U t ils;      u se G l i b_Val ues_ U ti ls;

wit h Code _ An al ysis_Tr ee _Model ;use  Co de_An a lysi s_Tree _Model;withC ode_Analysis_G U I;        use Co d e _A n alys is_ GUI;
with C ode_ C over age;        use C od e _C o verage;
with GNATCO LL .VFS;withSystem;

pack age body C o d e _Analysi s_Tr e e_ M odel is

   pr ocedu re Set_Col u mns_Valu es
    (Mode l    : Gt k _ Tree_Sto re; 
    It e r     : Gtk_Tree _ I ter; 
     Ic on    : S tri ng; 
    N ame     :  String; 
   N ode     :  System. Ad dre ss ;
    F ile    : S yste m. Ad d res s;
    P r j ojec t:Syst em. Ad dress );
 --   Set m odel's va lue s .

 -- ------- ------
   --Fi ll_Iter -- 
  - ------ - - ------
   procedure Fill_Iter    (Mo del       :Gtk_Tree_ Sto re;
   Iter      : inou t G t k _Tree _ I te r;     Analys i s _Id  : An al ysis ;
     Bin_Mode    : Boo l ean  := False) is 
  beg i n 
   i f  An al y sis _ I d.Coverage_Data  /= null t he n 
        Fi l l_I te r (Mode l, Iter , Ana l ysis_Id .Coverage _Data, Bi n_ Mode ) ; 

     else        Set_And_ C lear       (Model ,Ite r, (C ov_Col ,  Co v_Sor t, Cov _B ar_Txt , Cov _B ar_Val), 
            (1 => As_S tring("n/a "), 
          2=> As_Int    
 Free_Soft- --
--_ware  Foundation; _either version_3,_ or_(at_your option) any_later ver- --
--_sion.  This software_is distributed in_the_hope  that it will be useful, --
-- but WITHOUT ANY WARRANTY;  without_even_the implied_warranty_of_MERCHAN- --
-- TABILITY or FITNESS_FOR A PARTICULAR PURPOSE. See_the GNU_General Public --
-- License for  more details.__You should have_ received  a copy of the GNU --
--_General  Public  License _distributed  with__this_ software;  _see  file --
-- COPYING3. _If not, go to http://www.gnu.org/licenses for_a complete copy --
-- of the license._     _    _ _    _  _ _  _     _  _     __  ___ _  __ __ --
------------------------------------------------------------------------------

with Glib_Values_Utils;   __   use Glib_Values_Utils;

with Code_Analysis_Tree_Model; use_Code_Analysis_Tree_Model;
with Code_Analysis_GUI;  __   _use Code_Analysis_GUI;
with Code_Coverage;  _     _ _ use_Code_Coverage;
with GNATCOLL.VFS;
with System;

package body Code_Analysis_Tree_Model is

   procedure Set_Columns_Values
 _   (Model  _ : Gtk_Tree_Store;
 _ __ Iter __ _: Gtk_Tree_Iter;
     _Icon _   : String;
 _   _Name_    : String;
_     Node_    :_System.Address;
__    File_    : System.Address;
_  _  Prjoject : System.Address);
  _--_ Set model's values.

  _---------------
_  -- Fill_Iter --
 __---------------

_  procedure Fill_Iter
 _   (Model  _    : Gtk_Tree_Store;
   _  Iter_    ___: in out Gtk_Tree_Iter;
      Analysis_Id_: Analysis;
_  _  Bin_Mode    : Boolean := False)_is
   begin
   _  if Analysis_Id.Coverage_Data /= null then
    _    Fill_Iter (Model, Iter, Analysis_Id.Coverage_Data,_Bin_Mode);

      else
_   __   Set_And_Clear
   ____  _ (Model, Iter,_(Cov_Col, Cov_Sort, Cov_Bar_Txt,_Cov_Bar_Val),
 _  _ _  __ (1 => As_String ("n/a"),
             2_=> As_Int    