Changeset 15

Timestamp:

06/09/08 12:06:42 (7 months ago)

Author:

jms

Message:

[pgiac] Ajout du paramètre commande.

Files:

• trunk/pgiac/pgiac (modified) (4 diffs)

trunk/pgiac/pgiac

@@ -23 +23 @@
-
-
-4
+5
-
-my $OUT         = "";           # Contenu en sortie.
@@ -35 +35 @@
-
-my $STRING      = "verbatim";   # Sortie des chaînes de caractères
+my $COMMANDE    = "verb";       # Affichage des commandes.
-
-# --- Caractères utilisés dans le balisage de la sortie de giac avec
@@ -170 +171 @@
-# sortie de giac. Au début, les procédures d'appui.
-
+## Option $COMMANDE = listing : Guillaume Connan - 9 juin 2008
-sub outCommande {
-    my $t = shift;
+    if ($COMMANDE eq "listing") {
+        return << "eop";
+\\begin{lstlisting}
+$t
+\\end{lstlisting}
+eop
+    }
-    return << "eop";
-{\\MarqueCommandeGiac{$COMPTEUR} \\verb|$t|}
@@ -299 +308 @@
-        ($2 eq "verbatim" or $2 eq "text") and $STRING = $2;
-    }
-
+
+
+
+