"

 Copyright (c) 2007-2010 Jan Vrany

 Copyright (c) 2009-2010 eXept Software AG

 Permission is hereby granted, free of charge, to any person

 obtaining a copy of this software and associated documentation

 files (the 'Software'), to deal in the Software without

 restriction, including without limitation the rights to use,

 copy, modify, merge, publish, distribute, sublicense, and/or sell

 copies of the Software, and to permit persons to whom the

 Software is furnished to do so, subject to the following

 conditions:

 The above copyright notice and this permission notice shall be

 included in all copies or substantial portions of the Software.

 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

 OTHER DEALINGS IN THE SOFTWARE.

"

        instanceVariableNames:'packageDir tmpDir cvsRoot transcript'

        classVariableNames:'CVSRoot'

        poolDictionaries:''

        category:'SVN-Tasks'

!CVSTask class methodsFor:'documentation'!

copyright

"

 Copyright (c) 2007-2010 Jan Vrany

 Copyright (c) 2009-2010 eXept Software AG

 Permission is hereby granted, free of charge, to any person

 obtaining a copy of this software and associated documentation

 files (the 'Software'), to deal in the Software without

 restriction, including without limitation the rights to use,

 copy, modify, merge, publish, distribute, sublicense, and/or sell

 copies of the Software, and to permit persons to whom the

 Software is furnished to do so, subject to the following

 conditions:

 The above copyright notice and this permission notice shall be

 included in all copies or substantial portions of the Software.

 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

 OTHER DEALINGS IN THE SOFTWARE.

"

! !

        self cvsRoot

        self cvsRoot: '/home/jv/Projects/SmalltalkX/sandbox/cvs'

        self cvsRoot: '/home/jv/Repositories/mirrors/exept2.sytes.net/cvs/stx'         

    "Modified: / 14-04-2011 / 19:44:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

        CVSTask cvsRoot: '/home/jv/Projects/SmalltalkX/repositories/cvs' 

    "Modified: / 23-09-2010 / 15:43:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

        logOn:Filename defaultTempDirectoryName pathName

                , Filename separatorString , 'convert.log'

            on: Error do:

                OperatingSystem getLoginName = 'jv' ifTrue:[ex pass].

    "Modified: / 14-04-2011 / 14:42:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CVSTask class methodsFor:'others'!

version_CVS

    ^ '$Header$'

                asSymbol.

    dir baseName = '.svn' ifTrue:[^self].

       doNormalizeVersionMethodIn: dir.

    self

        doSVNSetSvnEolStylePropertyIn: dir for: #( '*.st' );

        doSVNSetSvnKeywordPropertyIn: dir  for: #( '*.st' ).

    dir directoryContentsAsFilenames do:

        [:file|

        file isDirectory ifTrue:[self doFixPackageContentIn: file]]

    "Modified: / 14-04-2011 / 20:00:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

            [:file |

            | changeset change |

            changeset := ChangeSet fromFile: file.

            changeset isEmpty ifFalse:[change := changeset first].

            (change notNil and:[change isClassDefinitionChange])

                ifTrue:

                    [ | oldName  newName |

                    oldName := file baseName.

                    newName := (change className replaceAll: $: with: $_) , '.st'.

                    oldName ~= newName

                        ifTrue:

                            [ | sed  files |

                            self renameFile: (dir / oldName) to: (dir / newName).

                             "

                             Also, we have to update makefiles. Grrr, I hate this

                             build system.

                            "

                            files := dir directoryContentsMatching: #( 'Make.*' 'Makefile' 'makefile' '*.mak' 'abbrev.stc' ).

                            files isEmpty ifFalse:[

                            sed := (OSProcess new)

                                        executable: '/bin/sed';

                                        workdir: dir;

                                        arguments: (Array

                                                    with: '-i'

                                                    with: '-e'

                                                    with: ('"s/' , (oldName upTo: $.) , '/' , (newName upTo: $.) , '/g"'))

                                                        , (dir

                                                                directoryContentsMatching: #( 'Make.*' 'Makefile' 'makefile' '*.mak' 'abbrev.stc' ));

                                        stdout: transcript;

                                        stderr: transcript.

                            sed execute.

                            self assert: sed exitValue = 0

                                message: 'sed failed to finish properly. Check transcript'. ] ] ] ].

    "Modified: / 14-04-2011 / 20:05:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

        files isEmpty ifTrue:[^self].

                executable: '/bin/sed';

                arguments: (Array

                            with: '-i'

                            with: '-e'

                            with: 's/\r[^\n]/\n/g') , (files collect: [:e | e pathName ]);

                stdout: transcript;

                stderr: transcript.

        message: 'sed failed to finish properly. Check transcript'.

    | files sed script |

                directoryContentsAsFilenamesMatching: #( '*.st' "/ 'Make.*' 'Makefile' 'makefile' '*.mak' '*.c' '*.cc'

    ).

    files isEmpty ifTrue:[^self].

        ifTrue:

            [ files do: [:f | f copyTo: (f pathName , '~') asFilename ].

            files := files collect: [:f | (f pathName , '~') asFilename ] ].

    files do: [:file |

        self doNormalizeVersionMethodInFile: file

    ].

