--- a/Cface__CFunctionNode.st	Mon Jul 06 07:18:24 2015 +0100
+++ b/Cface__CFunctionNode.st	Mon Jul 06 07:52:34 2015 +0100
@@ -40,6 +40,28 @@
     "Created: / 25-10-2007 / 14:39:35 / haja"
 !
 
+comment
+    "Returns a comment string for given function"
+
+    ^ String streamContents:[ :out|
+        arguments notEmptyOrNil ifTrue:[ 
+            arguments do:[:argument | 
+                out nextPutAll: '@param '.
+                out nextPutAll: argument cName.
+                out nextPutAll: ': '.
+                out nextPutAll: argument type cName.
+                out cr; tab4; space.
+            ].
+        ].
+        out nextPutAll: '@return'.
+        out nextPutAll: ': '.
+        out nextPutAll: return cName.
+        out cr; tab4.
+    ].
+
+    "Created: / 06-07-2015 / 07:29:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 kind
     ^ kind ? #static