plus besoin de skipcorrige + références à l'énoncé dans le corrigé

Cette révision appartient à :
Yann Salmon
2018-10-13 00:10:05 +02:00
Parent 33d2ba4f74
révision 5e372abd97

Voir le fichier

@@ -19,6 +19,7 @@
\usepackage{xfrac} \usepackage{xfrac}
\usepackage{xparse} \usepackage{xparse}
\usepackage{comment} \usepackage{comment}
\usepackage{xr}
\newif\ifcorrige \newif\ifcorrige
\def\corr{\filigrane{\Huge CORRIG\'E --- CORRIG\'E}\global\corrigetrue} \def\corr{\filigrane{\Huge CORRIG\'E --- CORRIG\'E}\global\corrigetrue}
@@ -29,9 +30,9 @@
\IfEndWith{\jobname}{\detokenize{-ENONCE}}{\let\corr\relax\let\corrseul\relax}{} \IfEndWith{\jobname}{\detokenize{-ENONCE}}{\let\corr\relax\let\corrseul\relax}{}
\IfEndWith{\jobname}{\detokenize{-PROF}}{\corr\let\corr\relax\let\corrseul\relax}{} \IfEndWith{\jobname}{\detokenize{-PROF}}{\corr\let\corr\relax\let\corrseul\relax}{}
\IfEndWith{\jobname}{\detokenize{-CORRIGE}}{\corrseul\let\corr\relax\let\corrseul\relax}{} \IfEndWith{\jobname}{\detokenize{-CORRIGE}}{\corrseul\let\corr\relax\let\corrseul\relax}{}
\StrCut{\jobname}{\detokenize{-}}\basejobname\dummy
\def\pasenonce{ \def\pasenonce{
\excludecomment{question}
\excludecomment{enonce} \excludecomment{enonce}
\excludecomment{qcmrep} \excludecomment{qcmrep}
\excludecomment{qcm} \excludecomment{qcm}
@@ -39,7 +40,6 @@
\def\avecenonce{\newenvironment{enonce}{}{} \def\avecenonce{\newenvironment{enonce}{}{}
\edef\@temp{\noexpand\newtheorem{question}{Question}\resetlevel}\@temp \edef\@temp{\noexpand\newtheorem{question}{Question}\resetlevel}\@temp
\def\skipcorrige{}
\newtheorem{qcm}{QCM} \newtheorem{qcm}{QCM}
% %
\NewDocumentEnvironment{qcmrep}{o} \NewDocumentEnvironment{qcmrep}{o}
@@ -58,13 +58,17 @@
\newenvironment{qcmcorr}{\begin{mdframed}[backgroundcolor=gray!20, skipbelow=1ex]}{\end{mdframed}} \newenvironment{qcmcorr}{\begin{mdframed}[backgroundcolor=gray!20, skipbelow=1ex]}{\end{mdframed}}
\avecenonce \avecenonce
\else\ifcorrigeseul \else\ifcorrigeseul
\externaldocument{\basejobname-ENONCE}
\immediate\typeout{Mode corrige} \immediate\typeout{Mode corrige}
\makeatletter\IfStrEq{\@subtitle}{}{}{\subtitle{Corrigé}}\makeatother \makeatletter\IfStrEq{\@subtitle}{}{}{\subtitle{Corrigé}}\makeatother
\pasenonce \pasenonce
\edef\@temp{\noexpand\newtheorem{corrige}{Question}\resetlevel}\@temp \edef\@temp{\noexpand\newcounter{question}\resetlevel}\@temp
\specialcomment{question}{\refstepcounter{question}\begingroup\def\ProcessCutFile{}}{\endgroup}
\newtheorem{corrige}{Question}
\def\thequestion{\thesection.\arabic{question}} %% hack moche à améliorer
\let\thecorrige\thequestion
\newtheorem{qcmcorr}{QCM} \newtheorem{qcmcorr}{QCM}
\newenvironment{comcorrige}{}{} \newenvironment{comcorrige}{}{}
\def\skipcorrige{\stepcounter{corrige}}
\else \else
\immediate\typeout{Mode enonce} \immediate\typeout{Mode enonce}
\excludecomment{corrige} \excludecomment{corrige}