Mercurial Mercurial > hg > stx-libbasic3 / 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.
*** empty log message ***
authorclaus
Sat, 18 Mar 1995 06:08:15 +0100
changeset 24 10e1150b1f4b
parent 23 a85cd774be98
child 25 e672a78c4cd3
*** empty log message ***
CallChain.st file | annotate | diff | comparison | revisions
MessageTally.st file | annotate | diff | comparison | revisions
MessageTracer.st file | annotate | diff | comparison | revisions
MsgTally.st file | annotate | diff | comparison | revisions
MsgTracer.st file | annotate | diff | comparison | revisions
ProfileTree.st file | annotate | diff | comparison | revisions 
--- a/CallChain.st	Thu Mar 09 11:46:36 1995 +0100
+++ b/CallChain.st	Sat Mar 18 06:08:15 1995 +0100
@@ -1,14 +1,32 @@
+"
+ 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 8-mar-1995 at 15:00:52'!
 
 Object subclass:#CallChain
 	 instanceVariableNames:'receiver selector class isBlock rest'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'System-Profiler'
+	 category:'System-Debugging-Support'
 !
 
 !CallChain class methodsFor:'documentation'!
 
+version
+"
+$Header: /cvs/stx/stx/libbasic3/CallChain.st,v 1.3 1995-03-18 05:07:17 claus Exp $
+"
+!
+
 documentation
 "
     This is is used as a companion to MessageTally.
@@ -16,6 +34,20 @@
     (MessageTally could have used the contexts themself, but these
      may create more overhead)
 "
+!
+
+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.
+"
 ! !
 
 !CallChain methodsFor:'accessing'!
@@ -62,4 +94,3 @@
     selector == someInfo selector ifFalse:[^ false].
     ^ class == someInfo methodClass
 ! !
-
--- a/MessageTally.st	Thu Mar 09 11:46:36 1995 +0100
+++ b/MessageTally.st	Sat Mar 18 06:08:15 1995 +0100
@@ -17,14 +17,14 @@
 	 instanceVariableNames:'process tree ntally theBlock spyInterval'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'System-Profiler'
+	 category:'System-Debugging-Support'
 !
 
 !MessageTally class methodsFor:'documentation'!
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.8 1995-03-08 23:41:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.9 1995-03-18 05:07:49 claus Exp $
 "
 !
 
@@ -76,7 +76,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 ! !
 
 !MessageTally class methodsFor:'instance creation'!
