Update of /cvsroot/monetdb/pathfinder/compiler/mil
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv6870/compiler/mil
Modified Files:
Tag: XQuery_0-24
milgen.brg
Log Message:
pf:docname implementation
U milgen.brg
Index: milgen.brg
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/milgen.brg,v
retrieving revision 1.157.2.14
retrieving revision 1.157.2.15
diff -u -d -r1.157.2.14 -r1.157.2.15
--- milgen.brg 9 Jun 2008 12:00:30 -0000 1.157.2.14
+++ milgen.brg 12 Jun 2008 12:39:16 -0000 1.157.2.15
@@ -5338,6 +5338,26 @@
} break; /* fold) */
+ case alg_fun_pf_docname: /* fold( */
+ {
+ PFalg_att_t element = p->sem.fun_1to1.refs.atts[0];
+ PFmil_t *pre = VAR (p->env, element, aat_pre),
+ *pre_cont = VAR (p->env, element, aat_frag);
+
+ assert (env_count (L(p)->env));
+
+ res_type = aat_str;
+
+ execute (
+ assgn ( var (res->name),
+ ws_docname (var (PF_MIL_VAR_WS),
+ hmark (pre, lit_oid(0)),
+ pre,
+ set_kind (pre_cont,
+ var
(PF_MIL_VAR_ELEM)))));
+
+ } break; /* fold) */
+
case alg_fun_upd_delete: /* fold( */
{
PFalg_att_t tgt = p->sem.fun_1to1.refs.atts[0];
@@ -8907,10 +8927,6 @@
unpin(nodes, 1);
} break;
- case alg_fun_call_pf_docname:
- {
- } break;
-
case alg_fun_call_pf_collections:
case alg_fun_call_pf_collections_unsafe:
{
-------------------------------------------------------------------------
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
