"{ Package: 'stx:goodies/smallsense' }"!

!AssignmentNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    aBlock value: #variable   value: variable.

    aBlock value: #expression value: expression.

    "Modified: / 26-11-2011 / 10:39:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AssignmentNode methodsFor:'accessing-SmallSense'!

inferedType

    expression isNil ifTrue:[ 

        ^ SmallSense::Type unknown

    ].

    ^ expression inferedType

    "Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 23-04-2015 / 17:16:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AssignmentNode methodsFor:'accessing-SmallSense'!

inferedType: aSmallSenseType

    ^ self shouldNotImplement

    "Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BlockNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "Enumerates all direct children and evaluates a block

     with its name (usually instVar name) and the node itself"

    aBlock value:'statements' value: statements

    "Created: / 20-09-2013 / 01:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ConfigurableFeatures class methodsFor:'queries-features'!

hasSmallSenseEnabled

    ^UserPreferences current smallSenseEnabled

    "

     ConfigurableFeatures hasSmallSenseEnabled

     ConfigurableFeatures includesFeature:'SmallSenseEnabled'

    "

    "Created: / 27-11-2011 / 17:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!DebugView methodsFor:'event handling'!

processShortcut:aKeyPressEvent

    "a shortcut key event as forwarded from the keyboardProcessor - if there is the

     shortcut key defined, process the shortcut and return true - otherwise false."

    UserPreferences current smallSenseEnabled ifTrue:[   

        (aKeyPressEvent key == #OpenNavigator or:[aKeyPressEvent rawKey == #CtrlT and:[(aKeyPressEvent targetView keyboardMap hasBindingFor: #OpenNavigator) not]]) ifTrue:[ 

            SmallSense::Navigator open.                                                                      

            ^ true

        ].    

    ].

    ^ super processShortcut:aKeyPressEvent

    "Created: / 25-01-2015 / 12:18:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-02-2015 / 21:34:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!DialogBox class methodsFor:'smalltalk dialogs-SmallSense'!

