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

CypressAbstractWriter subclass:#CypressWriter
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Cypress-New-Reader & Writer'
!

!CypressWriter class methodsFor:'documentation'!

documentation
"
    An entry point to write a package in Cypress format.
    Example:

    (CypressWriter onDirectory:'~/Projects/SmalltalkX/repositories/git/cypress/implementations/smalltalkx/packages');
        write: #'stx:goodies/cypress'.

    [author:]
        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]
        'Cypress spec' - https://github.com/CampSmalltalk/Cypress/wiki

"
! !

!CypressWriter methodsFor:'writing-model'!

writeClass: cclass as: name to: directory

    | clsdir |

    clsdir := directory / name.
    clsdir exists ifFalse:[ clsdir recursiveMakeDirectory ].

    self 
        writeProperties: cclass properties to: clsdir;
        writeComment: cclass comment to: clsdir;
        writeMethods: cclass methods to: clsdir

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

writeMethod: cmethod as: name to: directory
    | mthfile |

    mthfile := directory / name.

    self writeProperties: cmethod properties to: directory.

    mthfile writingFileDo:[:s|
        s nextPut:$"; cr.
        s nextPutAll: 'notice: '; nextPutAll: notice; cr.
        s nextPutAll: 'category: '; nextPutAll: cmethod category ? '* as yet unclassified *'; cr.
        s nextPut:$"; cr.
        s nextPutAll: cmethod source.
    ].

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

writePackage: cpackage as: name to: directory

    | pkgdir |

    notice isNil ifTrue:[ notice := cpackage definition legalCopyright ].
    pkgdir := directory / name.
    pkgdir exists ifFalse:[ pkgdir recursiveMakeDirectory ].

    self 
        writeProperties: cpackage properties to: pkgdir;
        writeComment: cpackage comment to: pkgdir;
        writeClasses: cpackage classes to: pkgdir;
        writeExtensions: cpackage extensions to: pkgdir.

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

!CypressWriter class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !