"{ Package: 'stx:goodies/builder/reports' }"

"{ NameSpace: Builder }"

ReportSourceInfo subclass:#ReportExtensionsSourceInfo

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Builder-Reports-Utils'

!

!ReportExtensionsSourceInfo methodsFor:'initialization'!

initializeWithPackage: pkg

    package := pkg.

    self setup.

    "Created: / 29-07-2013 / 18:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ReportExtensionsSourceInfo methodsFor:'utilities'!

fileOutOn: streamArg

    "This code is stupid as it is a copy-paste of several methods here and there that

     files out an extension.st. But the the original code is so rubbish so I had

     to do it this way. Sorry."

    | extensions wide stream s methodsSortedByName defClass scmManagerOrNil |

    extensions := ProjectDefinition searchForExtensionsWithProject: package.     

    wide := false.

    stream := streamArg.

    extensions do:[:method|

        wide := wide or:[method source isWideString].

    ].

    wide ifTrue:[

        stream := EncodedStream stream: stream encoder: (CharacterEncoder encoderForUTF8).      

        stream nextPutAll: '"{ Encoding: utf8 }"'; cr;cr.

    ].

    s := stream.

    s nextPutAll:'"{ Package: '''.

    s nextPutAll:package asString.

    s nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr.

    "/ don't write a timestamp. Otherwise we would always generate a new version, even if nothing changed

    "/ s nextPutAll:(Smalltalk timeStamp).

    "/ s nextPutChunkSeparator. 

    "/ s cr; cr.

    "/ sort them by name (to avoid conflicts due to SCM merge)

    methodsSortedByName := extensions asOrderedCollection.

    methodsSortedByName sort:[:a :b |

                                |clsA clsB|

                                clsA := a mclass name.

                                clsB := b mclass name.

                                clsA < clsB ifTrue:[

                                    true

                                ] ifFalse:[

                                    clsA > clsB ifTrue:[

                                        false

                                    ] ifFalse:[

                                        a selector < b selector

                                    ]

                                ]

                              ].

    methodsSortedByName do:[:aMethod |

        |cat source privacy aStream|

        aStream := s.

    aStream nextPutChunkSeparator.

    aMethod mclass name printOn:aStream.

"/        self printClassNameOn:aStream.

    (privacy := aMethod privacy) ~~ #public ifTrue:[

        aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.

    ] ifFalse:[

        aStream nextPutAll:' methodsFor:'.

    ].

    cat := aMethod category ? ''.

    aStream nextPutAll:cat asString storeString.

    aStream nextPutChunkSeparator; cr; cr.

    SmalltalkChunkFileSourceWriter new fileOutMethod:aMethod on:aStream.

    aStream space.

    aStream nextPutChunkSeparator.

            aStream cr.    

        s cr.

    ].

    scmManagerOrNil := AbstractSourceCodeManager managerForPackage: package.

    scmManagerOrNil notNil ifTrue:[

        defClass := ProjectDefinition definitionClassForPackage:package.

        defClass notNil ifTrue:[

            "/ make sure, an extensionVersion_XXX method is included...

            "/ (notice: no need to support a secondary backward compatible non-manager related version method here)

            (methodsSortedByName contains:[:aMethod | aMethod selector == scmManagerOrNil nameOfVersionMethodForExtensions]) ifFalse:[

                s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).

                s cr.

                s nextChunkPut:

                    (scmManagerOrNil versionMethodTemplateForSmalltalkFor:(scmManagerOrNil nameOfVersionMethodForExtensions)).

                s space; nextPutChunkSeparator; cr.

            ].

        ].

    ].

    "Modified (comment): / 29-07-2013 / 17:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

validate

    | file |

    file := (Smalltalk getPackageDirectoryForPackage: package) / 'extensions.st'.                       

    ^ self validateAgainstReference: file.

    "Modified: / 29-07-2013 / 14:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ReportExtensionsSourceInfo class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !