"

stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE

Copyright (C) 2013-2014 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

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

"{ NameSpace: SmallSense }"

ApplicationModel subclass:#ParseTreeInspector

	instanceVariableNames:'classHolder selectorHolder methodHolder nodeHolder sourceHolder

		sourceView inspectorView'

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Core-Interface'

!

HierarchicalItem subclass:#ParseTreeItem

	instanceVariableNames:'astNode ivarName'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ParseTreeInspector

!

!ParseTreeInspector class methodsFor:'documentation'!

copyright

"

stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE

Copyright (C) 2013-2014 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

!ParseTreeInspector class methodsFor:'instance creation'!

node: node source: source

    ^self new node: node source: source

    "Created: / 14-09-2011 / 17:25:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseTreeInspector class methodsFor:'interface opening'!

openOnClass: class selector: selector

    ^self new

        class: class selector: selector;

        open

    "

        SmallSenseParseNodeInspector 

            openOnClass: self

            selector: #openOnClass:selector: 

    "

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

!

openOnNode: node source: source

    ^self new

        node: node source: source;

        open

    "Created: / 25-08-2013 / 10:28:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseTreeInspector class methodsFor:'interface specs'!

inspectorTabSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::ParseNodeInspector andSelector:#inspectorTabSpec

     Tools::ParseNodeInspector new openInterface:#inspectorTabSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: inspectorTabSpec

        window: 

       (WindowSpec

          label: 'InspectorTab'

          name: 'InspectorTab'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (NonScrollableArbitraryComponentSpec

              name: 'InspectorView'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              component: nodeInspectorView

            )

           )

        )

      )

    "Modified: / 09-04-2014 / 22:29:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

sourceTabSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:SmallSense::ParseNodeInspector andSelector:#sourceTabSpec

     SmallSense::ParseNodeInspector new openInterface:#sourceTabSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: sourceTabSpec

       window: 

      (WindowSpec

         label: 'SourceTab'

         name: 'SourceTab'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 300 300)

       )

       component: 

      (SpecCollection

         collection: (

          (TextEditorSpec

             name: 'SourceView'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             model: sourceHolder

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             isReadOnly: true

             showingCode: true

             hasKeyboardFocusInitially: false

             postBuildCallback: postBuildSourceView:

             viewClassName: 'CodeView'

           )

          )

       )

     )

!

windowSpec

    ^ self windowSpecWithInspector

    "Modified: / 09-04-2014 / 22:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

windowSpecWithInspector

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:SmallSense::ParseNodeInspector andSelector:#windowSpecWithInspector

     SmallSense::ParseNodeInspector new openInterface:#windowSpecWithInspector

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpecWithInspector

       window: 

      (WindowSpec

         label: 'Parse Tree Inspector'

         name: 'Parse Tree Inspector'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 630 322)

       )

       component: 

      (SpecCollection

         collection: (

          (VariableHorizontalPanelSpec

             name: 'QueryTreeAndSourcePanel'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             showHandle: true

             snapMode: both

             handlePosition: right

             component: 

            (SpecCollection

               collection: (

                (HierarchicalListViewSpec

                   name: 'QueryTree'

                   model: selectionHolder

                   menu: queryTreeMenu

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   listModel: parseTree

                   useIndex: false

                   highlightMode: line

                   useDefaultIcons: false

                 )

                (NoteBookViewSpec

                   name: 'NoteBook'

                   menu: tabList

                 )

                )

             )

             handles: (Any 0.3 1.0)

           )

          )

       )

     )

!

windowSpecWithoutInspector

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:SmallSenseParseNodeInspector andSelector:#windowSpec

     SmallSenseParseNodeInspector new openInterface:#windowSpec

     SmallSenseParseNodeInspector open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Parse Tree Inspector'

          name: 'Parse Tree Inspector'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 630 322)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableHorizontalPanelSpec

              name: 'QueryTreeAndSourcePanel'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              showHandle: true

              snapMode: both

              handlePosition: right

              component: 

             (SpecCollection

                collection: (

                 (HierarchicalListViewSpec

                    name: 'QueryTree'

                    model: selectionHolder

                    menu: queryTreeMenu

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    listModel: parseTree

                    useIndex: false

                    highlightMode: line

                    useDefaultIcons: false

                  )

                 (UISubSpecification

                    name: 'SourceSoec'

                    minorKey: sourceTabSpec

                  )

                 )

              )

              handles: (Any 0.3 1.0)

            )

           )

        )

      )

    "Created: / 09-04-2014 / 22:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseTreeInspector class methodsFor:'list specs'!

