1
// This file is part of PUMA.
2
// Copyright (C) 1999-2003 The PUMA developer team.
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.
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.
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,
19
#include "Puma/CTemplateParamInfo.h"
20
#include "Puma/CTemplateInfo.h"
21
#include "Puma/CStructure.h"
22
#include "Puma/CTree.h"
27
CTemplateParamInfo::~CTemplateParamInfo () {
28
if (Id () == TEMPLATE_PARAM_INFO)
31
// _TemplateInfo->removeTemplateParam (this);
33
// CTypeInfo::Destroy (_ValueType);
36
CT_ExprList *CTemplateParamInfo::DefaultArgument () const {
37
CTemplateInfo *tpl = _TemplateInfo;
38
int pos = getPosition ();
39
if (tpl && pos != -1) {
41
if ((int)tpl->Parameters () > pos) {
42
CTemplateParamInfo *param = tpl->Parameter (pos);
44
CT_TemplateParamDecl *tpd = param->Tree ();
45
if (tpd && tpd->DefaultArgument ())
46
return tpd->DefaultArgument ();
49
CObjectInfo *obj = tpl->ObjectInfo (), *first = obj;
52
obj = obj->NextObject ();
53
while (obj && obj != first) {
54
if ((tpl = obj->Template ()))
56
obj = obj->NextObject ();
59
} while (tpl && tpl != _TemplateInfo);
62
CT_TemplateParamDecl *tpd = Tree ();
63
if (tpd && tpd->DefaultArgument ())
64
return tpd->DefaultArgument ();
66
return (CT_ExprList*)0;
69
int CTemplateParamInfo::getPosition () const {
71
for (unsigned i = 0; i < _TemplateInfo->Parameters (); i++)
72
if (*this == *_TemplateInfo->Parameter (i))