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

55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:libgdbs' }"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
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	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	6	instanceVariableNames:'frame name value varobj'
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'GDB-Core'
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
76 29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	12
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!GDBVariable class methodsFor:'accessing - GDB value descriptors'!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	description
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	^ (super description)
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	define:#name as:String;
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	yourself
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	"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	21	"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	22	! !
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	!GDBVariable methodsFor:'accessing'!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	name
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	^ name
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	28	!
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	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	31	^ self varobj value
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	32
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	33	"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	34	"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	35	! !
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	!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	38
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	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	40	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	41	\| 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	42
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	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	44	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	45	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	46	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	47
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	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	49	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	50	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	51	] 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	52	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	53	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	54	].
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	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	58
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	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	60	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	61	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	62	] 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	63	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	64	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	65	].
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	].
76 29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	67
29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	68	varobj := result 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	69	].
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	^ 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	71
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	"Created: / 27-02-2015 / 17:18:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76 29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	73	"Modified: / 24-05-2017 / 15:14:25 / 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	74	! !
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	75
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	76	!GDBVariable methodsFor:'initialization'!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	77
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	78	setFrame: aGDBFrame
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	79	self assert: frame isNil.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	80	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	81	frame := aGDBFrame.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	82	self debugger: frame debugger.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	83
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	84	"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	85	! !
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	!GDBVariable methodsFor:'printing & storing'!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	printOn:aStream
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	"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	91
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	super printOn:aStream.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	aStream nextPutAll:'('.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	name printOn: aStream.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	aStream nextPutAll:')'.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	"Modified: / 27-02-2015 / 15:18:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82 7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	98	!
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	99
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	100	valueString
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	101	"Return value as string to be presented to user. The difference
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	102	to sending `value displayString` is that #valueString returns a
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	103	pretty-printed value (if pretty printing was enabled for GDB)
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	104
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	105	@see GDBMI_enable_pretty_printing
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	106	@see GDBDebugger >> enablePrettyPrinting
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	107	"
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	108
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	109	^ value notNil ifTrue:[ value ] ifFalse:[ self value displayString ]
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	110
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	111	"Created: / 11-06-2017 / 23:24:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	112	"Modified (comment): / 12-06-2017 / 09:26:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	! !
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114
76 29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	115	!GDBVariable class methodsFor:'documentation'!
29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	116
29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	117	version_HG
29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	118
29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	119	^ '$Changeset: <not expanded> $'
29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	120	! !
29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	121

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 12 Jun 2017 10:00:44 +0100
changeset 82	7ee72b7a498f
parent 76	29efc28d989a
child 83	b2fb8968f1f4
permissions	-rw-r--r--