~ubuntu-branches/ubuntu/intrepid/aspectc++/intrepid

« back to all changes in this revision

Viewing changes to Puma/gen-release/step1/src/CUnionInfo.cc

  • Committer: Bazaar Package Importer
  • Author(s): Reinhard Tartler
  • Date: 2005-12-23 10:49:40 UTC
  • Revision ID: james.westby@ubuntu.com-20051223104940-ig4klhoi991zs7km
Tags: upstream-0.99+1.0pre2
ImportĀ upstreamĀ versionĀ 0.99+1.0pre2

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
// This file is part of PUMA.
 
2
// Copyright (C) 1999-2003  The PUMA developer team.
 
3
//                                                                
 
4
// This program is free software;  you can redistribute it and/or 
 
5
// modify it under the terms of the GNU General Public License as 
 
6
// published by the Free Software Foundation; either version 2 of 
 
7
// the License, or (at your option) any later version.            
 
8
//                                                                
 
9
// This program is distributed in the hope that it will be useful,
 
10
// but WITHOUT ANY WARRANTY; without even the implied warranty of 
 
11
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  
 
12
// GNU General Public License for more details.                   
 
13
//                                                                
 
14
// You should have received a copy of the GNU General Public      
 
15
// License along with this program; if not, write to the Free     
 
16
// Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, 
 
17
// MA  02111-1307  USA                                            
 
18
 
 
19
#include "Puma/CUnionInfo.h"
 
20
#include "Puma/CTemplateInstance.h"
 
21
#include "Puma/CTree.h"
 
22
 
 
23
namespace Puma {
 
24
 
 
25
 
 
26
CUnionInfo *CUnionInfo::DefObject () const {
 
27
  CObjectInfo *o = (CObjectInfo*)this;
 
28
  do {
 
29
    if (o->Tree () && o->Tree ()->NodeName () == CT_UnionDef::NodeId ())
 
30
      if (! (o->TemplateInstance () && o->TemplateInstance ()->isPseudoInstance ()))
 
31
        return o->UnionInfo ();
 
32
    o = o->NextObject ();
 
33
  } while (o != (CObjectInfo*)this);
 
34
  return (CUnionInfo*)this;
 
35
}
 
36
 
 
37
 
 
38
} // namespace Puma