The Trunk: Environments-cwp.15.mcz

Colin Putney uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-cwp.15.mcz

==================== Summary ====================

Name: Environments-cwp.15
Author: cwp
Time: 9 March 2013, 8:15:12.639 pm
UUID: 57b74903-5b1b-495e-86c9-97bde295a0ce
Ancestors: Environments-cwp.14

Added the ability to rename classes as they are imported or exported.

=============== Diff against Environments-cwp.14 ===============

Item was added:
+ SystemOrganization addCategory: #'Environments-Core'!
+ SystemOrganization addCategory: #'Environments-Policies'!
+ SystemOrganization addCategory: #'Environments-Loading'!

Item was removed:
- SystemOrganization addCategory: #'Environments-Core'!

Item was added:
+ NamePolicy subclass: #AddPrefixNamePolicy
+ instanceVariableNames: 'prefix'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: AddPrefixNamePolicy class>>prefix: (in category 'as yet unclassified') -----
+ prefix: aString
+ ^ self basicNew initializeWithPrefix: aString!

Item was added:
+ ----- Method: AddPrefixNamePolicy>>initializeWithPrefix: (in category 'as yet unclassified') -----
+ initializeWithPrefix: aString
+ self initialize.
+ prefix := aString!

Item was added:
+ ----- Method: AddPrefixNamePolicy>>name:do: (in category 'as yet unclassified') -----
+ name: aSymbol do: aBlock
+ ^ (aSymbol beginsWith: prefix) ifFalse:
+ [aBlock value: (prefix, aSymbol) asSymbol].
+ !

Item was added:
+ LookupKey subclass: #Alias
+ instanceVariableNames: 'source'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Core'!

Item was added:
+ ----- Method: Alias class>>key:source: (in category 'as yet unclassified') -----
+ key: aSymbol source: anAssociation
+ ^ self basicNew initializeWithKey: aSymbol source: anAssociation!

Item was added:
+ ----- Method: Alias>>asBinding: (in category 'converting') -----
+ asBinding: aSymbol
+ ^ Alias key: aSymbol source: source!

Item was added:
+ ----- Method: Alias>>initializeWithKey:source: (in category 'as yet unclassified') -----
+ initializeWithKey: aSymbol source: anAssociation
+ self initialize.
+ key := aSymbol.
+ source := anAssociation!

Item was added:
+ ----- Method: Alias>>isSpecialReadBinding (in category 'as yet unclassified') -----
+ isSpecialReadBinding
+ ^ true!

Item was added:
+ ----- Method: Alias>>isSpecialWriteBinding (in category 'as yet unclassified') -----
+ isSpecialWriteBinding
+ ^ true!

Item was added:
+ ----- Method: Alias>>value (in category 'as yet unclassified') -----
+ value
+ ^ source value!

Item was added:
+ ----- Method: Alias>>value: (in category 'as yet unclassified') -----
+ value: anObject
+ source value: anObject!

Item was added:
+ NamePolicy subclass: #AllNamePolicy
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: AllNamePolicy>>name:do: (in category 'as yet unclassified') -----
+ name: aSymbol do: aBlock
+ ^ aBlock value: aSymbol!

Item was added:
+ ----- Method: Association>>asBinding: (in category '*environments') -----
+ asBinding: aSymbol
+ ^ Alias key: aSymbol source: self!

Item was added:
+ LookupKey subclass: #Binding
+ instanceVariableNames: 'value'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Core'!

Item was added:
+ ----- Method: Binding class>>key:value: (in category 'as yet unclassified') -----
+ key: key value: value
+ ^ self basicNew initializeWithKey: key value: value!

Item was added:
+ ----- Method: Binding>>asBinding: (in category 'as yet unclassified') -----
+ asBinding: aSymbol
+ ^ self class key: aSymbol value: value!

Item was added:
+ ----- Method: Binding>>canAssign (in category 'as yet unclassified') -----
+ canAssign
+ ^ false!

