codechecker/SmalllintReportGenerator.st
author Claus Gittinger <cg@exept.de>
Thu, 28 Mar 2019 13:54:38 +0100
changeset 542 aa25a71be62a
parent 37 0a356190f3f3
permissions -rw-r--r--
#DOCUMENTATION by cg class: stx_goodies_builder_quickSelfTest class definition class: stx_goodies_builder_quickSelfTest class added:18 methods
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/builder/codechecker' }"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Object subclass:#SmalllintReportGenerator
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'rules environment'
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Refactory-Lint'
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!SmalllintReportGenerator class methodsFor:'documentation'!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
documentation
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    a standalone smallint runner.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
    Generates an xml report compatible to pmd, to be processed by hudson.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
    [author:]
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
        Claus Gittinger
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
examples
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
"
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    24
                                                                    [exBegin]
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    |checker|
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
    checker := self new.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
    checker addPackage:'exept:workflow'.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    checker performChecks.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
    checker generateReportAs:'checkstyle.xml'
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    31
                                                                    [exEnd]
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    32
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    33
                                                                    [exBegin]
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    34
    |checker|
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    35
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    36
    checker := self new.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    37
    checker addClasses:(Workflow::Datatype withAllSubclasses).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    38
    checker performChecks.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    39
    checker generateReportAs:'checkstyle.xml'
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    40
                                                                    [exEnd]
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
! !
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
!SmalllintReportGenerator class methodsFor:'instance creation'!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
new
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
    "return an initialized instance"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
    ^ self basicNew initialize.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
! !
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!SmalllintReportGenerator methodsFor:'checking'!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
performChecks
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    rules withIndexDo:[:rule :index|
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
       Stdout showCR:('Checking: ', rule name).
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
       (SmalllintChecker runRule: rule onEnvironment: environment)
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
    ].
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
    "Created: / 07-08-2011 / 01:10:00 / cg"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
! !
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
!SmalllintReportGenerator methodsFor:'initialization'!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
initialize
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
    self setupRules.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    self setupEnvironment
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    "Modified: / 07-08-2011 / 01:14:51 / cg"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
! !
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
!SmalllintReportGenerator methodsFor:'reporting'!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
generateReportAs:aFilename
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    aFilename asFilename writingFileDo:[:s | self generateReportOn:s].
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
    "Created: / 07-08-2011 / 01:17:46 / cg"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
generateReportOn:aStream
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    81
    |perClass|
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    82
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    83
    perClass := IdentityDictionary new.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    84
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    rules do:[:eachRule | 
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
        eachRule problemCount > 0 ifTrue:[
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
            eachRule failedMethods do:[:method |
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    88
                |class perMethodAndClassMethod perMethod|
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
                class := method mclass.
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    91
                perMethodAndClassMethod := perClass at:class theNonMetaclass ifAbsentPut:[{ IdentityDictionary new. IdentityDictionary new }].
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    92
                perMethod := perMethodAndClassMethod at:(class isMeta ifTrue:[2] ifFalse:[1]).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    93
                rules := perMethod at:method ifAbsentPut:[IdentitySet new].
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    94
                rules add:eachRule.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    95
            ]
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    96
        ]
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    97
    ].
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    98
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
    99
    aStream nextPutLine: '<?xml version="1.0"?>'.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   100
    aStream nextPutLine: '<pmd>'.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   101
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   102
    perClass keysAndValuesDo:[:class :perMethodAndClassMethod |
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   103
        |fullSource sourceStream classFileName|
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   104
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   105
        fullSource := class source.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   106
        sourceStream := class localSourceStreamFor:(class classFilename).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   107
        sourceStream notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   108
            classFileName := sourceStream pathName.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   109
            sourceStream close.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   110
        ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   111
            classFileName := class packageDirectory construct:(class classFilename).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   112
        ].
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   113
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   114
        aStream nextPutLine:('  <file name="%1">' bindWith:classFileName asFilename pathName).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   115
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   116
        { (perMethodAndClassMethod at:2).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   117
          (perMethodAndClassMethod at:1) } do:[:perMethod |
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   118
            (perMethod keys copyAsOrderedCollection sort:[:a :b | a selector < b selector]) do:[:eachMethod |
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   119
                |rulesPerMethod charPosOfMethod lineNumberOfMethod|
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   120
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   121
                rulesPerMethod := perMethod at:eachMethod.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   122
                
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   123
                charPosOfMethod := eachMethod sourcePosition ? 1.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   124
                "/ q&d hack - editor knows how to compute line number - should go
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   125
                "/ somewhere else...
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   126
                lineNumberOfMethod := (ListView basicNew setList:fullSource) lineOfCharacterPosition:charPosOfMethod.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   127
                rulesPerMethod do:[:eachRule |
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   128
                    |ruleName rationale|
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   129
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   130
                    ruleName := eachRule name.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   131
                    rationale := eachRule rationale.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   132
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   133
                    aStream nextPutLine:('    <violation line="%1" rule="%2">' 
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   134
                                                        bindWith:lineNumberOfMethod with:ruleName).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   135
                    aStream nextPutLine:('%1' bindWith:rationale).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   136
                    aStream nextPutLine: '    </violation>'.
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   137
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
                ].
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
            ].
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   140
        ].
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   141
        aStream nextPutLine: '  </file>'.
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
    ].
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
    aStream nextPutLine: '</pmd>'.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
    "Created: / 07-08-2011 / 01:17:00 / cg"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
! !
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
!SmalllintReportGenerator methodsFor:'setup'!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
addClass:aClass
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
    environment addClass: aClass.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
    "Created: / 07-08-2011 / 01:11:33 / cg"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   156
addClasses:aCollectionOfClasses
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   157
    aCollectionOfClasses do:[:eachClass | self addClass: eachClass ].
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   158
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   159
    "Created: / 07-08-2011 / 11:51:52 / cg"
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   160
!
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   161
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
addPackage:aPackage
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
    Smalltalk loadPackage:aPackage.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
    Smalltalk allClassesInPackage:aPackage do:[:cls | self addClass:cls]
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
    "Created: / 07-08-2011 / 01:12:31 / cg"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
setupEnvironment
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
    environment := ClassEnvironment new.
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
    "Created: / 07-08-2011 / 01:10:56 / cg"
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
setupRules
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   176
    self setupRules:(RBCompositeLintRule allRules).
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   177
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   178
    "Created: / 07-08-2011 / 01:08:56 / cg"
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   179
!
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   181
setupRules:rulesArg
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   182
    | checks|
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   183
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   184
    checks := rulesArg rules detect:[ :each | each name = 'Lint checks' ].
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
    checks rules: (checks rules reject: [ :each | each name = 'Squeak bugs' ]).
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   187
    rules := rulesArg flattened.
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
37
Claus Gittinger <cg@exept.de>
parents: 36
diff changeset
   189
    "Created: / 07-08-2011 / 11:48:30 / cg"
36
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
! !
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
!SmalllintReportGenerator class methodsFor:'documentation'!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
version
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
    ^ '$Header$'
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
!
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
version_CVS
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
    ^ '$Header$'
2c0987f7230d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
! !