trucs
[perso/Denise/lycee/2015-2016.git] / latex_AB.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 $sortieA = $pref."_A_enonce.pdf" ;
11 $sortieB = $pref."_B_enonce.pdf" ;
12 $sortieA2 = $pref."_A_corrige.pdf" ;
13 $sortieB2 = $pref."_B_corrige.pdf" ;
14 $sortiebase = $pref.".pdf" ;
15
16 #printf "fichiers : $sortie1 $sortie2\n" ;
17
18 # Génération de l'énoncé A
19 $ligne="pdflatex \"\\let\\corrige=\\iffalse\ \\let\\sujetA=\\iftrue\\input{$entree}\"" ;
20 printf "Génération de l'énoncé : $sortieA\n$ligne\n" ;
21 #printf $ligne."\n" ;
22 `$ligne` ;
23 # On déplace dans enonce
24 `mv $sortiebase $sortieA ` ;
25
26 # Génération de l'énoncé B
27 $ligne="pdflatex \"\\let\\corrige=\\iffalse\ \\let\\sujetA=\\iffalse\\input{$entree}\"" ;
28 printf "Génération de l'énoncé : $sortieB\n$ligne\n" ;
29 #printf $ligne."\n" ;
30 `$ligne` ;
31 # On déplace dans enonce
32 `mv $sortiebase $sortieB ` ;
33
34 # Génération du corrigé A
35 $ligne="pdflatex \"\\let\\corrige=\\iftrue\ \\let\\sujetA=\\iftrue\\input{$entree}\"" ;
36 printf "Génération du corrigé : $sortieA2\n$ligne\n" ;
37 #printf $ligne."\n" ;
38 `$ligne` ;
39 # On déplace dans enonce
40 `mv $sortiebase $sortieA2 ` ;
41
42 # Génération du corrigé B
43 $ligne="pdflatex \"\\let\\corrige=\\iftrue\ \\let\\sujetA=\\iffalse\\input{$entree}\"" ;
44 printf "Génération du corrigé : $sortieB2\n$ligne\n" ;
45 #printf $ligne."\n" ;
46 `$ligne` ;
47 # On déplace dans enonce
48 `mv $sortiebase $sortieB2 ` ;
49
50 #printf "Terminé !\n" ;
51
52 }
53 else
54 {
55 printf "Ce n'est pas un fichier .tex !\n" ;
56 exit 1 ;
57 }