def edge_lines

near-v-framework@0.4.0.0 · domain/architecture/view/ops.bend:197

import Base
import near-v-framework@0.4.0.0/general/compound/edge/type.bend as E

197def edge_lines(es: List<&2, E.Edge>, +ins: List<&2, String>, +b: String) -> String:
198  match es:
199    case []:
200      ""
201    case e <> rest:
202      match e:
203        case E.Edge{x, y, d, t}:
204          path(x, ins, b) ++ " -> " ++ path(y, ins, b) ++ ": " ++ label(d, t) ++ "\n" ++ edge_lines(rest, ins, b)