[Qore-svn] SF.net SVN: qore:[5027] qore/trunk

[<su...@us...>]

Revision: 5027
          http://qore.svn.sourceforge.net/qore/?rev=5027&view=rev
Author:   subik
Date:     2012-09-10 09:54:46 +0000 (Mon, 10 Sep 2012)
Log Message:
-----------
<list>::append(any) implemented

Modified Paths:
--------------
    qore/trunk/lib/Pseudo_QC_List.qpp
    qore/trunk/test/test.q

Modified: qore/trunk/lib/Pseudo_QC_List.qpp
===================================================================
--- qore/trunk/lib/Pseudo_QC_List.qpp	2012-09-10 08:08:39 UTC (rev 5026)
+++ qore/trunk/lib/Pseudo_QC_List.qpp	2012-09-10 09:54:46 UTC (rev 5027)
@@ -175,3 +175,15 @@
    return inlist_intern(arg, l, xsink);
 }
 
+//! Append a value to the oend of the list
+/**
+    @param arg @ref any value to be appended
+*/
+nothing <list>::append(any arg) {
+    QoreNodeEvalOptionalRefHolder value(arg, xsink);
+    if (*xsink)
+       return 0;
+    l->push(value.getReferencedValue());
+    return nothing();
+}
+

Modified: qore/trunk/test/test.q
===================================================================
--- qore/trunk/test/test.q	2012-09-10 08:08:39 UTC (rev 5026)
+++ qore/trunk/test/test.q	2012-09-10 09:54:46 UTC (rev 5027)
@@ -283,6 +283,8 @@
     test_value($pseudoList.join('-'), '1-2-3-4-a', "<list>::join");
     test_value($pseudoList.lsize(), 5, "<list>::lsize");
     test_value($pseudoList.contains(2), True, "<list>::contains");
+    $pseudoList.append(6);
+    test_value($pseudoList, (1, 2, 3, 4, 'a', 6), "<list>::append");
 }
 
 sub hash_tests() {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.