From 6c28f0837ce15fa56ac7ebdb5106c18457c4ad3a Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Mon, 2 Jun 2008 14:45:58 +0000 Subject: tablor update 2008/06/02 (still v2.08) git-svn-id: svn://tug.org/texlive/trunk@8485 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/tablor/tablor.sty | 65 +++++++++++++++------------ 1 file changed, 36 insertions(+), 29 deletions(-) (limited to 'Master/texmf-dist/tex/latex/tablor') diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty index cc970ee84b5..52f9174effe 100644 --- a/Master/texmf-dist/tex/latex/tablor/tablor.sty +++ b/Master/texmf-dist/tex/latex/tablor/tablor.sty @@ -1,5 +1,5 @@ \NeedsTeXFormat{LaTeX2e}[1995/12/01] -\ProvidesPackage{tablor}[22/05/2008 v2.08 la machine crer des tableaux de signes et variations] +\ProvidesPackage{tablor}[02/06/2008 v2.08 la machine a creer des tableaux de signes et variations] % \copyleft Connan le Barbare (aka Guillaume Connan) \copyright % This work may be distributed and/or mofified under the conditions @@ -77,20 +77,6 @@ \RequirePackage{ifpdf} - -%% Initialisation du choix d'OS -\newboolean{windows}\setboolean{windows}{false} - - - -%% Dfinit des commandes disque selon l'OS utilis -\ifthenelse{\boolean{windows}}% - {\newcommand{\rem}{DEL } \newcommand{\cat}{TYPE } - \newcommand{\cp}{COPY }}% - {\newcommand{\rem}{rm }\newcommand{\cat}{cat } - \newcommand{\cp}{cp }} - - % option xcas prsent @@ -102,12 +88,26 @@ + +%% Initialisation du choix d'OS +\newboolean{windows}\setboolean{windows}{false} + + %% on configure tablor dans un fichier extrieur pour la plateforme -%% et l'diteur +%% l'diteur et le prambule metapost \IfFileExists{tablor.cfg}{\input{tablor.cfg}}%\typeout{pas de fichier tablor.cfg}} +%% Dfinit des commandes disque selon l'OS utilis +\ifthenelse{\boolean{windows}}% + {\newcommand{\rem}{DEL } \newcommand{\cat}{TYPE } + \newcommand{\cp}{COPY }}% + {\newcommand{\rem}{rm }\newcommand{\cat}{cat } + \newcommand{\cp}{cp }} + + + @@ -120,7 +120,8 @@ %% pour nettoyer les fichiers auxiliaires -\AtEndDocument{\immediate\write18{\rem tete.* *.user XCas* Xcas* *.mpx}} +\AtEndDocument{\immediate\write18{\rem *.user XCas* Xcas* *.mpx} + } @@ -143,8 +144,7 @@ end \newcommand{\nettoyer}[1][\jobname]% -{\immediate\write18{\rem #1.Tab.log} -\immediate\write18{echo end >> #1.Tab.mp} +{\immediate\write18{\rem #1.Tab.log queue.mp enteteMP.cfg session.tex config.cxx} } @@ -176,7 +176,7 @@ end {\IfFileExists{\Tableaux.Tab.mp}% Si Tableaux.mp est prsent... {\immediate\write18{\rem \Tableaux.Tab.mp}}% le dtruire {}% - \immediate\write18{\cp -f enteteMP.cfg \Tableaux.Tab.mp}% Reconstituer l'entte de Tableaux.mp + \immediate\write18{\cp enteteMP.cfg \Tableaux.Tab.mp}% Reconstituer l'entte de Tableaux.mp } {\IfFileExists{\Tableaux.Tab.mp}% Sans l'option XCas, si % Tableaux.mp existe @@ -1637,8 +1637,9 @@ fclose(sortie); \immediate\write18{\cat enteteMP.cfg >> \Tableaux.Tab#1.mp} \immediate\write18{\cat XCasmpfc.mp >> \Tableaux.Tab#1.mp} \immediate\write18{\cat queue.mp >> \Tableaux.Tab#1.mp} - \immediate\write18{mpost -interaction=batchmode -jobname=\Tableaux.Tab \Tableaux.Tab#1} - \immediate\write18{\rem \Tableaux.Tab#1.mp} }% + \immediate\write18{mpost -jobname=\Tableaux.Tab \Tableaux.Tab#1.mp} + \immediate\write18{\rem \Tableaux.Tab#1.mp} + }% {% sinon, si le tableau est absent, alerte. \IfFileExists{\Tableaux.Tab.\theTVn}{}{% \PackageError{tablor}{Tableau absent non @@ -1664,23 +1665,25 @@ fclose(sortie); % Si oui, inclusion du fichier source de sauvegarde mp dans Tableaux \immediate\write18{\cat TSav-\theTVn.mp >> \Tableaux.Tab.mp}} % Si non, lancement des oprations de fabrication -{\executGiacmp{XCas#1.giac}% -\immediate\write18{\editeur XCasmpfc.mp} +{\executGiacmp{XCas#1.giac}% +\immediate\write18{\editeur XCasmpfc.mp } % Modification avec l'diteur choisi - -\immediate\write18{\cp -f XCasmpfc.mp TSav-\theTVn.mp} % Sauvegarde du +\immediate\write18{\cat XCasmpfc.mp >> \Tableaux.Tab.mp} +\immediate\write18{\cp XCasmpfc.mp TSav-\theTVn.mp} % Sauvegarde du % source mp sur le disque pour une % inclusion ultrieure dans Tableaux.mp. -\immediate\write18{\cat XCasmpfc.mp >> \Tableaux.Tab.mp}} % Inclusion du +\immediate\write18{\cat enteteMP.cfg >> \Tableaux.Tab#1.mp} +\immediate\write18{\cat XCasmpfc.mp >> \Tableaux.Tab#1.mp}} % Inclusion du % source dans le % fichier % Tableaux - -\immediate\write18{mpost -interaction=batchmode \Tableaux.Tab}% Reconstitution des tableaux +\immediate\write18{\cat queue.mp >> \Tableaux.Tab#1.mp} +\immediate\write18{mpost -jobname=\Tableaux.Tab \Tableaux.Tab#1.mp}% Reconstitution des tableaux % et cration du dernier. L'option % pallie l'absence de end en fin de % fichier +\immediate\write18{\rem \Tableaux.Tab#1.mp} \begin{center} \includegraphics{\Tableaux.Tab.\theTVn} @@ -1915,6 +1918,10 @@ read("XCasTVIapp.user"); +%% pour nettoyer les fichiers auxiliaires + +\AtEndDocument{\immediate\write18{\cat queue.mp >> \Tableaux.Tab.mp} + } -- cgit v1.2.3