port-methods.the.hs

val ensuring: p do: b := {
    res = b call: [val]
    p call: [val]
    res
} call

with-output-to: (fn: String) do: b :=
    Port (new: fn) ensuring: @close do: { file |
        with-input-from: file do: b
    }

with-output-to: (p: Port) do: b := {
    current-output-port = p
    join: b
} call

with-input-from: (fn: String) do: b :=
    Port (new: fn) ensuring: @close do: { file |
        with-input-from: file do: b
    }

with-input-from: (p: Port) do: b := {
    current-input-port = p
    join: b
} call