"{ Package: 'stx:libjava/tools' }"

Object subclass:#JavaSourceDocument

	instanceVariableNames:'javaClass sourceText sourceTree sourceLineEnds sourceTreeLock'

	classVariableNames:'Cache CacheSize Job'

	poolDictionaries:''

	category:'Languages-Java-Tools-Source'

!

!JavaSourceDocument class methodsFor:'documentation'!

documentation

"

    JavaSourceDocument object keeps various useful information about one source 

    file. In particular, it keeps parse tree and pre-highlighted source.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!JavaSourceDocument class methodsFor:'initialization'!

initialize

    "Invoked at system start or when the class is dynamically loaded."

    "/ please change as required (and remove this comment)

    CacheSize := 25.

    Cache := OrderedCollection new: CacheSize * 2 "To avoid excessive shifting...".

    Job := BackgroundQueueProcessingJob named: 'java parsing job' on:[:block | block value ].

    "Modified: / 06-09-2013 / 17:45:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourceDocument class methodsFor:'instance creation'!

for: aJavaClass

    ^self new javaClass: aJavaClass.

    "Created: / 30-08-2013 / 01:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourceDocument class methodsFor:'accessing'!

cachedDocumentFor: aJavaClass

    "Returns a cached document for given class or nil if no cached 

     document is found."

    Cache withIndexDo:[:document :index|

        document javaClass == aJavaClass ifTrue:[

            "/ Move that document towards the end so it'll be less likely

            "/ to be removed

            index < Cache size ifTrue:[

                Cache swap: index with: index + 1.                

            ].

            ^ document.

        ]

    ].

    ^ nil

    "Created: / 30-08-2013 / 01:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

cachedDocumentFor: aJavaClass put: aJavaSourceDocument

    "Stores given source document in the cache"

    self assert: aJavaSourceDocument javaClass == aJavaClass.

    Cache size = CacheSize ifTrue:[

        Cache removeFirst.

    ].

    Cache addLast: aJavaSourceDocument

    "Created: / 30-08-2013 / 01:42:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourceDocument methodsFor:'accessing'!

javaClass

    ^ javaClass

!

javaClass:aJavaClass

    aJavaClass == javaClass ifTrue:[

        ^ self

    ].

    javaClass notNil ifTrue:[

        self error: 'Class already set!!'

    ].

    javaClass := aJavaClass.

    self initializeSourceTree.

    "Modified: / 06-09-2013 / 17:51:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

sourceLineToOffset: lineNr

    lineNr == 1 ifTrue:[ ^ 1 ].

    ^  (sourceLineEnds at: lineNr - 1) + 1.

    "Created: / 08-09-2013 / 10:52:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

sourceText

    ^ sourceText

!

sourceText:aText

    sourceText := aText.

!

sourceTree

    sourceTree isNil ifTrue:[

        sourceTreeLock notNil ifTrue:[

            sourceTreeLock wait.

        ].

    ].

    ^ sourceTree

    "Modified: / 06-09-2013 / 22:58:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourceDocument methodsFor:'debugging'!

inspector2TabParseTree

    SmallSense::ParseNodeInspector notNil ifTrue:[

        ^self newInspector2Tab

            label: 'Parse Tree';

            priority: 35;

            application: (SmallSense::ParseNodeInspector new node: sourceTree source: sourceText)

    ].

    ^nil

    "Created: / 30-08-2013 / 01:59:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

inspector2Tabs

    | tabs |

    tabs := super inspector2Tabs.

    (SmallSense::ParseNodeInspector notNil and:[sourceTree notNil and:[sourceText notNil]]) ifTrue:[

        tabs := tabs , #(inspector2TabParseTree)

    ].

    ^tabs

    "Created: / 30-08-2013 / 02:00:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourceDocument methodsFor:'initialization-private'!

initializeSourceRefsInMethods

    | typeName  typeNode |

    typeName := javaClass lastName.

    (typeName includes: $$) ifTrue: [

        | components |

        components := typeName tokensBasedOn: $$.

        typeNode := sourceTree types 

                detect: [:each | each name = components first ].

        2 to: components size do: [:i | 

            typeNode := typeNode memberTypes 

                    detect: [:each | each name = (components at: i) ].

        ].

    ] ifFalse: [

        typeNode := sourceTree types detect: [:each | each name = typeName ].

    ].

    javaClass methodDictionary 

        keysAndValuesDo: [:selector :method | 

            | descriptor  methodName  methodNodes  methodNode  source |

                            ].

                        ].

                    ].

                ].

            ].

        ]

    "Created: / 07-09-2013 / 01:43:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initializeSourceTree

    sourceTreeLock := Semaphore new.

    Job 

        add: [

            [

                | source  unit  parser |

                source := javaClass theNonMetaclass source.

                source notNil ifTrue: [

                    unit := (Java classForName: 'stx.libjava.tools.source.JavaSource') new.

                    unit setContents: source.

                    parser := (Java classForName: 'stx.libjava.tools.source.JavaSourceParser') 

                            new.

                    sourceTree := parser parse: unit diet: true.

                    sourceLineEnds := parser scanner getLineEnds.

                    self initializeSourceRefsInMethods.

                ].

            ] ensure: [

                sourceTreeLock signal.

                sourceTreeLock := nil.

            ]

        ]

    "Created: / 06-09-2013 / 17:50:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 07-09-2013 / 01:59:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourceDocument class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !

JavaSourceDocument initialize!