fiche prep + totu 1ere
[perso/Denise/lycee/2015-2016.git] / latex_corrige.pl
1 #!/usr/bin/perl
2
3 $entree=$ARGV[0] ;
4
5 if($entree =~ /^(.*).tex$/)
6 {
7 #printf "bon" ;
8 #printf $1 ;
9 $pref=$1 ;
10 $sortie1 = $pref."_enonce.pdf" ;
11 $sortie2 = $pref."_corrige.pdf" ;
12 $sortiebase = $pref.".pdf" ;
13
14 #printf "fichiers : $sortie1 $sortie2\n" ;
15
16 # Génération de l'énoncé
17 $ligne="pdflatex \"\\let\\corrige=\\iffalse\\input{$entree}\"" ;
18 printf "Génération de l'énoncé : $sortie1\n$ligne\n" ;
19 #printf $ligne."\n" ;
20 `$ligne` ;
21 # On déplace dans enonce
22 `mv $sortiebase $sortie1 ` ;
23
24
25 # Génération du corrigé
26 $ligne="pdflatex \"\\let\\corrige=\\iftrue\\input{$entree}\"" ;
27 printf "Génération du corrigé : $sortie2\n$ligne\n" ;
28 `$ligne` ;
29 # On déplace dans sol
30 `mv $sortiebase $sortie2 ` ;
31
32 printf "Terminé !\n" ;
33
34 }
35 else
36 {
37 printf "Ce n'est pas un fichier .tex !\n" ;
38 exit 1 ;
39 }