# -*- tcl -*-
# $Id: script,v 1.3 1998/10/15 16:07:02 tobotras Exp $

require Simple.tcl
require TEItools.tcl
require textutil.tcl
TEItoolsSetup "tex"
require TEItoolsTeX.tcl

specification translate {
    {element FAX} {
	prefix	[latexFileHeader]
	suffix	[latexFileFooter]
    }
    {element P} {
	prefix		"\\n\{\\\\par{}"
	suffix		"\\n\}\\n"
    }
    {element HEADER} {
	suffix		{\n\\faxheader\{\\faxTO\}\{\\faxATTN\}\{\\faxNO\}\{\\faxFROM\}\{\\faxDATE\}\{\\pageref\{LastPage\}\}\n}
    }
    {elements "TO ATTN FROM DATE SUBJECT"} {
	prefix		{\\renewcommand\{\\fax[query gi]\}\{}
	suffix		{\}\n}
    }
}

proc latexFileHeader {} {
    return "% Generated from TEI Lite DTD by TEItools
% See http://xtalk.price.ru/SGML/TEItools

\\documentclass\[a4paper,titlepage,12pt\]{article}
[localize LaTeX_preamble]
\\usepackage{graphicx,longtable,geometry,textcomp}
%\\usepackage\[nomarker\]{endfloat}
\\usepackage{lastpage}
\\usepackage{xspace}
\\usepackage{fancyhdr}
\\usepackage\[normalem\]{ulem}
\\usepackage{pslatex,freepsfonts}
\\geometry{a4paper,top=1.8cm,bottom=1.6cm,left=3cm,right=2cm}
\\sloppy
\\makeatletter
\\newcommand{\\theDot}{\\@ifnextchar.{}{.\\xspace}}
\\makeatother
\\input{fax-header-rus}
\\begin{document}
\\newlength\\CellW
\\newlength\\ParIndent
\\setlength\{\\ParIndent\}\{\\parindent\}
\\newlength\\HeadHeight
\\parindent=0pt
\\parskip=1ex

% tiny bullet

\\newcommand\{\\BUL\}\{\\small\\textbullet\}
\\newlength\{\\bulraise\} \\newlength\{\\bulheight\}
\\setlength\{\\bulraise\}\{1ex\}
\\settoheight\{\\bulheight\}\{\\BUL\}
\\addtolength\{\\bulraise\}\{-\\bulheight\}
\\setlength\{\\bulraise\}\{0.5\\bulraise\}
\\newcommand\{\\tinybullet\}\{\\raisebox\{\\bulraise\}\{\\BUL\}\}

\\newcommand{\\faxFROM}{}
\\newcommand{\\faxTO}{}
\\newcommand{\\faxATTN}{}
\\newcommand{\\faxDATE}{\\today}
\\newcommand{\\faxNO}{}
"
}

proc latexFileFooter {} {
    set fqdn {}
    global env
    if { [info exist env(HOST) ] } {
	set fqdn $env(HOST)
    } elseif { [info exist env(HOSTNAME)] } {
	set fqdn $env(HOSTNAME)
    } else {
	catch {set fqdn [exec hostname]}
    }
    if { [string first "." $fqdn] == -1 } {
	catch {set fqdn "${fqdn}.[exec domainname]"}
    }
    return "
\\end{document}
% Converted to LaTeX by $env(USER)@$fqdn at [exec date]
"
}

