# This is -*- tcl -*- script for SGML transformation.
# $Id: script,v 1.5 1998/11/11 15:06:03 tobotras Exp $
# Source DTD: -//Jet//DTD TZ//RU
# Destination DTD: -//TEI//DTD TEI Tools 0.1//EN

require Simple.tcl
require TEItools.tcl
require locale.koi8-r.tcl

rename output {}

set outFile [open "${argv}.tei" "w"]

proc output { text } {
    global outFile 
    puts $outFile $text nonewline
}
 
specification translate {
    {element TZ} {
	prefix	"<!doctype tei.2 public '-//TEI//DTD TEI Tools 0.1//EN'>
<tei.2><teiheader></teiheader>
 <text>

"
	suffix	"
 </text>
</tei.2>
<!-- 
Local variables:
mode: sgml
compile-command:\"tei2dvi ${argv}\"
End:
-->
"
    }
    {element TITLEPAGE} {
	prefix	"  <front><titlepage>
"
	suffix	"
  </titlepage></front>
"
    }
    {element TITLEHEAD} {
	prefix	"
<docauthor>"
	suffix	"</docauthor>
"
    }
    {element TITLEPART} {
	prefix	"   <titlepart type='[query attval TYPE]'>"
	suffix	"</titlepart>
"
    }
    {element BODY} {
	prefix		"  <body>
"
	suffix		"
  </body>
"
    }
    {elements "COMMONINFO CHARACTERISTICS REQUIREMENTS CONTENTS FINISHINGREQUIREMENTS DOCUMENTATIONREQUIREMENTS SOURCES GOAL"} {
	prefix		"   <div1 type='section'>"
	suffix		"
   </list></div1>
"
    }
    {element ORDEREDLIST} {
	prefix		"<list type='ordered'>"
    }
    {element PARABREAK} {
	prefix		"</p>\n"
    }
    {element PTR} {
	prefix		"<ptr target='[attVal TARGET]'>"
    }
    {elements "ITEM LIST"} {
	prefix		"<[query gi]>"
	suffix		"</[query gi]>\n"
    }
    {element HEAD} {
	prefix		"<head>"
	suffix		"</head>
<list type='ordered'>
"
    }
    {element QUOTE} {
	prefix		"&laquo;"
	suffix		"&raquo;"
    }
    {element LISTITEM} {
	prefix		"<item>"
	suffix		"</item>"
    }
    {el within BACK} {
	cdataFilter	null
	sdataFilter	null
    }
    {el} {
	prefix		"[openUnknown]"
	sdataFilter	textSdataFilter
    }
}

substitution textSdataFilter {
    {[AElig ]} {&AElig;}
    {[agrave]} {&agrave;}
    {[aacute]} {&aacute;}
    {[Aacute]} {&Aacute;}
    {[acirc ]} {&acirc;}
    {[Acirc ]} {&Acirc;}
    {[Agrave]} {&Agrave;}
    {[aring ]} {&aring;}
    {[Aring ]} {&Aring;}
    {[atilde]} {&atilde;}
    {[Atilde]} {&Atilde;}
    {[auml  ]} {&auml;}
    {[Auml  ]} {&Auml;}
    {[aelig ]} {&aelig;}
    {[ccedil]} {&ccedil;}
    {[Ccedil]} {&Ccedil;}
    {[eacute]} {&eacute;}
    {[Eacute]} {&Eacute;}
    {[ecirc ]} {&ecirc;}
    {[Ecirc ]} {&Ecirc;}
    {[egrave]} {&egrave;}
    {[Egrave]} {&Egrave;}
    {[euml  ]} {&euml;}
    {[Euml  ]} {&Euml;}
    {[iacute]} {&iacute;}
    {[Iacute]} {&Iacute;}
    {[icirc ]} {&icirc;}
    {[Icirc ]} {&Icirc;}
    {[igrave]} {&igrave;}
    {[Igrave]} {&Igrave;}
    {[iuml  ]} {&iuml;}
    {[Iuml  ]} {&Iuml;}
    {[ntilde]} {&ntilde;}
    {[Ntilde]} {&Ntilde;}
    {[oacute]} {&oacute;}
    {[Oacute]} {&Oacute;}
    {[ocirc ]} {&ocirc;}
    {[Ocirc ]} {&Ocirc;}
    {[ograve]} {&ograve;}
    {[Ograve]} {&Ograve;}
    {[oslash]} {&oslash;}
    {[Oslash]} {&Oslash;}
    {[otilde]} {&otilde;}
    {[Otilde]} {&Otilde;}
    {[ouml  ]} {&ouml;}
    {[Ouml  ]} {&Ouml;}
    {[szlig ]} {&szlig;}
    {[uacute]} {&uacute;}
    {[Uacute]} {&Uacute;}
    {[ucirc ]} {&ucirc;}
    {[Ucirc ]} {&Ucirc;}
    {[ugrave]} {&ugrave;}
    {[Ugrave]} {&Ugrave;}
    {[uuml  ]} {&uuml;}
    {[Uuml  ]} {&Uuml;}
    {[yacute]} {&yacute;}
    {[Yacute]} {&Yacute;}
    {[yuml  ]} {&yuml;}
    {[thorn ]} {&thorn;}
    {[THORN ]} {&THORN;}
    {[eth   ]} {&eth;}
    {[ETH   ]} {&ETH;}
    {[ldquo ]} {&ldquo;}
    {[rdquo ]} {&rdquo;}
    {[rsquo ]} {&rsquo;}
    {[lsquo ]} {&lsquo;}
    {[raquo ]} {&raquo;}
    {[laquo ]} {&laquo;}
    {[ndash ]} {&ndash;}
    {[mdash ]} {&mdash;}
    {[hellip]} {&hellip;}
    {[excl  ]} {&excl;}
    {[num   ]} {&num;}
    {[dollar]} {&dollar;}
    {[lsqb  ]} {&lsqb;}
    {[rsqb  ]} {&rsqb;}
    {[circ  ]} {&circ;}
    {[bsol  ]} {&bsol;}
    {[grave ]} {&grave;}
    {[lcub  ]} {&lcub;}
    {[rcub  ]} {&rcub;}
    {[tilde ]} {&tilde;}
    {[verbar]} {&verbar;}
    {[lt    ]} {&lt;}
    {[gt    ]} {&gt;}
    {[amp   ]} {&amp;}
    {[nbsp  ]} {&nbsp;}
}
