extensions.st
changeset 45 deb908479a37
parent 17 10d696c79188
child 47 4f5d75acecb0
--- a/extensions.st	Mon Sep 22 23:48:10 2014 +0100
+++ b/extensions.st	Tue Sep 23 23:48:13 2014 +0100
@@ -1,35 +1,43 @@
 "{ Package: 'jv:libgdbs' }"!
 
-!Boolean class methodsFor:'accessing - GDB value descriptors'!
+!Magritte::MABooleanDescription methodsFor:'parsing-GDB/MI'!
+
+parseUsingGDBMIParser: aGDBMIParser
+    ^ aGDBMIParser parseValueAsBoolean
 
-gdbValueDescriptor
-    ^ GDBBooleanValueDescriptor forClass: self.
+    "Created: / 23-09-2014 / 22:23:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!Magritte::MADescription methodsFor:'parsing-GDB/MI'!
 
-    "Created: / 18-06-2014 / 23:12:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+parseUsingGDBMIParser: aGDBMIParser
+    ^ self subclassResponsibility
+
+    "Created: / 23-09-2014 / 22:23:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!CharacterArray class methodsFor:'accessing - GDB value descriptors'!
+!Magritte::MANumberDescription methodsFor:'parsing-GDB/MI'!
 
-gdbValueDescriptor
-    ^ GDBStringValueDescriptor forClass: self.
+parseUsingGDBMIParser: aGDBMIParser
+    ^ aGDBMIParser parseValueAsInteger
 
-    "Created: / 18-06-2014 / 23:12:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 23-09-2014 / 22:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!Integer class methodsFor:'accessing - GDB value descriptors'!
+!Magritte::MAStringDescription methodsFor:'parsing-GDB/MI'!
 
-gdbValueDescriptor
-    ^ GDBIntegerValueDescriptor forClass: self.
+parseUsingGDBMIParser: aGDBMIParser
+    ^ aGDBMIParser parseValueAsString
 
-    "Created: / 18-06-2014 / 23:12:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 23-09-2014 / 22:24:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!Object class methodsFor:'accessing - GDB value descriptors'!
+!Magritte::MAToManyRelationDescription methodsFor:'parsing-GDB/MI'!
 
-gdbValueDescriptor
-    ^ GDBPrimitiveValueDescriptor forClass: self.
+parseUsingGDBMIParser: aGDBMIParser
+    ^ aGDBMIParser parseValueAsListOf: classes anElement describedBy: reference
 
-    "Created: / 18-06-2014 / 23:12:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 23-09-2014 / 23:04:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !jv_libgdbs class methodsFor:'documentation'!