summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/grtimes
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-01-31 23:12:26 +0000
committerKarl Berry <karl@freefriends.org>2008-01-31 23:12:26 +0000
commit83a12828e0e1da0e3acb0754c328f67b514d747b (patch)
tree91cac602bc96912449f9d169ac2f05218efdd177 /Master/texmf-dist/source/latex/grtimes
parent1a366cd60165d0f1803a560549a620d8b0137e56 (diff)
rm grtimes, requires a nonfree Monotype font
git-svn-id: svn://tug.org/texlive/trunk@6466 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/grtimes')
-rw-r--r--Master/texmf-dist/source/latex/grtimes/font-names60
-rw-r--r--Master/texmf-dist/source/latex/grtimes/grtimes.dtx355
-rw-r--r--Master/texmf-dist/source/latex/grtimes/grtimes.ins63
-rw-r--r--Master/texmf-dist/source/latex/grtimes/inlig27
4 files changed, 0 insertions, 505 deletions
diff --git a/Master/texmf-dist/source/latex/grtimes/font-names b/Master/texmf-dist/source/latex/grtimes/font-names
deleted file mode 100644
index f31389e5a0d..00000000000
--- a/Master/texmf-dist/source/latex/grtimes/font-names
+++ /dev/null
@@ -1,60 +0,0 @@
-grar10.mf
-grar17.mf
-grar5.mf
-grar8.mf
-grar9.mf
-grarb10.mf
-grarb17.mf
-grarb5.mf
-grarb8.mf
-grarb9.mf
-grarbo10.mf
-grarbo17.mf
-grarbo5.mf
-grarbo8.mf
-grarbo9.mf
-graro10.mf
-graro17.mf
-graro5.mf
-graro8.mf
-graro9.mf
-grcr10.mf
-grcr17.mf
-grcr5.mf
-grcr8.mf
-grcr9.mf
-grcrb10.mf
-grcrb17.mf
-grcrb5.mf
-grcrb8.mf
-grcrb9.mf
-grcrbo10.mf
-grcrbo17.mf
-grcrbo5.mf
-grcrbo8.mf
-grcrbo9.mf
-grcro10.mf
-grcro17.mf
-grcro5.mf
-grcro8.mf
-grcro9.mf
-grtm10.mf
-grtm17.mf
-grtm5.mf
-grtm8.mf
-grtm9.mf
-grtmb10.mf
-grtmb17.mf
-grtmb5.mf
-grtmb8.mf
-grtmb9.mf
-grtmbo10.mf
-grtmbo17.mf
-grtmbo5.mf
-grtmbo8.mf
-grtmbo9.mf
-grtmo10.mf
-grtmo17.mf
-grtmo5.mf
-grtmo8.mf
-grtmo9.mf
diff --git a/Master/texmf-dist/source/latex/grtimes/grtimes.dtx b/Master/texmf-dist/source/latex/grtimes/grtimes.dtx
deleted file mode 100644
index 43b11d4c9f2..00000000000
--- a/Master/texmf-dist/source/latex/grtimes/grtimes.dtx
+++ /dev/null
@@ -1,355 +0,0 @@
-%% \CharacterTable
-%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
-%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
-%% Digits \0\1\2\3\4\5\6\7\8\9
-%% Exclamation \! Double quote \" Hash (number) \#
-%% Dollar \$ Percent \% Ampersand \&
-%% Acute accent \' Left paren \( Right paren \)
-%% Asterisk \* Plus \+ Comma \,
-%% Minus \- Point \. Solidus \/
-%% Colon \: Semicolon \; Less than \<
-%% Equals \= Greater than \> Question mark \?
-%% Commercial at \@ Left bracket \[ Backslash \\
-%% Right bracket \] Circumflex \^ Underscore \_
-%% Grave accent \` Left brace \{ Vertical bar \|
-%% Right brace \} Tilde \~}
-%\iffalse
-%
-% (c) copyright 1999-2002 Apostolos Syropoulos
-% This program can be redistributed and/or modified under the terms
-% of the LaTeX Project Public License Distributed from CTAN
-% archives in directory macros/latex/base/lppl.txt; either
-% version 1 of the License, or any later version.
-%
-% However, the above copyright notice does not apply in the case of
-% ``Crete University Press'' as this publisher is not allowed to
-% use or alter this file in any way.
-%
-% Please report errors or suggestions for improvement to
-%
-% Apostolos Syropoulos
-% 366, 28th October Str.
-% GR-671 00 Xanthi, GREECE
-% apostolo@ocean1.ee.duth.gr or apostolo@obelix.ee.duth.gr
-%
-%\fi
-% \CheckSum{61}
-% \iffalse This is a Metacomment
-%
-%<grtimes >\ProvidesFile{grtimes.sty}
-%<LGRptm, >\ProvidesFile{lgrcmr.fd}
-%<LGRpcr, >\ProvidesFile{lgrpcr.fd}
-%<LGRphv, >\ProvidesFile{lgrphv.fd}
-%
-%<grtimes, > [1999/03/02 v1.0 Package `greek.sty']
-%<LGRptm, > [1999/03/02 v1.0 Greek Times New Roman]
-%<LGRpcr, > [1999/03/02 v1.0 Greek Courier]
-%<LGRphv, > [1999/03/02 v1.0 Greek Arial]
-%
-% \begin{macrocode}
-%<*driver>
-\documentclass{ltxdoc}
-\usepackage{mflogo}
-\GetFileInfo{grtimes.drv}
-\begin{document}
- \DocInput{grtimes.dtx}
-\end{document}
-%</driver>
-% \end{macrocode}
-% \fi
-%
-%\title{The `grtimes' package}
-%\author{Apostolos Syropoulos\\366, 28th October Str.\\
-%GR-671 00 Xanthi, HELLAS\\
-%Email:\texttt{apostolo@obelix.ee.duth.gr}\\ or \\
-%\hphantom{Email:}\texttt{apostolo@ocean1.ee.duth.gr}}
-% \date{1999/03/20}
-%\maketitle
-%
-%\MakeShortVerb{\|}
-%\StopEventually{}
-%\section{Introduction}
-% This \LaTeX\ package is part of a complete package that makes it possible
-% to typeset Greek text using the Greek option of the \textsf{babel} and
-% the fonts that are used mostly in Greece for ordinary everyday documents,
-% i.e., Times New Roman Greek, Courier Greek and Arial Greek. Since, the
-% present package is supposed to be a companion of the package |times|,
-% it designed to work harmoniously with it. For this reason, the fond
-% definitions, i.e., all the |.fd| files, have been defined in way that
-% matches the definition of the corresponding files of the |times| package.
-% It is important to note that the fonts have been converted to \MF\ files
-% from TrueType sources, which in turn can be downloaded from the URL:
-% \begin{center}
-% |http://www.microsoft.com/typography/fontpack/default.htm|
-% \end{center}
-% However, redistribution of derivative fonts is not allowed and hence we
-% don't provide the \MF\ files and the |.tfm| files. In order to create
-% the \MF\ files one can use the program |ttf2mf| by Oleg Motygin, which
-% can be downloaded from any CTAN node. The names of all necessary fonts
-% are listed in the file |font-names|, which is part of this package.
-%
-% The complete package provides the following \LaTeX\ files:
-%\begin{center}
-% \begin{tabular}{ll}
-% driver & produce a documentation driver file \\
-% grtimes & the package itself \\
-% LGRptm & The Greek Times New Roman font shapes\\
-% LGRpcr & The Greek Courier font shape\\
-% LGRphv & The Greek Arial font shape\\
-% LGRligs & \MF\ ligature table for generated fonts
-% \end{tabular}
-% \end{center}
-%
-% \section{The package `grtimes'}
-% The package `grtimes' changes the roman, san-serif and typewriter
-% families so that the new fonts can be used. Moreover, since we want
-% to be able to use this package in conjuction with the Greek option
-% of the babel package, we must redefine certain macros.
-%
-% \begin{macrocode}
-%<*grtimes>
-\ProvidesFile{grtimes.sty}[1999/03/02 v1.0 grtimes package]
-\renewcommand{\sfdefault}{phv}
-\renewcommand{\rmdefault}{ptm}
-\renewcommand{\ttdefault}{pcr}
-% \end{macrocode}
-%
-% Unfortunately, the fonts we are using do not contain the necesary glyphs
-% in order to typeset Greek numerals, so we must redefine all commands
-% that either use them or produce them. First we redine the command
-% |\stigma| so that it is possible to typeset the Greek numeral for 6.
-% We simply employ the modern way of writing this numeral with the letters
-% sigma and tau. Moreover, we employ a special character that resembles
-% somehow the |\anwtonos| charecter in order to typeset Greek numerals
-% less than 99, just because the fonts do not contain plyphs for the
-% |\qoppa|, |\sampi| and |\katwtonos| symbols.
-% \begin{macrocode}
-\def\stigma{st}
-\DeclareTextCommand{\anwtonos}{LGR}{\char'047\relax}
-\let\katwtonos\relax
-\let\qoppa\relax
-\let\sampi\relax
-%</grtimes>
-% \end{macrocode}
-%
-% \section{The Roman Font}
-% You have opted not to create all possible font sizes, but rather to create
-% the basic ones, since the program |ttf2mf| produces rather large files
-% ($>100\,\mathrm{K}$). The names of the external \MF\ files have the
-% general form: |grtmX| for the normal face, |grtmoX| for the oblique face,
-% |grtmbX| for the bold face, and |grtmboX| for the oblique bold face, where
-% |X| stands for the face size. We first define the new font family and then
-% provide the definition for the normal and the oblique (slanted) face.
-% \begin{macrocode}
-%<*LGRptm>
-\DeclareFontFamily{LGR}{ptm}{}
-\DeclareFontShape{LGR}{ptm}{m}{n}
- { <5> grtm5
- <6><7> grtm8
- <8> <9> <10> gen * grtm
- <10.95><12><14.4> grtm10
- <17.28><20.74><24.88> grtm17}{}
-\DeclareFontShape{LGR}{ptm}{m}{sl}
- { <5> grtmo5
- <6><7> grtmo8
- <8> <9> <10> gen * grtmo
- <10.95><12><14.4> grtmo10
- <17.28><20.74><24.88> grtmo17}{}
-% \end{macrocode}
-% The font does not include an italic shape as well a caps and small caps
-% shape, so we have to provide some silent substitutions.
-% \begin{macrocode}
-\DeclareFontShape{LGR}{ptm}{m}{it}{ <-> ssub * ptm/m/sl}{}
-\DeclareFontShape{LGR}{ptm}{m}{sc}{ <-> ssub * ptm/m/n}{}
-% \end{macrocode}
-% Now come the definitions for the bold weight versions of the font.
-% \begin{macrocode}
-\DeclareFontShape{LGR}{ptm}{b}{n}
- { <5> grtmb5
- <6><7> grtmb8
- <8> <9> <10> gen * grtmb
- <10.95><12><14.4> grtmb10
- <17.28><20.74><24.88> grtmb17}{}
-\DeclareFontShape{LGR}{ptm}{b}{sl}
- { <5> grtmbo5
- <6><7> grtmbo8
- <8> <9> <10> gen * grtmbo
- <10.95><12><14.4> grtmbo10
- <17.28><20.74><24.88> grtmbo17}{}
-% \end{macrocode}
-% As previously no italic and caps and small caps shapes exists and so
-% we have to provide again some silent substitutions.
-% \begin{macrocode}
-\DeclareFontShape{LGR}{ptm}{b}{it}{ <-> ssub * ptm/b/sl}{}
-\DeclareFontShape{LGR}{ptm}{b}{sc}{ <-> ssub * ptm/m/sc}{}
-\DeclareFontShape{LGR}{ptm}{bx}{n}{ <-> ssub * ptm/b/n}{}
-\DeclareFontShape{LGR}{ptm}{bx}{it}{ <-> ssub * ptm/b/sl}{}
-\DeclareFontShape{LGR}{ptm}{bx}{sl}{ <-> ssub * ptm/b/sl}{}
-\DeclareFontShape{LGR}{ptm}{bx}{sc}{ <-> ssub * ptm/m/sc}{}
-%</LGRptm>
-% \end{macrocode}
-% \section{The Typewriter font}
-% The typewriter font has excactly the same problems as the roman font.
-% The names of the external \MF\ files have the
-% general form: |grcrX| for the normal face, |grcroX| for the oblique face,
-% |grcrbX| for the bold face, and |grcrboX| for the oblique bold face,
-% where |X| stands for the face size. We first define the normal and slanted
-% faces.
-% \begin{macrocode}
-%<*LGRpcr>
-\DeclareFontFamily{LGR}{pcr}{}
-\DeclareFontShape{LGR}{pcr}{m}{n}
- { <5> grcr5
- <6><7> grcr8
- <8> <9> <10> gen * grcr
- <10.95><12><14.4> grcr10
- <17.28><20.74><24.88> grcr17}{}
-\DeclareFontShape{LGR}{pcr}{m}{sl}
- { <5> grcro5
- <6><7> grcro8
- <8> <9> <10> gen * grcro
- <10.95><12><14.4> grcro10
- <17.28><20.74><24.88> grcro17}{}
-% \end{macrocode}
-% Next we define some silent substitutions for the non existent italic
-% caps and small caps shapes.
-% \begin{macrocode}
-\DeclareFontShape{LGR}{pcr}{m}{it}{ <-> ssub * pcr/m/sl}{}
-\DeclareFontShape{LGR}{pcr}{m}{sc}{ <-> ssub * pcr/m/n}{}
-% \end{macrocode}
-% Now, we define the normal bold and the slanted bold faces.
-% \begin{macrocode}
-\DeclareFontShape{LGR}{pcr}{b}{n}
- { <5> grcrb5
- <6><7> grcrb8
- <8> <9> <10> gen * grcrb
- <10.95><12><14.4> grcrb10
- <17.28><20.74><24.88> grcrb17}{}
-\DeclareFontShape{LGR}{pcr}{b}{sl}
- { <5> grcrbo5
- <6><7> grcrbo8
- <8> <9> <10> gen * grcrbo
- <10.95><12><14.4> grcrbo10
- <17.28><20.74><24.88> grcrbo17}{}
-% \end{macrocode}
-% And finally we define some more silent substitutions
-% \begin{macrocode}
-\DeclareFontShape{LGR}{pcr}{b}{it}{ <-> ssub * pcr/b/sl}{}
-\DeclareFontShape{LGR}{pcr}{b}{sc}{ <-> ssub * pcr/m/sc}{}
-\DeclareFontShape{LGR}{pcr}{bx}{n}{ <-> ssub * pcr/b/n}{}
-\DeclareFontShape{LGR}{pcr}{bx}{it}{ <-> ssub * pcr/b/sl}{}
-\DeclareFontShape{LGR}{pcr}{bx}{sl}{ <-> ssub * pcr/b/sl}{}
-\DeclareFontShape{LGR}{pcr}{bx}{sc}{ <-> ssub * pcr/m/sc}{}
-%</LGRpcr>
-% \end{macrocode}
-% \section{The San-serif font}
-% The san-serif font has excactly the same problems as the roman and the
-% typewrite font. So, we will provide any further documentation on the
-% code. The names of the external \MF\ files have the
-% general form: |grarX| for the normal face, |graroX| for the oblique face,
-% |grarbX| for the bold face, and |grarboX| for the oblique bold face, where
-% |X| stands for the face size.
-% \begin{macrocode}
-%<*LGRphv>
-\DeclareFontFamily{LGR}{phv}{}
-\DeclareFontShape{LGR}{phv}{m}{n}
- { <5> grar5
- <6><7> grar8
- <8> <9> <10> gen * grar
- <10.95><12><14.4> grar10
- <17.28><20.74><24.88> grar17}{}
-\DeclareFontShape{LGR}{phv}{m}{sl}
- { <5> graro5
- <6><7> graro8
- <8> <9> <10> gen * graro
- <10.95><12><14.4> graro10
- <17.28><20.74><24.88> graro17}{}
-\DeclareFontShape{LGR}{phv}{m}{it}{ <-> ssub * phv/m/sl}{}
-\DeclareFontShape{LGR}{phv}{m}{sc}{ <-> ssub * phv/m/n}{}
-\DeclareFontShape{LGR}{phv}{b}{n}
- { <5> grarb5
- <6><7> grarb8
- <8> <9> <10> gen * grarb
- <10.95><12><14.4> grarb10
- <17.28><20.74><24.88> grarb17}{}
-\DeclareFontShape{LGR}{phv}{b}{sl}
- { <5> grarbo5
- <6><7> grarbo8
- <8> <9> <10> gen * grarbo
- <10.95><12><14.4> grarbo10
- <17.28><20.74><24.88> grarbo17}{}
-\DeclareFontShape{LGR}{phv}{b}{it}{ <-> ssub * phv/b/sl}{}
-\DeclareFontShape{LGR}{phv}{b}{sc}{ <-> ssub * phv/m/sc}{}
-\DeclareFontShape{LGR}{phv}{bx}{n}{ <-> ssub * phv/b/n}{}
-\DeclareFontShape{LGR}{phv}{bx}{it}{ <-> ssub * phv/b/sl}{}
-\DeclareFontShape{LGR}{phv}{bx}{sl}{ <-> ssub * phv/b/sl}{}
-\DeclareFontShape{LGR}{phv}{bx}{sc}{ <-> ssub * phv/m/sc}{}
-%</LGRphv>
-% \end{macrocode}
-% \section{\MF\ Ligature Table}
-%
-% The ligature table is essential in order to emulate the behavior
-% of the LGR encoding. We start by defining that the space character
-% is actually a boundary character. This is necessary for the sigma
-% logarures.
-% \begin{macrocode}
-%<*LGRligs>
-boundarychar:=oct"040";
-% \end{macrocode}
-% Now we define a few simple ligatures
-% like the en-dash, the em-dash, open Greek quotes and close Greek quotes.
-% \begin{macrocode}
-diaer=oct"042";
-ligtable "-": "-" =: oct"000"; % en-dash
-ligtable oct"000": "-" =: oct"177"; % em-dash
-ligtable "(": "(" =: oct"173"; % open quotes
-ligtable ")": ")" =: oct"175"; % close quotes
-% \end{macrocode}
-% In (monotonic) Greek either the letter upsilon or the letter iota
-% can take a diaeresis and possible an acute. If we prepend to either
-% letter the symbol |"| (double quote), it considered to be a diaeresis;
-% moreover if it is followed by the symbol |'| (single quote), then we
-% have both a diaeresis and an acute.
-% \begin{macrocode}
-ligtable diaer: % diaeresis
- "'" =: oct"043",
- "i" =: oct"360", "u" =: oct"364",
- "I" =: oct"333", "U" =: oct"337";
-
-ligtable oct"043": % diaeresis and acute
- "i" =: oct"362", "u" =: oct"366";
-% \end{macrocode}
-% Next, we define all the possible ligatures that produce an accented
-% vowel, i.e, acute plus vowel. However, we generate the \MF\ file from the
-% TrueType sources we employ an encoding which maps the Greek letters to the
-% possitions assumed by the LGR encoding. But, since all characters
-% are accented, while the LGR encoding assumes that capital letters get
-% their accents and breatings with ligatures, we had to put the capital
-% accented letters in free slots. Since the fonts are monotonic, we opted
-% to put each capital letter in the slot occupied by the lowercase letter
-% accented with greve.
-% \begin{macrocode}
-ligtable "'": % acute
- diaer =: oct"043", "'" =: oct"035",
- "a" =: oct"210", "h" =: oct"240", "w" =: oct"270",
- "e" =: oct"350", "o" =: oct"354", "i" =: oct"320",
- "u" =: oct"324",
- "A" =: oct"200", "H" =: oct"230", "W" =: oct"260",
- "I" =: oct"310", "E" =: oct"340", "U" =: oct"314",
- "O" =: oct"344";
-% \end{macrocode}
-% Finally, we must treat the proper way the final sigma, i.e., left sigma is
-% replaced with final sigma, while right character is preserved. The code
-% is copied essentialy verbatim from the |cbligs.mf| by Claudio Beccari.
-% \begin{macrocode}
-ligtable "s":"." =:| "c", "," =:| "c", ";" =:| "c",
- ":" =:| "c", "?" =:| "c", "!" =:| "c",
- ")" =:| "c", "/" =:| "c", "]" =:| "c",
- oct"052" =:| "c", oct"035" =:| "c", oct"040" =:| "c";
-endinput;
-%</LGRligs>
-% \end{macrocode}
-% \section*{Acknowledgement}
-% I must thank Antonis Tsolomitis for his help during the preparation of
-% this package.
-% \Finale
diff --git a/Master/texmf-dist/source/latex/grtimes/grtimes.ins b/Master/texmf-dist/source/latex/grtimes/grtimes.ins
deleted file mode 100644
index 9b37590283e..00000000000
--- a/Master/texmf-dist/source/latex/grtimes/grtimes.ins
+++ /dev/null
@@ -1,63 +0,0 @@
-%% Copyright 1999 Apostolos Syropoulos
-%%
-%% This file is part of the `grtimes' package.
-%% You are not allowed to modify its contents.
-%%
-\def\filedate{2002/01/23}
-\def\batchfile{grtimes.ins}
-\input docstrip.tex
-
-{\ifx\generate\undefined
-\Msg{**********************************************}
-\Msg{*}
-\Msg{* This installation requires docstrip}
-\Msg{* version 2.3c or later.}
-\Msg{*}
-\Msg{* An older version of docstrip has been input}
-\Msg{*}
-\Msg{**********************************************}
-\errhelp{Move or rename old docstrip.tex.}
-\errmessage{Old docstrip in input path}
-\batchmode
-\csname @@end\endcsname
-\fi}
-
-\preamble
-
- (c) copyright 1999-2002 Apostolos Syropoulos
- This program can be redistributed and/or modified under the terms
- of the LaTeX Project Public License Distributed from CTAN
- archives in directory macros/latex/base/lppl.txt; either
- version 1 of the License, or any later version.
-
- However, the above copyright notice does not apply in the case of
- ``Crete University Press'' as this publisher is not allowed to
- use or alter this file in any way.
-
- Please report errors or suggestions for improvement to
-
- Apostolos Syropoulos
- 366, 28th October Str.
- GR-671 00 Xanthi, GREECE
- apostolo@ocean1.ee.duth.gr or apostolo@obelix.ee.duth.gr
-
-\endpreamble
-
-
-\keepsilent
-
-\generate{\generateFile{grtimes.sty}{f}{\from{grtimes.dtx}{grtimes}}
- \generateFile{lgrptm.fd}{f}{\from{grtimes.dtx}{LGRptm}}
- \generateFile{lgrpcr.fd}{f}{\from{grtimes.dtx}{LGRpcr}}
- \generateFile{lgrphv.fd}{f}{\from{grtimes.dtx}{LGRphv}}}
-\postamble
-\endpostamble
- \generateFile{lgrligs.mf}{f}{\from{grtimes.dtx}{LGRligs}}
-\Msg{**********************************************************}
-\Msg{* To finish installation you have to copy}
-\Msg{* the .fd files, the .mf file and the .sty}
-\Msg{* file in the appropriate directories and to}
-\Msg{* rehash your TeX, if it is required to do so.}
-\Msg{* Happy Greek TeXing!}
-\Msg{**********************************************************}
-\endinput
diff --git a/Master/texmf-dist/source/latex/grtimes/inlig b/Master/texmf-dist/source/latex/grtimes/inlig
deleted file mode 100644
index f590840b97e..00000000000
--- a/Master/texmf-dist/source/latex/grtimes/inlig
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-#############################################################################
-#Program : inligs
-#Author : Apostolos Syropoulos
-#E-mail : apostolo@obelix.ee.duth.gr or apostolo@ocean1.ee.duth.gr
-#Functionality: Includes the cbligs.mf file in METAFONT files generated with
-# ttf2mf and the cb-tex.enc encoding.
-############################################################################
-die "Usage: inlig <METAFONT file>\n" if !(@ARGV);
-$file=$ARGV[0];
-$tmpf="temp.tmp";
-open(TEMP,">$tmpf")||die "Can't create temporal file!\n";
-open(MF,"$file")||die "can't open file $file!\n";
-while(<MF>)
-{
- if (/^end\.$/)
- {
- print TEMP "input cbligs.mf\nend.";
- }
- else
- {
- print TEMP;
- }
-}
-close;
-rename $tmpf, $file;
-__END__