"{ Package: 'stx:goodies/cypress' }"

	classVariableNames:''

	poolDictionaries:''

	category:'Cypress-New-Reader & Writer'

!

!CypressAbstractWriter class methodsFor:'documentation'!

documentation

"

    Base abstract class for writing code in Cypress format. Subclasses may

    implement various versions of the 'standard'.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

        CypressWriter

"

! !

!CypressAbstractWriter methodsFor:'accessing'!

notice

    "Return the copyright notice to be written"

    ^notice

    "Created: / 17-09-2012 / 17:18:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

notice: aString

    "Sets the copyright notice to be written in each file"

    notice := aString.

    "Modified (comment): / 17-09-2012 / 17:19:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressAbstractWriter methodsFor:'accessing-filenames'!

directoryNameForClass: cclass

    ^((cclass name copyReplaceAll: $: with: $_) , '.', self suffixForClass).

    "Created: / 17-09-2012 / 18:11:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

directoryNameForExtensions: classname

    ^((classname copyReplaceAll: $: with: $_) , '.', self suffixForExtensions).

    "Created: / 17-09-2012 / 18:27:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

directoryNameForPackage: aCypressPackage

    ^(aCypressPackage name copy

        replaceAll:$: with: $_;

        replaceAll:$/ with: $_;

        yourself) , '.' , self suffixForPackage

    "Created: / 17-09-2012 / 17:32:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

fileNameForComment

    ^repository properties at:'commentFile' ifAbsent:['README.md']

    "Created: / 17-09-2012 / 18:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

fileNameForMethod: cmethod

    ^Dictionary new

        at: $/ put: '__quo__';

        "/Add more..."

        at: cmethod selector ifAbsent:[

            ((cmethod selector copyReplaceAll:$: with: $.) , '.st')

        ]

    "Created: / 17-09-2012 / 18:22:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

filenameNameForProperties

    ^'properties.ston'

    "Created: / 17-09-2012 / 17:38:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

suffixForClass

    ^'class'

    "Created: / 17-09-2012 / 18:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

suffixForExtensions

    ^'extension'

    "Created: / 17-09-2012 / 18:09:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

suffixForPackage

    ^'package'

    "Created: / 17-09-2012 / 18:09:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressAbstractWriter methodsFor:'writing-model'!

writeClass: cclass to: directory

    "Created: / 17-09-2012 / 18:40:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

writeMethod: cmethod to: directory

    "Created: / 17-09-2012 / 18:40:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

writePackage: cpackage to: directory

    "Created: / 17-09-2012 / 17:34:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressAbstractWriter methodsFor:'writing-utils'!

writeClasses: classes to: directory

    "Writes my classes  into 'directory' with given copyrightNotice"

    | obsolete |

    " collect possibly obsolete .class directories "

    obsolete := Set new.

    directory directoryContentsAsFilenamesDo:[:each|

        | suffix |

        each suffix = self suffixForClass ifTrue:[

            obsolete add: each.

        ]

    ].

    " write classes... "

    classes do:[:cclass|

        obsolete remove:cpsClsDir ifAbsent:[].

    ].

    " wipe out obsolete .class directories "

    obsolete do:[:each|

        each recursiveRemove.

    ].

    "Created: / 17-09-2012 / 18:12:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

writeComment: comment to: directory

    comment isNil ifTrue:[ ^ self ].

    (directory / (self fileNameForComment)) writingFileDo:[:f|

        f nextPutAll: comment

    ]

    "Created: / 17-09-2012 / 17:47:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

writeExtensions: extensions to: directory

    "Writes extensions into 'directory'/file with given copyrightNotice"

    |  obsolete extensionsPerClass |

    " group extensions by class... "

    extensionsPerClass := Dictionary new.

    extensions do:[:cpsMthd |

        (extensionsPerClass at: cpsMthd klass ifAbsentPut: [ Set new ])

            add: cpsMthd.

    ].

    " collect possibly obsolete .extension directories "

    obsolete := Set new.

    directory directoryContentsAsFilenamesDo:[:each|

        | suffix |

        each suffix = 'extension' ifTrue:[

            obsolete add: each.

        ]

    ].

    " write individual extensions... "

    extensionsPerClass keysAndValuesDo:[:name :cpsMthds |

        | cpsClsDir cpsCls |

        cpsClsDir := directory / (self directoryNameForExtensions: name).

        obsolete remove: cpsClsDir ifAbsent:[].

        cpsClsDir exists ifFalse: [ cpsClsDir makeDirectory ].

        self writeMethods: cpsMthds to: cpsClsDir.

    ].

    " wipe out obsolete .class directories "

    obsolete do:[:each|

        each recursiveRemove.

    ].

    "Created: / 17-09-2012 / 18:29:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

writeMethods: methods to:directory 

     "Writes methods into given 'directory' with copyrightNotice in each file"

    | obsolete instDir classDir |

    instDir := directory / 'instance'.

    classDir := directory / 'class'.

    " collect possibly obsolete directories/files "

    obsolete := Set new.

    instDir exists ifTrue:[

        obsolete add: instDir.

        obsolete addAll: instDir directoryContentsAsFilenames

    ].

    classDir exists ifTrue:[

        obsolete add: classDir.

        obsolete addAll: classDir directoryContentsAsFilenames

    ].

    methods do:[:cpsMthd|

        dir := cpsMthd meta ifTrue:[classDir] ifFalse:[instDir].

        dir exists ifFalse:[ dir makeDirectory ].

        baseNameWithoutSuffix := file withoutSuffix baseName.

        obsolete := obsolete reject:[:each|

            each withoutSuffix baseName = baseNameWithoutSuffix

        ].

    ].

    " wipe out obsolete directories / files  "

    obsolete do:[:each|

        each exists ifTrue:[ each recursiveRemove ]

    ].

    "Created: / 17-09-2012 / 18:29:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

writeProperties: properties to: directory

    | props propertyFile |

    props := properties copy.

    props isEmptyOrNil ifTrue:[ ^ self ].

    propertyFile := directory / self filenameNameForProperties. 

    " add notice "

    props at: '_cypress_copyright' put: notice.

    " be nice and do not discard properties of others. Merge them"

    propertyFile exists ifTrue:[

        | existing |

        existing keysAndValuesDo:[:key :value|

            (props includesKey: key) ifFalse:[

                props at: key put: value

            ]

        ]

    ].

    props isEmpty ifTrue:[

        propertyFile exist ifTrue:[

            propertyFile remove

        ]

    ] ifFalse:[

        propertyFile writingFileDo:[:s|

            props writeCypressJsonOn: s forHtml: false indent: 0.

        ]

    ].

    "Created: / 17-09-2012 / 17:38:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressAbstractWriter class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !