You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
129 lines
3.3 KiB
129 lines
3.3 KiB
/***************************************************************************
|
|
* Copyright (C) 2004 by Roberto Raggi *
|
|
* roberto@tdevelop.org *
|
|
* Copyright (C) 2005-2006 by Vladimir Prus *
|
|
* ghost@cs.msu.su *
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU Library General Public License as *
|
|
* published by the Free Software Foundation; either version 2 of the *
|
|
* License, or (at your option) any later version. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
|
* GNU General Public License for more details. *
|
|
* *
|
|
* You should have received a copy of the GNU Library General Public *
|
|
* License along with this program; if not, write to the *
|
|
* Free Software Foundation, Inc., *
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
|
|
***************************************************************************/
|
|
#include "gdbmi.h"
|
|
|
|
using namespace GDBMI;
|
|
|
|
|
|
type_error::type_error()
|
|
: std::logic_error("MI type error")
|
|
{}
|
|
|
|
TQString Value::literal() const
|
|
{
|
|
throw type_error();
|
|
}
|
|
|
|
int Value::toInt(int /*base*/) const
|
|
{
|
|
throw type_error();
|
|
}
|
|
|
|
bool Value::hasField(const TQString&) const
|
|
{
|
|
throw type_error();
|
|
}
|
|
|
|
const Value& Value::operator[](const TQString&) const
|
|
{
|
|
throw type_error();
|
|
}
|
|
|
|
bool Value::empty() const
|
|
{
|
|
throw type_error();
|
|
}
|
|
|
|
unsigned Value::size() const
|
|
{
|
|
throw type_error();
|
|
}
|
|
|
|
|
|
const Value& Value::operator[](unsigned) const
|
|
{
|
|
throw type_error();
|
|
}
|
|
|
|
TQString StringLiteralValue::literal() const
|
|
{
|
|
return literal_;
|
|
}
|
|
|
|
int StringLiteralValue::toInt(int base) const
|
|
{
|
|
bool ok;
|
|
int result = literal_.toInt(&ok, base);
|
|
if (!ok)
|
|
throw type_error();
|
|
return result;
|
|
}
|
|
|
|
TupleValue::~TupleValue()
|
|
{
|
|
for (TQValueListIterator<Result*> it=results.begin(); it!=results.end(); ++it)
|
|
delete *it;
|
|
}
|
|
|
|
bool TupleValue::hasField(const TQString& variable) const
|
|
{
|
|
return results_by_name.count(variable);
|
|
}
|
|
|
|
const Value& TupleValue::operator[](const TQString& variable) const
|
|
{
|
|
if (results_by_name.count(variable))
|
|
return *results_by_name[variable]->value;
|
|
else
|
|
throw type_error();
|
|
}
|
|
|
|
ListValue::~ListValue()
|
|
{
|
|
for (TQValueListIterator<Result*> it=results.begin(); it!=results.end(); ++it)
|
|
delete *it;
|
|
}
|
|
|
|
bool ListValue::empty() const
|
|
{
|
|
return results.isEmpty();
|
|
}
|
|
|
|
unsigned ListValue::size() const
|
|
{
|
|
return results.size();
|
|
}
|
|
|
|
const Value& ListValue::operator[](unsigned index) const
|
|
{
|
|
if (index < results.size())
|
|
{
|
|
return *results[index]->value;
|
|
}
|
|
else
|
|
throw type_error();
|
|
}
|
|
|
|
|
|
|
|
|