print-help ( options -- )

Vocabulary

command-line.parser.private

Inputs

options

an object

Outputs

None

Definition

USING: command-line.parser io kernel namespaces sequences ;

IN: command-line.parser.private

: print-help ( options -- )
    "Usage:\n    " write dup print-short-usage
    program-prolog get [ nl print ] unless-empty
    [ positional? ] partition
    [ [ nl "Arguments:" print print-options ] unless-empty ]
    [ [ nl "Options:" print print-options ] unless-empty ] bi*
    program-epilog get [ nl print ] unless-empty ;