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.
moved & added some query methods (from method) to upper abstract classes
authorClaus Gittinger <cg@exept.de>
Tue, 16 Apr 1996 16:40:00 +0200
changeset 1190 4ad1c8d6d94d
parent 1189 b8400ee170c6
child 1191 7d458640ca32
moved & added some query methods (from method) to upper abstract classes
CompCode.st file | annotate | diff | comparison | revisions
CompiledCode.st file | annotate | diff | comparison | revisions
ExecFunc.st file | annotate | diff | comparison | revisions
ExecutableFunction.st file | annotate | diff | comparison | revisions
Method.st file | annotate | diff | comparison | revisions 
--- a/CompCode.st	Tue Apr 16 15:42:16 1996 +0200
+++ b/CompCode.st	Tue Apr 16 16:40:00 1996 +0200
@@ -308,11 +308,23 @@
     "
      (CompiledCode compiledMethodAt:#messages) messages 
     "
+!
+
+referencesGlobal:aGlobalSymbol
+    "return true, if this method references the global
+     bound to aGlobalSymbol."
+
+    |lits|
+
+    (lits := self literals) isNil ifTrue:[^ false].
+    ^ (lits identityIndexOf:aGlobalSymbol startingAt:1) ~~ 0
+
+    "Created: 16.4.1996 / 16:36:32 / cg"
 ! !
 
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.23 1996-04-16 09:28:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.24 1996-04-16 14:40:00 cg Exp $'
 ! !
 CompiledCode initialize!
--- a/CompiledCode.st	Tue Apr 16 15:42:16 1996 +0200
+++ b/CompiledCode.st	Tue Apr 16 16:40:00 1996 +0200
@@ -308,11 +308,23 @@
     "
      (CompiledCode compiledMethodAt:#messages) messages 
     "
+!
+
+referencesGlobal:aGlobalSymbol
+    "return true, if this method references the global
+     bound to aGlobalSymbol."
+
+    |lits|
+
+    (lits := self literals) isNil ifTrue:[^ false].
+    ^ (lits identityIndexOf:aGlobalSymbol startingAt:1) ~~ 0
+
+    "Created: 16.4.1996 / 16:36:32 / cg"
 ! !
 
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.23 1996-04-16 09:28:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.24 1996-04-16 14:40:00 cg Exp $'
 ! !
 CompiledCode initialize!
--- a/ExecFunc.st	Tue Apr 16 15:42:16 1996 +0200
+++ b/ExecFunc.st	Tue Apr 16 16:40:00 1996 +0200
@@ -177,9 +177,85 @@
 %}
 ! !
 
+!ExecutableFunction methodsFor:'queries'!
+
+category
+    "return the category of this codeObject.
+     Return nil here, to alow alien codeObjects to be handled by the
+     browsers."
+
+    ^ nil
+
+    "Created: 16.4.1996 / 16:31:15 / cg"
+!
+
+isInvalid
+    "return true, if this codeObject is invalidated.
+     Return false here, to alow alien codeObjects to be handled by the
+     browsers."
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:31:42 / cg"
+!
+
+isLazyMethod
+    "return true, if this is a lazy method.
+     False is returned here - this method is redefined in LazyMethod"
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:32:11 / cg"
+    "Modified: 16.4.1996 / 16:32:36 / cg"
+!
+
+isWrapped
+    "return true, if this is a wrapper method.
+     False is returned here - this method is redefined in WrappedMethod"
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:33:24 / cg"
+!
+
+privacy
+    "return a symbol describing the methods access rights (privacy);
+     Currently, this is one of #private, #protected, #public or #ignored.
+
+     Here we unconditionally return #public, to allow alien code objects
+     to be handled by the browsers."
+
+    ^ #public
+
+    "Created: 16.4.1996 / 16:35:18 / cg"
+!
+
+referencesGlobal:aGlobalSymbol
+    "return true, if this method references the global
+     bound to aGlobalSymbol.
+     Return false (we dont know) here, to allow alien code objects to be
+     handled by the browsers."
+
+     ^ false
+
+    "Created: 16.4.1996 / 16:37:48 / cg"
+!
+
+sends:aSelectorSymbol
+    "return true, if this method contains a message-send
+     with aSelectorSymbol as selector. 
+     - due to the simple check in the literal array, also simple uses 
+       of aSelectorSymbol as symbol will return true.
+       Should ask compiler, if there is really a send."
+
+    ^ self referencesGlobal:aSelectorSymbol
+
+    "Created: 16.4.1996 / 16:35:53 / cg"
+! !
+
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.21 1996-04-16 09:27:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.22 1996-04-16 14:39:07 cg Exp $'
 ! !
 ExecutableFunction initialize!
--- a/ExecutableFunction.st	Tue Apr 16 15:42:16 1996 +0200
+++ b/ExecutableFunction.st	Tue Apr 16 16:40:00 1996 +0200
@@ -177,9 +177,85 @@
 %}
 ! !
 
