--- a/QualifiedName.st Wed Dec 04 16:43:40 2019 +0100
+++ b/QualifiedName.st Wed Dec 04 18:30:47 2019 +0100
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#QualifiedName
instanceVariableNames:'pathString'
classVariableNames:''
@@ -11,126 +15,23 @@
documentation
"
- some mimicri, to allow filein of visualWorks code which uses qualified names
+ a dummy class to allow fileIn of some VW code
"
! !
-!QualifiedName class methodsFor:'instance creation'!
-
-for:aStringOrSymbol
- ^ self new name:aStringOrSymbol
-
-
-!
-
-makeUnambiguous
- ^ self
-!
-
-pathString:aPathString
- ^ self new pathString:aPathString
-! !
-
!QualifiedName methodsFor:'accessing'!
-asString
- ^ pathString
-
-
-!
-
-comment:aString
- "empty for now"
-!
-
-name:aStringOrSymbol
- pathString := aStringOrSymbol asSymbol
-
-!
-
pathString
- "return the value of the instance variable 'pathString' (automatically generated)"
-
^ pathString
!
pathString:something
- "set the value of the instance variable 'pathString' (automatically generated)"
-
pathString := something.
! !
-!QualifiedName methodsFor:'conditional execution'!
-
-value
- "return my binding value, if unbound, return nil"
-
- ^ self valueOrDo:[]
-!
-
-valueOrDo:aBlock
- "return my binding value, if unbound, return the result from evaluating aBlock"
-
- |ns path|
-
- path := pathString asCollectionOfSubstringsSeparatedBy:$..
- ((path size > 0) and:[path first = 'Core']) ifTrue:[
- path := path copyFrom:2
- ].
- ns := Smalltalk.
- path do:[:component |
- ns := ns at:component asSymbol ifAbsent:[ ^ aBlock value ].
- ].
- ^ ns
-! !
-
-!QualifiedName methodsFor:'defining'!
-
-defineClass: name superclass: superclass
- indexedType: indexed
- private: private
- instanceVariableNames: instVars
- classInstanceVariableNames: classInstVars
- imports: imports
- category: category
- attributes: annotations
-
- |sc|
-
- sc := superclass value.
- sc isNil ifTrue:[
-self halt.
- ].
-self halt.
-
-!
-
-defineNameSpace: name private: private imports: imports category: category attributes: annotations
- "klduge for now"
-
- pathString = 'Smalltalk' ifTrue:[
- NameSpace name:name asSymbol.
- ] ifFalse:[
- self halt.
- ].
-
-! !
-
-!QualifiedName methodsFor:'dummy for now'!
-
-makeUnambiguous
- ^ self
-
-
-! !
-
!QualifiedName class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/QualifiedName.st,v 1.3 2013-10-27 10:14:09 cg Exp $'
-!
-
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/QualifiedName.st,v 1.3 2013-10-27 10:14:09 cg Exp $'
+ ^ '$Header$'
! !