[svn:parrot] r36118 - trunk/languages/pipp/src/phc
[email protected] Wed, 28 Jan 2009 12:31:28 -0800 (PST)
| Newsgroups | perl.cvs.parrot |
|---|---|
| Message-ID | <[email protected]> |
Author: bernhard
Date: Wed Jan 28 12:31:27 2009
New Revision: 36118
Modified:
trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl
Log:
[Pipp] First stab at adapting to current phc XML-dump. TT #252
Courtesy of James Michael DuPont
Modified: trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl
==============================================================================
--- trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl (original)
+++ trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl Wed Jan 28 12:31:27 2009
@@ -1,9 +1,15 @@
<?xml version='1.0'?>
<xsl:stylesheet
- xmlns:phc="http://www.phpcompiler.org/phc-1.0"
+ xmlns:AST="http://www.phpcompiler.org/phc-1.1"
xmlns:past="http://www.parrotcode.org/PAST-0.1"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
version="1.0" >
+
+<!--
+
+TODO: AST:source_rep
+
+-->
<!--
$Id$
@@ -15,235 +21,235 @@
<xsl:output method='xml' indent='yes' />
<xsl:template match="/">
- <xsl:apply-templates select="phc:AST_php_script" />
+ <xsl:apply-templates select="AST:PHP_script" />
</xsl:template>
-<xsl:template match="phc:AST_php_script" >
- <xsl:apply-templates select="phc:AST_class_def_list" />
+<xsl:template match="AST:PHP_script" >
+ <xsl:apply-templates select="AST:PHP_class_def_list" />
</xsl:template>
-<xsl:template match="phc:AST_class_def_list" >
- <xsl:apply-templates select="phc:AST_class_def" />
+<xsl:template match="AST:PHP_class_def_list" >
+ <xsl:apply-templates select="AST:PHP_class_def" />
</xsl:template>
-<xsl:template match="phc:AST_class_def" >
+<xsl:template match="AST:PHP_class_def" >
</xsl:template>
-<xsl:template match="phc:AST_class_def[phc:Token_class_name[phc:value='%MAIN%']]">
- <xsl:apply-templates select="phc:AST_member_list" />
+<xsl:template match="AST:PHP_class_def[AST:CLASS_NAME[AST:value='%MAIN%']]">
+ <xsl:apply-templates select="AST:PHP_member_list" />
</xsl:template>
-<xsl:template match="phc:AST_member_list" >
- <xsl:apply-templates select="phc:AST_method" />
+<xsl:template match="AST:PHP_member_list" >
+ <xsl:apply-templates select="AST:PHP_method" />
</xsl:template>
-<xsl:template match="phc:AST_method" >
+<xsl:template match="AST:PHP_method" >
</xsl:template>
-<xsl:template match="phc:AST_method[phc:AST_signature[phc:Token_method_name[phc:value='%run%']]]">
- <xsl:apply-templates select="phc:AST_statement_list" />
+<xsl:template match="AST:PHP_method[AST:PHP_signature[AST:METHOD_NAME[AST:value='%run%']]]">
+ <xsl:apply-templates select="AST:PHP_statement_list" />
</xsl:template>
-<xsl:template match="phc:AST_statement_list" >
+<xsl:template match="AST:PHP_statement_list" >
<past:Stmts>
- <xsl:apply-templates select="phc:AST_eval_expr" />
- <xsl:apply-templates select="phc:AST_if" />
+ <xsl:apply-templates select="AST:PHP_eval_expr" />
+ <xsl:apply-templates select="AST:PHP_if" />
</past:Stmts>
</xsl:template>
-<xsl:template match="phc:AST_eval_expr" >
- <xsl:apply-templates select="phc:AST_method_invocation" />
- <xsl:apply-templates select="phc:AST_assignment" />
+<xsl:template match="AST:PHP_eval_expr" >
+ <xsl:apply-templates select="AST:PHP_method_invocation" />
+ <xsl:apply-templates select="AST:PHP_assignment" />
</xsl:template>
-<xsl:template match="phc:AST_method_invocation" >
+<xsl:template match="AST:PHP_method_invocation" >
<past:Op>
- <xsl:attribute name="name" ><xsl:value-of select="phc:Token_method_name/phc:value" /></xsl:attribute>
- <xsl:apply-templates select="phc:AST_actual_parameter_list" />
+ <xsl:attribute name="name" ><xsl:value-of select="AST:METHOD_NAME/AST:value" /></xsl:attribute>
+ <xsl:apply-templates select="AST:PHP_actual_parameter_list" />
</past:Op>
</xsl:template>
-<xsl:template match="phc:AST_actual_parameter_list" >
- <xsl:apply-templates select="phc:AST_actual_parameter" />
+<xsl:template match="AST:PHP_actual_parameter_list" >
+ <xsl:apply-templates select="AST:PHP_actual_parameter" />
</xsl:template>
-<xsl:template match="phc:AST_actual_parameter" >
- <xsl:apply-templates select=" phc:AST_method_invocation
- | phc:Token_string
- | phc:Token_int
- | phc:Token_bool
- | phc:Token_null
- | phc:Token_real
- | phc:AST_bin_op
- | phc:AST_unary_op
- | phc:AST_variable
- | phc:AST_constant" />
+<xsl:template match="AST:PHP_actual_parameter" >
+ <xsl:apply-templates select=" AST:PHP_method_invocation
+ | AST:STRING
+ | AST:INT
+ | AST:BOOL
+ | AST:NULL
+ | AST:REAL
+ | AST:PHP_bin_op
+ | AST:PHP_unary_op
+ | AST:PHP_variable
+ | AST:PHP_constant" />
</xsl:template>
-<xsl:template match="phc:AST_bin_op" >
+<xsl:template match="AST:PHP_bin_op" >
<past:Op>
<xsl:attribute name="pirop" >
<xsl:choose>
- <xsl:when test="phc:Token_op/phc:value = '+'" >n_add</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = '-'" >n_sub</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = '*'" >n_mul</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = '/'" >n_div</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = '%'" >n_mod</xsl:when>
+ <xsl:when test="AST:OP/AST:value = '+'" >n_add</xsl:when>
+ <xsl:when test="AST:OP/AST:value = '-'" >n_sub</xsl:when>
+ <xsl:when test="AST:OP/AST:value = '*'" >n_mul</xsl:when>
+ <xsl:when test="AST:OP/AST:value = '/'" >n_div</xsl:when>
+ <xsl:when test="AST:OP/AST:value = '%'" >n_mod</xsl:when>
</xsl:choose>
</xsl:attribute>
<xsl:attribute name="name" >
<xsl:choose>
- <xsl:when test="phc:Token_op/phc:value/@encoding = 'base64'" >
+ <xsl:when test="AST:OP/AST:value/@encoding = 'base64'" >
<xsl:choose>
- <xsl:when test="phc:Token_op/phc:value = 'PA=='" >infix:<</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = 'PD0='" >infix:<=</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = 'Pj0='" >infix:>=</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = 'Pg=='" >infix:></xsl:when>
- <xsl:when test="phc:Token_op/phc:value = 'Jg=='" >infix:&</xsl:when>
+ <xsl:when test="AST:OP/AST:value = 'PA=='" >infix:<</xsl:when>
+ <xsl:when test="AST:OP/AST:value = 'PD0='" >infix:<=</xsl:when>
+ <xsl:when test="AST:OP/AST:value = 'Pj0='" >infix:>=</xsl:when>
+ <xsl:when test="AST:OP/AST:value = 'Pg=='" >infix:></xsl:when>
+ <xsl:when test="AST:OP/AST:value = 'Jg=='" >infix:&</xsl:when>
</xsl:choose>
</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = '&&'" >infix:AND</xsl:when>
- <xsl:when test="phc:Token_op/phc:value = '||'" >infix:OR</xsl:when>
+ <xsl:when test="AST:OP/AST:value = '&&'" >infix:AND</xsl:when>
+ <xsl:when test="AST:OP/AST:value = '||'" >infix:OR</xsl:when>
<xsl:otherwise>
- <xsl:value-of select="concat('infix:', phc:Token_op/phc:value)" />
+ <xsl:value-of select="concat('infix:', AST:OP/AST:value)" />
</xsl:otherwise>
</xsl:choose>
</xsl:attribute>
- <xsl:apply-templates select=" phc:Token_string
- | phc:Token_int
- | phc:Token_real
- | phc:AST_bin_op
- | phc:AST_unary_op
- | phc:AST_variable
- | phc:AST_constant" />
+ <xsl:apply-templates select=" AST:STRING
+ | AST:INT
+ | AST:REAL
+ | AST:PHP_bin_op
+ | AST:PHP_unary_op
+ | AST:PHP_variable
+ | AST:PHP_constant" />
</past:Op>
</xsl:template>
-<xsl:template match="phc:AST_unary_op" >
+<xsl:template match="AST:PHP_unary_op" >
<past:Op >
<xsl:attribute name="name" >
- <xsl:value-of select="concat('prefix:', phc:Token_op/phc:value)" />
+ <xsl:value-of select="concat('prefix:', AST:OP/AST:value)" />
</xsl:attribute>
- <xsl:apply-templates select=" phc:Token_int
- | phc:Token_real
- | phc:AST_bin_op
- | phc:AST_unary_op" />
+ <xsl:apply-templates select=" AST:INT
+ | AST:REAL
+ | AST:PHP_bin_op
+ | AST:PHP_unary_op" />
</past:Op>
</xsl:template>
<!-- value assignment -->
-<xsl:template match="phc:AST_assignment[string(phc:bool) = 'false']" >
+<xsl:template match="AST:PHP_assignment[string(AST:BOOL) = 'false']" >
<past:Op name='infix:=' pasttype='bind' >
- <xsl:apply-templates select="phc:AST_variable" />
- <xsl:apply-templates select=" phc:Token_string
- | phc:Token_int
- | phc:AST_bin_op
- | phc:AST_constant" />
+ <xsl:apply-templates select="AST:PHP_variable" />
+ <xsl:apply-templates select=" AST:STRING
+ | AST:INT
+ | AST:PHP_bin_op
+ | AST:PHP_constant" />
</past:Op>
</xsl:template>
<!-- aliasing -->
-<xsl:template match="phc:AST_assignment[string(phc:bool) = 'true']" >
+<xsl:template match="AST:PHP_assignment[string(AST:BOOL) = 'true']" >
<past:Op name='infix::=' pasttype='bind' >
- <xsl:apply-templates select="phc:AST_variable" />
- <xsl:apply-templates select=" phc:Token_string
- | phc:Token_int
- | phc:AST_bin_op
- | phc:AST_constant" />
+ <xsl:apply-templates select="AST:PHP_variable" />
+ <xsl:apply-templates select=" AST:STRING
+ | AST:INT
+ | AST:PHP_bin_op
+ | AST:PHP_constant" />
</past:Op>
</xsl:template>
-<xsl:template match="phc:AST_variable" >
+<xsl:template match="AST:PHP_variable" >
<past:Var scope="package" >
<xsl:attribute name="name" >
- <xsl:value-of select="concat( '$', phc:Token_variable_name/phc:value )" />
+ <xsl:value-of select="concat( '$', AST:VARIABLE_NAME/AST:value )" />
</xsl:attribute>
</past:Var>
</xsl:template>
-<xsl:template match="phc:AST_variable[ phc:AST_expr_list/phc:Token_string | phc:AST_expr_list/phc:Token_int ]" >
+<xsl:template match="AST:PHP_variable[ AST:PHP_expr_list/AST:STRING | AST:PHP_expr_list/AST:INT ]" >
<past:Var scope="keyed" viviself="Undef" lvalue="1" >
<xsl:choose>
- <xsl:when test="phc:Token_variable_name/phc:value = '_GET' or phc:Token_variable_name/phc:value = '_POST'" >
+ <xsl:when test="AST:VARIABLE_NAME/AST:value = '_GET' or AST:VARIABLE_NAME/AST:value = '_POST'" >
<past:Var scope="package" >
- <xsl:attribute name="name" ><xsl:value-of select="concat( '$', phc:Token_variable_name/phc:value )" /></xsl:attribute>
+ <xsl:attribute name="name" ><xsl:value-of select="concat( '$', AST:VARIABLE_NAME/AST:value )" /></xsl:attribute>
</past:Var>
</xsl:when>
<xsl:otherwise>
<past:Var viviself="PhpArray" scope="package" lvalue="1" >
- <xsl:attribute name="name" ><xsl:value-of select="concat( '$', phc:Token_variable_name/phc:value )" /></xsl:attribute>
+ <xsl:attribute name="name" ><xsl:value-of select="concat( '$', AST:VARIABLE_NAME/AST:value )" /></xsl:attribute>
</past:Var>
</xsl:otherwise>
</xsl:choose>
- <xsl:apply-templates select=" phc:AST_expr_list/phc:Token_string
- | phc:AST_expr_list/phc:Token_int" />
+ <xsl:apply-templates select=" AST:PHP_expr_list/AST:STRING
+ | AST:PHP_expr_list/AST:INT" />
</past:Var>
</xsl:template>
-<xsl:template match="phc:AST_constant" >
+<xsl:template match="AST:PHP_constant" >
<past:Op name="constant" >
<past:Val returns="PhpString" >
- <xsl:attribute name="value" ><xsl:value-of select="phc:Token_constant_name/phc:value" /></xsl:attribute>
+ <xsl:attribute name="value" ><xsl:value-of select="AST:CONSTANT_NAME/AST:value" /></xsl:attribute>
</past:Val>
</past:Op>
</xsl:template>
-<xsl:template match="phc:Token_string" >
+<xsl:template match="AST:STRING" >
<past:Val returns="PhpString" >
- <xsl:attribute name="encoding" ><xsl:value-of select="phc:value/@encoding" /></xsl:attribute>
- <xsl:attribute name="value" ><xsl:value-of select="phc:value" /></xsl:attribute>
+ <xsl:attribute name="encoding" ><xsl:value-of select="AST:value/@encoding" /></xsl:attribute>
+ <xsl:attribute name="value" ><xsl:value-of select="AST:value" /></xsl:attribute>
</past:Val>
</xsl:template>
-<xsl:template match="phc:Token_int" >
+<xsl:template match="AST:INT" >
<past:Val returns="PhpInteger" >
- <xsl:attribute name="value" ><xsl:value-of select="phc:value" /></xsl:attribute>
+ <xsl:attribute name="value" ><xsl:value-of select="AST:value" /></xsl:attribute>
</past:Val>
</xsl:template>
-<xsl:template match="phc:Token_bool" >
+<xsl:template match="AST:BOOL" >
<past:Val returns="PhpBoolean" >
<xsl:attribute name="value" ><xsl:choose>
- <xsl:when test="phc:value = 'True'" >1</xsl:when>
- <xsl:when test="phc:value = 'False'" >0</xsl:when>
+ <xsl:when test="AST:value = 'True'" >1</xsl:when>
+ <xsl:when test="AST:value = 'False'" >0</xsl:when>
</xsl:choose></xsl:attribute>
</past:Val>
</xsl:template>
-<xsl:template match="phc:Token_null" >
+<xsl:template match="AST:BOOL" >
<past:Val returns="PhpNull" >
<xsl:attribute name="value" >0</xsl:attribute>
</past:Val>
</xsl:template>
<!-- looks like phc is running into a floating point issue -->
-<xsl:template match="phc:Token_real" >
+<xsl:template match="AST:REAL" >
<past:Val returns='PhpFloat' >
- <xsl:attribute name="value" ><xsl:value-of select="phc:source_rep" /></xsl:attribute>
+ <xsl:attribute name="value" ><xsl:value-of select="AST:source_rep" /></xsl:attribute>
</past:Val>
</xsl:template>
-<xsl:template match=" phc:value
- | phc:source_rep" >
+<xsl:template match=" AST:value
+ | AST:source_rep" >
<xsl:value-of select="." />
</xsl:template>
-<xsl:template match="phc:AST_if" >
+<xsl:template match="AST:PHP_if" >
<past:Op pasttype="if" >
- <xsl:apply-templates select=" phc:Token_string
- | phc:Token_int
- | phc:Token_real
- | phc:AST_bin_op
- | phc:AST_unary_op
- | phc:AST_variable
- | phc:AST_constant" />
+ <xsl:apply-templates select=" AST:STRING
+ | AST:INT
+ | AST:REAL
+ | AST:PHP_bin_op
+ | AST:PHP_unary_op
+ | AST:PHP_variable
+ | AST:PHP_constant" />
<past:Block blocktype="immediate" >
- <xsl:apply-templates select="phc:AST_statement_list[1]" />
+ <xsl:apply-templates select="AST:PHP_statement_list[1]" />
</past:Block>
<past:Block blocktype="immediate" >
- <xsl:apply-templates select="phc:AST_statement_list[2]" />
+ <xsl:apply-templates select="AST:PHP_statement_list[2]" />
</past:Block>
</past:Op>
</xsl:template>