"

 COPYRIGHT (c) 2006 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool/smallsense' }"

Tools::BackgroundSourceProcessingService subclass:#SmallSenseService

	instanceVariableNames:'rulesHolder rules highlighter'

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Interface'

!

!SmallSenseService class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!SmallSenseService class methodsFor:'initialization'!

initialize

    "

    | map |

    map := Screen current keyboardMap.

    map bindValue:#CodeCompletion to: #'Ctrl '.

    map bindValue:#CodeCompletion to: #'Ctrlspace'.

    "

    Smalltalk addStartBlock:[

        Screen current notNil ifTrue:[

            | map |

            map := Screen current keyboardMap.

            (map keyAtValue:#CodeCompletion) isNil ifTrue:[

                map bindValue:#CodeCompletion to: #'Ctrl '.

                map bindValue:#CodeCompletion to: #'Ctrlspace'.

            ].

    ]]

    "Modified: / 30-11-2011 / 12:42:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 30-11-2011 / 22:58:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseService class methodsFor:'accessing'!

label

    "Answers short label - for UI"

    ^'SmallSense'

    "Created: / 07-03-2010 / 14:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 03-04-2011 / 23:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseService methodsFor:'accessing'!

syntaxHighlighter

    ^highlighter

    "Created: / 05-08-2011 / 10:59:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseService methodsFor:'aspects'!

rulesHolder

    "return/create the 'rulesHolder' value holder (automatically generated)"

    rulesHolder isNil ifTrue:[

        rulesHolder := ValueHolder new.

        rulesHolder addDependent:self.

    ].

    ^ rulesHolder

!

rulesHolder:something

    "set the 'rulesHolder' value holder (automatically generated)"

    |oldValue newValue|

    rulesHolder notNil ifTrue:[

        oldValue := rulesHolder value.

        rulesHolder removeDependent:self.

    ].

    rulesHolder := something.

    rulesHolder notNil ifTrue:[

        rulesHolder addDependent:self.

    ].

    newValue := rulesHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:rulesHolder.

    ].

! !

!SmallSenseService methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "Invoked when an object that I depend upon sends a change notification."

    changedObject == rulesHolder ifTrue:[

    ].

    super update:something with:aParameter from:changedObject

! !

!SmallSenseService methodsFor:'event handling'!

keyPress: key x:x y:y in: view

    "Handles an event in given view (a subview of codeView).

     If the method returns true, the event will not be processed

     by the view."

    (view == textView and: [ key == #'CodeCompletion' ]) ifTrue: [

        self complete. ^true

    ].

    ^false

    "Created: / 07-03-2010 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

viewRealized

    | browser |

    (browser := codeView browser) notNil ifTrue:[

        browser navigationState canvasType ~~ #smallLintByRuleResultBrowserSpec ifTrue:[

            self rulesHolder: browser smalllintRulesOrAllHolder.

        ].

    ].

    "Created: / 23-01-2012 / 10:43:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseService methodsFor:'initialization'!

initialize

    super initialize.

    highlighter := Tools::LintHighlighter new

    "Created: / 05-08-2011 / 11:53:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseService methodsFor:'private'!

complete

    |cls 

"/     crsrPos interval node checkedNode

"/     char start stop selectorSoFar matchingSelectors

    |

    codeView languageHolder value == SmalltalkLanguage instance   

        ifFalse:[^self].

    cls := codeView classHolder value.

    cls isNil ifTrue:[

        codeView showInfo:'No class'.

        ^ self.

    ].

    UserInformation handle:[:ex |

        codeView showInfo:(ex messageText).

        ex proceed.

    ] do:[

        codeView withWaitCursorDo:[

            textView keyRelease: #Control_L x:0 y:0.

        ]

    ].

    ^ self.

"/

"/    interval := self selectedInterval.

"/    interval isEmpty ifTrue:[

"/        crsrPos := codeView characterPositionOfCursor - 1.

"/        char := codeView characterUnderCursor.

"/        [crsrPos > 1 and:[char isSeparator or:['.' includes:char]]] whileTrue:[

"/            crsrPos := crsrPos - 1.

