Fixed off-by-one bug when computing indent level for closing curly.
"{ Package: 'jv:smallsense' }"
"{ NameSpace: SmallSense }"
EditSupport subclass:#JavaEditSupport
instanceVariableNames:'lastTypedKey0 lastTypedKey1 lastTypedKey2 lastTypedKey3'
classVariableNames:''
poolDictionaries:''
category:'SmallSense-Java'
!
!JavaEditSupport methodsFor:'accessing'!
language
"superclass SmallSenseEditSupport says that I am responsible to implement this method"
| javaLanguageClass |
javaLanguageClass := Smalltalk at:#JavaLanguage.
^ javaLanguageClass notNil ifTrue:[ javaLanguageClass instance ] ifFalse: [ nil ].
"Modified: / 04-10-2013 / 08:42:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaEditSupport methodsFor:'accessing-classes'!
completionEngineClass
"Returns a code completion engine class or nil, of
no completion is supported"
"/ OperatingSystem getLoginName = 'jv' ifTrue:[
"/ ^ SmallSense::JavaCompletionEngine
"/ ].
^ SmallSense::JavaCompletionEngineSimple
"Created: / 03-10-2013 / 17:45:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 20-10-2013 / 02:53:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
scannerClass
"Returns a class to use for scanning lines. If nil, scanning is
not supported and scanLine* methods will return an empty array."
^ (Smalltalk at: #JavaScanner)
"Created: / 22-10-2013 / 00:38:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaEditSupport methodsFor:'editing'!
insertElectricSnippet
| tokens lastToken0 |
tokens := self scanLineAtCursor.
tokens isEmptyOrNil ifTrue:[ ^ false ].
lastToken0 := tokens at: (tokens size - 3).
lastToken0 = 'Error' ifTrue:[ ^ false ].
(tokens last > service textView cursorCol) ifTrue:[ ^ false ].
"/ Insert try { ... }
lastToken0 == #try ifTrue:[
(tokens size == 4 or:[(tokens size > 4) and:[(tokens at: tokens size -7) ~~ $.]]) ifTrue:[
self insertElectricBlockOpenedBy: ' {' closedBy: '}'.
^ true.
]
].
"/ Insert catch ( ) { ... }
lastToken0 == #catch ifTrue:[
(tokens size > 4 and:[(tokens at: tokens size -7) == $}]) ifTrue:[
| cursorLine cursorCol |
cursorLine := service textView cursorLine.
cursorCol := service textView cursorCol.
self insertElectricBlockOpenedBy: ' ( ) {' closedBy: '}'.
service textView cursorLine: cursorLine col: cursorCol + 3.
^ true.
].
].
"/ Insert finally { ... }
lastToken0 == #finally ifTrue:[
(tokens size > 4 and:[(tokens at: tokens size -7) == $}]) ifTrue:[
self insertElectricBlockOpenedBy: ' {' closedBy: '}'.
^ true.
].
].
"/ Insert if/while/synchronized ( ) { ... }
(#(if while synchronized) includes: lastToken0) ifTrue:[
(tokens size = 4) ifTrue:[
| cursorLine cursorCol |
cursorLine := service textView cursorLine.
cursorCol := service textView cursorCol.
self insertElectricBlockOpenedBy: ' ( ) {' closedBy: '}'.
service textView cursorLine: cursorLine col: cursorCol + 3.
^ true.
].
].
"/ Insert for ( ; ; ) { ... }
(lastToken0 == #for) ifTrue:[
(tokens size = 4) ifTrue:[
| cursorLine cursorCol |
cursorLine := service textView cursorLine.
cursorCol := service textView cursorCol.
self insertElectricBlockOpenedBy: ' ( ; ; ) {' closedBy: '}'.
service textView cursorLine: cursorLine col: cursorCol + 3.
^ true.
].
].
^ false
"Created: / 22-10-2013 / 01:53:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaEditSupport 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 ifTrue:[ ^ false ].
lastTypedKey3 := lastTypedKey2.
lastTypedKey2 := lastTypedKey1.
lastTypedKey1 := lastTypedKey0.
lastTypedKey0 := key.
key == ${ ifTrue:[
^ self keyPressOpenCurly
].
^ super keyPress: key x:x y:y in: view
"Created: / 07-03-2010 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 22-10-2013 / 01:55:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
keyPressOpenCurly
| line tokens i |
line := service codeView listAt: service codeView cursorLine.
line notEmptyOrNil ifTrue:[
i := line size.
[ i > 0 and:[(line at: i) isSeparator] ] whileTrue:[ i := i - 1 ].
(i ~~ 0 and:[service codeView cursorCol < i]) ifTrue:[
^ false. ].
] ifFalse:[
self insertElectricBlockOpenedBy: '{' closedBy: '}'.
^ true
].
tokens := self scanLineAtCursor.
tokens notEmptyOrNil ifTrue:[
| column |
column := service textView cursorCol.
(tokens at: tokens size - 3) = 'Error' ifTrue:[ ^ false ].
1 to: tokens size - 3 by: 4 do:[:i |
(column between: (tokens at: i + 2) and: (tokens at: i + 3)) ifTrue:[
(tokens at: i) == #String ifTrue:[ ^ false ].
self insertElectricBlockOpenedBy: '{' closedBy: '}'.
^ true.
].
].
].
self insertElectricBlockOpenedBy: '{' closedBy: '}'.
^ true
"Created: / 04-08-2013 / 01:54:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 25-10-2013 / 18:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaEditSupport methodsFor:'initialization'!
initializeForService: anEditService
super initializeForService: anEditService.
service textView autoIndent:true.
"Created: / 27-09-2013 / 13:55:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaEditSupport methodsFor:'private'!
tokenAtCursorLine
| scanner token |
scanner := (Smalltalk at:#JavaScanner) for: (service textView listAt: service textView cursorLine) string.
[
[
token := scanner nextToken.
(token ~~ #EOF and:[ scanner tokenEndPosition + 1 < service textView cursorCol ])
] whileTrue.
] on: Error do:[
token := nil.
].
^ token
"Created: / 04-08-2013 / 02:00:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 04-08-2013 / 03:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
tokensAtCursorLine
| scanner token |
scanner := (Smalltalk at:#JavaScanner) for: (service textView listAt: service textView cursorLine) string.
^ OrderedCollection streamContents:[:tokens |
[ token := scanner nextToken.token ~~ #EOF ] whileTrue:[
tokens nextPut: token.
].
].
"Created: / 04-08-2013 / 01:57:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaEditSupport class methodsFor:'documentation'!
version_HG
^ '$Changeset: <not expanded> $'
! !