Update of /cvsroot/monetdb/pathfinder/compiler/mil
In directory
sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28153/compiler/mil
Modified Files:
Tag: XQFT
milprint.c
Log Message:
propagated changes of Friday Dec 04 2009
from the development trunk to the XQFT branch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2009/12/04 - jflokstra: compiler/mil/milprint.c,1.99
Implemented translation to a MIL function of the following new tijah
functions.
- tijah:terms(element*) as string*
- tijah:terms(element*,node) as string*
- tijah:tf-all(string) as integer
- tijah:tf-all(string,node) as integer
- tijah:tf(element*,string) as integer
- tijah:tf(element*,string,node) as integer
- tijah:fb-terms(element*) as string*
- tijah:fb-terms(element*,node) as string*
The main MIL functions are still empty and Henning will fill te blanks.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Index: milprint.c
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/milprint.c,v
retrieving revision 1.98
retrieving revision 1.98.2.1
diff -u -d -r1.98 -r1.98.2.1
--- milprint.c 5 Oct 2009 09:39:11 -0000 1.98
+++ milprint.c 4 Dec 2009 14:44:34 -0000 1.98.2.1
@@ -453,7 +453,10 @@
, [m_tj_query_handler] = "ALG_tj_query_handler"
, [m_tj_ftfun_handler] = "ALG_tj_ftfun_handler"
, [m_tj_add_fti_tape] = "ALG_tj_add_fti_tape"
- , [m_tj_docmgmt_tape ] = "ALG_tj_docmgmt_tape"
+ , [m_tj_terms ] = "ALG_tj_terms"
+ , [m_tj_tfall ] = "ALG_tj_tfall"
+ , [m_tj_tf ] = "ALG_tj_tf"
+ , [m_tj_fbterms ] = "ALG_tj_fbterms"
#endif
};
@@ -1470,7 +1473,32 @@
print_expression (n->child[5]);
milprintf (")");
break;
-
+ case m_tj_terms:
+ case m_tj_tfall:
+ case m_tj_fbterms:
+ milprintf ("%s (", ID[n->kind]);
+ print_expression (n->child[0]);
+ milprintf (", ");
+ print_expression (n->child[1]);
+ milprintf (", ");
+ print_expression (n->child[2]);
+ milprintf (", ");
+ print_expression (n->child[3]);
+ milprintf (")");
+ break;
+ case m_tj_tf:
+ milprintf ("%s (", ID[n->kind]);
+ print_expression (n->child[0]);
+ milprintf (", ");
+ print_expression (n->child[1]);
+ milprintf (", ");
+ print_expression (n->child[2]);
+ milprintf (", ");
+ print_expression (n->child[3]);
+ milprintf (", ");
+ print_expression (n->child[4]);
+ milprintf (")");
+ break;
#endif
default:
debug_output; /* Print MIL code so far when in debug mode. */
------------------------------------------------------------------------------
Join us December 9, 2009 for the Red Hat Virtual Experience,
a free event focused on virtualization and cloud computing.
Attend in-depth sessions from your desk. Your couch. Anywhere.
http://p.sf.net/sfu/redhat-sfdev2dev
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins
