jacinda-1.2.0.0: examples/mtlCtx.jac

{. finds any line matching /MonadState/ or /MonadError/ without
{. an INLINABLE pragma on the preceding line

{. TODO val fpCtx ≔ line ~* 1 /\{-#.*INLINABLE\s+([a-z][A-Za-z0-9]*)#-\}/

@include'lib/maybe.jac'

fn step(ctx, line) :=
  let
    val fpCtx ≔ line ~ /\{-#.*INLINABLE.*#-\}/
    val mLine ≔
      if (ctx->1) || line !~ /:.*Monad(State|Error)/
        then None
        else Some line
  in (fpCtx.mLine) end;

(->2):?step^(#f.None)$0