Tools__LintService.st
changeset 18643 4979c2559134
parent 16605 759e80b6e2fb
child 19091 344b0305c9b5
equal deleted inserted replaced
18642:7e2c1db00573 18643:4979c2559134
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
     4  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
     3               All Rights Reserved
     5               All Rights Reserved
     4 
     6 
     5 Permission is hereby granted, free of charge, to any person
     7 Permission is hereby granted, free of charge, to any person
   115     "Created: / 30-01-2012 / 21:06:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   117     "Created: / 30-01-2012 / 21:06:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   116     "Modified: / 15-12-2014 / 15:40:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   118     "Modified: / 15-12-2014 / 15:40:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   117 !
   119 !
   118 
   120 
   119 annotations
   121 annotations
       
   122     | rulesToIntervalsMap annotationsPerLineMap |
       
   123 
   120     #fixme. "/ code duplication with SmalltalkLintService >> annotations
   124     #fixme. "/ code duplication with SmalltalkLintService >> annotations
   121     (highlighter notNil and:[ highlighter sequenceNumber ~~ annotationsSequenceNumber ]) ifTrue:[
   125     (highlighter notNil and:[ highlighter sequenceNumber ~~ annotationsSequenceNumber ]) ifTrue:[
   122         | rulesToIntervalsMap annotationsPerLineMap |
       
   123 
       
   124         rulesToIntervalsMap := highlighter rulesToIntervalsMap.
   126         rulesToIntervalsMap := highlighter rulesToIntervalsMap.
   125         rulesToIntervalsMap notNil ifTrue:[ 
   127         rulesToIntervalsMap notNil ifTrue:[ 
   126             annotationsPerLineMap := Dictionary new.
   128             annotationsPerLineMap := Dictionary new.
   127             rulesToIntervalsMap keysAndValuesDo:[ :rule :intervals |
   129             rulesToIntervalsMap keysAndValuesDo:[ :rule :intervals |
   128                 intervals do:[:interval | 
   130                 intervals do:[:interval | 
   152     ].
   154     ].
   153     ^annotations
   155     ^annotations
   154 
   156 
   155     "Created: / 15-12-2014 / 15:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   157     "Created: / 15-12-2014 / 15:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   156     "Modified: / 15-12-2014 / 18:41:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   158     "Modified: / 15-12-2014 / 18:41:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   159     "Modified (format): / 02-03-2019 / 12:34:13 / Claus Gittinger"
   157 !
   160 !
   158 
   161 
   159 syntaxHighlighter
   162 syntaxHighlighter
   160     | app rules |
   163     | app rules |
   161 
   164