@@ -90,32 +89,32 @@
     runTime := aTally spyOn:aBlock interval:ms.
 
     aTally tree isNil ifTrue:[
-        Transcript cr.
-        Transcript showCr:'TALLY: No probes - execution time too short;'.
-        Transcript showCr:'TALLY: retry using: spyOn:[n timesRepeat:[...]]'.
+	Transcript cr.
+	Transcript showCr:'TALLY: No probes - execution time too short;'.
+	Transcript showCr:'TALLY: retry using: spyOn:[n timesRepeat:[...]]'.
     ] ifFalse:[
-        "/ aTally tree inspect.
-        nTally := aTally nTally.
-        Transcript cr.
-        Transcript showCr:('total execution time: '
-                           , runTime printString , ' ms '
-                           , '(' , nTally printString , ' probes ;'
-                           , ' error >= ' 
-                           , (1000 // nTally / 10.0) printString
-                           , '%)').
-        Transcript cr.
-        aTally tree printOn:Transcript.
-        Transcript cr.
-        Transcript cr.
+	"/ aTally tree inspect.
+	nTally := aTally nTally.
+	Transcript cr.
+	Transcript showCr:('total execution time: '
+			   , runTime printString , ' ms '
+			   , '(' , nTally printString , ' probes ;'
+			   , ' error >= ' 
+			   , (1000 // nTally / 10.0) printString
+			   , '%)').
+	Transcript cr.
+	aTally tree printOn:Transcript.
+	Transcript cr.
+	Transcript cr.
 
-        Transcript showCr:'leafs of calling tree:'.
-        Transcript cr.
-        aTally tree printLeafsOn:Transcript.
-        Transcript cr.
+	Transcript showCr:'leafs of calling tree:'.
+	Transcript cr.
+	aTally tree printLeafsOn:Transcript.
+	Transcript cr.
 
-        "
-        aTally statistics.
-        "
+	"
+	aTally statistics.
+	"
     ].
 
     "
@@ -171,30 +170,30 @@
     theBlock := aBlock.
 
     Processor activeProcess withPriority:23 do:[
-        process := [
-                        [
-                            self execute
-                        ] valueNowOrOnUnwindDo:[
-                            running := false.
-                            theBlock := nil.
-                        ]
-                   ] newProcess.
+	process := [
+			[
+			    self execute
+			] valueNowOrOnUnwindDo:[
+			    running := false.
+			    theBlock := nil.
+			]
+		   ] newProcess.
 
-        Processor activeProcess withPriority:24 do:[
-            startTime := OperatingSystem getMillisecondTime.
-            delay := (Delay forMilliseconds:ms).
+	Processor activeProcess withPriority:24 do:[
+	    startTime := OperatingSystem getMillisecondTime.
+	    delay := (Delay forMilliseconds:ms).
 
-            ntally := 0.
-            running := true.
-            process resume.
+	    ntally := 0.
+	    running := true.
+	    process resume.
 
-            [running] whileTrue:[
-                delay wait.
-                self count:process suspendedContext
-            ].
+	    [running] whileTrue:[
+		delay wait.
+		self count:process suspendedContext
+	    ].
 
-            endTime := OperatingSystem getMillisecondTime.
-        ].    
+	    endTime := OperatingSystem getMillisecondTime.
+	].    
     ].    
 
     tree notNil ifTrue:[tree computePercentage:ntally].
--- a/MessageTracer.st	Thu Mar 09 11:46:36 1995 +0100
+++ b/MessageTracer.st	Sat Mar 18 06:08:15 1995 +0100
@@ -14,14 +14,14 @@
        instanceVariableNames:'traceDetail'
        classVariableNames:'BreakpointSignal CallingLevel'
        poolDictionaries:''
-       category:'System-Support'
+       category:'System-Debugging-Support'
 !
 
 MessageTracer comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.10 1995-03-08 23:41:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.11 1995-03-18 05:07:55 claus Exp $
 '!
 
 !MessageTracer class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.10 1995-03-08 23:41:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.11 1995-03-18 05:07:55 claus Exp $
 "
 !
 
--- a/MsgTally.st	Thu Mar 09 11:46:36 1995 +0100
+++ b/MsgTally.st	Sat Mar 18 06:08:15 1995 +0100
@@ -17,14 +17,14 @@
 	 instanceVariableNames:'process tree ntally theBlock spyInterval'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'System-Profiler'
+	 category:'System-Debugging-Support'
 !
 
 !MessageTally class methodsFor:'documentation'!
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/Attic/MsgTally.st,v 1.8 1995-03-08 23:41:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/Attic/MsgTally.st,v 1.9 1995-03-18 05:07:49 claus Exp $
 "
 !
 
@@ -76,7 +76,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 ! !
 
 !MessageTally class methodsFor:'instance creation'!
@@ -90,32 +89,32 @@
     runTime := aTally spyOn:aBlock interval:ms.
 
     aTally tree isNil ifTrue:[
-        Transcript cr.
-        Transcript showCr:'TALLY: No probes - execution time too short;'.
-        Transcript showCr:'TALLY: retry using: spyOn:[n timesRepeat:[...]]'.
+	Transcript cr.
+	Transcript showCr:'TALLY: No probes - execution time too short;'.
+	Transcript showCr:'TALLY: retry using: spyOn:[n timesRepeat:[...]]'.
     ] ifFalse:[
-        "/ aTally tree inspect.
-        nTally := aTally nTally.
-        Transcript cr.
-        Transcript showCr:('total execution time: '
-                           , runTime printString , ' ms '
-                           , '(' , nTally printString , ' probes ;'
-                           , ' error >= ' 
-                           , (1000 // nTally / 10.0) printString
-                           , '%)').
-        Transcript cr.
-        aTally tree printOn:Transcript.
-        Transcript cr.
-        Transcript cr.
+	"/ aTally tree inspect.
+	nTally := aTally nTally.
+	Transcript cr.
+	Transcript showCr:('total execution time: '
+			   , runTime printString , ' ms '
+			   , '(' , nTally printString , ' probes ;'
+			   , ' error >= ' 
+			   , (1000 // nTally / 10.0) printString
+			   , '%)').
+	Transcript cr.
+	aTally tree printOn:Transcript.
+	Transcript cr.
+	Transcript cr.
 
-        Transcript showCr:'leafs of calling tree:'.
-        Transcript cr.
-        aTally tree printLeafsOn:Transcript.
-        Transcript cr.
+	Transcript showCr:'leafs of calling tree:'.
+	Transcript cr.
+	aTally tree printLeafsOn:Transcript.
+	Transcript cr.
 
-        "
-        aTally statistics.
-        "
+	"
+	aTally statistics.
+	"
     ].
 
     "
@@ -171,30 +170,30 @@
     theBlock := aBlock.
 
     Processor activeProcess withPriority:23 do:[
-        process := [
-                        [
-                            self execute
-                        ] valueNowOrOnUnwindDo:[
-                            running := false.
-                            theBlock := nil.
-                        ]
-                   ] newProcess.
+	process := [
+			[
+			    self execute
+			] valueNowOrOnUnwindDo:[
+			    running := false.
+			    theBlock := nil.
+			]
+		   ] newProcess.
 
-        Processor activeProcess withPriority:24 do:[
-            startTime := OperatingSystem getMillisecondTime.
-            delay := (Delay forMilliseconds:ms).
+	Processor activeProcess withPriority:24 do:[
+	    startTime := OperatingSystem getMillisecondTime.
+	    delay := (Delay forMilliseconds:ms).
 
-            ntally := 0.
-            running := true.
-            process resume.
+	    ntally := 0.
+	    running := true.
+	    process resume.
 
-            [running] whileTrue:[
-                delay wait.
-                self count:process suspendedContext
-            ].
+	    [running] whileTrue:[
+		delay wait.
+		self count:process suspendedContext
+	    ].
 
-            endTime := OperatingSystem getMillisecondTime.
-        ].    
+	    endTime := OperatingSystem getMillisecondTime.
+	].    
     ].    
 
     tree notNil ifTrue:[tree computePercentage:ntally].
--- a/MsgTracer.st	Thu Mar 09 11:46:36 1995 +0100
+++ b/MsgTracer.st	Sat Mar 18 06:08:15 1995 +0100
@@ -14,14 +14,14 @@
        instanceVariableNames:'traceDetail'
        classVariableNames:'BreakpointSignal CallingLevel'
        poolDictionaries:''
-       category:'System-Support'
+       category:'System-Debugging-Support'
 !
 
 MessageTracer comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.10 1995-03-08 23:41:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.11 1995-03-18 05:07:55 claus Exp $
 '!
 
 !MessageTracer class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.10 1995-03-08 23:41:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.11 1995-03-18 05:07:55 claus Exp $
 "
 !
 
--- a/ProfileTree.st	Thu Mar 09 11:46:36 1995 +0100
+++ b/ProfileTree.st	Sat Mar 18 06:08:15 1995 +0100
@@ -1,19 +1,51 @@
+"
+ 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 8-mar-1995 at 22:37:26'!
 
 Object subclass:#ProfileTree
 	 instanceVariableNames:'receiver selector class leafTally totalTally called isBlock'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'System-Profiler'
+	 category:'System-Debugging-Support'
 !
 
 !ProfileTree class methodsFor:'documentation'!
 
+version
+"
+$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.3 1995-03-18 05:08:15 claus Exp $
+"
+!
+
 documentation
 "
     This is is used as a companion to MessageTally.
     Instances of it are used to represent the calling tree.
 "
+!
+
+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.
+"
 ! !
 
 !ProfileTree methodsFor:'prettyPrinting'!
hg/stx-libbasic3