hg/jv-libgdbs: GDBSessionRecorder.st@472a4841a8b6 (annotated)

91 472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	1	"
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	2	jv:libgdbs - GNU Debugger Interface Library
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	3	Copyright (C) 2015-now Jan Vrany
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	4
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	5	This library is free software; you can redistribute it and/or
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	6	modify it under the terms of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	7	License as published by the Free Software Foundation; either
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	8	version 2.1 of the License.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	9
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	10	This library is distributed in the hope that it will be useful,
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	11	but WITHOUT ANY WARRANTY; without even the implied warranty of
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	13	Lesser General Public License for more details.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	14
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	15	You should have received a copy of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	16	License along with this library; if not, write to the Free Software
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	17	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	18	"
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"{ Package: 'jv:libgdbs' }"
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
78 c24e7d8bc881 BUpdated build files. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	21	"{ NameSpace: Smalltalk }"
c24e7d8bc881 BUpdated build files. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	22
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	Object subclass:#GDBSessionRecorder
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	24	instanceVariableNames:'record buffer'
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	classVariableNames:''
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	poolDictionaries:'GDBDebugFlags'
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	category:'GDB-Private-Simulator'
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
91 472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	30	!GDBSessionRecorder class methodsFor:'documentation'!
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	31
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	32	copyright
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	33	"
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	34	jv:libgdbs - GNU Debugger Interface Library
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	35	Copyright (C) 2015-now Jan Vrany
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	36
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	37	This library is free software; you can redistribute it and/or
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	38	modify it under the terms of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	39	License as published by the Free Software Foundation; either
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	40	version 2.1 of the License.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	41
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	42	This library is distributed in the hope that it will be useful,
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	43	but WITHOUT ANY WARRANTY; without even the implied warranty of
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	44	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	45	Lesser General Public License for more details.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	46
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	47	You should have received a copy of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	48	License along with this library; if not, write to the Free Software
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	49	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	50	"
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	51	! !
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	52
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	53	!GDBSessionRecorder class methodsFor:'instance creation'!
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	54
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	55	new
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	56	"return an initialized instance"
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	57
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	58	^ self basicNew initialize.
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	59	! !
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	60
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	61	!GDBSessionRecorder methodsFor:'initialization'!
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	62
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	63	initialize
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	64	"Invoked when a new instance is created."
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	65
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	66	"/ please change as required (and remove this comment)
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	67	record := GDBSessionRecord new.
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	68	buffer := (String new: 100) writeStream.
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	69	"/ responseBuffer := nil.
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	70
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	71	"/ super initialize. -- commented since inherited method does nothing
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	72
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	73	"Modified: / 24-06-2014 / 00:10:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	74	! !
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	75
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	!GDBSessionRecorder methodsFor:'recording'!
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	recordCommand: command
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	79	record >>> command
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	"Created: / 22-06-2014 / 21:39:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	82	"Modified: / 24-06-2014 / 00:36:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	!
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	recordResponse: aString
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	86	buffer nextPutAll: aString
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	"Created: / 22-06-2014 / 21:56:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	89	"Modified: / 24-06-2014 / 00:10:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	!
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	recordResponseChar: aCharacter
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	93	buffer nextPut: aCharacter
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	"Created: / 22-06-2014 / 21:42:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	96	"Modified: / 24-06-2014 / 00:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	!
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	recordResponseEnd
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	100	record <<< buffer contents.
58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	101	buffer reset.
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	"Created: / 22-06-2014 / 21:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	104	"Modified: / 24-06-2014 / 00:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	! !
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 23 Nov 2017 22:51:20 +0000
changeset 91	472a4841a8b6
parent 78	c24e7d8bc881
child 106	12c96f17fc53
permissions	-rw-r--r--