doc-string-parser_with_description_example.red

s1: {This is a description without example.
}
s2: {doc: description of s2
  example: foo <baz> <bar>
}
s3: {example: foo3 <baz> <bar>
}


f: func [str][
  parse str [
    [
      "doc: " copy _description to "example: " 
      "example: " copy _example to end
    ]
    | ["example: " copy _example to end]
    | copy _description to end
  ]
]
p: does [
  unless empty? _description [
    print "Description: "
    prin "   " print _description
  ]
  unless empty? _example [
    print "Example: "
    prin "   " print _example
  ]
]
_description: copy "" _example: copy ""
f s1
p
comment {
Description: 
   This is a description without example.
}

_description: copy "" _example: copy ""
f s2
p
comment {
Description: 
   description of s2
  
Example: 
   foo <baz> <bar>
}


_description: copy "" _example: copy ""
f s3
p
comment {
Example: 
   foo3 <baz> <bar>
}