Item was added:
+ ----- Method: Binding>>initializeWithKey:value: (in category 'as yet unclassified') -----
+ initializeWithKey: kObject value: vObject
+ self initialize.
+ key := kObject.
+ value := vObject.!

Item was added:
+ ----- Method: Binding>>isSpecialWriteBinding (in category 'as yet unclassified') -----
+ isSpecialWriteBinding
+ ^ true!

Item was added:
+ ----- Method: Binding>>value (in category 'as yet unclassified') -----
+ value
+ ^ value!

Item was added:
+ ----- Method: Binding>>value: (in category 'as yet unclassified') -----
+ value: anObject
+ (AttemptToWriteReadOnlyGlobal signal: 'Cannot store into read-only bindings')
+ ifTrue: [value := anObject]!

Item was added:
+ Object subclass: #BindingPolicy
+ instanceVariableNames: 'namespace policy next'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: BindingPolicy class>>namespace: (in category 'as yet unclassified') -----
+ namespace: aNamespace
+ ^ self namespace: aNamespace next: nil!

Item was added:
+ ----- Method: BindingPolicy class>>namespace:next: (in category 'as yet unclassified') -----
+ namespace: aNamespace next: anImport
+ ^ self
+ namespace: aNamespace
+ policy: AllNamePolicy new
+ next: anImport!

Item was added:
+ ----- Method: BindingPolicy class>>namespace:policy: (in category 'as yet unclassified') -----
+ namespace: aNamespace policy: aNamePolicy
+ ^ self namespace: aNamespace policy: aNamePolicy next: nil!

Item was added:
+ ----- Method: BindingPolicy class>>namespace:policy:next: (in category 'as yet unclassified') -----
+ namespace: aNamespace policy: aNamePolicy next: anImport
+ ^ self basicNew
+ initializeWithNamespace: aNamespace
+ policy: aNamePolicy
+ next: anImport!

Item was added:
+ ----- Method: BindingPolicy class>>null (in category 'as yet unclassified') -----
+ null
+ ^ self namespace: IdentityDictionary new!

Item was added:
+ ----- Method: BindingPolicy>>initializeWithNamespace:policy:next: (in category 'initialize-release') -----
+ initializeWithNamespace: aNamespace policy: aNamePolicy next: anImport
+ self initialize.
+ namespace := aNamespace.
+ policy := aNamePolicy.
+ next := anImport!

Item was added:
+ ----- Method: BindingPolicy>>name:do: (in category 'private') -----
+ name: aSymbol do: aBlock
+ ^ policy name: aSymbol do: aBlock!

Item was changed:
  Object subclass: #Environment
+ instanceVariableNames: 'info imports exports contents bindings public undeclared'
+ classVariableNames: 'Default Instances'
- instanceVariableNames: 'contents lookup undeclared exports info'
- classVariableNames: 'Default'
  poolDictionaries: ''
  category: 'Environments-Core'!

Item was changed:
+ ----- Method: Environment class>>default (in category 'accessing') -----
- ----- Method: Environment class>>default (in category 'as yet unclassified') -----
  default
  ^ Default!

Item was changed:
+ ----- Method: Environment class>>default: (in category 'accessing') -----
- ----- Method: Environment class>>default: (in category 'as yet unclassified') -----
  default: anEnvironment
  Default := anEnvironment!

Item was changed:
+ ----- Method: Environment class>>initialize (in category 'class initialization') -----
- ----- Method: Environment class>>initialize (in category 'as yet unclassified') -----
  initialize
  self uninstall!

Item was changed:
+ ----- Method: Environment class>>install (in category 'class initialization') -----
- ----- Method: Environment class>>install (in category 'as yet unclassified') -----
  install
  | smalltalk env |
+ self environment class == self ifTrue:
+ [Transcript
+ cr;
+ show: 'Can''t install environments; they''re already installed'.
+ ^ self].
+
- self environment class == self ifTrue: [self error: 'Already installed'].
  smalltalk := Smalltalk globals.
  env := self basicNew initializeWithSystemDictionary: smalltalk.
