"

 COPYRIGHT (c) 1998 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:libcomp' }"

"{ NameSpace: Smalltalk }"

AbstractSyntaxHighlighter subclass:#SyntaxHighlighter

	instanceVariableNames:'currentSuperclasses currentSubclasses

		cachedLocalIdentifierEmphasis cachedLocalIdentifierColor

		cachedStringEmphasis cachedStringColor'

	classVariableNames:''

	poolDictionaries:''

	category:'System-Compiler'

!

!SyntaxHighlighter class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 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.

"

!

documentation

"

    colors a method.

"

! !

!SyntaxHighlighter class methodsFor:'constants'!

codeAspectClassDefinition

    ^ #classDefinition

    "Created: / 27-07-2012 / 22:17:24 / cg"

!

codeAspectExpression

    ^ #expression

    "Created: / 27-07-2012 / 22:01:26 / cg"

!

codeAspectMethod

    ^ #method

    "Created: / 27-07-2012 / 22:01:42 / cg"

!

codeAspectStatements

    ^ #statements

    "Created: / 22-02-2016 / 20:57:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SyntaxHighlighter class methodsFor:'highlighting'!

formatClassDefinition:aString in:aClass

    "format (recolor) a class definition expression in a given class.

     Return the text containing font changes and color information."

    ^ self formatExpression:aString in:aClass

!

formatMethod:aString in:aClass

    "format (recolor) a method in a given class.

     Return the text containing font changes and color information."

    ^ self formatMethod:aString in:aClass using:nil

    "

     self

        formatMethod:'foo 

    ^ self bar:''hello''.

    ' , (Character doubleQuote asString) , 'some comment' , (Character doubleQuote asString) , '

'

        in:UndefinedObject

    "

    "Modified: / 23.10.1998 / 22:48:45 / cg"

!

formatMethod:aString in:aClass using:preferencesOrNil

    "format (recolor) a method in a given class.

     Return the text containing font changes and color information."

    "/ cg: I smell a wumpus: I don't think, all of this must be redefined - most is already there in the superclass.

    |highlighter tree newText|

    aString isNil ifTrue:[^ nil].

    Error handle:[:ex |

        "/ Transcript showCR:ex description.

        (ParseError handles:ex) ifFalse:[

            ex creator isHandled ifTrue:[

                "/ Transcript showCR:'handled'.

                ex reject.    

            ].

            "Parse error may happen when re-formatting incomplete code while editing"

            "/ ('SyntaxHighlighter [info]: error during highlight: ' , ex description) infoPrintCR.

            "/ ex suspendedContext fullPrintAll.

        ].

        highlighter notNil ifTrue:[

            ^ self colorize:(newText ? aString) forErrorAtPosition:highlighter sourceStream position withOriginal:aString

        ].

        ^ aString

    ] do:[

        |sourceString|

        sourceString := aString string.

        newText := sourceString asUnicode16String asText.

        "/ use an array here (instead of the RunArray) - this can be changed much faster using #at:put:

        newText emphasisCollection:(Array new:sourceString size).

        highlighter := self for:(ReadStream on:sourceString) in:aClass.

        preferencesOrNil notNil ifTrue:[highlighter preferences:preferencesOrNil].

        "/ highlighter ignoreErrors:true.

        highlighter ignoreWarnings:true.

        highlighter sourceText:newText.

        tree := highlighter parseMethod.

        newText := highlighter sourceText.  "/ might have changed identity

        "/ now, convert the emphasis-array to a runArray

        newText emphasisCollection:(newText emphasis asRunArray).

        tree == #Error ifTrue:[

            ^ self colorize:newText forErrorAtPosition:highlighter sourceStream position withOriginal:aString.

        ].

        ^ newText

    ]

    "

     self

        formatMethod:'foo 

    ^ self bar:''hello''.

    ' , (Character doubleQuote asString) , 'some comment' , (Character doubleQuote asString) , '

'

        in:UndefinedObject

    "

    "Modified: / 04-02-2012 / 11:53:16 / cg"

! !

!SyntaxHighlighter methodsFor:'initialization'!

initialize

    super initialize.

    foldConstants := false.

"/    parserFlags allowDollarInIdentifier:true.

    preferences := UserPreferences current.

    fullSelectorCheck := preferences fullSelectorCheck.

    "Created: / 31.3.1998 / 15:12:55 / cg"

    "Modified: / 5.1.1980 / 00:44:03 / cg"

! !

