19 lines
483 B
Tcl
19 lines
483 B
Tcl
#****f* RosettaCode/TclDocDemo
|
|
# FUNCTION
|
|
# TclDocDemo is a simple illustration of how to do documentation
|
|
# of Tcl code using Robodoc.
|
|
# SYNOPSYS
|
|
# TclDocDemo foo bar
|
|
# INPUTS
|
|
# foo -- the first part of the message to print
|
|
# bar -- the last part of the message to print
|
|
# RESULT
|
|
# No result
|
|
# NOTES
|
|
# Prints a message based on a template by filling in with the
|
|
# supplied strings.
|
|
#*****
|
|
proc TclDocDemo {foo bar} {
|
|
puts [format "%s -- %s" $foo $bar]
|
|
}
|