"{ Package: 'jv:statascripteditor' }"

"{ NameSpace: Smalltalk }"

Object subclass:#StataScriptLogImporter

	instanceVariableNames:'script inCom'

	classVariableNames:''

	poolDictionaries:''

	category:'Stata Script Editor'

!

!StataScriptLogImporter methodsFor:'handling'!

characterData:aString

    (inCom and:[aString notEmptyOrNil]) ifTrue:[ 

        (aString startsWith: '. ') ifTrue:[ 

            script nextPutLine:(aString copyFrom: 3)  

        ] ifFalse:[ 

            script nextPutLine: aString  

        ].

    ].

    "Created: / 11-02-2015 / 00:32:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

tag: tag

    inCom := tag = 'com'

    "Created: / 10-02-2015 / 22:22:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!StataScriptLogImporter methodsFor:'importing'!

import: aStringOrStreamOrFilename

    | parser |

    script := String new writeStream.

    inCom := false.

    parser := StataScriptLogParser new.

    parser handler: self.  

    parser parse: aStringOrStreamOrFilename readStream.

    ^ script contents.

    "Created: / 10-02-2015 / 22:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-02-2015 / 00:32:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!StataScriptLogImporter class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !