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.
prints replaced by infoPrint
authorClaus Gittinger <cg@exept.de>
Sun, 17 Dec 1995 16:20:23 +0100
changeset 784 0811a8196743
parent 783 78a9b311241f
child 785 c666457288e1
prints replaced by infoPrint
CCReader.st file | annotate | diff | comparison | revisions
ClassCategoryReader.st file | annotate | diff | comparison | revisions 
--- a/CCReader.st	Sat Dec 16 18:24:21 1995 +0100
+++ b/CCReader.st	Sun Dec 17 16:20:23 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#ClassCategoryReader
-	 instanceVariableNames:'myClass myCategory privacy ignore primSpec'
-	 classVariableNames:'KeepSource'
-	 poolDictionaries:''
-	 category:'Kernel-Support'
+	instanceVariableNames:'myClass myCategory privacy ignore primSpec'
+	classVariableNames:'KeepSource'
+	poolDictionaries:''
+	category:'Kernel-Support'
 !
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -99,94 +99,95 @@
     |aString done method compiler makeSourceRef sourceFile pos nm|
 
     ignore ifFalse:[
-	Smalltalk silentLoading ifFalse:[
-	    myClass isNil ifTrue:[
-		nm := '** UndefinedClass **'
-	    ] ifFalse:[
-		nm := myClass name
-	    ].
-	    Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
-	].
+        Smalltalk silentLoading ifFalse:[
+            myClass isNil ifTrue:[
+                nm := '** UndefinedClass **'
+            ] ifFalse:[
+                nm := myClass name
+            ].
+            Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
+        ].
 
-	makeSourceRef := false.
-	KeepSource == false ifTrue:[
-	    aStream isFileStream ifTrue:[
-		sourceFile := aStream pathName.
-		sourceFile printNL.
-		makeSourceRef := true.
-	    ]
-	].
+        makeSourceRef := false.
+        KeepSource == false ifTrue:[
+            aStream isFileStream ifTrue:[
+                sourceFile := aStream pathName.
+"/                sourceFile printNL.
+                makeSourceRef := true.
+            ]
+        ].
     ].
 
     done := false.
     [done] whileFalse:[
-	done := aStream atEnd.
-	done ifFalse:[
-	    makeSourceRef ifTrue:[
-		pos := aStream position
-	    ].
-	    aString := aStream nextChunk.
-	    done := aString isNil or:[aString isEmpty].
-	    done ifFalse:[
-		primSpec notNil ifTrue:[
-		    myClass perform:primSpec with:aString.
-		    "
-		     ignore rest
-		    "
-		    ignore := true
-		].
-		ignore ifFalse:[
-		    passChunk ifTrue:[
-			requestor source:aString
-		    ].
+        done := aStream atEnd.
+        done ifFalse:[
+            makeSourceRef ifTrue:[
+                pos := aStream position
+            ].
+            aString := aStream nextChunk.
+            done := aString isNil or:[aString isEmpty].
+            done ifFalse:[
+                primSpec notNil ifTrue:[
+                    myClass perform:primSpec with:aString.
+                    "
+                     ignore rest
+                    "
+                    ignore := true
+                ].
+                ignore ifFalse:[
+                    passChunk ifTrue:[
+                        requestor source:aString
+                    ].
 
-		    compiler := myClass compilerClass.
+                    compiler := myClass compilerClass.
 
-		    "/
-		    "/ kludge - for now;
-		    "/ have to make ST/X's compiler protocol be compatible to ST-80's
-		    "/ for other compilers to work ... (TGEN for example)
-		    "/
-		    (compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:)
-		    ifTrue:[
-			"/ ST/X's compiler
-			method :=compiler
-				     compile:aString
-				     forClass:myClass
-				     inCategory:myCategory
-				     notifying:requestor
-				     install:true
-				     skipIfSame:true.
+                    "/
+                    "/ kludge - for now;
+                    "/ have to make ST/X's compiler protocol be compatible to ST-80's
+                    "/ for other compilers to work ... (TGEN for example)
+                    "/
+                    (compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:)
+                    ifTrue:[
+                        "/ ST/X's compiler
+                        method :=compiler
+                                     compile:aString
+                                     forClass:myClass
+                                     inCategory:myCategory
+                                     notifying:requestor
+                                     install:true
+                                     skipIfSame:true.
 
-			makeSourceRef ifTrue:[
-			    method source = aString ifTrue:[
-				method sourceFilename:sourceFile position:pos 
-			    ]
-			]
-		    ] ifFalse:[
-			"/ some generated (TGEN) compiler
-			method := compiler new
-				      compile:aString 
-				      in:myClass 
-				      notifying:requestor 
-				      ifFail:nil
-		    ].
+                        makeSourceRef ifTrue:[
+                            method source = aString ifTrue:[
+                                method sourceFilename:sourceFile position:pos 
+                            ]
+                        ]
+                    ] ifFalse:[
+                        "/ some generated (TGEN) compiler
+                        method := compiler new
+                                      compile:aString 
+                                      in:myClass 
+                                      notifying:requestor 
+                                      ifFail:nil
+                    ].
 
-		    privacy notNil ifTrue:[
-			privacy == #private ifTrue:[
-			    method setToPrivate
-			] ifFalse:[
-			    privacy == #protected ifTrue:[
-				method setToProtected
-			    ]
-			]
-		    ]
-		]
-	    ]
-	]
+                    privacy notNil ifTrue:[
+                        privacy == #private ifTrue:[
+                            method setToPrivate
+                        ] ifFalse:[
+                            privacy == #protected ifTrue:[
+                                method setToProtected
+                            ]
+                        ]
+                    ]
+                ]
+            ]
+        ]
     ]
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
+    "Modified: 17.12.1995 / 16:01:47 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -224,6 +225,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.23 1995-12-07 21:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.24 1995-12-17 15:20:23 cg Exp $'
 ! !
 ClassCategoryReader initialize!
