def sk.lo.put

emerging-ezjson@1.3.0.0 · src/pull.bend:1407

import Base
import emerging-ezjson@1.3.0.0/src/lex.bend as Lex

1407# one more hex digit of a skipped low surrogate, or the code point
1408def sk.lo.put(
1409  tl: String,
1410  left: Nat,
1411  acc: U32,
1412  hi: U32,
1413  dig: U32,
1414  stack: List<&2, Frame>,
1415  goal: Goal,
1416  done: Bool
1417) -> St:
1418  match left:
1419    case 0n:
1420      sk.lo.end(tl, stack, goal, done, Lex.unicode.sur((acc * 16 + dig : U32)))
1421    case 1n+p:
1422      S{MSkLo{p, (acc * 16 + dig : U32), hi}, stack, goal, done, False{}}