Red [
    Title:      "Find functions with missing doc for their refinements"
    Date:       2018-07-28
    Author:     "Endo"
    License:    "MIT"
    File:       %Refinements.red
]

;find all natives, op, functions, actions that have refinement(s)
remove-each word words: words-of system/words [
    any [
        not any-function? attempt [get word]
        not find spec-of get word refinement!
    ]
]
print [length? words "functions have refinements"]

output: []
foreach word words [
    spec: find spec-of get word refinement!
    result: parse spec [collect [some [quote /local | refinement! string! | keep refinement! | skip]]]
    unless empty? result [
        append output word
    ]
]
print [length? output "functions missing doc for their refinements"]
print mold new-line/all output yes