tabList

    "This resource specification was automatically generated

     by the TabListEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the TabListEditor may not be able to read the specification."

    "

     TabListEditor new openOnClass: self andSelector:#tabList

    "

    <resource: #tabList>

    ^     #(

       (TabItem

          label: 'Source'

          minorKey: sourceTabSpec

          createNewBuilder: false

        )

       (TabItem

          label: 'Node'

          minorKey: inspectorTabSpec

          createNewBuilder: false

        )

       )

      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]

! !

!ParseTreeInspector class methodsFor:'menu specs'!

queryTreeMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:XQuery::QueryInspectorUI andSelector:#queryTreeMenu

     (Menu new fromLiteralArrayEncoding:(XQuery::QueryInspectorUI queryTreeMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

	(

	 (MenuItem

	    label: 'Inspect AST node'

	    itemValue: queryTreeMenuInspectAstNode

	    translateLabel: true

	  )

	 )

	nil

	nil

      )

    "Created: / 12-04-2007 / 11:46:57 / janfrog"

! !

!ParseTreeInspector class methodsFor:'plugIn spec'!

aspectSelectors

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this. If it is corrupted,

     the UIPainter may not be able to read the specification."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #model

      ).

! !

!ParseTreeInspector methodsFor:'accessing'!

class: class selector: selector

    | mth source node parser |

    mth := class >> selector.

    mth isNil ifTrue:[

        self error:'No such method'.

        ^self.

    ].

    source := mth source.

    parser := Parser parseMethod: source.

    node := parser tree.

    self node: node source: source.

     "

        SmallSenseParseNodeInspector 

            openOnClass: SmallSenseParseNodeInspector

            selector: #class:selector: 

    "

    "Created: / 15-02-2012 / 12:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

node: node source: source

    self nodeHolder value: node.

    self sourceHolder value: source.

    "Created: / 14-09-2011 / 17:23:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

selection

    | item |

    (item := self selectionHolder value) notNil ifTrue:[

        ^item

    ] ifFalse:[

        ^nil

    ]

    "Created: / 12-04-2007 / 12:29:08 / janfrog"

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

! !

!ParseTreeInspector methodsFor:'aspects'!

nodeHolder

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

    nodeHolder isNil ifTrue:[

        nodeHolder := ValueHolder new.

    ].

    ^ nodeHolder

!

nodeHolder:something

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

    nodeHolder := something.

!

nodeInspectorView

    inspectorView isNil ifTrue:[

        inspectorView := InspectorView new

    ].

    ^ inspectorView

    "Created: / 31-10-2007 / 12:20:02 / janfrog"

    "Created: / 14-09-2011 / 17:24:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

parseTree

    ^self builder bindings at: #parseTree

        ifAbsentPut:

            [PluggableAdaptor on: self nodeHolder getter:

                [:m|

                | rootAstNodeItem rootAstNode hl |

                rootAstNode := self nodeHolder value.

                rootAstNodeItem := ParseTreeItem new

                                            ivarName: 'AST';

                                            astNode: rootAstNode;

                                            yourself.

                hl := HierarchicalList new

                        root: rootAstNodeItem;

                        showRoot: true;

                        yourself.

                rootAstNodeItem expand.

                hl]]

    "Created: / 28-03-2007 / 15:58:31 / janfrog"

    "Modified: / 31-10-2007 / 12:11:46 / janfrog"

    "Created: / 14-09-2011 / 17:24:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 07-08-2014 / 10:19:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

selectionHolder

    ^self builder bindings at: #selectionHolder

        ifAbsentPut:

            [nil asValue

                onChangeSend:#updateSourceViewSelection to:self;

                onChangeSend:#updateInspectorView to:self;

                yourself]