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

CypressAbstractReader subclass:#CypressReader

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Cypress-New-Reader & Writer'

!

!CypressReader class methodsFor:'documentation'!

documentation

"

    A reader to read packages in Cypress format.

    [author:]

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

    [instance variables:]

    [class variables:]

    [see also:]

        'Cypress spec' - https://github.com/CampSmalltalk/Cypress/wiki

"

! !

!CypressReader methodsFor:'reading-private'!

readMethod: name from: directory

    | mthdfile mthd |

    mthdfile := directory / name.

    mthdfile exists ifFalse:[

        mthdfile := mthdfile withSuffix: self defaultFileSuffixForMethod.

    ].

    mthdfile exists ifFalse:[

        self error: 'No such method in ', directory pathName.

        ^nil.

    ].

    mthd := CypressMethod new.

    mthdfile readingFileDo:[:s|

        | line |

        "Method file starts with following four lines: 

                1. a single double-quote 

                2. 'notice: ' + the contents of the copyrightLine property (see above) 

                3. 'category: ' + method category/protocol 

                4. a single double-quote"

        (line := s nextLine) ~= '"' ifTrue:[ self error: 'Malformed method file'. ^nil].

        ((line := s nextLine) startsWith:'notice: ') ifTrue:[ self error: 'Malformed method file - expecing notice on second line'. ^nil].

        ((line := s nextLine) startsWith:'category: ') ifTrue:[ self error: 'Malformed method file - expecing category on third line'. ^nil].

        mthd category: (line copyFrom: 'category: ' size + 1).

        (line := s nextLine) ~= '"' ifTrue:[ self error: 'Malformed method file'. ^nil].

        mthd source: s upToEnd.

    ].

    ^mthd

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

! !

!CypressReader class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !