522 defaultApplicationQuerySignal defaultApplication |
522 defaultApplicationQuerySignal defaultApplication |
523 confirmationQuerySignal handledSignals passedSignals |
523 confirmationQuerySignal handledSignals passedSignals |
524 dontAskSignals askSomeoneForPackage redef outerContext| |
524 dontAskSignals askSomeoneForPackage redef outerContext| |
525 |
525 |
526 self skipSeparators. |
526 self skipSeparators. |
527 self peek == $< ifTrue:[ |
527 lastValue := self peek. |
|
528 lastValue == $< ifTrue:[ |
528 "/ assume, its an xml file |
529 "/ assume, its an xml file |
529 ^ self fileInXMLNotifying:someone passChunk:passChunk. |
530 ^ self fileInXMLNotifying:someone passChunk:passChunk. |
|
531 ]. |
|
532 lastValue == $# ifTrue:[ |
|
533 "assume unix interpreter name: |
|
534 '#!!stx -e' or something like this" |
|
535 self nextPeek == $!! ifTrue:[ |
|
536 "skip the unix command line" |
|
537 self nextLine |
|
538 ] ifFalse:[ |
|
539 self error:'Invalid chunk start' |
|
540 ] |
530 ]. |
541 ]. |
531 |
542 |
532 "/ support for V'Age applications |
543 "/ support for V'Age applications |
533 defaultApplicationQuerySignal := Class defaultApplicationQuerySignal. |
544 defaultApplicationQuerySignal := Class defaultApplicationQuerySignal. |
534 changeDefaultApplicationNotificationSignal := Class changeDefaultApplicationNotificationSignal. |
545 changeDefaultApplicationNotificationSignal := Class changeDefaultApplicationNotificationSignal. |