hg/jv-libgdbs: GDBVariable.st@d53d325c2930 (annotated)

74 d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	1	"{ Encoding: utf8 }"
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	2
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ Package: 'jv:libgdbs' }"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	"{ NameSpace: Smalltalk }"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	GDBTransientObject subclass:#GDBVariable
74 d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	8	instanceVariableNames:'frame name value varobj'
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	classVariableNames:''
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	poolDictionaries:''
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	category:'GDB-Core'
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	!GDBVariable class methodsFor:'accessing - GDB value descriptors'!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	description
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	^ (super description)
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	define:#name as:String;
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	yourself
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	"Created: / 16-09-2014 / 23:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	"Modified: / 27-02-2015 / 15:00:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	! !
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	!GDBVariable methodsFor:'accessing'!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	name
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	^ name
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	29	!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	30
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	31	value
74 d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	32	^ self varobj value
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	33
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	34	"Created: / 27-02-2015 / 23:37:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
74 d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	35	"Modified: / 18-03-2015 / 16:47:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	36	! !
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	37
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	38	!GDBVariable methodsFor:'accessing-private'!
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	39
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	40	varobj
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	41	varobj isNil ifTrue:[
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	42	\| result currentThreadId currentFrameId \|
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	43
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	44	result := debugger send: (GDBMI_thread_list_ids new).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	45	currentThreadId := result propertyAt: 'current-thread-id'.
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	46	result := debugger send: (GDBMI_stack_info_frame new).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	47	currentFrameId := (result propertyAt: 'frame') level.
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	48
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	49	frame thread id ~= currentThreadId ifTrue:[
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	50	debugger send: (GDBMI_thread_select new arguments:(Array with:frame thread id)).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	51	debugger send: (GDBMI_stack_select_frame new arguments:(Array with:frame level)).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	52	] ifFalse:[
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	53	frame level ~= currentFrameId ifTrue:[
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	54	debugger send: (GDBMI_stack_select_frame new arguments:(Array with:frame level)).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	55	].
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	56	].
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	57
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	58	result := debugger send: (GDBMI_var_create new arguments: { '-' . '*' . name }).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	59
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	60	frame thread id ~= currentThreadId ifTrue:[
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	61	debugger send: (GDBMI_thread_select new arguments:currentThreadId).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	62	debugger send: (GDBMI_stack_select_frame new arguments:currentFrameId).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	63	] ifFalse:[
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	64	frame level ~= currentFrameId ifTrue:[
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	65	debugger send: (GDBMI_stack_select_frame new arguments:currentFrameId).
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	66	].
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	67	].
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	68	].
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	69	^ varobj value
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	70
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	71	"Created: / 27-02-2015 / 17:18:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	72	"Modified: / 18-03-2015 / 16:52:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	73	! !
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	74
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	75	!GDBVariable methodsFor:'initialization'!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	76
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	77	setFrame: aGDBFrame
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	78	self assert: frame isNil.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	79	self assert: (debugger isNil or:[ debugger == aGDBFrame debugger ]).
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	80	frame := aGDBFrame.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	81	self debugger: frame debugger.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	82
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	83	"Created: / 27-02-2015 / 17:08:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	! !
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	!GDBVariable methodsFor:'printing & storing'!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	printOn:aStream
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	"append a printed representation if the receiver to the argument, aStream"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	super printOn:aStream.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	aStream nextPutAll:'('.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	name printOn: aStream.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	aStream nextPutAll:')'.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	"Modified: / 27-02-2015 / 15:18:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	! !
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 19 Mar 2015 08:43:28 +0000
changeset 74	d53d325c2930
parent 56	20989de12cfb
child 76	29efc28d989a
permissions	-rw-r--r--