;;; textpat.xom  
;;; Copyright (C) 1999 Rick Jelliffe & Academia Sinica Computing Centre

GLOBAL COUNTER thePatternNo
GLOBAL COUNTER thePriority
GLOBAL STREAM s1

PROCESS
	do xml-parse document
		scan file #command-line-names @ 2
		output "%c"
	done

ELEMENT xx
	SUPPRESS 
ELEMENT schema
	RESET thePriority TO 4000  ;; any big number
	OUTPUT "<?xml version='1.0'?>%n"_
		"<xsl:stylesheet%n"_
                '	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"%n'_
        	'        xmlns="" >%n'_
		"<xsl:template match='/'>%n"
	OUTPUT REFERENT "apply-templates"
	OUTPUT "</xsl:template>%n"
	OPEN s1 AS REFERENT "apply-templates"
	OUTPUT "%c%n"
	CLOSE s1


       OUTPUT ' <xsl:template match="text()" priority="-1">%n'_
       		'      <!-- strip characters -->%n'_
       		' </xsl:template>%n'_
		"</xsl:stylesheet>"


ELEMENT pattern
	OUTPUT "%c%n"
	PUT s1 "<xsl:apply-templates mode='M%d(thePatternNo)' />%n"
       OUTPUT ' <xsl:template match="text()" priority="-1" mode="M%d(thePatternNo)">%n'_
       		'      <!-- strip characters -->%n'_
       		' </xsl:template>%n'
	INCREMENT thePatternNo

ELEMENT rule
	OUTPUT "<xsl:template match='%v(context)' priority='%d(thePriority)' mode='M%d(thePatternNo)'>%n"
	DECREMENT thePriority
	OUTPUT "%c%n"_
        	" 	<xsl:apply-templates mode='M%d(thePatternNo)'/>%n"_
		"</xsl:template>%n"

ELEMENT assert
	;;  give message if not true

	OUTPUT "<xsl:choose><xsl:when test='%v(test)'/>%n"_
		"<xsl:otherwise>In pattern '"
	USING ATTRIBUTE name OF ANCESTOR pattern	
        	OUTPUT "%v(name)" 
	OUTPUT  "':%n%t%c%n</xsl:otherwise>%n</xsl:choose>%n" 


ELEMENT report
	;; give message if true

	OUTPUT "<xsl:if test='%v(test)'>In pattern '"
	USING ATTRIBUTE name OF ANCESTOR pattern	
        	OUTPUT "%v(name)" 
	OUTPUT  "': %c%n</xsl:if>%n"