Changeset 14
- Timestamp:
- 06/09/08 09:35:49 (7 months ago)
- Files:
-
- trunk/pgiac/pgiac (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/pgiac/pgiac
r13 r14 23 23 24 24 25 my $VERSION = "0.1. 3"; # Vendredi 6juin 200825 my $VERSION = "0.1.4"; # Lundi 9 juin 2008 26 26 27 27 my $OUT = ""; # Contenu en sortie. … … 32 32 my $FFIG = "pdf"; # Format des figures. 33 33 $opt_f and ($opt_f eq "pdf" or $opt_f eq "eps") and $FFIG = $opt_f; 34 35 36 my $STRING = "verbatim"; # Sortie des chaînes de caractères 34 37 35 38 # --- Caractères utilisés dans le balisage de la sortie de giac avec … … 176 179 sub outVerbatim { 177 180 my $t = shift; 181 if ($STRING eq "text") { 182 return << "eop"; 183 {\\MarqueLaTeXGiac{\\[\\text{$t}\\]}} 184 eop 185 } 178 186 return << "eop"; 179 187 \\begin{verbatim}\t\t$t\\end{verbatim} … … 288 296 ($2 eq "eps" or $2 eq "pdf") and $FFIG = $2; 289 297 } 290 } 298 if ($1 eq "string") { 299 ($2 eq "verbatim" or $2 eq "text") and $STRING = $2; 300 } 301 }
