Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added #fileIn:silent:
authorClaus Gittinger <cg@exept.de>
Sun, 17 May 1998 19:59:23 +0200
changeset 3453 6bc29ebe14bb
parent 3452 95d66fc71059
child 3454 57cf0b76c28a
added #fileIn:silent:
CCReader.st file | annotate | diff | comparison | revisions
ClassCategoryReader.st file | annotate | diff | comparison | revisions 
--- a/CCReader.st	Sat May 16 20:22:24 1998 +0200
+++ b/CCReader.st	Sun May 17 19:59:23 1998 +0200
@@ -160,7 +160,14 @@
     "read method-chunks from the input stream, aStream; compile them
      and add the methods to the class defined by the class-instance var"
 
-    self fileInFrom:aStream notifying:nil passChunk:false
+    ^ self 
+        fileInFrom:aStream 
+        notifying:nil 
+        passChunk:false
+        single:false
+        silent:nil
+
+    "Modified: / 17.5.1998 / 19:58:33 / cg"
 !
 
 fileInFrom:aStream notifying:requestor passChunk:passChunk
@@ -176,8 +183,9 @@
         notifying:requestor 
         passChunk:passChunk 
         single:false
+        silent:nil
 
-    "Modified: 5.1.1997 / 03:01:26 / cg"
+    "Modified: / 17.5.1998 / 19:58:15 / cg"
 !
 
 fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly
@@ -189,9 +197,31 @@
      erronous source code.
      If oneChunkOnly is true, the fileIn is finished after the first chunk."
 
-    |aString done method compiler canMakeSourceRef sourceFile pos nm src s|
+    ^ self
+        fileInFrom:aStream 
+        notifying:requestor 
+        passChunk:passChunk 
+        single:oneChunkOnly 
+        silent:nil
+
+    "Modified: / 17.5.1998 / 19:58:05 / cg"
+!
 
-    Smalltalk silentLoading == true ifFalse:[
+fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly silent:beSilent
+    "read method-chunks from the input stream, aStream; compile them
+     and add the methods to the class defined by the class-instance var;
+     errors and notifications are passed to requestor.
+     If passChunk is true, chunks are given to the requestor,
+     via a #source: message, allowing it to open a view showing any
+     erronous source code.
+     If oneChunkOnly is true, the fileIn is finished after the first chunk.
+     The beSilent argument controls output to the transcript, if its true or
+     false. If its nil, output is controlled by the Smalltalk>>silenLoading setting."
+
+    |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
+
+    silent := beSilent ? (Smalltalk silentLoading).
+    silent == true ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
         ] ifFalse:[
@@ -323,9 +353,25 @@
     ]
 
     "Modified: / 9.9.1995 / 15:29:08 / claus"
-    "Created: / 5.9.1996 / 17:45:45 / cg"
-    "Modified: / 14.10.1997 / 16:15:38 / cg"
     "Modified: / 23.1.1998 / 15:25:01 / stefan"
+    "Created: / 17.5.1998 / 19:56:32 / cg"
+    "Modified: / 17.5.1998 / 19:57:37 / cg"
+!
+
+fileInFrom:aStream silent:beSilent
+    "read method-chunks from the input stream, aStream; compile them
+     and add the methods to the class defined by the class-instance var.
+     The beSilent argument controls if a message is to be sent to the Transcript."
+
+    ^ self 
+        fileInFrom:aStream 
+        notifying:nil 
+        passChunk:false
+        single:false
+        silent:nil
+
+    "Modified: / 17.5.1998 / 19:58:26 / cg"
+    "Created: / 17.5.1998 / 19:59:08 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -365,6 +411,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.37 1998-01-23 17:52:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.38 1998-05-17 17:59:23 cg Exp $'
 ! !
 ClassCategoryReader initialize!
--- a/ClassCategoryReader.st	Sat May 16 20:22:24 1998 +0200
+++ b/ClassCategoryReader.st	Sun May 17 19:59:23 1998 +0200
@@ -160,7 +160,14 @@
     "read method-chunks from the input stream, aStream; compile them
      and add the methods to the class defined by the class-instance var"
 
-    self fileInFrom:aStream notifying:nil passChunk:false
+    ^ self 
+        fileInFrom:aStream 
+        notifying:nil 
+        passChunk:false
+        single:false
+        silent:nil
+
+    "Modified: / 17.5.1998 / 19:58:33 / cg"
 !
 
 fileInFrom:aStream notifying:requestor passChunk:passChunk
@@ -176,8 +183,9 @@
         notifying:requestor 
         passChunk:passChunk 
         single:false
+        silent:nil
 
-    "Modified: 5.1.1997 / 03:01:26 / cg"
+    "Modified: / 17.5.1998 / 19:58:15 / cg"
 !
 
 fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly
@@ -189,9 +197,31 @@
      erronous source code.
      If oneChunkOnly is true, the fileIn is finished after the first chunk."
 
-    |aString done method compiler canMakeSourceRef sourceFile pos nm src s|
+    ^ self
+        fileInFrom:aStream 
+        notifying:requestor 
+        passChunk:passChunk 
+        single:oneChunkOnly 
+        silent:nil
+
+    "Modified: / 17.5.1998 / 19:58:05 / cg"
+!
 
-    Smalltalk silentLoading == true ifFalse:[
+fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly silent:beSilent
+    "read method-chunks from the input stream, aStream; compile them
+     and add the methods to the class defined by the class-instance var;
+     errors and notifications are passed to requestor.
+     If passChunk is true, chunks are given to the requestor,
+     via a #source: message, allowing it to open a view showing any
+     erronous source code.
+     If oneChunkOnly is true, the fileIn is finished after the first chunk.
+     The beSilent argument controls output to the transcript, if its true or
+     false. If its nil, output is controlled by the Smalltalk>>silenLoading setting."
+
+    |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
+
+    silent := beSilent ? (Smalltalk silentLoading).
+    silent == true ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
         ] ifFalse:[
@@ -323,9 +353,25 @@
     ]
 
     "Modified: / 9.9.1995 / 15:29:08 / claus"
-    "Created: / 5.9.1996 / 17:45:45 / cg"
-    "Modified: / 14.10.1997 / 16:15:38 / cg"
     "Modified: / 23.1.1998 / 15:25:01 / stefan"
+    "Created: / 17.5.1998 / 19:56:32 / cg"
+    "Modified: / 17.5.1998 / 19:57:37 / cg"
+!
+
+fileInFrom:aStream silent:beSilent
+    "read method-chunks from the input stream, aStream; compile them
+     and add the methods to the class defined by the class-instance var.
+     The beSilent argument controls if a message is to be sent to the Transcript."
+
+    ^ self 
+        fileInFrom:aStream 
+        notifying:nil 
+        passChunk:false
+        single:false
+        silent:nil
+
+    "Modified: / 17.5.1998 / 19:58:26 / cg"
+    "Created: / 17.5.1998 / 19:59:08 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -365,6 +411,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.37 1998-01-23 17:52:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.38 1998-05-17 17:59:23 cg Exp $'
 ! !
 ClassCategoryReader initialize!
hg/stx-libbasic