"/Old, probably buggy code (umlaut-remover?)

"/    sed := (OSProcess new)

"/                executable: '/bin/sed';

"/                arguments: (Array

"/                            with: '-i'

"/                            with: '-f'

"/                            with: script pathName)

"/                               , (files collect: [:e | e pathName ]);

"/                stdout: transcript;

"/                stderr: transcript.

"/    sed execute.

"/    self assert: sed exitValue = 0

"/        message: 'sed failed to finish properly. Check transcript'.

    "Modified: / 14-04-2011 / 19:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 05-07-2011 / 12:39:27 / jv"

!

doNormalizeVersionMethodInFile: file

    | tmp src dst line line2 versionMethodSelector |

    versionMethodSelector := nil.

    tmp := Filename newTemporary.

    [

        src := file asFilename readStream.

        dst := tmp writeStream.

        [ src atEnd ] whileFalse:[

            line := src nextLine.

            (line includes: '"{ Encoding: ') ifTrue:[

                (line includes: '"{ Encoding: utf8') ifTrue:[

                    src := EncodedStream stream: src encoder: CharacterEncoder encoderForUTF8.

                    dst :=  EncodedStream stream: dst encoder: CharacterEncoder encoderForUTF8.

                ] ifFalse:[

                    (line includes: '"{ Encoding: iso8859-1') ifTrue:[

                        src := EncodedStream stream: src encoder: (CharacterEncoder encoderFor:#'iso8859-1').

                        dst :=  EncodedStream stream: dst encoder: (CharacterEncoder encoderFor:#'iso8859-1')

                    ] ifFalse:[ 

                        self error: 'Unsupported encoding in a chunk, see chunk variable'.

                        ^self.

                    ]

                ]            

            ].

            ((line = 'version') or:[line startsWith: 'version_']) ifTrue:[

                versionMethodSelector := line asSymbol.

            ].

            versionMethodSelector notNil ifTrue:[

                (#(version version_SVN) includes: versionMethodSelector) ifTrue:[

                    "Fix for bad version_SVN in some .st files"

                    line =  '    ^ '' Id ''' ifTrue:[

                    line := '    ^ ''Id'''                

                    ].  

                    (line startsWith: '    ^ '' Id: ') ifTrue:[

                        line := '    ^ ''',$$,'Id: ' , (line copyFrom: 13 to: (line lastIndexOf: $') - 1) , '$'''.

                    ] ifFalse:[

                        ((line startsWith: '    ^ ''$Header: ' ) and:[versionMethodSelector == #version]) ifTrue:[

                            line := '    ^ ''', $$ , 'Id: ' , (line copyFrom: 17 to: (line lastIndexOf: $') - 1) , ''''.    

                        ].

                    ].

                    line2 := line copyReplaceAll: (Character codePoint:16rA7) "16rA7" with: $$.            

                    (line = line2) ifFalse:[versionMethodSelector := nil].

                    line := line2.

                ] ifFalse:[

                    line2 := line copyReplaceAll: $$ with: (Character codePoint:16rA7) "16rA7".            

                    (line = line2) ifFalse:[versionMethodSelector := nil].

                    line := line2.

                ].

            ].

            src atEnd ifFalse:[

                dst nextPutLine: line.

            ] ifTrue:[

                dst nextPutAll: line.

            ]

        ].

        src close.            

        dst close.

        "

            tmp contents asString.

        "

        tmp moveTo: file asFilename.

    ] ensure: [

        src close.            

        dst close.

        tmp exists ifTrue:[tmp remove].

    ]

    "

        SVN::CVSTask basicNew doNormalizeVersionMethodInFile: 

            '/tmp/stx/libbasic/LongFloat.st'

    "

    "Created: / 05-07-2011 / 18:54:54 / jv"

    "Modified: / 18-07-2011 / 15:49:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

        cvsAtticDir

            directoryContentsAsFilenamesDo:[:atticFile |

                (cvsDirContents includes:atticFile baseName) ifTrue:[

                    Transcript showCR:'removing stale file ' , atticFile baseName , ' in Attic'.

                    atticFile isDirectory 

                        ifTrue:[atticFile recursiveRemove]

                        ifFalse:[atticFile remove]

                    "/cvsAtticDir remove.

                ]

            ]

        directoryContentsAsFilenamesDo:[:file |

            (file isDirectory and:[ file baseName ~= 'Attic' ]) ifTrue:[

                self doRemoveDuplicateCommaVFilesInAtticIn:file

            ]

        ]

    "Modified: / 14-04-2011 / 18:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

        workingCopy: workingCopy;

        paths: files;

        execute

doSVNSetProperty: propName to: propValue in: dir for: files

    |  |

    self notify: 'Setting ',propName,' property to ', propValue.

    (dir asFilename / '.svn') exists ifFalse:[^self].

        workingCopy: (WorkingCopy branch: workingCopy branch path: dir);

        name:propName;

        value: propValue;

        paths: files;

        execute

    "Created: / 14-04-2011 / 17:25:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 23-04-2011 / 12:20:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doSVNSetSvnEolStylePropertyFor: files

    | realFiles |