Changeset 14

Show
Ignore:
Timestamp:
06/09/08 09:35:49 (7 months ago)
Author:
jms
Message:

[pgiac] Ajout du paramètre string.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/pgiac/pgiac

    r13 r14  
    2323 
    2424 
    25 my $VERSION     = "0.1.3";     # Vendredi 6 juin 2008 
     25my $VERSION     = "0.1.4";     # Lundi 9 juin 2008 
    2626 
    2727my $OUT         = "";           # Contenu en sortie. 
     
    3232my $FFIG        = "pdf";        # Format des figures. 
    3333$opt_f and ($opt_f eq "pdf" or $opt_f eq "eps") and $FFIG = $opt_f; 
     34 
     35 
     36my $STRING      = "verbatim";   # Sortie des chaînes de caractères 
    3437 
    3538# --- Caractères utilisés dans le balisage de la sortie de giac avec 
     
    176179sub outVerbatim { 
    177180    my $t = shift;     
     181    if ($STRING eq "text") { 
     182        return << "eop"; 
     183{\\MarqueLaTeXGiac{\\[\\text{$t}\\]}} 
     184eop 
     185    } 
    178186    return << "eop"; 
    179187\\begin{verbatim}\t\t$t\\end{verbatim} 
     
    288296        ($2 eq "eps" or $2 eq "pdf") and $FFIG  = $2; 
    289297    } 
    290 
     298    if ($1 eq "string") { 
     299        ($2 eq "verbatim" or $2 eq "text") and $STRING = $2; 
     300    } 
     301