From 6766e3f2cd846b770fa131664053521dbfb9171a Mon Sep 17 00:00:00 2001
From: Frank Fuhlbrück
Date: Tue, 25 Jan 2022 18:48:11 +0100
Subject: Lua interface progress

---
 exsh_lexercise.lua | 110 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 exsh_lexercise.lua

(limited to 'exsh_lexercise.lua')

diff --git a/exsh_lexercise.lua b/exsh_lexercise.lua
new file mode 100644
index 0000000..5f7cdae
--- /dev/null
+++ b/exsh_lexercise.lua
@@ -0,0 +1,110 @@
+solution = function(sol)
+  if type(sol) ~= "string" then
+    local solt = sol
+    sol = "["
+    if solt.idea then
+      sol = sol .. "idea,"
+    end
+    if solt.name then
+      sol = sol .. "strings/solution={"..solt.name.."},"
+    end
+    sol = sol .. "] " .. (solt.text or "") 
+  end
+  return [[\begin{solution}]]..sol..[[\end{solution}]]
+end
+
+subexercise = function(se)
+  local pts,p,bp = ""
+  local sols = ""
+  if type(se) ~= "string" then
+    local set = se
+    local po = ""
+    if set.pointoptions then
+      po = po .. set.pointoptions
+    end
+    p,bp = set.points,set.bonuspoints 
+    if  p and bp then
+      pts = [[\points[]] .. po .. "]{" .. set.points .. "+" ..
+        set.bonuspoints .. "}"
+    elseif bp then
+      pts = [[\points[bonus,]] .. po .. "]{" .. set.bonuspoints .. "}"
+    elseif p then
+      pts = [[\points[]] .. po .. "]{" .. set.points .. "}"
+    end
+    
+    if set.solution then
+      sols = sols .. solution(set.solution)
+    end
+    if set.altsolutions then
+      for _,sol in ipairs(set.altsolutions) do
+        sols = sols .. solution(sol)
+      end
+    end
+    
+    se = "["
+    if set.options then
+      se = se .. set.options
+    end
+    se = se .. "]{" .. (set.task or "") .. "}"
+  end
+  return [[\subtask]]..se .. pts .. sols, p, bp
+end
+
+exercise = function(ex)
+  local subex = ""
+  local pts,bpts = 0,0
+  if ex.subexercises then
+    subex =  [[\begin{subtasks}]]
+    for _,se in ipairs(ex.subexercises) do
+      local s,p,bp = subexercise(se)
+      subex = subex .. s
+      pts = pts + (p or 0)
+      bpts = bpts + (bp or 0)
+    end
+    subex = subex .. [[\end{subtasks}]]
+  end
+  if ex.points and ex.points == "sum" then
+    if  pts > 0  and bpts > 0 then
+      pts = pts .. "+" .. bpts
+    elseif bpts > 0 then --and pts = 0
+      pts = bpts
+      ex.options = (ex.options or "") .. ",bonus"
+    --else bpts = 0 thus pts is all points 
+    end
+  else
+    pts = ex.points
+  end
+
+  local ece = [[\begin{exercise}[]]
+  if ex.firstline then
+    ece = ece .. [[firstline={]] .. ex.firstline .. [[},]]
+  end
+  if pts then
+    ece = ece .. [[points={]] .. pts .. [[},]]
+  end
+  if ex.name then
+    ece = ece .. [[name={]] .. ex.name .. [[},]]
+  end
+  if ex.options then
+    ece = ece .. ex.options .. ","
+  end
+  ece = ece .. "]{}"
+  if ex.task then
+    ece = ece .. [[\begin{maintask}]]  .. ex.task 
+      .. [[\end{maintask}]]
+  end
+  if ex.solution then
+    ece = ece .. solution(ex.solution)
+  end
+  if ex.altsolutions then
+    for _,sol in ipairs(ex.altsolutions) do
+      ece = ece .. solution(sol)
+    end
+  end
+  
+  ece = ece .. subex
+
+  ece = ece .. "\n" .. [[\end{exercise}]]
+  return ece
+end
+
-- 
cgit v1.2.3