Update of /cvsroot/monetdb/pathfinder/compiler/algebra
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv29604/compiler/algebra

Modified Files:
        builtins.c 
Log Message:
* Implementation of the serialize operator for the UpdateTape proc.
* The order of a sequence is reversed for insertIntoAsFirst, InsertAfter.


Index: builtins.c
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/algebra/builtins.c,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- builtins.c  20 Nov 2007 16:57:21 -0000      1.62
+++ builtins.c  26 Nov 2007 16:25:48 -0000      1.63
@@ -4457,12 +4457,22 @@
 {
     (void) loop; (void) ordering;
 
-    /* FIXME: also have to reverse the order of the sequence*/
+
+
+    PFla_op_t *rev = project (rank (args[1].rel,
+                                    att_pos1,
+                                    PFord_refine (PFordering (),
+                                                  att_pos,
+                                                  DIR_DESC)),
+                              proj (att_iter, att_iter),
+                              proj (att_pos, att_pos1),
+                              proj (att_item, att_item));
+
     return (struct PFla_pair_t) {
         .rel = project (
                    fun_1to1 (
                        eqjoin (args[0].rel,
-                               project (args[1].rel,
+                               project (rev,
                                         proj (att_iter1, att_iter),
                                         proj (att_item1, att_item)),
                                att_iter,
@@ -4515,7 +4525,6 @@
 {
     (void) loop; (void) ordering;
 
-    /* FIXME: also have to reverse the order of the sequence*/
     return (struct PFla_pair_t) {
         .rel = project (
                    fun_1to1 (
@@ -4544,11 +4553,20 @@
 {
     (void) loop; (void) ordering;
 
+    PFla_op_t *rev = project (rank (args[1].rel,
+                                    att_pos1,
+                                    PFord_refine (PFordering (),
+                                                  att_pos,
+                                                  DIR_DESC)),
+                              proj (att_iter, att_iter),
+                              proj (att_pos, att_pos1),
+                              proj (att_item, att_item));
+
     return (struct PFla_pair_t) {
         .rel = project (
                    fun_1to1 (
                        eqjoin (args[0].rel,
-                               project (args[1].rel,
+                               project (rev,
                                         proj (att_iter1, att_iter),
                                         proj (att_item1, att_item)),
                                att_iter,


-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins

Reply via email to