Mercurial Mercurial > hg > stx-libcomp / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ObjFHandle.st
changeset 141 d378d997aab0
parent 135 aa4f7b8f121e
child 148 ef0e604209ec 
--- a/ObjFHandle.st	Thu Nov 23 03:15:59 1995 +0100
+++ b/ObjFHandle.st	Thu Nov 23 03:23:14 1995 +0100
@@ -1,7 +1,18 @@
-'From Smalltalk/X, Version:2.10.7 on 14-sep-1995 at 9:26:01 pm'                 !
+"
+ 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.
+"
 
 Object subclass:#ObjectFileHandle
-	 instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID handleType weakMethodRef weakClassRefs'
+	 instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID handleType weakMethodRef
+                weakClassRefs'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'System-Compiler'
@@ -9,8 +20,18 @@
 
 !ObjectFileHandle class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.6 1995-11-11 15:30:40 cg Exp $'
+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.
+"
 !
 
 documentation
@@ -28,113 +49,12 @@
     "Modified: 14.9.1995 / 21:10:55 / claus"
 !
 
-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.
-"
-! !
-
-!ObjectFileHandle methodsFor:'queries'!
-
-isClassLibHandle
-    "return true, if I am a handle for a class library"
-
-    ^ handleType == #classLibraryObject 
-!
-
-isMethodHandle
-    "return true, if I am a handle for a single compiled method"
-
-    ^ handleType == #methodObject
-!
-
-isObsolete
-    "return true, if my clases/method has already been removed from
-     the image. I.e. if the object file can be unloaded without danger."
-
-    handleType == #classLibraryObject ifTrue:[
-	^ (weakClassRefs findFirst:[:x | x notNil]) == 0
-    ].
-    handleType == #methodObject ifTrue:[
-	^ (weakMethodRef at:1) isNil
-    ].
-    ^ false
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.7 1995-11-23 02:21:22 cg Exp $'
 ! !
 
 !ObjectFileHandle methodsFor:'accessing'!
 
-sysHandle1
-    "return sysHandle1"
-
-    ^ sysHandle1
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
-sysHandle1:something
-    "set sysHandle1"
-
-    sysHandle1 := something.
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
-sysHandle2
-    "return sysHandle2"
-
-    ^ sysHandle2
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
-sysHandle2:something
-    "set sysHandle2"
-
-    sysHandle2 := something.
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
-pathName
-    "return pathName"
-
-    ^ pathName
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
-pathName:something
-    "set pathName"
-
-    pathName := something.
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
-moduleID
-    "return moduleID"
-
-    ^ moduleID
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
-moduleID:something
-    "set moduleID"
-
-    moduleID := something.
-
-    "Created: 14.9.1995 / 21:13:12 / claus"
-!
-
 classes
     "return the classes"
 
@@ -168,4 +88,96 @@
     handleType := #methodObject.
 
     "Created: 14.9.1995 / 21:13:13 / claus"
+!
+
+moduleID
+    "return moduleID"
+
+    ^ moduleID
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
+!
+
+moduleID:something
+    "set moduleID"
+
+    moduleID := something.
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
+!
+
+pathName
+    "return pathName"
+
+    ^ pathName
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
+!
+
+pathName:something
+    "set pathName"
+
+    pathName := something.
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
+!
+
+sysHandle1
+    "return sysHandle1"
+
+    ^ sysHandle1
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
+!
+
+sysHandle1:something
+    "set sysHandle1"
+
+    sysHandle1 := something.
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
+!
+
+sysHandle2
+    "return sysHandle2"
+
+    ^ sysHandle2
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
+!
+
+sysHandle2:something
+    "set sysHandle2"
+
+    sysHandle2 := something.
+
+    "Created: 14.9.1995 / 21:13:12 / claus"
 ! !
+
+!ObjectFileHandle methodsFor:'queries'!
+
+isClassLibHandle
+    "return true, if I am a handle for a class library"
+
+    ^ handleType == #classLibraryObject 
+!
+
+isMethodHandle
+    "return true, if I am a handle for a single compiled method"
+
+    ^ handleType == #methodObject
+!
+
+isObsolete
+    "return true, if my clases/method has already been removed from
+     the image. I.e. if the object file can be unloaded without danger."
+
+    handleType == #classLibraryObject ifTrue:[
+	^ (weakClassRefs findFirst:[:x | x notNil]) == 0
+    ].
+    handleType == #methodObject ifTrue:[
+	^ (weakMethodRef at:1) isNil
+    ].
+    ^ false
+! !
+
hg/stx-libcomp