!SyntaxHighlighter methodsFor:'syntax detection'!

markArgumentIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences argumentIdentifierEmphasis) 

        color:(preferences argumentIdentifierColor)

    "Modified: / 31.3.1998 / 18:01:27 / cg"

!

markAssignedClassVariableIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences sideEffectAssignmentEmphasis) ifNil:(preferences classVariableIdentifierEmphasis)

        color:(preferences sideEffectAssignmentColor) ifNil:(preferences classVariableIdentifierColor)

        backgroundColor:(preferences sideEffectAssignmentBackgroundColor)

    "Created: / 13-02-2012 / 11:49:59 / cg"

!

markAssignedGlobalIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences sideEffectAssignmentEmphasis) ifNil:(preferences globalIdentifierEmphasis)

        color:(preferences sideEffectAssignmentColor) ifNil:(preferences globalIdentifierColor)

        backgroundColor:(preferences sideEffectAssignmentBackgroundColor)

    "Modified: / 31-03-1998 / 18:02:14 / cg"

    "Created: / 13-02-2012 / 11:44:33 / cg"

!

markAssignedIdentifierFrom:pos1 to:pos2

    "any other identifier (PrivateClass, Workspace, Doit, etc.)"

    self markAssignedGlobalIdentifierFrom:pos1 to:pos2

!

markAssignedInstVarIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences sideEffectAssignmentEmphasis) ifNil:(preferences instVarIdentifierEmphasis)

        color:(preferences sideEffectAssignmentColor) ifNil:(preferences instVarIdentifierColor)

        backgroundColor:(preferences sideEffectAssignmentBackgroundColor)

    "Created: / 13-02-2012 / 11:50:19 / cg"

!

markAssignedPoolVariableIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences sideEffectAssignmentEmphasis) ifNil:(preferences poolVariableIdentifierEmphasis)

        color:(preferences sideEffectAssignmentColor) ifNil:(preferences poolVariableIdentifierColor)

        backgroundColor:(preferences sideEffectAssignmentBackgroundColor)

    "Created: / 13-02-2012 / 11:49:14 / cg"

!

markAssignedVariable:v from:pos to:endPos

    "support for syntaxColoring"

    |type|

    type := v type.

    (type == #BlockArg

    or:[ type == #MethodArg

    or:[ type == #BlockVariable

    or:[ type == #MethodVariable]]]) ifTrue:[

        self markVariable:v from:pos to:endPos assigned:true.

        ^ self

    ].

    (type == #GlobalVariable) ifTrue:[

        self markAssignedGlobalIdentifierFrom:pos to:endPos.

        ^ self

    ].

    (type == #PoolVariable) ifTrue:[

        self markAssignedPoolVariableIdentifierFrom:pos to:endPos.

        ^ self

    ].

    (type == #ClassVariable) ifTrue:[

        self markAssignedClassVariableIdentifierFrom:pos to:endPos.

        ^ self

    ].

    (type == #InstanceVariable) ifTrue:[

        self markAssignedInstVarIdentifierFrom:pos to:endPos.

        ^ self

    ].

    self markAssignedIdentifierFrom:pos to:endPos.

    "Created: / 13-02-2012 / 11:42:23 / cg"

!

markBadIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences badIdentifierEmphasis) 

        color:(preferences badIdentifierColor)

!

markBlockFrom:pos1 to:pos2

    "an experiment (which does not look too good, after all):

     the deeper the nesting of the block, the darker the background color."

"/    |level color|

"/

"/    level := currentBlock isNil ifTrue:[1] ifFalse:[currentBlock nestingLevel+1].

"/    level > 5 ifTrue:[

"/        color := Color yellow darkened.

"/    ] ifFalse:[

"/        color := {

"/                    Color yellow lightened lightened.

"/                    Color yellow lightened          .

"/                    Color yellow                    .

"/                    Color yellow slightlyDarkened   .

"/                    Color yellow darkened           .

"/                } at:level.

"/    ].

"/    self 

"/        markFrom:pos1 to:pos2 

"/        withAddedEmphasis:(#backgroundColor->color).

!

markBooleanConstantFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences booleanConstantEmphasis) 

        color:(preferences booleanConstantColor)

    "Created: / 31.3.1998 / 18:09:01 / cg"

    "Modified: / 31.3.1998 / 19:36:44 / cg"

!

markBracketAt:pos

    |level colors clr em|

    preferences emphasizeParenthesisLevel ifFalse:[

        self 

            markFrom:pos to:pos 

            withEmphasis:(preferences bracketEmphasis) 

            color:(preferences bracketColor).

        ^ self

    ].

    level := currentBlock isNil ifTrue:[1] ifFalse:[currentBlock nestingLevel + 2].

    (sourceText at:pos) = $] ifTrue:[

        level := level - 1.

    ].

    colors := Array 

                with:(Color black)

                with:(Color blue)

                with:(Color green blendWith:(Color grey:30))

                with:(Color red blendWith:(Color grey:30))

                with:(Color yellow darkened).

    clr := colors at:((level-1) \\ colors size + 1).

    em := #normal.

    level > 1 ifTrue:[

        em := #bold.

    ].

    self 

        markFrom:pos to:pos 

        withEmphasis:em 

        color:clr

