Data commit

Task/Documentation/Tcl/documentation.tcl

@@ -0,0 +1,18 @@
+#****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]
+}