gistfile1.st

PackageLoader fileInPackage: #PetitParser.

Object subclass: InfoParser [
    InfoParser class >> fileParser [
        <category: 'parsers'>
        ^self sectionParser trim star
            => [:nodes | Dictionary from: nodes]
    ]

    InfoParser class >> sectionParser [
        <category: 'parsers'>
        | end any parser inside |
        end := '}}' asParser.
        parser := PP.PPUnresolvedParser new.
        inside := end not, (parser / #any asParser).
        parser def: ('{{' asParser, self commandParser, inside star flatten, end)
            => [:nodes | nodes second -> nodes third].
        ^parser
    ]

    InfoParser class >> commandParser [
        <category: 'parsers'>
        ^($: asParser, #letter asParser plus flatten, Character space asParser optional)
            => [:nodes | nodes second].
    ]

    InfoParser class >> process: aStream [
        <category: 'instance creation'>
        ^self fileParser parse: (aStream contents)
    ]
]