!

markClassVariableIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences classVariableIdentifierEmphasis) 

        color:(preferences classVariableIdentifierColor)

    "Modified: / 31.3.1998 / 18:02:14 / cg"

!

markCommentFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences commentEmphasis) 

        color:(preferences commentColor)

        font:(preferences commentFont)

    "

     UserPreferences current commentEmphasis

    "

    "Modified: / 31.3.1998 / 18:01:55 / cg"

!

markConstantFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences constantEmphasis) 

        color:(preferences constantColor)

    "Modified: / 31.3.1998 / 18:01:44 / cg"

    "Created: / 31.3.1998 / 18:09:22 / cg"

!

markGlobalClassIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences globalClassIdentifierEmphasis) 

        color:(preferences globalClassIdentifierColor)

    "Modified: / 31.3.1998 / 18:02:14 / cg"

    "Created: / 4.3.1999 / 12:53:02 / cg"

!

markGlobalIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences globalIdentifierEmphasis) 

        color:(preferences globalIdentifierColor)

    "Modified: / 31.3.1998 / 18:02:14 / cg"

!

markHereFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences hereEmphasis) 

        color:(preferences hereColor)

    "Modified: / 31.3.1998 / 18:02:25 / cg"

!

markIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences identifierEmphasis) 

        color:(preferences identifierColor)

    "Modified: / 31.3.1998 / 18:02:39 / cg"

    "Created: / 31.3.1998 / 18:04:56 / cg"

!

markInstVarIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences instVarIdentifierEmphasis)    

        color:(preferences instVarIdentifierColor)

    "Created: / 16.4.1998 / 18:35:40 / cg"

    "Modified: / 16.4.1998 / 18:37:30 / cg"

!

markLocalIdentifierFrom:pos1 to:pos2

    cachedLocalIdentifierEmphasis isNil ifTrue:[

        cachedLocalIdentifierEmphasis := preferences localIdentifierEmphasis.

        cachedLocalIdentifierColor := preferences localIdentifierColor.

    ].

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:cachedLocalIdentifierEmphasis 

        color:cachedLocalIdentifierColor

    "Modified: / 31.3.1998 / 18:02:39 / cg"

!

markMethodSelectorFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences methodSelectorEmphasis) 

        color:(preferences methodSelectorColor)

    "Modified: / 31.3.1998 / 18:02:52 / cg"

!

markNumberConstantFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences numberConstantEmphasis) 

        color:(preferences numberConstantColor)

    "Modified: / 31.3.1998 / 18:01:44 / cg"

    "Created: / 31.3.1998 / 18:09:22 / cg"

!

markParenthesisAt:pos

    |colors clr em|

    preferences emphasizeParenthesisLevel ifFalse:[^ self].

    colors := Array 

                with:(Color black)

                with:(Color blue)

                with:(Color green blendWith:(Color grey:30))

                with:(Color red blendWith:(Color grey:30))

                with:(Color yellow darkened).

    clr := colors at:((parenthesisLevel-1) \\ colors size + 1).

    em := #normal.

    parenthesisLevel > 1 ifTrue:[

        em := #bold.

    ].

    self 

        markFrom:pos to:pos 

        withEmphasis:em 

        color:clr

!

markPoolVariableIdentifierFrom:pos1 to:pos2

    self 

        markFrom:pos1 to:pos2 

        withEmphasis:(preferences poolVariableIdentifierEmphasis) 

        color:(preferences poolVariableIdentifierColor)

!

markReturnAt:pos

    "/ sourceText := (sourceText copyTo:pos-1),(Character value:16r21e7),(sourceText copyFrom:pos+1).