"/            char := codeView characterAtCharacterPosition:crsrPos.

"/        ].

"/        interval := crsrPos to:crsrPos.

"/    ].

"/

"/    node := self findNodeForInterval:interval allowErrors:true.

"/    [node isNil] whileTrue:[

"/        "/ expand to the left ...

"/        interval start > 1 ifFalse:[

"/            self showInfo:'No parseNode found'.

"/            ^ self.

"/        ].

"/        interval start:(interval start - 1).

"/        node := self findNodeForInterval:interval allowErrors:true.

"/    ].

"/

"/    node isVariable ifTrue:[

"/        self codeCompletionForVariable:node inClass:cls.

"/        ^ self.

"/    ].

"/

"/    checkedNode := node.

"/    [checkedNode notNil] whileTrue:[

"/        checkedNode isMessage ifTrue:[

"/            self codeCompletionForMessage:checkedNode inClass:cls.

"/            ^ self

"/        ].

"/        checkedNode isMethod ifTrue:[

"/            self codeCompletionForMethod:checkedNode inClass:cls.

"/            ^ self.

"/        ].

"/        checkedNode := checkedNode parent.

"/    ].

"/

"/    self showInfo:'Node is neither variable nor message.'.

    "Modified: / 04-07-2006 / 18:48:26 / fm"

    "Modified: / 20-11-2006 / 12:30:59 / cg"

    "Created: / 07-03-2010 / 09:37:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

process

    "(Re)starts the processing job. Should be called whenever a source 

     must be (re)processed."

    rules isNil ifTrue:[

        ^self

    ].

    ^super process.

    "Created: / 24-01-2012 / 12:43:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

process: delayed

    "Do the real source processing. If delayed is true, actuall data update must

     be done within the event queue using #pushUserEvent:...

    "

    | cls env oldCodeList oldCode |

    done := false.

    modified := false.

    cls := codeView klass.

    cls isNil ifTrue:[^ self ].

    (cls notNil and:[cls isObsolete]) ifTrue:[

        cls isMeta ifTrue:[

            cls := (Smalltalk at:cls theNonMetaclass name) class

        ] ifFalse:[

            cls := Smalltalk at:cls name

        ].

    ].

    "textView" modified ifFalse:[

        oldCodeList := textView list copy.

        "textView" modified ifFalse:[

            oldCodeList isNil ifFalse:[

                oldCode := oldCodeList asStringWithoutEmphasis.

                "textView" modified ifFalse:[

                    Screen currentScreenQuerySignal answer:codeView device

                    do:[

                        Error handle:[:ex |

                            |errMsg|

                            errMsg := ex description asStringCollection first asString.

                            "/ Transcript topView raiseDeiconified.

                            "/ Transcript showCR:'ParseError: ', ex description.

"/ self halt.

                            "/ self showInfo:(errMsg colorizeAllWith:Color red).

                        ] do:[

                            env := (SmallSenseUnacceptedMethodEnvironment onClass:cls methodSource: oldCode).

                            rules resetResult.

                            rules runOnEnvironment: env

                        ].

                        delayed ifTrue:[

                            codeView sensor pushUserEvent:#rehighlight: for:self withArgument: true.

                        ] ifFalse:[

                            self rehighlight: true.

                        ]

                    ]

                ]

            ]

        ]

    ]

    "Created: / 24-01-2012 / 12:44:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

rehighlight: delayed

    | service |

    service := self service: #'Tools::CodeHighlightingService'.

    service notNil ifTrue:[

    ]

    "Created: / 27-01-2012 / 17:06:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseService methodsFor:'redrawing'!

drawLine:lineNo in:view atX:x y:y width:w height:h from:startCol to:endColOrNil with:fg and:bg 

    "Called by both gutterView and textView (well, not yet) to

     allow services to draw custom things on text view.

     Ask JV what the args means if unsure (I'm lazy to document

     them, now it is just an experiment...)"

                atX: x y: y  width: w height: h.

    "Created: / 30-01-2012 / 15:11:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseService class methodsFor:'documentation'!

version_SVN

! !

SmallSenseService initialize!