Added instance variable getter (#134)

* Added instance variable getter

* Added tests for invalid instance variable setting and getting

.project

@@ -1,3 +1,4 @@
 {
-	'srcDirectory' : 'source'
+	'srcDirectory' : 'source',
+	'tags': [ 'Buenos Aires Smalltalk' ]
 }

source/Buoy-Metaprogramming-Extensions/LanguagePlatform.class.st

@@ -61,6 +61,12 @@ LanguagePlatform >> includesGlobalNamed: aSymbol [
 	^ self subclassResponsibility
 ]
 
+{ #category : 'reflection' }
+LanguagePlatform >> instanceVariableNamed: name on: object [
+
+  ^ self subclassResponsibility
+]
+
 { #category : 'message digest' }
 LanguagePlatform >> messageDigest: string [
   "Returns a message digest for the given string, the hashing algorithm can be platform specific.

source/Buoy-Metaprogramming-GS64-Extensions/GemStone64Platform.class.st

@@ -69,6 +69,17 @@ GemStone64Platform >> includesGlobalNamed: aSymbol [
       notNil
 ]
 
+{ #category : 'reflection' }
+GemStone64Platform >> instanceVariableNamed: name on: object [
+
+  | index |
+  index := (object class allInstVarNames collect: #asSymbol)
+    indexOf: name asSymbol
+    ifAbsent: [ self error: ('<1s> not found in <2p>' expandMacrosWith: name asString with: object) ].
+  ^ object instVarAt: index
+
+]
+
 { #category : 'message digest' }
 GemStone64Platform >> messageDigest: string [
 

source/Buoy-Metaprogramming-Pharo-Extensions/PharoPlatform.class.st

@@ -42,6 +42,12 @@ PharoPlatform >> includesGlobalNamed: aSymbol [
 	^ Smalltalk globals includesKey: aSymbol
 ]
 
+{ #category : 'reflection' }
+PharoPlatform >> instanceVariableNamed: name on: object [
+
+  ^ object instVarNamed: name
+]
+
 { #category : 'message digest' }
 PharoPlatform >> messageDigest: string [
 

source/Buoy-Metaprogramming-Tests/LanguagePlatformTest.class.st

@@ -36,6 +36,14 @@ LanguagePlatformTest >> testForkNamedAt [
 	self assert: wasEvaluated
 ]
 
+{ #category : 'tests' }
+LanguagePlatformTest >> testGetInvalidInstanceVariable [
+
+	self
+		should: [ LanguagePlatform current instanceVariableNamed: 'variableForFailing' on: self ]
+		raise: Error
+]
+
 { #category : 'tests' }
 LanguagePlatformTest >> testGlobalNamedIfAbsent [
 
@@ -107,6 +115,17 @@ LanguagePlatformTest >> testIncludesGlobalNamed [
 					 #AnImplausibleGlobalName)
 ]
 
+{ #category : 'tests' }
+LanguagePlatformTest >> testInstanceVariableNamedOn [
+
+  | value |
+  LanguagePlatform current atInstanceVariableNamed: 'variableForTesting' on: self put: 8.
+
+  value := LanguagePlatform current instanceVariableNamed: 'variableForTesting' on: self.
+
+  self assert: value equals: 8
+]
+
 { #category : 'tests' }
 LanguagePlatformTest >> testMessageDigest [
 
@@ -193,3 +212,11 @@ LanguagePlatformTest >> testRemoveGlobalNamedIfAbsent [
     ifAbsent: [ wasFound := false ].
   self deny: wasFound
 ]
+
+{ #category : 'tests' }
+LanguagePlatformTest >> testSetInvalidInstanceVariable [
+
+	self
+		should: [ LanguagePlatform current atInstanceVariableNamed: 'variableForFailing' on: self put: 8 ]
+		raise: Error
+]