Update of /cvsroot/monetdb/pathfinder/compiler/mil
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv30809/compiler/mil
Modified Files:
Tag: XQuery_0-24
mil.c milprint.c
Log Message:
Adding mil operator PFmil_le (less or equal '<=') needed for some conditional
statements (e.g., looping around updates). The multiplexed version was too
"multiplex" for the simple cases.
U milprint.c
Index: milprint.c
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/milprint.c,v
retrieving revision 1.78
retrieving revision 1.78.2.1
diff -u -d -r1.78 -r1.78.2.1
--- milprint.c 23 May 2008 20:46:41 -0000 1.78
+++ milprint.c 5 Jun 2008 09:45:42 -0000 1.78.2.1
@@ -104,6 +104,7 @@
| '[floor](' expression ')' <m_mfloor>
| '[round_up](' expression ')' <m_mround_up>
| '>(' expression ',' expression ')' <m_gt>
+ | '<=(' expression ',' expression ')' <m_le>
| '=(' expression ',' expression ')' <m_eq>
| '[=](' expression ',' expression ')' <m_meq>
| '[>](' expression ',' expression ')' <m_mgt>
@@ -293,6 +294,7 @@
, [m_mfloor] = "[floor]"
, [m_mround_up] = "[round_up]"
, [m_gt] = ">"
+ , [m_le] = "<="
, [m_eq] = "="
, [m_meq] = "[=]"
, [m_mgt] = "[>]"
@@ -832,6 +834,8 @@
case m_mmax:
/* expression : '>(' expression ',' expression ')' */
case m_gt:
+ /* expression : '<=(' expression ',' expression ')' */
+ case m_le:
/* expression : '=(' expression ',' expression ')' */
case m_eq:
/* expression : '[=](' expression ',' expression ')' */
U mil.c
Index: mil.c
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/mil.c,v
retrieving revision 1.66
retrieving revision 1.66.2.1
diff -u -d -r1.66 -r1.66.2.1
--- mil.c 21 May 2008 10:10:49 -0000 1.66
+++ mil.c 5 Jun 2008 09:45:41 -0000 1.66.2.1
@@ -1196,6 +1196,15 @@
}
/**
+ * less or equal operator
+ */
+PFmil_t *
+PFmil_le (const PFmil_t *a, const PFmil_t *b)
+{
+ return wire2 (m_le, a, b);
+}
+
+/**
* Equal operator
*/
PFmil_t *
-------------------------------------------------------------------------
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