+!ExecutableFunction methodsFor:'queries'!
+
+category
+    "return the category of this codeObject.
+     Return nil here, to alow alien codeObjects to be handled by the
+     browsers."
+
+    ^ nil
+
+    "Created: 16.4.1996 / 16:31:15 / cg"
+!
+
+isInvalid
+    "return true, if this codeObject is invalidated.
+     Return false here, to alow alien codeObjects to be handled by the
+     browsers."
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:31:42 / cg"
+!
+
+isLazyMethod
+    "return true, if this is a lazy method.
+     False is returned here - this method is redefined in LazyMethod"
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:32:11 / cg"
+    "Modified: 16.4.1996 / 16:32:36 / cg"
+!
+
+isWrapped
+    "return true, if this is a wrapper method.
+     False is returned here - this method is redefined in WrappedMethod"
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:33:24 / cg"
+!
+
+privacy
+    "return a symbol describing the methods access rights (privacy);
+     Currently, this is one of #private, #protected, #public or #ignored.
+
+     Here we unconditionally return #public, to allow alien code objects
+     to be handled by the browsers."
+
+    ^ #public
+
+    "Created: 16.4.1996 / 16:35:18 / cg"
+!
+
+referencesGlobal:aGlobalSymbol
+    "return true, if this method references the global
+     bound to aGlobalSymbol.
+     Return false (we dont know) here, to allow alien code objects to be
+     handled by the browsers."
+
+     ^ false
+
+    "Created: 16.4.1996 / 16:37:48 / cg"
+!
+
+sends:aSelectorSymbol
+    "return true, if this method contains a message-send
+     with aSelectorSymbol as selector. 
+     - due to the simple check in the literal array, also simple uses 
+       of aSelectorSymbol as symbol will return true.
+       Should ask compiler, if there is really a send."
+
+    ^ self referencesGlobal:aSelectorSymbol
+
+    "Created: 16.4.1996 / 16:35:53 / cg"
+! !
+
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.21 1996-04-16 09:27:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.22 1996-04-16 14:39:07 cg Exp $'
 ! !
 ExecutableFunction initialize!
--- a/Method.st	Tue Apr 16 15:42:16 1996 +0200
+++ b/Method.st	Tue Apr 16 16:40:00 1996 +0200
@@ -1728,13 +1728,6 @@
     ^ false
 !
 
-isLazyMethod
-    "return true, if this is a lazy method.
-     False is returned here - this method is redefined in LazyMethod"
-
-    ^ false
-!
-
 isMethod
     "return true, if the receiver is some kind of method;
      true returned here - the method is redefined from Object."
@@ -1742,13 +1735,6 @@
     ^ true
 !
 
-isWrapped
-    "return true, if this is a wrapper method.
-     False is returned here - this method is redefined in WrappedMethod"
-
-    ^ false
-!
-
 methodArgAndVarNames
     "return a collection with the methods argument and variable names.
      Uses Parser to parse methods source and extract the names.
@@ -1879,16 +1865,6 @@
     ^ valueIfNoSource 
 !
 
-referencesGlobal:aGlobalSymbol
-    "return true, if this method references the global
-     bound to aGlobalSymbol."
-
-    |lits|
-
-    (lits := self literals) isNil ifTrue:[^ false].
-    ^ (lits identityIndexOf:aGlobalSymbol startingAt:1) ~~ 0
-!
-
 selector
     "return the selector under which I am found in my containingClasses
      method-table. 
@@ -1912,16 +1888,6 @@
     "
 !
 
-sends:aSelectorSymbol
-    "return true, if this method contains a message-send
-     with aSelectorSymbol as selector. 
-     - due to the simple check in the literal array, also simple uses 
-       of aSelectorSymbol as symbol will return true.
-       Should ask compiler, if there is really a send."
-
-    ^ self referencesGlobal:aSelectorSymbol
-!
-
 wasCalled
     "return true if the method has ever been executed.
      The called flag will be set by the interpreter whenever a method
@@ -2082,6 +2048,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.80 1996-04-02 22:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.81 1996-04-16 14:39:35 cg Exp $'
 ! !
 Method initialize!
hg/stx-libbasic