--- a/tools/JavaParser.st	Fri Aug 30 12:12:44 2013 +0100
+++ b/tools/JavaParser.st	Fri Aug 30 12:19:02 2013 +0100
@@ -196,7 +196,7 @@
         | oldBlock |
         oldBlock := production block.
         production setBlock:[:nodes|
-            | first last start stop |
+            | first last start stop node |
 
             first := nodes.
             [ first isSequenceable and:[first notEmpty] ] whileTrue:[
@@ -209,15 +209,30 @@
 
             start := first perform: #startPosition ifNotUnderstood:[nil].
             stop := last perform: #endPosition ifNotUnderstood:[nil].
-
             builder start: start stop: stop.
-            oldBlock value: nodes.
+            node := oldBlock value: nodes.
+"/            (node isKindOf: JavaDeclarationNode) ifTrue:[
+"/                | comments javadoc streamPos |
+"/
+"/                comments := scanner comments.
+"/                javadoc := comments detectLast:[:comment|comment last < start] ifNone:nil.
+"/                javadoc notNil ifTrue:[
+"/                    streamPos := scanner sourceStream position.
+"/                    scanner sourceStream position: javadoc first.
+"/                    (scanner sourceStream next: 3) = '/**' ifTrue:[
+"/                        node javadoc: javadoc.
+"/                    ].
+"/                    scanner sourceStream position: streamPos
+"/                ].
+"/            ].
+            node
         ].
 
     ].
     ^ production
 
     "Created: / 25-08-2013 / 11:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-08-2013 / 03:00:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaParser class methodsFor:'documentation'!