--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SrcFLoader.st	Sun Feb 26 19:21:00 1995 +0100
@@ -0,0 +1,115 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+'From Smalltalk/X, Version:2.10.4 on 24-feb-1995 at 3:12:23 am'!
+
+Object subclass:#SourceFileLoader
+	 instanceVariableNames:'myStream currentSource package'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Compiler'
+!
+
+!SourceFileLoader class methodsFor:'documentation'!
+
+version
+"
+$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.1 1995-02-26 18:21:00 claus Exp $
+"
+!
+
+documentation
+"
+    Instances of this class are created temporary during fileIn.
+    They get notified about any errors. Currently, all we
+    do here is to output the error on the Transcript;
+    eventually, we will open a box showing the position of the error.
+"
+!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+! !
+
+!SourceFileLoader class methodsFor:'instance creation'!
+
+on:aStream
+    ^ self new reader:aStream
+! !
+
+!SourceFileLoader methodsFor:'error handling'!
+
+correctableError:aMessage position:position to:endPos
+    "error notification during fileIn.
+     This is sent by the compiler/evaluator if it detects errors."
+
+    ^ self error:aMessage position:position to:endPos
+
+
+!
+
+error:aMessage position:position to:endPos
+    "error notification during fileIn.
+     This is sent by the compiler/evaluator if it detects errors."
+
+    "
+     will eventually open a TextBox here, showing the error ....
+    "
+"/    position printOn:Transcript.
+"/    Transcript show:' '.
+    Transcript showCr:aMessage.
+    ^ false
+
+!
+
+warning:aMessage position:position to:endPos
+    "warning notification during fileIn - ignore it.
+     This is sent by the compiler/evaluator if it detects errors."
+
+    ^ self
+
+! !
+
+!SourceFileLoader methodsFor:'private access'!
+
+reader:aStream
+    myStream := aStream
+! !
+
+!SourceFileLoader methodsFor:'directve processing'!
+
+setPackage:packageName
+    'code for package: ' print.
+    packageName printNL
+!
+
+requirePackage:packageName
+    'require package: ' print.
+    packageName printNL
+! !
+
+!SourceFileLoader methodsFor:'accessing'!
+
+source:aString
+    currentSource := aString
+! !
+