#		-*- Tcl -*-
# $Id: script,v 1.3 1998/11/11 15:05:58 tobotras Exp $


require Simple.tcl

specification translate {

    {element BR} {
	prefix		" "
    }

    {element P} {
	prefix		"<p>"
	suffix		"</p>\\n"
    }

    {element EM} {
	prefix		"<em>"
	suffix		"</em>"
    }

    {element TABLE} {
	prefix		"\\n<tabular>\\n"
	suffix		"</tabular>\\n"
    }

    {element TR in TABLE} {
	prefix		"\\n<hline>"
	suffix		"<rowsep>"
    }

    {element TH in TR} {
	prefix		"<bf>"
	suffix		"</bf><colsep>"
    }

    {element TD in TR} {
	prefix		""
	suffix		"<colsep>"
    }

    {element HTML} {
	prefix		"<!DOCTYPE linuxdoc SYSTEM>\\n<linuxdoc><article>\\n"
	suffix		"\\n</article></linuxdoc>\\n"
    }

    {element UL} {
	prefix		"<itemize>\\n"
	suffix		"</itemize>\\n"
    }

    {element OL} {
	prefix		"<enum>\\n"
	suffix		"</enum>\\n"
    }
    
    {element DL} {
	prefix		"<list>\\n"
	suffix		"</list>\\n"
    }
    {element LI} {
	prefix		"<item> "
	suffix		"</item>\\n"
    }

    {element HEAD} {
	prefix		"\\n<titlepag>\\n"
	suffix		"</titlepag>\\n"
    }

    {element TITLE in HEAD} {
	prefix		"\\n<title>"
	suffix		"</title>\\n"
	cdataFilter	stripNewlines
    }

    {element H1} {
	prefix		"\\n<sect><heading>"
	suffix		"</heading>\\n<p>"
	cdataFilter	stripNewlines
    }

    {element H2} {
	prefix		"\\n<sect1><heading>"
	suffix		"</heading>\\n<p>"
	cdataFilter	stripNewlines
    }

    {element H3} {
	prefix		"\\n<sect2><heading>"
	suffix		"</heading>\\n<p>"
	cdataFilter	stripNewlines
    }

    {element H4} {
	prefix		"\\n<sect3><heading>"
	suffix		"</heading>\\n<p>"
	cdataFilter	stripNewlines
    }

    {element "H5 H6"} {
	prefix		"\\n<sect4><heading>"
	suffix		"</heading>\\n<p>"
	cdataFilter	stripNewlines
    }

    {element PRE} {
	prefix		"\\n<verb>\\n"
	suffix		"</verb>\\n"
    }
    {element STRONG} {
	prefix		"<bf>"
	suffix		"</bf>"
    }
}

proc stripNewlines { text } {
    regsub -all -- "\n" $text "" var
    return $var
}
