diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty | 61 |
1 files changed, 45 insertions, 16 deletions
diff --git a/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty b/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty index b1f7a22dbcd..39b15b5e919 100644 --- a/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty +++ b/Master/texmf-dist/tex/latex/alterqcm/alterqcm.sty @@ -1,5 +1,5 @@ +% Copyright (C) 2019 Alain Matthes, Apostolos Syropoulos, and Anastasios Dimou % Copyright (C) 2009 Alain Matthes -% % This file may be distributed and/or modified % % 1. under the LaTeX Project Public License , either version 1.3 @@ -26,26 +26,32 @@ %<–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––> \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{alterqcm} - [2011/06/01 v3.6 qcm creation] +\ProvidesPackage{alterqcm}[2019/05/23 v4.0] + \newcount\locall@ng% to set language specific strings: +% % 0 stands for French, 1 for English, 2 for German, and 3 for Greek + \locall@ng=0% \DeclareOption{french}{% - \def\aqlanguage{french}% \def\aqlabelforquest{Questions}% \def\aqlabelforrep{R\'eponses}% \def\aqfoottext{suite sur la page suivante\ldots}}% \DeclareOption{english}{% - \def\aqlanguage{english} + \locall@ng=1% \def\aqlabelforquest{Questions} \def\aqlabelforrep{Answers} \def\aqfoottext{Continued on the next page\ldots}}% \DeclareOption{german}{% - \def\aqlanguage{german}% + \locall@ng=2% \def\aqlabelforquest{Fragen}% \def\aqlabelforrep{Antworten}% \def\aqfoottext{Fortsetzung nächste Seite\ldots}}% + \DeclareOption{greek}{% + \locall@ng=3% + \def\aqlabelforquest{Ερωτήσεις} + \def\aqlabelforrep{Απαντήσεις} + \def\aqfoottext{Συνεχίζεται στην επόμενη σελίδα\ldots}}% \ExecuteOptions{french} \ProcessOptions\relax -\RequirePackage{xkeyval}[2005/11/25] +%\RequirePackage{xkeyval}[2005/11/25] % Not required anymore \RequirePackage{calc} \RequirePackage{ifthen} \RequirePackage{array} @@ -135,11 +141,7 @@ % Début Code QCM %<–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––> -\define@choicekey*[AQ]{global}{language}[\val\nr]{french, - english, - german}{% -\edef\AQ@global@language{\nr} -\ifcase\nr\relax +\ifcase\locall@ng \def\cmdAQ@global@tone{Questions} \def\cmdAQ@global@ttwo{R\'eponses} \def\aqfoottext{suite sur la page suivante\ldots} @@ -151,8 +153,11 @@ \def\cmdAQ@global@tone{Fragen} \def\cmdAQ@global@ttwo{Antworten} \def\aqfoottext{Fortsetzung nächste Seite\ldots} +\or +\def\cmdAQ@global@tone{Ερωτήσεις} +\def\cmdAQ@global@ttwo{Απαντήσεις} +\def\aqfoottext{Συνεχίζεται στην επόμενη σελίδα\ldots} \fi% -} \define@cmdkey [AQ] {global} {lq}{} \define@cmdkey [AQ] {global} {pq}{} \define@cmdkey [AQ] {global} {points}{} @@ -206,13 +211,26 @@ alea = false}{} \define@cmdkey[AQ]{local}{pq}{} \define@cmdkey[AQ]{local}{br}{} -\presetkeys[AQ]{local}{br=1,pq= \cmdAQ@global@pq}{}% +\presetkeys[AQ]{local}{br=5,pq= \cmdAQ@global@pq}{}% +% +\ifcase\locall@ng \newcommand{\aq@pre}{Pour chacune des questions ci-dessous, une seule des r\'eponses propos\'ees est exacte. Vous devez cocher la r\'eponse exacte sans justification. Une bonne r\'eponse rapporte \textbf{\cmdAQ@global@bonus\ point}. Une mauvaise r\'eponse enl\`eve \textbf{\cmdAQ@global@malus\ point}. L'absence de r\'eponse ne rapporte ni n'enl\`eve aucun point. Si le total des points est n\'egatif, la note globale attribu\'ee \`a l'exercice est \textbf{0}.}% - +% \newcommand{\aq@preVF}{Pour chacune des affirmations ci-dessous, cocher la case V (l'affirmation est vraie) ou la case F (l'affirmation est fausse) sur l'ANNEXE, \`a rendre avec la copie. Les r\'eponses ne seront pas justifi\'ees. Une bonne r\'eponse rapporte \textbf{\cmdAQ@global@bonus\ point}. Une mauvaise r\'eponse enl\`eve \textbf{\cmdAQ@global@malus\ point}. L'absence de r\'eponse ne rapporte ni n'enl\`eve aucun point. Si le total des points est n\'egatif, la note globale attribu\'ee \`a l'exercice est \textbf{0}.}% - +\or +\newcommand{\aq@pre}{For each of the questions below, only one of the proposed answers is true. You must choose the right answer without justification.}% +\newcommand{\aq@preVF}{For each of the statements below, check the \textbf{T} box (the statement is true) or the \textbf{F} box (the statement is false).}% +\or +\newcommand{\aq@pre}{Für jede der unterstehenden Fragen ist nur eine der vorgeschlagenen Antworten richtig. +Kreuzen Sie die richtige Antwort ohne Begründung an.}% +\newcommand{\aq@preVF}{Für jede der unterstehenden Aussagen kreuzen Sie R (für die richtige Aussage) und F (für die falsche Aussage) an.}% +\or +\newcommand{\aq@pre}{Από τις επόμενες προτάσεις επιλέξετε αυτήν, που θεωρείτε σωστή.}% +\newcommand{\aq@preVF}{Να επιλέξετε \textbf{Σ}(ωστό), αν θεωρείτε την πρόταση που δίνεται παρακάτω σωστή, ή \textbf{Λ}(άθος) αν την θεωρείτε λανθασμένη.}% +\fi +% \newcommand*{\AQms}{\aq@ms}% \def\aq@ms(#1,#2){\vrule height #1pt depth #2pt width 0pt} \newcommand*{\altersquare}{\vbox{\hrule\hbox to 6pt{\vrule height 5.2pt \hfil\vrule}\hrule}}% @@ -404,8 +422,19 @@ Une bonne r\'eponse rapporte \textbf{\cmdAQ@global@bonus\ point}. Une mauvaise r \setkeys[AQ]{local}{#1} \stepcounter{AQ@numquestion}% \setcounter{AQ@numprop}{0}% v0.93 +\ifcase\locall@ng \protected@xdef\aq@arga{\textbf{V}} \protected@xdef\aq@argb{\textbf{F}} +\or +\protected@xdef\aq@arga{\textbf{T}} +\protected@xdef\aq@argb{\textbf{F}} +\or +\protected@xdef\aq@arga{\textbf{R}} +\protected@xdef\aq@argb{\textbf{F}} +\or +\protected@xdef\aq@arga{\textbf{Σ}} +\protected@xdef\aq@argb{\textbf{Λ}} +\fi \setcounter{aq@numb}{2}% \aq@adjust{#2}% \multirow{3}{\cmdAQ@global@lq}[\cmdAQ@local@pq]{% |