Summarize Port for Ren-C

summarize-port.reb

Rebol [
    Title: "Summarize Port"
    Date: 17-Feb-2021
    Author: "Christopher Ross-Gill"
]

summarize-port: function [
    {Returns a block of information about a port}
    return: "Block of short lines (fitting in roughly 80 columns)"
        [<opt> block!]
    port [port!]
][
    return collect [
        keep join "Kind  " port/spec/title
        keep join "Ref   " mold any [match [file! url!] :port/spec/ref [...]]
        keep join "Mode  " pick ["Async" "Sync"] action? :port/awake

        switch type-of :port/actor [
            object! [
                keep "Actor   "
                keep summarize-obj port/actor
            ]

            handle! [
                ; internal port
                keep "    actor           handle!    "
            ]
        ]
    ]
]

help-port: func [
    port [port!]
][
    print delimit newline summarize-port port
]