stx_goodies_smallsense_requestProject:title from:listOfProjects initialAnswer:initialTextOrNil suggestions:suggestions

    "Ask for a project (package-id)"

    <swizzle: #requestProject:from:initialAnswer:suggestions:>

    "

    stx_goodies_smallsense swizzle: (DialogBox class >> #stx_goodies_smallsense_requestProject:from:initialAnswer:suggestions:)

    "

    | dialog |

    UserPreferences current smallSenseNewDialogsEnabled ifFalse:[ 

        ^ self stx_libwidg_requestProject:title from:listOfProjects initialAnswer:initialTextOrNil suggestions:suggestions

    ].

    dialog := SmallSense::PackageSelectDialog new.

    dialog title: title.

    dialog filter: [ :pkg | listOfProjects includes: pkg ].

    (initialTextOrNil notNil and:[initialTextOrNil ~~ PackageId noProjectID]) ifTrue:[

        initialTextOrNil isEmpty ifTrue:[

            suggestions size == 1 ifTrue:[

                dialog pattern:   suggestions anElement. 

                dialog selection: suggestions anElement. 

            ].

        ] ifFalse:[ 

            dialog pattern: initialTextOrNil.

            dialog selection: initialTextOrNil.

        ]

    ].

    ^ dialog open.

    "Created: / 25-11-2014 / 13:20:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-02-2015 / 08:59:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 21-02-2015 / 17:53:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!EditTextView methodsFor:'accessing-behavior'!

autoIndent

    ^ autoIndent

! !

!EditTextViewCompletionSupport methodsFor:'queries'!

isCompletionViewShown

    ^ completionView notNil and:[ completionView isVisible ]

    "Created: / 13-08-2014 / 16:00:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HTMLDocumentView methodsFor:'actions'!

doQuickFix: quickFixNo

    | app |

    app := self application.

    app notNil ifTrue:[

	app doQuickFix: quickFixNo

    ].

    "Created: / 16-02-2012 / 14:18:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!InspectorView methodsFor:'initialization & release'!

preRealize

    "/ This method is an ugly hack to hook-in a a SmallSense completer.

    "/ Things fall apart if somebody later defined preRealize on

    "/ InspectorView...

    UserPreferences current smallSenseCompletionEnabled ifTrue:[ 

        | completion support |

        support := SmallSense::EditSupport forLanguage: object class programmingLanguage.

        support initializeForTextView: workspace.  

        completion := SmallSense::CompletionController for: workspace. 

        completion support: support.

        workspace completionSupport: completion.  

    ].

    super preRealize

    "Modified: / 12-02-2015 / 00:20:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MessageNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    aBlock value: #receiver value: receiver.

    argArray notNil ifTrue:[

	argArray withIndexDo:[:node :idx|

	    aBlock value: 'arg[' , idx printString , ']' value: node

	]

    ]

    "Modified: / 26-11-2011 / 12:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MessageNode methodsFor:'navigation-SmallSense'!

navigateToUsing: navigator

    navigator navigateToMessageNode: self.

    "Created: / 24-09-2013 / 10:04:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Method methodsFor:'inspecting'!

inspector2TabRBParseTreeInspector

    <inspector2Tab>

    ^ (self newInspector2Tab)

        label:'Parse Tree (RB)';

        priority:35;

        application:

                [

                    | src node |

                    src := self source.

                    node := RBParser parseMethod: src.

                    SmallSense::ParseTreeInspector new node:node source:src.

                ];

        yourself

    "Created: / 15-10-2014 / 02:37:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Method methodsFor:'inspecting'!

inspector2TabSTXParseTreeInspector

    <inspector2Tab>

    ^ (self newInspector2Tab)

        label:'Parse Tree (ST/X)';

        priority:36;

        application:

                [

                    | src parser |

                    src := self source.

                    parser := self parserClass parseMethod: src.

                    SmallSense::ParseTreeInspector new node:parser tree source:src.

                ];

        yourself

    "Created: / 15-10-2014 / 11:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseErrorNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "superclass ParseNode says that I am responsible to implement this method"

    ^ children withIndexDo:[:child :index |

        aBlock value:'child[' , index printString , ']' value: child

    ]

    "Modified: / 20-09-2013 / 01:00:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "Enumerates all direct children and evaluates a block

     with its name (usually instVar name) and the node itself"

    self class allInstVarNames withIndexDo:[:n :i|

        | v |

        v := self instVarAt: i.

        (v isKindOf: ParseNode) ifTrue:[

            aBlock value: n value: v

        ] ifFalse:[

            (v isSequenceable) ifTrue:[

                v withIndexDo:[ :v2 :i2|

                    (v2 isKindOf: ParseNode) ifTrue:[

                        aBlock value: (n, '[' , i2 printString , ']') value: v2.

                    ]

                ]

            ]

        ]

    ]

    "Created: / 26-11-2011 / 10:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 19-09-2013 / 18:18:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'accessing-SmallSense'!

inferedType

    | t |

    t := self objectAttributeAt:#inferedType.

    t isNil ifTrue:[t := SmallSense::Type unknown].

    ^t

    "Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 24-08-2013 / 20:46:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'accessing-SmallSense'!

inferedType: aSmallSenseType

    ^ self objectAttributeAt:#inferedType put: aSmallSenseType

    "Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'inspecting'!

inspector2TabSTXParseTreeInspector

    <inspector2Tab>

    ^ (self newInspector2Tab)

        label:'Parse Tree (ST/X)';

        priority:36;

        application:

                [

                    SmallSense::ParseTreeInspector new node:self source:nil.

                ];

        yourself

    "Created: / 15-10-2014 / 11:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'testing'!

isSelector

    "return true, if this is a node for an selctors"

    ^ false

    "Created: / 22-02-2011 / 21:44:45 / Jakub <zelenja7@fel.cvut.cz>"

! !

!ParseNode methodsFor:'navigation-SmallSense'!

navigateToUsing:navigator

    "Nothing by default, to overwritten by subclasses"

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

! !

!Parser methodsFor:'inspecting'!

inspector2TabSTXParseTreeInspector

    <inspector2Tab>

    ^ (self newInspector2Tab)

        label:'Parse Tree (ST/X)';

        priority:36;

        application:

                [

                    | src parser |

                    source isExternalStream ifFalse:[ 

                        src := source collection 

                    ].

                    SmallSense::ParseTreeInspector new node:tree source:src.

                ];

        yourself

    "Created: / 15-10-2014 / 11:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!PrimaryNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "Initionally left blank, primary nodes have no children"

    "Modified: / 26-11-2011 / 11:49:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!PrimitiveNode methodsFor:'accessing-SmallSense'!

inferedType

    ^ SmallSense::Type withClass: UndefinedObject "/ Not really true, should be 'void'

    "Created: / 08-12-2013 / 22:25:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBBlockNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    arguments withIndexDo:[:statement :index |

        aBlock value: 'argument[', index printString ,']' value: statement

    ].

    body statements withIndexDo:[:statement :index |

        aBlock value: 'statement[', index printString ,']' value: statement

    ]

    "Created: / 15-10-2014 / 10:42:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBContainsSmalltalkXEOLCommentRule methodsFor:'accessing'!

