Update of /cvsroot/monetdb/pathfinder/compiler/mil
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv6896/mil
Modified Files:
Tag: XQuery_0-24
mil.c milprint.c
Log Message:
Implementation for the texist mil operator (needed for the next commit/bug fix)
U milprint.c
Index: milprint.c
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/milprint.c,v
retrieving revision 1.78.2.2
retrieving revision 1.78.2.3
diff -u -d -r1.78.2.2 -r1.78.2.3
--- milprint.c 5 Jun 2008 16:29:49 -0000 1.78.2.2
+++ milprint.c 6 Jun 2008 10:01:00 -0000 1.78.2.3
@@ -61,6 +61,7 @@
| expression '.CTrefine (' expression ')' <m_ctrefine>
| expression '.CTrefine_rev (' exp ')' <m_ctrefine_rev>
| expression '.CTderive (' expression ')' <m_ctderive>
+ | expression '.texist (' expression ')' <m_texist>
| expression '.insert (' expression ')' <m_binsert>
| expression '.append (' expression ')' <m_bappend>
| expression '.fetch (' expression ')' <m_fetch>
@@ -281,6 +282,7 @@
, [m_ctrefine] = "CTrefine"
, [m_ctrefine_rev] = "CTrefine_rev"
, [m_ctderive] = "CTderive"
+ , [m_texist] = "texist"
, [m_add] = "+"
, [m_madd] = "[+]"
@@ -707,6 +709,8 @@
case m_ctrefine_rev:
/* expression : expression '.CTderive (' expression ')' */
case m_ctderive:
+ /* expression : expression '.texist (' expression ')' */
+ case m_texist:
/* expression : expression '.insert (' expression ')' */
case m_binsert:
/* expression : expression '.append (' expression ')' */
U mil.c
Index: mil.c
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/mil.c,v
retrieving revision 1.66.2.2
retrieving revision 1.66.2.3
diff -u -d -r1.66.2.2 -r1.66.2.3
--- mil.c 5 Jun 2008 16:29:45 -0000 1.66.2.2
+++ mil.c 6 Jun 2008 10:00:41 -0000 1.66.2.3
@@ -945,6 +945,15 @@
}
/**
+ * Monet texist function.
+ */
+PFmil_t *
+PFmil_texist (const PFmil_t *a, const PFmil_t *b)
+{
+ return wire2 (m_texist, a, b);
+}
+
+/**
* enumerate operator, return sequence of integers
* starting from @a a with the length @a l.
*/
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins
