algocline-engine 0.46.1

algocline Lua execution engine — VM, session, bridge
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113

-- vendored from evalframe v0.4.0 (~/.algocline/packages/evalframe/model/binding.lua)
-- DO NOT EDIT here — upstream sync via manual copy
--[[
  model/binding.lua — Binding: Grader x Scorer pair (type-dispatched)

  Pairs "what to check" (Grader) x "how to score" (Scorer).
  Positional args are type-dispatched (order-independent).
  grader.name serves as the natural key.

  Usage:
    local bind   = require("evalframe.model.binding")
    local grader = require("evalframe.model.grader")
    local scorer = require("evalframe.model.scorer")

    bind { grader_def, scorer_def }
    bind { scorer_def, grader_def }  -- order-independent
    bind "label" { grader_def, scorer_def }

    -- Grader-only (uses default bool scorer)
    bind { grader_def }

    -- With weight override
    bind { grader_def, scorer_def, weight = 1.0 }
]]

local Grader = require("evalframe.model.grader")
local Scorer = require("evalframe.model.scorer")

local M = {}

local BINDING_TAG = {}

-- ============================================================
-- Internal builder
-- ============================================================

local function build(spec, label)
  label = label or "bind"

  if type(spec) ~= "table" then
    error(string.format("%s: spec must be a table", label), 3)
  end

  local grd, scr
  for _, v in ipairs(spec) do
    if Grader.is_grader(v) then
      if grd then error(string.format("%s: multiple GraderDef provided", label), 3) end
      grd = v
    elseif Scorer.is_scorer(v) then
      if scr then error(string.format("%s: multiple ScorerDef provided", label), 3) end
      scr = v
    end
  end

  if not grd then
    error(string.format("%s: GraderDef required", label), 3)
  end

  -- Default to bool scorer if none provided
  scr = scr or Scorer.default_bool

  -- Optional weight (default 1.0)
  local weight = spec.weight or 1.0
  if type(weight) ~= "number" or weight < 0 then
    error(string.format("%s: weight must be non-negative number, got %s", label, tostring(weight)), 3)
  end

  return {
    _tag    = BINDING_TAG,
    grader  = grd,
    scorer  = scr,
    weight  = weight,
  }
end

-- ============================================================
-- DSL entry:
--   bind { GraderDef, ScorerDef }
--   bind "label" { GraderDef, ScorerDef }
-- ============================================================

setmetatable(M, {
  __call = function(_, first)
    if type(first) == "table" then
      return build(first, "bind")
    elseif type(first) == "string" then
      return function(spec)
        return build(spec, string.format("bind '%s'", first))
      end
    else
      error(string.format("bind: expected table or string, got %s", type(first)), 2)
    end
  end,
})

-- ============================================================
-- Introspection
-- ============================================================

--- Natural key: grader.name
---@param b table Binding
---@return string
function M.key(b)
  return b.grader.name
end

---@param v any
---@return boolean
function M.is_binding(v)
  return type(v) == "table" and v._tag == BINDING_TAG
end

return M