fixes: fixer

    | changes |

    changes := self changes.

    changes notEmptyOrNil ifTrue:[

        fixer fix

            rule: self;

            label:'Change EOL comments to standard Smalltalk comments';

            action: [ fixer apply:

                ((ChangeSet withAll:changes) name: self name)

            ].

    ]

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

    "Modified: / 15-12-2014 / 16:46:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBLintRule methodsFor:'accessing'!

fixes: aSmallSenseQuickFixer

    "Adds all possible code fixes to given quick fixer.

     Default is to do nothing, meaning that there are

     no quickfixes available"

    "Created: / 01-02-2012 / 12:09:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBMethodNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    arguments withIndexDo:[:statement :index |

        aBlock value: 'argument[', index printString ,']' value: statement

    ].

    body statements withIndexDo:[:statement :index |

        aBlock value: 'statement[', index printString ,']' value: statement

    ]

    "Created: / 15-10-2014 / 09:28:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-10-2014 / 10:41:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBProgramNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "Enumerates all direct children and evaluates a block

     with its name (usually instVar name) and the node itself"

    self class allInstVarNames withIndexDo:[:n :i|

        | v |

        n ~~ #parent ifTrue:[

            v := self instVarAt: i.

            (v isKindOf: RBProgramNode) ifTrue:[

                aBlock value: n value: v

            ] ifFalse:[

                (v isSequenceable) ifTrue:[

                    v withIndexDo:[ :v2 :i2|

                        (v2 isKindOf: RBProgramNode) ifTrue:[

                            aBlock value: (n, '[' , i2 printString , ']') value: v2.

                        ]

                    ]

                ]

            ]

        ]

    ]

    "Created: / 15-10-2014 / 10:39:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBProgramNode methodsFor:'accessing'!

endPosition

    ^ self stop

    "Created: / 15-10-2014 / 09:34:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBProgramNode methodsFor:'accessing'!

startPosition

    ^ self start

    "Created: / 15-10-2014 / 09:34:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBTransformationRule methodsFor:'accessing'!

fixes: fixer

    | changes |

    changes := self changes.

    changes notEmptyOrNil ifTrue:[

        fixer fix

            rule: self;    

            label:'Rewrite the code';

            action: [ fixer apply:

                ((ChangeSet withAll:self changes) name: self name)

            ].

    ]

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

    "Modified: / 15-12-2014 / 16:46:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ReturnNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    aBlock value: 'expression' value: expression.

    "Created: / 10-04-2014 / 08:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!StatementNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock