[ Thread Index |
Date Index
| More lists.tuxfamily.org/efrench Archives
]
Revision: 2
Author: rayj
Date: 2010-05-04 08:38:51 +0200 (Tue, 04 May 2010)
Log Message:
-----------
Modified Paths:
--------------
trunk/inputs/french/french.sty
trunk/inputs/french/frlicense.dat
Modified: trunk/inputs/french/french.sty
===================================================================
--- trunk/inputs/french/french.sty 2009-11-11 23:17:04 UTC (rev 1)
+++ trunk/inputs/french/french.sty 2010-05-04 06:38:51 UTC (rev 2)
@@ -1,19 +1,16 @@
-% For Copyright information & comments, look at the following original file:
-% This was french_doc.pdf (informations en francais dans frdoc.tex)
-%% checksum = "19394 3244 3977 129678"
-% Have you registered? if not, fill in the form in the REGISTER file and send
-% it now to Bernard GAULLE <frenchprobg@xxxxxxx> to support developpement.
+% This file is a part of the e-French package.
+% For more details please read efrenchp.pdf
\expandafter\ifx\csname frenchTeXmods\endcsname\relax%
\else \endinput \fi%
\def\frenchname{french}%
-\def\frenchpack{FrenchPro}%
+\def\frenchpack{eFrench}% eFrench
\def\ds@french{}%
\def\ds@pmfrench{\pmfrench}%
{\catcode`\@=11{%
\ifx\@unexpandable@protect\undefined\let\protect\empty%
\else\let\protect\@unexpandable@protect%
\fi%
- \xdef\FSfd{28 juin 2007}%
+ \xdef\FSfd{30 avril 2010}% eFrench
\xdef\FSfv{V5,9994}%
\xdef\frenchstyleid{\FSfv\space-- \FSfd\space --}%
}}%
@@ -152,89 +149,7 @@
\ifx\fmtname\@temp@\f@issue\typeout{-64- %
\@txt@msg{ERROR: invalid \string\fmtname\space in lplain.tex}%
}\stop\fi%
-\let\@FrReg\iftrue\def\@FrVal{}%
-\begingroup%
-\let\@FrReg\iftrue\def\@FrVal{0pt}\let\@FrGo\endgroup%
-\let\ladate\@tempcnta\let\lasem\@tempcntb%
-\def\TOdate#1#2#3{\ladate=#2\advance\ladate by -2000\multiply\ladate by 100%
- \advance\ladate by 2000\advance\ladate by #18000%
- \lasem=#3\multiply\lasem by 4%
- \if#12\advance\lasem by -4\edef\@tempb{\string>}%
- \else\advance\lasem by 4\edef\@tempb{\string<}\fi%
- \advance\ladate by \lasem%
- \let\laver=\@tempcntb\laver=\@FSfv%
- \if#12\advance\laver by 200\else\advance\laver by 400\fi
- \multiply\laver by 100000%
- \let\lakey=\laver\advance\lakey by \ladate%
- \@FrDimen\lakey sp%
- \def\@tempd{\ifdim0pt=\@FrVal\else%
- \ifdim\@FrDimen\@tempb\@FrVal\def\@tempa{}%
- \else\ifdim\@FrDimen=\@FrVal\def\@tempa{}%
- \fi\fi\fi}%
- \@FrReg\def\@tempa{\let\@FrReg=\iffalse%
- \def\@FrGo{\endgroup\stop}%
- \edef\@FrVax{NO MORE }\let\@tempg\fi}%
- \expandafter\@tempd%
- \fi\@tempa%
- }%
-\def\@tempc{\endlinechar=-1\def\@FrVal{}%
- \read\@inputcheck to \@FrVal%
- \ifeof\@inputcheck\endgroup%
- \typeout{*** ERROR: frlicense.dat is empty\string!}\stop%
- \fi%
- \read\@inputcheck to \@FrVal%
- \@FrVal\def\@FrVal{0pt}\read\@inputcheck to \@FrVal%
- \ifx\@FrVal\empty\def\@FrVal{0pt}\edef\@FrVax{UN}\fi%
- \TOdate{2}{\the\year}{\the\month}\edef\@tempe{\the\@FrDimen}%
- \ifdim0pt=\@FrVal\edef\@FrVax{UN}\fi%
- \read\@inputcheck to \@FrVal%
- \ifx\@FrVal\empty\def\@FrVal{0pt}\edef\@FrVax{UN}\fi%
- \@FrReg\ifx\@FrVal\empty\def\@FrVal{0pt}\fi%
- \TOdate{4}{\the\year}{\the\month}%
- \fi
- \ifdim0pt=\@FrVal\edef\@FrVax{UN}\fi%
- \read\@inputcheck to \@FrVal%
- \endlinechar`\^^M%
- }%
-\openin\@inputcheck=frlicense.dat %
-\let\@tempa\relax\def\@Ffnt#1{\f@issue%
- \typeout{-2- %
- }[#1]}%
-\ifeof\@inputcheck\@Ffnt{frlicense.dat}\def\@tempa{\endgroup\stop}\fi%
-\@tempa\@tempc%
-\closein\@inputcheck%
-\def\@tempa{\let\@FrReg\iffalse}%
-\def\@tempb{0pt}%
-\ifx\@FrVal\empty\def\@FrVal{0pt}\fi%
-\ifx\@FrVal\@tempb\@tempa\TOdate{4}{\the\year}{\the\month}%
- \immediate\openout\@inputcheck=frlicense.dat %
- \catcode`\%=12\immediate\write\@inputcheck{\string%%
- frlicense.dat file providing license numbers for FrenchPro}\catcode`\%=14
- \immediate\write\@inputcheck{\noexpand\makeatletter\noexpand\let%
- \noexpand\@nodocument\noexpand\@@end}%
- \immediate\write\@inputcheck{\@tempe}\advance\@FrDimen by 5 sp%
- \immediate\write\@inputcheck{\the\@FrDimen}%
- \edef\@FrVal{ONE MONTH TRIAL (starting \the\year/\the\month/\the\day)}%
- \immediate\write\@inputcheck{\@FrVal}%
- \immediate\write\@inputcheck{This was a private file. Never copy. %
- never modify.}%
- \immediate\write\@inputcheck{Ne jamais modifier, ni recopier ce fichier.}%
- \immediate\closeout\@inputcheck\let\@FrGo\endgroup%
-\fi%
-\def\@tempa{ONE}%
-\def\@tempc#1 #2\@nil{\def\@tempc{#1}}\expandafter\@tempc\@FrVal{} \@nil%
-\def\@tempb{\let\@FrReg\iffalse\edef\@FrVax{UN}}%
-\ifx\@tempc\@tempa\@tempb\fi%
-\def\@tempb{\let\@FrReg\iffalse\edef\@FrVal{\@FrVax REGISTERED COPY}}%
-\ifx\@FrGo\endgroup\else\@tempb\fi%
-\@FrReg\f@issue%
- \typeout{^^J -**a- %
- }%
-\else%
-\expandafter\f@issue%
-\expandafter\typeout{^^J -**b- %
- }%
-\fi\@FrGo%
+%% code to test the shareware licence suppressed eFrench
\let\@tempc\relax%
\ifx\today\undefined\let\today\cejour\fi%
\ifx\today\undefined\f@issue\typeout{^^J -52- %
Modified: trunk/inputs/french/frlicense.dat
===================================================================
--- trunk/inputs/french/frlicense.dat 2009-11-11 23:17:04 UTC (rev 1)
+++ trunk/inputs/french/frlicense.dat 2010-05-04 06:38:51 UTC (rev 2)
@@ -4,4 +4,5 @@
% This is a private file. Never copy. never modify. %
% Ne jamais modifier, ni recopier ce fichier. %
\csname cejour\endcsname\catcode`\@=11\input french.sty\stop %
+% Ce fichier ne sert plus, il est ici pour d'autres raisons %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%