"
 COPYRIGHT (c) 2010 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' }"

AbstractSyntaxHighlighter subclass:#CodeCoverageHighlighter
	instanceVariableNames:'method methodInvocationInfo cachedColorForCoveredCode
		cachedColorForUncoveredCode'
	classVariableNames:''
	poolDictionaries:''
	category:'System-Compiler'
!

!CodeCoverageHighlighter class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2010 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 according to some methodInvocationInfo.
"
! !

!CodeCoverageHighlighter methodsFor:'accessing'!

colorForCoveredCode
    cachedColorForCoveredCode isNil ifTrue:[
        cachedColorForCoveredCode := UserPreferences current colorForInstrumentedFullyCoveredCode
    ].
    ^ cachedColorForCoveredCode

    "Created: / 28-04-2010 / 12:38:51 / cg"
    "Modified: / 28-04-2010 / 14:08:10 / cg"
!

colorForUncoveredCode
    cachedColorForUncoveredCode isNil ifTrue:[
        cachedColorForUncoveredCode := UserPreferences current colorForInstrumentedNeverCalledCode
    ].
    ^ cachedColorForUncoveredCode

    "Created: / 28-04-2010 / 12:38:51 / cg"
    "Modified: / 28-04-2010 / 14:08:16 / cg"
!

method:aMethod
    method := aMethod.
    self updateMethodInvocationInfo.

    "Modified: / 28-04-2010 / 13:22:16 / cg"
!

methodInvocationInfo:something
    methodInvocationInfo := something.

    "Modified: / 28-04-2010 / 13:38:56 / cg"
!

sourceText:aString
    sourceText := aString.
    self updateMethodInvocationInfo.

    "Created: / 28-04-2010 / 13:22:35 / cg"
!

updateMethodInvocationInfo
    (method notNil 
    and:[ method isInstrumented
    and:[ method source asString string asStringCollection withTabsExpanded asString
          = sourceText asString string asStringCollection withTabsExpanded asString]]) ifTrue:[
        methodInvocationInfo := method methodInvocationInfo
    ] ifFalse:[
        methodInvocationInfo := nil
    ].

    "Created: / 28-04-2010 / 13:22:02 / cg"
    "Modified: / 28-04-2010 / 14:32:02 / cg"
! !

!CodeCoverageHighlighter methodsFor:'syntax detection'!

markArgumentIdentifierFrom:pos1 to:pos2
    self 
        markFrom:pos1 to:pos2 
        withEmphasis:(preferences argumentIdentifierEmphasis) 
        color:(preferences argumentIdentifierColor)

    "Created: / 28-04-2010 / 14:14:20 / cg"
!

markBlockFrom:pos1 to:pos2
"/    methodInvocationInfo notNil ifTrue:[
"/        method blockInvocationInfo do:[:eachBlockInfo |
"/            eachBlockInfo characterPosition = pos1 ifTrue:[
"/                eachBlockInfo hasBeenExecuted ifTrue:[
"/                    sourceText 
"/                        emphasizeFrom:pos1 to:pos2 
"/                        with:#color->self colorForCoveredCode.
"/                        "/ with:#backgroundColor->self colorForCoveredCode lightened lightened lightened.
"/                    ^ self.
"/                ].
"/            ].
"/        ].
"/    ].
"/
"/    sourceText 
"/        emphasizeFrom:pos1 to:pos2 
"/        with:#color->self colorForUncoveredCode.
"/        "/ with:#backgroundColor->self colorForUncoveredCode lightened lightened lightened.
"/
"/

    "Modified: / 28-04-2010 / 15:49:34 / 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
!

markCommentFrom:pos1 to:pos2
    self 
        markFrom:pos1 to:pos2 
        withEmphasis:(preferences commentEmphasis) 
        color:(Color grey "preferences commentColor")

    "
     UserPreferences current commentEmphasis
    "

    "Modified: / 24-05-2011 / 19:43:31 / cg"
!

markMethodSelectorFrom:pos1 to:pos2
    |clr|

    methodInvocationInfo notNil ifTrue:[
        methodInvocationInfo hasBeenCalled ifTrue:[
            clr := self colorForCoveredCode
        ] ifFalse:[
            clr := self colorForUncoveredCode
        ].
    ].
    clr notNil ifTrue:[
        sourceText emphasizeFrom:1 to:sourceText size with:#color->clr.
    ].

    self 
        markFrom:pos1 to:pos2 
        withEmphasis:(preferences methodSelectorEmphasis) 
        color:preferences methodSelectorColor.

"/    emp notNil ifTrue:[
"/        sourceText emphasisFrom:1 to:sourceText size add:emp.
"/    ].

    "Modified: / 28-04-2010 / 14:13:25 / cg"
!

markUnknownIdentifierFrom:pos1 to:pos2
    self 
        markFrom:pos1 to:pos2 
        withEmphasis:(preferences unknownIdentifierEmphasis) 
        color:(preferences unknownIdentifierColor)

    "Created: / 31.3.1998 / 19:09:26 / cg"
    "Modified: / 31.3.1998 / 19:10:30 / cg"
!

parseMethod
    super parseMethod.

    methodInvocationInfo notNil ifTrue:[
        (method blockInvocationInfo copy sort:[:a :b | a startPosition < b startPosition])
            do:[:eachBlockInfo |
                |pos clr|

                clr := eachBlockInfo hasBeenExecuted 
                            ifTrue:[ self colorForCoveredCode ]
                            ifFalse:[ self colorForUncoveredCode ].
                sourceText 
                    emphasizeFrom:eachBlockInfo startPosition to:eachBlockInfo endPosition 
                    with:#color->clr.
            ]
    ].

    "Created: / 28-04-2010 / 15:49:27 / cg"
! !

!CodeCoverageHighlighter class methodsFor:'documentation'!

version_CVS
    ^ '$Header: /cvs/stx/stx/libcomp/CodeCoverageHighlighter.st,v 1.2 2011-05-24 21:25:44 cg Exp $'
! !