hakorune/apps/lib/pattern_builder.hako

// PatternBuilder — パターン条件ビルダー（コンパイル時メタ）
// 生成物は AST JSON v0 の条件式（文字列）。

static box PatternBuilder {
  // eq(lhs, rhs) => lhs == rhs
  eq(lhs_json, rhs_json) {
    using "apps/lib/json_builder.hako" as JB
    return JB.binary("==", lhs_json, rhs_json)
  }

  // or_([c1, c2, ...]) => c1 || c2 || ... （空は false）
  or_(conds) {
    using "apps/lib/json_builder.hako" as JB
    if conds.length() == 0 { return JB.literal_bool(false) }
    if conds.length() == 1 { return conds.get(0) }
    local i = 1
    local acc = conds.get(0)
    loop(i < conds.length()) {
      acc = JB.binary("||", acc, conds.get(i))
      i = i + 1
    }
    return acc
  }

  // and_([g1, g2, ...]) => g1 && g2 && ... （空は true）
  and_(conds) {
    using "apps/lib/json_builder.hako" as JB
    if conds.length() == 0 { return JB.literal_bool(true) }
    if conds.length() == 1 { return conds.get(0) }
    local i = 1
    local acc = conds.get(0)
    loop(i < conds.length()) {
      acc = JB.binary("&&", acc, conds.get(i))
      i = i + 1
    }
    return acc
  }

  // type_is(type_name, expr_json)
  // Lowering 規約: MethodCall(object=expr, method="is", arguments=[Literal(String type_name)])
  // → MIR::TypeOp(Check, value=expr, ty=map(type_name)) に降下される（src/mir/builder/exprs.rs）。
  type_is(type_name, expr_json) {
    local t = "{\"kind\":\"Literal\",\"value\":{\"type\":\"string\",\"value\":\"" + type_name + "\"}}"
    return "{\"kind\":\"MethodCall\",\"object\":" + expr_json + ",\"method\":\"is\",\"arguments\":[" + t + "]}"
  }

  // default マーカー（条件式ではない）。
  default() { return "__NY_PATTERN_DEFAULT" }
}