Changeset 20

Timestamp:

09/04/08 19:12:01 (4 months ago)

Author:

jms

Message:

[pgiac 0.1.9] gestion de l'extension des figures modifiée.

Files:

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

trunk/pgiac/pgiac

@@ -34 +34 @@
-
-
-8";     # Mardi 26 août
+9";     # Jeudi 4 septembre
-
-my $OUT         = "";           # Contenu en sortie.
@@ -41 +41 @@
-my $NBCMD       = 0;            # Nombre de commandes successives traitées.
-
-pdf";       # Format des figures
-$opt_f
+";  # Extension des figures par défaut (aucune)
+".$opt_f"
-
-
@@ -65 +65 @@
-my $GSBBOX = "gs -q -sDEVICE=bbox -sPAPERSIZE=a4 -dNOPAUSE -dNOSAFER";
-
+#@f:entete
-open(INGIAC,$ARGV[0]) or die "Impossible d'ouvrir $ARGV[0]... : $!";
-my $PRE = (fileparse($ARGV[0],qw{\..*}))[0];
@@ -187 +188 @@
-}
-
+#@f:pipe
-
-# === GetOutGiac =======================================================
@@ -246 +248 @@
-    my $t = shift;
-    return << "eop";
-.
+
-eop
-}
@@ -320 +322 @@
-}
-# === Fin de GetOutGiacMetaPost ========================================
+#@f:getout
-### Conversion du fichier $f.eps au format PDF.
-sub epstopdf {
@@ -335 +338 @@
-    unlink "pgiac-$f.ps" if -f "pgiac-$f.ps";
-}
+
+#@f:figure
+
-# === Lire des paramÚtres ==============================================
-sub LireParametres {
@@ -350 +356 @@
-    }
-}
+
+#@f:parametres