--- a/ClassCategoryReader.st	Sat Dec 16 18:24:21 1995 +0100
+++ b/ClassCategoryReader.st	Sun Dec 17 16:20:23 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#ClassCategoryReader
-	 instanceVariableNames:'myClass myCategory privacy ignore primSpec'
-	 classVariableNames:'KeepSource'
-	 poolDictionaries:''
-	 category:'Kernel-Support'
+	instanceVariableNames:'myClass myCategory privacy ignore primSpec'
+	classVariableNames:'KeepSource'
+	poolDictionaries:''
+	category:'Kernel-Support'
 !
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -99,94 +99,95 @@
     |aString done method compiler makeSourceRef sourceFile pos nm|
 
     ignore ifFalse:[
-	Smalltalk silentLoading ifFalse:[
-	    myClass isNil ifTrue:[
-		nm := '** UndefinedClass **'
-	    ] ifFalse:[
-		nm := myClass name
-	    ].
-	    Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
-	].
+        Smalltalk silentLoading ifFalse:[
+            myClass isNil ifTrue:[
+                nm := '** UndefinedClass **'
+            ] ifFalse:[
+                nm := myClass name
+            ].
+            Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
+        ].
 
-	makeSourceRef := false.
-	KeepSource == false ifTrue:[
-	    aStream isFileStream ifTrue:[
-		sourceFile := aStream pathName.
-		sourceFile printNL.
-		makeSourceRef := true.
-	    ]
-	].
+        makeSourceRef := false.
+        KeepSource == false ifTrue:[
+            aStream isFileStream ifTrue:[
+                sourceFile := aStream pathName.
+"/                sourceFile printNL.
+                makeSourceRef := true.
+            ]
+        ].
     ].
 
     done := false.
     [done] whileFalse:[
-	done := aStream atEnd.
-	done ifFalse:[
-	    makeSourceRef ifTrue:[
-		pos := aStream position
-	    ].
-	    aString := aStream nextChunk.
-	    done := aString isNil or:[aString isEmpty].
-	    done ifFalse:[
-		primSpec notNil ifTrue:[
-		    myClass perform:primSpec with:aString.
-		    "
-		     ignore rest
-		    "
-		    ignore := true
-		].
-		ignore ifFalse:[
-		    passChunk ifTrue:[
-			requestor source:aString
-		    ].
+        done := aStream atEnd.
+        done ifFalse:[
+            makeSourceRef ifTrue:[
+                pos := aStream position
+            ].
+            aString := aStream nextChunk.
+            done := aString isNil or:[aString isEmpty].
+            done ifFalse:[
+                primSpec notNil ifTrue:[
+                    myClass perform:primSpec with:aString.
+                    "
+                     ignore rest
+                    "
+                    ignore := true
+                ].
+                ignore ifFalse:[
+                    passChunk ifTrue:[
+                        requestor source:aString
+                    ].
 
-		    compiler := myClass compilerClass.
+                    compiler := myClass compilerClass.
 
-		    "/
-		    "/ kludge - for now;
-		    "/ have to make ST/X's compiler protocol be compatible to ST-80's
-		    "/ for other compilers to work ... (TGEN for example)
-		    "/
-		    (compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:)
-		    ifTrue:[
-			"/ ST/X's compiler
-			method :=compiler
-				     compile:aString
-				     forClass:myClass
-				     inCategory:myCategory
-				     notifying:requestor
-				     install:true
-				     skipIfSame:true.
+                    "/
+                    "/ kludge - for now;
+                    "/ have to make ST/X's compiler protocol be compatible to ST-80's
+                    "/ for other compilers to work ... (TGEN for example)
+                    "/
+                    (compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:)
+                    ifTrue:[
+                        "/ ST/X's compiler
+                        method :=compiler
+                                     compile:aString
+                                     forClass:myClass
+                                     inCategory:myCategory
+                                     notifying:requestor
+                                     install:true
+                                     skipIfSame:true.
 
-			makeSourceRef ifTrue:[
-			    method source = aString ifTrue:[
-				method sourceFilename:sourceFile position:pos 
-			    ]
-			]
-		    ] ifFalse:[
-			"/ some generated (TGEN) compiler
-			method := compiler new
-				      compile:aString 
-				      in:myClass 
-				      notifying:requestor 
-				      ifFail:nil
-		    ].
+                        makeSourceRef ifTrue:[
+                            method source = aString ifTrue:[
+                                method sourceFilename:sourceFile position:pos 
+                            ]
+                        ]
+                    ] ifFalse:[
+                        "/ some generated (TGEN) compiler
+                        method := compiler new
+                                      compile:aString 
+                                      in:myClass 
+                                      notifying:requestor 
+                                      ifFail:nil
+                    ].
 
-		    privacy notNil ifTrue:[
-			privacy == #private ifTrue:[
-			    method setToPrivate
-			] ifFalse:[
-			    privacy == #protected ifTrue:[
-				method setToProtected
-			    ]
-			]
-		    ]
-		]
-	    ]
-	]
+                    privacy notNil ifTrue:[
+                        privacy == #private ifTrue:[
+                            method setToPrivate
+                        ] ifFalse:[
+                            privacy == #protected ifTrue:[
+                                method setToProtected
+                            ]
+                        ]
+                    ]
+                ]
+            ]
+        ]
     ]
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
+    "Modified: 17.12.1995 / 16:01:47 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -224,6 +225,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.23 1995-12-07 21:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.24 1995-12-17 15:20:23 cg Exp $'
 ! !
 ClassCategoryReader initialize!
hg/stx-libbasic