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

Object subclass:#CypressModel

	instanceVariableNames:'name properties'

	classVariableNames:''

	poolDictionaries:''

	category:'Cypress-New-Model'

!

!CypressModel class methodsFor:'documentation'!

documentation

"

    An abstract class to model packages, classes and methods.

    [author:]

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

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!CypressModel methodsFor:'accessing'!

name

    ^ name

!

!

package

    "Returns a CypressPackage which the receiver belongs to"

    ^self subclassResponsibility

    "Created: / 10-09-2012 / 23:42:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

properties

    ^ properties

! !

!CypressModel methodsFor:'reading & writing'!

readFrom: filename

    "Initializes the receiver from directory/file named 'filename'"

    self subclassResponsibility

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

!

writeTo: directory notice: copyrightNotice

    "Writes the receiver into given 'directory' with

     copyrightNotice in each file"

    self subclassResponsibility

    "Created: / 11-09-2012 / 00:16:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressModel methodsFor:'reading & writing - private'!

writePropertiesTo: directory notice: copyrightNotice

    | props propertyFile |

    props := self properties copy.

    props isEmpty ifTrue:[ ^ self ].

    propertyFile := directory / 'properties.ston'.

    " add notice "

    props at: '_cypress_copyright' put: copyrightNotice.

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

    propertyFile exists ifTrue:[

        | existing |

        existing := CypressJsonParser parse: propertyFile.

        existing keysAndValuesDo:[:key :value|

            (props includesKey: key) ifFalse:[

                props at: key put: value

            ]

        ]

    ].

    propertyFile writingFileDo:[:s|

        props writeCypressJsonOn: s forHtml: false indent: 0.

    ]

    "Created: / 11-09-2012 / 00:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressModel class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !