From d9aa299de0f736f75f90b98ab284e5bc73515949 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 26 Mar 2020 22:27:51 +0100
Subject: 2020-03-26 21:49:00

---
 tex/context/modules/mkiv/m-examn.mkiv | 577 ++++++++++++++++++++++++++++++++++
 tex/context/modules/mkiv/m-scite.mkiv |  26 +-
 2 files changed, 594 insertions(+), 9 deletions(-)
 create mode 100644 tex/context/modules/mkiv/m-examn.mkiv

(limited to 'tex/context/modules')

diff --git a/tex/context/modules/mkiv/m-examn.mkiv b/tex/context/modules/mkiv/m-examn.mkiv
new file mode 100644
index 000000000..3a98e53b1
--- /dev/null
+++ b/tex/context/modules/mkiv/m-examn.mkiv
@@ -0,0 +1,577 @@
+%D \module
+%D   [       file=m-examn,
+%D        version=2000.01.29,
+%D          title=\CONTEXT\ Extra Modules,
+%D       subtitle=Testing and Examination,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+%D This is a pretty old style, written in 2000 so after 20 years it's time to check
+%D if it works with \MKIV. The original version looks mostly the same as below and
+%D runs ok with \MKII. The differences are in not using percent sign triggered
+%D comments in the \JAVASCRIPT\ section (that was dropped), using \type {Yes}
+%D instead of \type {On} as field value (because in those decades the \type {On}
+%D value has proven to be fragile (maybe because of some hard coded \type {Yes}
+%D checking). The macros lost \type {\long}, became \type {\unexpanded} and were
+%D reformatted.
+%D
+%D If there is really demand for this I'll do a more major update. I see no reason
+%D to change the 2000 \MKII\ logic now.
+
+% n         number of permitted answers
+% answer  (set of) right answer(s) (one or list)
+% weight    weight of the answer(s) (one or list)
+% method    calculation method, for the moment 1
+
+% hidden = true -> display = display.hidden
+
+% disguise methods, numbers and meaning secret
+% randomizing answers
+% allert will be a properly typeset message
+% all checkfields instead of radio, gives more control
+
+\unprotect
+
+\def\c!answer  {answer}
+\def\c!question{question}
+\def\c!weight  {weight}
+
+\startJSpreamble {mpc} used now
+
+    var RealTimeMode    = false ;
+    var FeedBackMode    = false ;
+    var CurrentFeedback = -1 ;
+
+    var MPCnames   = new Array() ;
+    var MPCanswers = new Array() ;
+    var MPCnumbers = new Array() ;
+    var MPCweights = new Array() ;
+    var MPCmethods = new Array() ;
+    var MPCerrors  = new Array() ;
+
+    function Warning (str) {
+        app.alert("warning: " + str)
+    }
+
+    function FieldYN (name,n) {
+        return this.getField(name + ":" + n + ":yn")
+    }
+
+    function FieldRW (name,n) {
+        return this.getField(name + ":" + n + ":rw")
+    }
+
+    function NOfFields (name) {
+        var nof = 1 ;
+        while (FieldYN(name,nof)) {
+            ++nof
+        }
+        return --nof
+    }
+
+    function SetScore (score,total) {
+        mpcs = this.getField("mpc-score") ;
+        mpct = this.getField("mpc-total") ;
+        mpcp = this.getField("mpc-percent") ;
+        if (RealTimeMode) {
+            var percent = 0 ;
+            if (Number(total) > 0) {
+                percent = Math.round(100.0 * (Number(score) / Number(total)))
+            }
+            if (mpcs) {
+                mpcs.value = score
+            }
+            if (mpct) {
+                mpct.value = total
+            }
+            if (mpcp) {
+                mpcp.value = percent
+            }
+        } else {
+            if (mpcs) {
+                mpcs.value = ""
+            }
+            if (mpct) {
+                mpct.value = ""
+            }
+            if (mpcp) {
+                mpcp.value = ""
+            }
+        }
+        this.dirty = false
+    }
+
+    function CheckMPCmode () {
+        mpcr = this.getField("mpc-realtime") ;
+        if (mpcr) {
+            RealTimeMode = (mpcr.value == "Yes")
+        }
+        CheckScore() ;
+        this.dirty = false
+    }
+
+    function DefineMPC (name, answer, number, weight, method) {
+        SetScore(0,0) ;
+        MPCnames[MPCnames.length] = name ;
+        if (answer=="") {
+            MPCanswers[name] = "0"
+        } else {
+            MPCanswers[name] = answer
+        }
+        if (number=="") {
+            MPCnumbers[name] = "0"
+        } else {
+            MPCnumbers[name] = number
+        }
+        if (weight=="") {
+            MPCweights[name] = "0"
+        } else {
+            MPCweights[name] = weight
+        }
+        if (method=="") {
+            MPCmethods[name] = "0"
+        } else {
+            MPCmethods[name] = method
+        }
+    }
+
+    function CheckScore () {
+        var score = 0 ;
+        var total = 0 ;
+        var ok = false ;
+        for (var i=0;i<MPCnames.length;i++) {
+            var name = MPCnames[i] ;
+            var answer = MPCanswers[name] ;
+            var number = Number(MPCnumbers[name]) ;
+            var weight = MPCweights[name] ;
+            var method = MPCmethods[name] ;
+            var fields = Number(NOfFields(name)) ;
+            var answers = answer.split(",") ;
+            var weights = weight.split(",") ;
+            var sorted = weight.split(",") ;
+            sorted = sorted.sort() ;
+            sorted = sorted.reverse() ;
+            for (var k = 0; k < number; k++) {
+                if (weights.length < answers.length) {
+                    total += Number(weight)
+                } else {
+                    total += Number(sorted[k])
+                }
+            }
+            for (var j = 1; j <= fields; j++) {
+                if (FeedBackMode) {
+                    ok = (! FieldRW(name,j).hidden && (FieldRW(name,j).value == "Yes"))
+                } else {
+                    ok = (FieldYN(name,j).value == "Yes")
+                }
+                if (ok) {
+                    for (var k = 0; k < answers.length; k++) {
+                        if (Number(answers[k]) == j) {
+                            if (weights.length < answers.length) {
+                                score += Number(weight)
+                            } else {
+                                score += Number(weights[k])
+                            }
+                        }
+                    }
+                }
+            }
+        }
+        CurrentFeedback = -1 ;
+        SetScore(score,total)
+    }
+
+    function CalculateItems () {
+        CheckScore() ;
+        for (var i = 0;i < MPCnames.length; i++) {
+            var name = MPCnames[i] ;
+            var answer = MPCanswers[name] ;
+            var fields = Number(NOfFields(name)) ;
+            var answers = answer.split(",") ;
+            for (var j = 1; j <= fields; j++) {
+                FieldRW(name,j).hidden = true ;
+                FieldRW(name,j).readonly = true ;
+                FieldRW(name,j).value = "Off" ;
+                FieldYN(name,j).readonly = true ;
+                if (FieldYN(name,j).value=="Off") {
+                    for (var k = 0; k < answers.length; k++) {
+                        if (Number(answers[k]) == j) {
+                            FieldYN(name,j).value = "Yes"
+                        }
+                    }
+                } else {
+                    FieldRW(name,j).hidden = false ;
+                    for (var k = 0; k < answers.length; k++) {
+                        if (Number(answers[k]) == j) {
+                            FieldRW(name,j).value = "Yes"
+                        }
+                    }
+                }
+            }
+            var SomeW = false ;
+            var SomeRW = false ;
+            for (var j = 1; j <= fields; j++) {
+                if (! FieldRW(name,j).hidden) {
+                    SomeRW = true ;
+                    if (FieldRW(name,j).value == "Off") {
+                        SomeW = true
+                    }
+                }
+            }
+            MPCerrors[name] = (SomeW || (! SomeRW)) ;
+        }
+        CurrentFeedback = -1 ;
+        FeedBackMode = true ;
+        this.dirty = false
+    }
+
+    function ResetItems () {
+        for (var i = 0; i < MPCnames.length; i++) {
+            var name = MPCnames[i] ;
+            var fields = Number(NOfFields(name)) ;
+            for (var j = 1; j <= fields; j++) {
+                FieldRW(name,j).hidden = true ;
+                FieldYN(name,j).hidden = false ;
+                FieldYN(name,j).readonly = false ;
+                FieldYN(name,j).value = "Off" ;
+                SetScore(0,0)
+            }
+        }
+        CurrentFeedback = -1 ;
+        FeedBackMode = false ;
+        this.dirty = false
+    }
+
+    function CheckMPCone (name, number) {
+        nofitems = Number(NOfFields(name)) ;
+        for (var i = 1; i <= nofitems; i++) {
+            if (i != Number(number)) {
+                FieldYN(name,i).value = "Off"
+            }
+        }
+    }
+
+    function CheckMPCmore (name, number) {
+        var nofitems = Number(NOfFields(name)) ;
+        var currentnumber = 0 ;
+        for (var i = 1; i <= nofitems; i++) {
+            if (FieldYN(name,i).value == "Yes") {
+                ++currentnumber
+            }
+        }
+        if (currentnumber>Number(MPCnumbers[name])) {
+            Warning("only " + MPCnumbers[name] + " choices permitted") ;
+            var v = FieldYN(name,number) ;
+            if (v.value == "Yes") {
+                v.value = "Off"
+            }
+        }
+    }
+
+    function CheckMPC (name, number) {
+        if (! FeedBackMode) {
+            if (MPCnumbers[name] == 1) {
+                CheckMPCone(name,number)
+            } else {
+                CheckMPCmore(name,number)
+            }
+            if (RealTimeMode) {
+                CheckScore()
+            } else {
+                SetScore(0,0)
+            }
+        } else {
+            SetScore(0,0)
+        }
+    }
+
+    function GoneToFeedback () {
+        var name = MPCnames[CurrentFeedback] ;
+        if (MPCerrors[name]) {
+            console.println("feedback:" + name) ;
+            this.gotoNamedDest("feedback:" + name) ;
+            return true
+        } else {
+            return false
+        }
+    }
+
+    function NextFeedback () {
+        ++CurrentFeedback ;
+        while (CurrentFeedback < MPCnames.length) {
+            if (GoneToFeedback()) {
+                return
+            } else {
+                ++CurrentFeedback
+            }
+        }
+        CurrentFeedback = 0 ;
+        while (CurrentFeedback < MPCnames.length) {
+            if (GoneToFeedback()) {
+                return
+            } else {
+                ++CurrentFeedback
+            }
+        }
+        CurrentFeedback = -1
+    }
+
+    function PreviousFeedback () {
+        --CurrentFeedback ;
+        while (CurrentFeedback >= 0) {
+            if (GoneToFeedback()) {
+                return
+            } else {
+                --CurrentFeedback
+            }
+        }
+        CurrentFeedback = MPCnames.length ;
+        while (CurrentFeedback >= 0)  {
+            if (GoneToFeedback()) {
+                return
+            } else {
+                --CurrentFeedback
+            }
+        }
+        CurrentFeedback = MPCnames.length + 1
+    }
+
+\stopJSpreamble
+
+\definecolor[clickMPCcolor][blue]
+\definecolor[rightMPCcolor][green]
+\definecolor[wrongMPCcolor][red]
+
+\definecolor[MPCcolor][clickMPCcolor]
+
+\appendtoks
+    \definesymbol [mpc-y] [\mathematics{\color[clickMPCcolor]{\star}}] % yes
+    \definesymbol [mpc-n] [\hphantom{\symbol[mpc-y]}]                  % no
+    \definesymbol [mpc-r] [\mathematics{\color[rightMPCcolor]{\star}}] % right
+    \definesymbol [mpc-w] [\mathematics{\color[wrongMPCcolor]{\star}}] % wrong
+\to \everystarttext
+
+\definereference [ResetItems]       [JS(ResetItems)]
+\definereference [CalculateItems]   [JS(CalculateItems)]
+\definereference [PreviousFeedback] [JS(PreviousFeedback)]
+\definereference [NextFeedback]     [JS(NextFeedback)]
+
+\setupfield
+  [mpc-field-yn]
+  [%\c!frame=\v!off,
+   \c!height=.8em,
+   \c!width=.8em,
+   \c!background=\v!color,
+   \c!backgroundcolor=gray]
+
+\setupfield
+  [mpc-field-rw]
+  [%\c!frame=\v!off,
+   \c!height=.8em,
+   \c!width=.8em,
+   \c!background=\v!color,
+   \c!background=gray]
+
+\setupfield
+  [mpc-data]
+  [%\c!frame=\v!off,
+   \c!height=3ex,
+   \c!location=\v!low,
+   \c!align=\v!middle,
+   \c!color=MPCcolor,
+   \c!background=\v!color,
+   \c!background=gray,
+   \c!option=\v!readonly]
+
+\setupfield
+  [mpc-mode]
+  [%\c!frame=\v!off,
+   \c!height=3ex,
+   \c!width=3ex,
+   \c!location=\v!low,
+   \c!color=MPCcolor,
+   \c!background=\v!color,
+   \c!background=gray,
+   \c!clickout=JS(CheckMPCmode)]
+
+\appendtoks
+    \definemainfield[mpc-score]   [line] [mpc-data][][]
+    \definemainfield[mpc-total]   [line] [mpc-data][][]
+    \definemainfield[mpc-percent] [line] [mpc-data][][]
+    \definemainfield[mpc-realtime][check][mpc-mode][mpc-y,mpc-n][mpc-n]
+\to \everystarttext
+
+\newif\iftraceitems % \traceitemstrue
+
+\unexpanded\def\startMPCitems
+  {\dotripleempty\dostartMPCitems}
+
+\let\stopMPCitems\relax
+\let\startMPCitem\relax
+\let\stopMPCitem \relax
+
+\unexpanded\def\dostartMPCitems[#1][#2][#3]#4\stopMPCitems
+  {\bgroup
+   \getgparameters
+     [mpc:#1:]
+     [\c!answer=1,
+      \c!n=1,
+      \c!weight=1,
+      \c!method=1,
+      #2]%
+   \doglobal\newcounter\MPCitems
+   \unexpanded\def\startMPCitem##1\stopMPCitem
+     {\doglobal\increment\MPCitems
+      \edef\MPCitem{MPC:\MPCitems}%
+      \expandafter\setvalue\expandafter\MPCitem\expandafter
+        {\expandafter\handleMPCitem\expandafter{\MPCitems}{##1}}}
+   #4\relax
+   \unexpanded\def\handleMPCitem##1##2%
+     {\setJSpreamble{mpc:#1}
+        {DefineMPC
+           ("mpc:#1",%
+            "\getvalue{mpc:#1:\c!answer}",%
+            "\getvalue{mpc:#1:\c!n}",%
+            "\getvalue{mpc:#1:\c!weight}",%
+            "\getvalue{mpc:#1:\c!method}");}%
+      \definefield[mpc:#1:##1:rw][check][mpc-field-rw][mpc-r,mpc-w][mpc-r]
+      \definefield[mpc:#1:##1:yn][check][mpc-field-yn][mpc-y,mpc-n][mpc-n]
+      \setupfield[mpc-field-rw][\c!option={\v!readonly,\v!hidden}]
+      \setupfield[mpc-field-yn][\c!clickout=JS(CheckMPC{mpc:#1,##1})]
+      \mar{\iftraceitems{\txx##1}\hskip.5em\fi
+          %\fitfield[mpc:#1:##1:rw]\hskip.25em
+          %\fitfield[mpc:#1:##1:yn]}
+           \field[mpc:#1:##1:rw]\hskip.25em
+           \field[mpc:#1:##1:yn]}
+      ##2\par}%
+  \global\let\MPCdone\MPCitems
+  \global\unexpanded\def\fetchMPCitems
+    {\getrandomnumber\MPCitem{1}{\MPCitems}%
+     \doifdefined{MPC:\MPCitem}
+       {\getvalue{MPC:\MPCitem}
+        \doglobal\decrement\MPCdone
+        \global\letbeundefined{MPC:\MPCitem}}%
+     \ifcase\MPCdone\else
+       \expandafter\fetchMPCitems
+     \fi}
+  \startitemize[#3]
+    \fetchMPCitems
+  \stopitemize
+  \egroup}
+
+% \setupsystem
+%   [\c!random=\v!small]
+
+\protect
+
+\continueifinputfile{m-examn.mkiv}
+
+% \nopdfcompression
+
+\setupbodyfont[pagella,10pt]
+
+% \usemodule[m][examn]
+
+\setupinteraction
+  [state=start,
+   color=MPCcolor,
+   menu=on]
+
+\setupinteractionmenu
+  [right]
+  [state=start]
+
+\setupinteractionscreen
+  [option=max]
+
+\setuppapersize
+  [S6][S6]
+
+\setuplayout
+  [topspace=15pt,
+   backspace=40pt,
+   header=0pt,
+   footer=0pt,
+   height=middle,
+   rightmargin=0pt,
+   leftmargin=20pt,
+   leftmargindistance=5pt,
+   rightedge=100pt,
+   rightedgedistance=15pt,
+   width=430pt]
+
+\setupbackgrounds
+  [text][rightedge]
+  [frame=on,
+   frameoffset=5pt,
+   framecolor=MPCcolor]
+
+\startinteractionmenu[right]
+    \startalignment[middle]
+        \dontleavehmode \gotobox{\strut example test} [examplepage]                      \blank
+        \dontleavehmode \gotobox{\strut next feedback}[NextFeedback]                     \blank
+        \dontleavehmode \gotobox{\strut prev feedback}[PreviousFeedback]                 \blank
+        \dontleavehmode \gotobox{\strut submit}       [SubmitForm{mailto:pragma@wxs.nl}] \blank
+        \dontleavehmode \gotobox{\strut reset}        [ResetItems]                       \blank
+        \dontleavehmode \gotobox{\strut calculate}    [CalculateItems]                   \blank
+        \vfill
+        score      \blank[small] \dontleavehmode \field[mpc-score]    \blank
+        max score  \blank[small] \dontleavehmode \field[mpc-total]    \blank
+        percentage \blank[small] \dontleavehmode \field[mpc-percent]  \blank
+        realtime   \blank[small] \dontleavehmode \field[mpc-realtime] \blank
+        \kern0pt
+    \stopalignment
+\stopinteractionmenu
+
+\starttext
+
+\title [examplepage] {A simple MPC demo (toggle mode)}
+
+\startMPCitems[mpc-1][answer=3][a,packed]
+
+    \startMPCitem this is alpha \stopMPCitem
+    \startMPCitem and this is beta \stopMPCitem
+    \startMPCitem but how about gamma (ok) \stopMPCitem
+
+\stopMPCitems
+
+\startMPCitems[mpc-5][answer={2,3,4},n=2][n,packed]
+
+    \startMPCitem this is alpha \stopMPCitem
+    \startMPCitem and this is beta (ok, 2 ok's permitted) \stopMPCitem
+    \startMPCitem but how about gamma (ok, 2 ok's permitted) \stopMPCitem
+    \startMPCitem or delta (ok, 2 ok's permitted) \stopMPCitem
+    \startMPCitem or epsilon \stopMPCitem
+
+\stopMPCitems
+
+\startMPCitems[mpc-6][answer={2,3,4},weight={2,1,3},n=2][g,packed]
+
+    \startMPCitem this is alpha \stopMPCitem
+    \startMPCitem and this is beta (ok, 2 ok's permitted, weight is 2) \stopMPCitem
+    \startMPCitem but how about gamma (ok, 2 ok's permitted, weight is 1) \stopMPCitem
+    \startMPCitem or delta (ok, 2 ok's permitted, weight is 3) \stopMPCitem
+    \startMPCitem or epsilon \stopMPCitem
+
+\stopMPCitems
+
+\startMPCitems[mpc-8][answer=1,weight=2][packed]
+
+    \startMPCitem this is alpha (ok, weight is 2) \stopMPCitem
+    \startMPCitem and this is beta \stopMPCitem
+    \startMPCitem but how about gamma \stopMPCitem
+    \startMPCitem or delta \stopMPCitem
+
+\stopMPCitems
+
+\title [feedback:mpc:mpc-1] {Feedback on MPC 1}  whatever
+\title [feedback:mpc:mpc-5] {Feedback on MPC 5}  whatever
+\title [feedback:mpc:mpc-6] {Feedback on MPC 6}  whatever
+\title [feedback:mpc:mpc-8] {Feedback on MPC 8}  whatever
+
+\stoptext
diff --git a/tex/context/modules/mkiv/m-scite.mkiv b/tex/context/modules/mkiv/m-scite.mkiv
index 315cb3bed..058a4cbcd 100644
--- a/tex/context/modules/mkiv/m-scite.mkiv
+++ b/tex/context/modules/mkiv/m-scite.mkiv
@@ -317,7 +317,7 @@ moduledata.scite = scite
 \definetyping[MPS] [option=mps]
 \definetyping[MP]  [option=mp]
 \definetyping[PDF] [option=pdf]
-\definetyping[CPP] [option=web]
+\definetyping[CPP] [option=cpp]    % Which is kind of like the web one.
 \definetyping[WEB] [option=web]
 \definetyping[TXT] [option=txt]
 \definetyping[BNF] [option=bnf]    % I might use this in the metafun manual.
@@ -397,6 +397,14 @@ moduledata.scite = scite
   {\scitebuffer[\ifx\currentscitelexer\empty tex\else\currentscitelexer\fi][@scite@]%
    \endgroup}
 
+\definelines
+  [scitelines]
+
+\setuplines
+  [scitelines]
+  [\c!before=,
+   \c!after=]
+
 \unexpanded\def\scitefile
   {\dosingleargument\module_scite_file}
 
@@ -410,9 +418,9 @@ moduledata.scite = scite
    \dontcomplain
    \raggedright
    \startcontextcode
-   \startlines
+   \startscitelines
    \getbuffer[lex]
-   \stoplines
+   \stopscitelines
    \stopcontextcode
    \endgroup}
 
@@ -432,9 +440,9 @@ moduledata.scite = scite
    \module_scite_inherit_typing
    \dontcomplain
    \raggedright
-   \startlines
+   \startscitelines
    \getbuffer[lex]
-   \stoplines
+   \stopscitelines
    \endgroup}
 
 \unexpanded\def\sciteinlinebuffer
@@ -476,14 +484,14 @@ moduledata.scite = scite
    \tt
    \installscitecommandsdisplay
    \dontcomplain
-\buff_verbatim_initialize_typing_one
-\buff_verbatim_set_line_margin
+   \buff_verbatim_initialize_typing_one
+   \buff_verbatim_set_line_margin
    \raggedright
-   \startlines
+   \startscitelines
    \clf_getbuffer{lex}}
 
 \unexpanded\def\stopDisplayScite
-  {\stoplines
+  {\stopscitelines
    \endgroup}
 
 \unexpanded\def\slxbreak
-- 
cgit v1.2.3