category:'Collections-Text-Encodings'

        decoder := CharacterEncoder encoderFor:encodingSymbol.

        "JV@2012-03-27: NO, DO NOT CHANGE POSITION!! Caller might be interested

                        in all data!!!!!!"

        "/decodedStream skipEncodingChunk.

    "Modified: / 23-08-2013 / 17:30:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!EncodedStream methodsFor:'private fileIn'!

basicFileInNotifying:someone passChunk:passChunk

    "central method to file in from the receiver, i.e. read chunks and evaluate them -

     return the value of the last chunk.

     Someone (which is usually some codeView) is notified of errors."

    |lastValue pkg nameSpace usedNameSpaces

     packageQuerySignal nameSpaceQuerySignal usedNameSpaceQuerySignal

     changeDefaultApplicationNotificationSignal

     defaultApplicationQuerySignal defaultApplication

     confirmationQuerySignal handledSignals passedSignals askSomeoneForPackage outerContext askForVariableTypeOfUndeclaredQuery|

    self skipSeparators.

    lastValue := self peek.

    lastValue == $< ifTrue:[

        "/ assume, it's an xml file

        ^ self fileInXMLNotifying:someone passChunk:passChunk.

    ].

    lastValue == $# ifTrue:[

        "assume unix interpreter name:

         '#!!stx -e' or something like this"

        self nextPeek == $!! ifTrue:[

            "skip the unix command line"

            self nextLine

        ] ifFalse:[

             self error:'Invalid chunk start'

        ]

    ].

    Smalltalk::Compiler isNil ifTrue:[

        self isFileStream ifTrue:[

            Transcript show:('[' , self pathName , '] ').

        ].

        Transcript showCR:'cannot fileIn (no compiler).'.

        ^ nil.

    ].

    "/ support for V'Age applications

    defaultApplicationQuerySignal := Class defaultApplicationQuerySignal.

    changeDefaultApplicationNotificationSignal := Class changeDefaultApplicationNotificationSignal.

    "/ support for ST/X's nameSpaces & packages

    packageQuerySignal := Class packageQuerySignal.

    nameSpaceQuerySignal := Class nameSpaceQuerySignal.

    usedNameSpaceQuerySignal := Class usedNameSpaceQuerySignal.

    (someone respondsTo:#packageToInstall) ifTrue:[

        pkg := someone packageToInstall.

        askSomeoneForPackage := true.

    ] ifFalse:[

        pkg := packageQuerySignal query.

        askSomeoneForPackage := false.

    ].

    (someone respondsTo:#currentNameSpace) ifTrue:[

        nameSpace := someone currentNameSpace

    ] ifFalse:[

        nameSpace := nameSpaceQuerySignal query.

    ].

    (someone respondsTo:#usedNameSpaces) ifTrue:[

        usedNameSpaces := someone usedNameSpaces

    ] ifFalse:[

        usedNameSpaces := usedNameSpaceQuerySignal query.

    ].

    (someone respondsTo:#defaultApplication) ifTrue:[

        defaultApplication := someone defaultApplication

    ] ifFalse:[

        defaultApplication := defaultApplicationQuerySignal query.

    ].

    confirmationQuerySignal := Metaclass confirmationQuerySignal.

    handledSignals := SignalSet new.

    passedSignals := IdentitySet new.

    handledSignals add:changeDefaultApplicationNotificationSignal.

    passedSignals add:changeDefaultApplicationNotificationSignal.

    handledSignals add:defaultApplicationQuerySignal.

    passedSignals add:defaultApplicationQuerySignal.

    handledSignals add:packageQuerySignal.

    handledSignals add:usedNameSpaceQuerySignal.

    handledSignals add:nameSpaceQuerySignal.

    handledSignals add:confirmationQuerySignal.

    passedSignals add:confirmationQuerySignal.

    Parser notNil ifTrue:[

        "only if libcomp is present"

        "Also catch a 'Parser askForVariableTypeOfUndeclaredQuery' and proceed with nil. 

         Imagine somebody has autodefine workspace variables on and then 

         evaluate Smalltalk loadPackage:'xyz' that loads code from source (using file-in), 

         certainly we don't want to compile workspace variable access for every

         not-yet-loaded class in some namespace. 

         This is demonstrated by Regression::CompilerTests2>>test_01 

         and this change actually fixes this test."

        askForVariableTypeOfUndeclaredQuery := Parser askForVariableTypeOfUndeclaredQuery.

        handledSignals add:askForVariableTypeOfUndeclaredQuery.

    ].

    outerContext := thisContext.

    handledSignals handle:[:ex |

        |sig|

        sig := ex creator.

        ((passedSignals includes:sig) and:[sig isHandledIn:outerContext]) ifTrue:[

            ex reject

        ].

        sig == changeDefaultApplicationNotificationSignal ifTrue:[

            "/ invoked via #becomeDefault to set the defaultApp and the package.

            "/ (only when filing in V'Age code)

            defaultApplication := ex parameter.

            pkg := defaultApplication name asSymbol.

            ex proceedWith:nil

        ].

        sig == defaultApplicationQuerySignal ifTrue:[

            "/ query for the application to add classes & methods into

            "/ (only when filing in V'Age code)

            ex proceedWith:defaultApplication

        ].

        sig == packageQuerySignal ifTrue:[

            "answer the package to use for classes & methods"

            askSomeoneForPackage ifTrue:[

                ex proceedWith:someone packageToInstall

            ] ifFalse:[

                ex proceedWith:pkg

            ]

        ].

        sig == usedNameSpaceQuerySignal ifTrue:[

            "answer the nameSpaces to be searched when encountering globals"

            ex proceedWith:usedNameSpaces

        ].

        sig == nameSpaceQuerySignal ifTrue:[

            "answer the nameSpace to install new classes in"

            ex proceedWith:nameSpace

        ].

        sig == confirmationQuerySignal ifTrue:[

            "don't pop up dialogs"

            ex proceedWith:false

        ].

        sig == askForVariableTypeOfUndeclaredQuery ifTrue:[

           "no autodefined variables or so"

            ex proceedWith:nil.

        ].

    ] do:[

        [self atEnd] whileFalse:[

            lastValue := self fileInNextChunkNotifying:someone passChunk:passChunk

        ]

    ].

    ^ lastValue

    "Modified: / 10.9.1999 / 16:54:01 / stefan"

    "Modified: / 16.11.2001 / 16:21:28 / cg"

    "Modified: / 18-03-2013 / 17:45:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

    "Created: / 04-02-2014 / 20:27:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"