+ Default := env.
+ Instances at: env info name put: env.
  (smalltalk at: #Undeclared) becomeForward: (env at: #Undeclared).
  smalltalk becomeForward: env.
  Smalltalk garbageCollect.!

Item was removed:
- ----- Method: Environment class>>name: (in category 'as yet unclassified') -----
- name: aString
- ^ self basicNew initializeWithName: aString!

Item was added:
+ ----- Method: Environment class>>named: (in category 'instance creation') -----
+ named: aSymbol
+ ^ Instances
+ at: aSymbol
+ ifAbsentPut: [self withName: aSymbol]!

Item was changed:
+ ----- Method: Environment class>>uninstall (in category 'class initialization') -----
- ----- Method: Environment class>>uninstall (in category 'as yet unclassified') -----
  uninstall
  | globals sysdict |
  self environment class == self ifFalse:
  [Transcript
  cr;
  show: 'Can''t uninstall environments; they''re not currently installed'.
  ^ self].
 
  globals := Smalltalk globals instVarNamed: 'contents'.
  sysdict := SystemDictionary new: globals size.
  globals associationsDo: [:ea | sysdict add: ea].
  Smalltalk globals becomeForward: sysdict.!

Item was added:
+ ----- Method: Environment class>>withName: (in category 'instance creation') -----
+ withName: aString
+ ^ self basicNew initializeWithName: aString!

Item was changed:
+ ----- Method: Environment>>associationAt: (in category 'emulating') -----
- ----- Method: Environment>>associationAt: (in category 'accessing') -----
  associationAt: aSymbol
  "Senders of this should probably be using #bindingOf:"
 
  self flag: #review.
  ^ contents associationAt: aSymbol!

Item was changed:
+ ----- Method: Environment>>associationAt:ifAbsent: (in category 'emulating') -----
- ----- Method: Environment>>associationAt:ifAbsent: (in category 'accessing') -----
  associationAt: aSymbol ifAbsent: aBlock
  "Senders of this should probably be using #bindingOf:"
 
  self flag: #review.
  ^ contents associationAt: aSymbol ifAbsent: aBlock!

Item was changed:
+ ----- Method: Environment>>associationOrUndeclaredAt: (in category 'emulating') -----
- ----- Method: Environment>>associationOrUndeclaredAt: (in category 'compatibility') -----
  associationOrUndeclaredAt: key
+ ^ bindings associationAt: key ifAbsent:
+ [undeclared at: key put: nil.
+ undeclared associationAt: key]
+ !
- lookup do:
- [:ns | (ns includesKey: key) ifTrue: [^ ns associationAt: key]].
- undeclared at: key put: nil.
- ^ undeclared associationAt: key!

Item was changed:
+ ----- Method: Environment>>at: (in category 'emulating') -----
- ----- Method: Environment>>at: (in category 'accessing') -----
  at: aSymbol
  ^ contents at: aSymbol!

Item was changed:
+ ----- Method: Environment>>at:ifAbsent: (in category 'emulating') -----
- ----- Method: Environment>>at:ifAbsent: (in category 'accessing') -----
  at: aSymbol ifAbsent: aBlock
  ^ contents at: aSymbol ifAbsent: aBlock!

Item was changed:
+ ----- Method: Environment>>at:ifAbsentPut: (in category 'emulating') -----
- ----- Method: Environment>>at:ifAbsentPut: (in category 'accessing') -----
  at: aSymbol ifAbsentPut: aBlock
  ^ contents
  at: aSymbol
  ifAbsentPut: aBlock!

Item was changed:
+ ----- Method: Environment>>at:ifPresent: (in category 'emulating') -----
- ----- Method: Environment>>at:ifPresent: (in category 'accessing') -----
  at: aSymbol ifPresent: aBlock
  ^ contents at: aSymbol ifPresent: aBlock!

Item was changed:
+ ----- Method: Environment>>at:ifPresent:ifAbsent: (in category 'emulating') -----
- ----- Method: Environment>>at:ifPresent:ifAbsent: (in category 'compatibility') -----
  at: aSymbol ifPresent: presentBlock ifAbsent: absentBlock
  ^ contents
  at: aSymbol
  ifPresent: presentBlock
  ifAbsent: absentBlock.!

Item was changed:
+ ----- Method: Environment>>at:ifPresentAndInMemory: (in category 'emulating') -----
- ----- Method: Environment>>at:ifPresentAndInMemory: (in category 'compatibility') -----
  at: key ifPresentAndInMemory: aBlock
  ^ contents
  at: key
  ifPresent:
  [:v |
  v isInMemory ifTrue:
  [aBlock value: v]]!

Item was changed:
+ ----- Method: Environment>>at:put: (in category 'emulating') -----
- ----- Method: Environment>>at:put: (in category 'accessing') -----
  at: aSymbol put: anObject
+ | binding |
+ binding := anObject isBehavior
+ ifTrue: [Binding key: aSymbol value: anObject]
+ ifFalse: [Association key: aSymbol value: anObject].
+ contents add: binding.
+ exports bind: binding.
+ ^ anObject
+ !
- (contents includesKey: aSymbol) ifFalse:
- [contents declare: aSymbol from: undeclared].
- contents at: aSymbol put: anObject.
- anObject isBehavior ifTrue:
- [(contents associationAt: aSymbol) beReadOnlyBinding].
- ^ anObject!

Item was changed:
  ----- Method: Environment>>bindingOf:ifAbsent: (in category 'binding') -----
  bindingOf: aSymbol ifAbsent: aBlock
+ ^ bindings associationAt: aSymbol ifAbsent:
+ [(imports bindingOf: aSymbol)
+ ifNil: aBlock
+ ifNotNil: [:foreign | bindings add: (foreign asBinding: aSymbol)]]!
- lookup do:
- [:dict |
- (dict includesKey: aSymbol) ifTrue:
- [^ dict associationAt: aSymbol]].
- ^ aBlock value!

Item was changed:
+ ----- Method: Environment>>do: (in category 'emulating') -----
- ----- Method: Environment>>do: (in category 'enumerating') -----
  do: aBlock
  "Evaluate aBlock for each of the receiver's values."
 
  contents valuesDo: aBlock!

Item was changed:
+ ----- Method: Environment>>environment (in category 'emulating') -----
- ----- Method: Environment>>environment (in category 'compatibility') -----
  environment
  ^ self!

Item was changed:
  ----- Method: Environment>>export: (in category 'configuring') -----
+ export: spec
+ exports := Export
+ namespace: public
+ policy: (ExplicitNamePolicy spec: spec)
+ next: exports.
+ self publicizeContents!
- export: aSymbol
- exports add: (contents associationAt: aSymbol)!

Item was added:
+ ----- Method: Environment>>exportAddingPrefix: (in category 'configuring') -----
+ exportAddingPrefix: aString
+ exports := Export
+ namespace: public
+ policy: (AddPrefixNamePolicy prefix: aString)
+ next: exports.
+ self publicizeContents!

Item was added:
+ ----- Method: Environment>>exportRemovingPrefix: (in category 'configuring') -----
+ exportRemovingPrefix: aString
+ exports := Export
+ namespace: public
+ policy: (RemovePrefixNamePolicy prefix: aString)
+ next: exports.
+ self publicizeContents.!

Item was added:
+ ----- Method: Environment>>exportSelf (in category 'configuring') -----
+ exportSelf
+ exports := Export namespace: public next: exports.
+ self publicizeContents.!

Item was added:
+ ----- Method: Environment>>from:import: (in category 'configuring') -----
+ from: anEnvironment import: spec
+ imports := Import
+ namespace: anEnvironment public
+ policy: (ExplicitNamePolicy spec: spec)
+ next: imports.
+ !

Item was changed:
  ----- Method: Environment>>hasBindingThatBeginsWith: (in category 'binding') -----
  hasBindingThatBeginsWith: aString
+ bindings associationsDo:
+ [:ea | (ea key beginsWith: aString) ifTrue: [^ true]].
+ ^ false
+
+ !
- lookup do:
- [:dict |
- dict associationsDo:
- [:asc | (asc key beginsWith: aString) ifTrue:
- [^ true]]].
- ^ false!

Item was added:
+ ----- Method: Environment>>import: (in category 'configuring') -----
+ import: anEnvironment
+ imports := Import namespace: anEnvironment public next: imports.
+ self rebindUndeclared!

Item was added:
+ ----- Method: Environment>>import:addingPrefix: (in category 'configuring') -----
+ import: anEnvironment addingPrefix: aString
+ "This implementation is slightly counter-intuitive. The local name has a prefix,
+ so we have to remove it before doing the look up in the other environment."
+
+ imports := Import
+ namespace: anEnvironment public
+ policy: (RemovePrefixNamePolicy prefix: aString)
+ next: imports.
+ self rebindUndeclared.!

Item was added:
+ ----- Method: Environment>>import:removingPrefix: (in category 'configuring') -----
+ import: anEnvironment removingPrefix: aString
+ "This implementation is slightly counter-intuitive. The local name doesn't have a
+ prefix, so we have to add one when look it up in the other environment."
+
+ imports := Import
+ namespace: anEnvironment public
+ policy: (AddPrefixNamePolicy prefix: aString)
+ next: imports.
+ self rebindUndeclared.!

Item was removed:
- ----- Method: Environment>>importEnvironment: (in category 'configuring') -----
- importEnvironment: anEnvironment
- lookup := lookup copyWith: anEnvironment exports!

Item was added:
+ ----- Method: Environment>>importSelf (in category 'configuring') -----
+ importSelf
+ imports := Import namespace: contents next: imports.
+ self rebindUndeclared!

Item was removed:
- ----- Method: Environment>>importSmalltalk (in category 'configuring') -----
- importSmalltalk
- lookup := lookup copyWith: Smalltalk globals!

Item was changed:
+ ----- Method: Environment>>includes: (in category 'emulating') -----
- ----- Method: Environment>>includes: (in category 'compatibility') -----
  includes: key
  ^ contents includes: key!

Item was changed:
+ ----- Method: Environment>>includesKey: (in category 'emulating') -----
- ----- Method: Environment>>includesKey: (in category 'compatibility') -----
  includesKey: key
  ^ contents includesKey: key!

Item was added:
+ ----- Method: Environment>>info (in category 'accessing') -----
+ info
+ ^ info!

Item was changed:
  ----- Method: Environment>>initialize (in category 'initialize-release') -----
  initialize
+ bindings := IdentityDictionary new.
- undeclared := IdentityDictionary new.
  contents := IdentityDictionary new.
+ public := IdentityDictionary new.
+ undeclared := IdentityDictionary new.
+ imports := Import null.
+ exports := Export null.
+ self importSelf.!
- lookup := {contents}.
- exports := contents.
- !

Item was changed:
+ ----- Method: Environment>>keyAtIdentityValue: (in category 'emulating') -----
- ----- Method: Environment>>keyAtIdentityValue: (in category 'compatibility') -----
  keyAtIdentityValue: anObject
  ^ contents keyAtIdentityValue: anObject.!

Item was changed:
+ ----- Method: Environment>>keyAtIdentityValue:ifAbsent: (in category 'emulating') -----
- ----- Method: Environment>>keyAtIdentityValue:ifAbsent: (in category 'accessing') -----
  keyAtIdentityValue: anObject ifAbsent: aBlock
  ^ contents keyAtIdentityValue: anObject ifAbsent: aBlock!

Item was changed:
+ ----- Method: Environment>>keys (in category 'emulating') -----
- ----- Method: Environment>>keys (in category 'compatibility') -----
  keys
  ^ contents keys!

Item was changed:
+ ----- Method: Environment>>keysDo: (in category 'emulating') -----
- ----- Method: Environment>>keysDo: (in category 'enumerating') -----
  keysDo: aBlock
  "Evaluate aBlock for each of the receiver's keys."
 
  contents keysDo: aBlock!

Item was added:
+ ----- Method: Environment>>migrate (in category 'initialize-release') -----
+ migrate
+ bindings := IdentityDictionary new.
+ public := IdentityDictionary new.
+ imports := Import namespace: contents.
+ exports :=  Export namespace: public.
+ contents keysAndValuesDo:
+ [:name :value |
+ bindings at: name put: value.
+ public at: name put: value]
+ !

Item was changed:
+ ----- Method: Environment>>objectForDataStream: (in category 'emulating') -----
- ----- Method: Environment>>objectForDataStream: (in category 'compatibility') -----
  objectForDataStream: refStrm
  | dp |
  "I am about to be written on an object file.  Write a reference to Smalltalk instead."
 
  dp := DiskProxy global: #Smalltalk selector: #globals args: #().
  refStrm replace: self with: dp.
  ^ dp!

Item was added:
+ ----- Method: Environment>>public (in category 'accessing') -----
+ public
+ ^ public!

Item was added:
+ ----- Method: Environment>>publicizeContents (in category 'private') -----
+ publicizeContents
+ contents associationsDo: [:binding | exports bind: binding].
+ !

Item was added:
+ ----- Method: Environment>>rebindUndeclared (in category 'private') -----
+ rebindUndeclared
+ undeclared keys do:
+ [:name |
+ (imports valueOf: name) ifNotNil:
+ [:v |
+ bindings declare: name from: undeclared.
+ bindings at: name put: v]]!

Item was removed:
- ----- Method: Environment>>requireExplicitExports (in category 'configuring') -----
- requireExplicitExports
- exports == contents ifTrue:
- [exports := IdentityDictionary new]!

Item was changed:
+ ----- Method: Environment>>scopeFor:from:envtAndPathIfFound: (in category 'emulating') -----
- ----- Method: Environment>>scopeFor:from:envtAndPathIfFound: (in category 'compatibility') -----
  scopeFor: aSymbol from: lower envtAndPathIfFound: aBlock
  ^ (contents includesKey: aSymbol)
  ifTrue: [aBlock value: self value: String new]
  !

Item was changed:
+ ----- Method: Environment>>select: (in category 'emulating') -----
- ----- Method: Environment>>select: (in category 'compatibility') -----
  select: aBlock
  ^ contents select: aBlock!

Item was changed:
+ ----- Method: Environment>>storeDataOn: (in category 'emulating') -----
- ----- Method: Environment>>storeDataOn: (in category 'compatibility') -----
  storeDataOn: aDataStream
  "I don't get stored.  Use a DiskProxy"
 
  self error: 'use a DiskProxy to store me'!

Item was changed:
  ----- Method: Environment>>valueOf:ifAbsent: (in category 'binding') -----
  valueOf: aSymbol ifAbsent: aBlock
+ ^ bindings at: aSymbol ifAbsent: aBlock!
- lookup do:
- [:dict |
- dict at: aSymbol ifPresent:
- [:value | ^ value]].
- ^ aBlock value!

Item was changed:
+ ----- Method: Environment>>veryDeepCopyWith: (in category 'emulating') -----
- ----- Method: Environment>>veryDeepCopyWith: (in category 'compatibility') -----
  veryDeepCopyWith: aCopier
  ^ self!

Item was changed:
  Object subclass: #EnvironmentLoader
  instanceVariableNames: 'environment'
  classVariableNames: ''
  poolDictionaries: ''
+ category: 'Environments-Loading'!
- category: 'Environments-Core'!

Item was changed:
  Notification subclass: #EnvironmentRequest
  instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''
+ category: 'Environments-Loading'!
- category: 'Environments-Core'!

Item was added:
+ NamePolicy subclass: #ExplicitNamePolicy
+ instanceVariableNames: 'aliases'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: ExplicitNamePolicy class>>aliases: (in category 'as yet unclassified') -----
+ aliases: aCollection
+ ^ self basicNew initializeWithAliases: aCollection!

Item was added:
+ ----- Method: ExplicitNamePolicy class>>flattenSpec:into: (in category 'as yet unclassified') -----
+ flattenSpec: anObject into: names
+ anObject isSymbol ifTrue:
+ [^ names at: anObject put: anObject].
+ anObject isVariableBinding ifTrue:
+ [^ names add: anObject].
+ anObject isDictionary ifTrue:
+ [^ names addAll: anObject].
+ anObject do:
+ [:ea | self flattenSpec: ea into: names]!

Item was added:
+ ----- Method: ExplicitNamePolicy class>>spec: (in category 'as yet unclassified') -----
+ spec: anObject
+ | aliases |
+ (anObject isKindOf: NamePolicy) ifTrue: [^ anObject].
+ aliases := IdentityDictionary new.
+ self flattenSpec: anObject into: aliases.
+ ^ self aliases: aliases!

Item was added:
+ ----- Method: ExplicitNamePolicy>>initializeWithAliases: (in category 'as yet unclassified') -----
+ initializeWithAliases: aCollection
+ self initialize.
+ aliases := IdentityDictionary withAll: aCollection!

Item was added:
+ ----- Method: ExplicitNamePolicy>>name:do: (in category 'as yet unclassified') -----
+ name: aSymbol do: aBlock
+ ^ aBlock value: (aliases at: aSymbol ifAbsent: [^ nil])!

Item was added:
+ BindingPolicy subclass: #Export
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: Export>>bind: (in category 'binding') -----
+ bind: aBinding
+
+ self name: aBinding key do:
+ [:foreign | ^ namespace add: (aBinding asBinding: foreign)].
+ ^ next ifNotNil: [next bind: aBinding]!

Item was added:
+ ----- Method: Export>>bind:to: (in category 'binding') -----
+ bind: aSymbol to: anObject
+ ^ self bind: aSymbol -> anObject!

Item was added:
+ BindingPolicy subclass: #Import
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: Import>>bindingOf: (in category 'binding') -----
+ bindingOf: aSymbol
+ self name: aSymbol do:
+ [:foreign |
+ ^ namespace
+ associationAt: foreign
+ ifAbsent: [next ifNotNil: [next bindingOf: aSymbol]]].
+ ^ next ifNotNil: [next bindingOf: aSymbol]!

Item was added:
+ ----- Method: Import>>valueOf: (in category 'binding') -----
+ valueOf: aSymbol
+ ^ (self bindingOf: aSymbol) value!

Item was added:
+ Object subclass: #NamePolicy
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: NamePolicy>>name:do: (in category 'as yet unclassified') -----
+ name: aSymbol do: aBlock
+ self subclassResponsibility!

Item was added:
+ ----- Method: ReadOnlyVariableBinding>>asBinding: (in category '*environments') -----
+ asBinding: aSymbol
+ ^ Binding key: aSymbol value: value!

Item was added:
+ NamePolicy subclass: #RemovePrefixNamePolicy
+ instanceVariableNames: 'prefix'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Policies'!

Item was added:
+ ----- Method: RemovePrefixNamePolicy class>>prefix: (in category 'as yet unclassified') -----
+ prefix: aString
+ ^ self basicNew initializeWithPrefix: aString!

Item was added:
+ ----- Method: RemovePrefixNamePolicy>>initializeWithPrefix: (in category 'as yet unclassified') -----
+ initializeWithPrefix: aString
+ self initialize.
+ prefix := aString!

Item was added:
+ ----- Method: RemovePrefixNamePolicy>>name:do: (in category 'as yet unclassified') -----
+ name: aSymbol do: aBlock
+ ^ (aSymbol beginsWith: prefix)
+ ifTrue: [aBlock value: (aSymbol allButFirst: prefix size) asSymbol]!