1 files changed, 69 insertions, 0 deletions
diff --git a/lib/kross/api/list.cpp b/lib/kross/api/list.cpp
new file mode 100644
index 00000000..ad901e5e
--- /dev/null
+++ b/lib/kross/api/list.cpp
@@ -0,0 +1,69 @@
+/***************************************************************************
+ * list.cpp
+ * This file is part of the KDE project
+ * copyright (C)2004-2005 by Sebastian Sauer (mail@dipe.org)
+ *
+ * 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
+ * Library General Public License for more details.
+ * You should have received a copy of the GNU Library General Public License
+ * along with this program; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ ***************************************************************************/
+
+#include "list.h"
+#include "exception.h"
+
+using namespace Kross::Api;
+
+List::List(QValueList<Object::Ptr> value)
+    : Value< List, QValueList<Object::Ptr> >(value)
+{
+}
+
+List::~List()
+{
+}
+
+const QString List::getClassName() const
+{
+    return "Kross::Api::List";
+}
+
+const QString List::toString()
+{
+    QString s = "[";
+    QValueList<Object::Ptr> list = getValue();
+    for(QValueList<Object::Ptr>::Iterator it = list.begin(); it != list.end(); ++it)
+        s += "'" + (*it)->toString() + "', ";
+    return (s.endsWith(", ") ? s.left(s.length() - 2) : s) + "]";
+}
+
+Object::Ptr List::item(uint idx, Object* defaultobject)
+{
+    QValueList<Object::Ptr>& list = getValue();
+    if(idx >= list.count()) {
+        if(defaultobject)
+            return defaultobject;
+        krossdebug( QString("List::item index=%1 is out of bounds. Raising TypeException.").arg(idx) );
+        throw Exception::Ptr( new Exception(QString("List-index %1 out of bounds.").arg(idx)) );
+    }
+    return list[idx];
+}
+
+uint List::count()
+{
+    return getValue().count();
+}
+
+void List::append(Object::Ptr object)
+{
+    getValue().append(object);
+}
+