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

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

Revision: 5028
          http://qore.svn.sourceforge.net/qore/?rev=5028&view=rev
Author:   subik
Date:     2012-09-10 10:06:02 +0000 (Mon, 10 Sep 2012)
Log Message:
-----------
revert: <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 09:54:46 UTC (rev 5027)
+++ qore/trunk/lib/Pseudo_QC_List.qpp	2012-09-10 10:06:02 UTC (rev 5028)
@@ -175,15 +175,15 @@
    return inlist_intern(arg, l, xsink);
 }
 
-//! Append a value to the oend of the list
-/**
+// 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();
-}
+//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 09:54:46 UTC (rev 5027)
+++ qore/trunk/test/test.q	2012-09-10 10:06:02 UTC (rev 5028)
@@ -283,8 +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");
+    #$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.