hg/jv-libgdbs: GDBPTY.st@303c4edc75ad (annotated)

11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:libgdbs' }"
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
78 c24e7d8bc881 BUpdated build files. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	3	"{ NameSpace: Smalltalk }"
c24e7d8bc881 BUpdated build files. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	4
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	Object subclass:#GDBPTY
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'name master slave'
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	8	poolDictionaries:'TTYConstants'
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'GDB-Private'
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	12
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!GDBPTY class methodsFor:'instance creation'!
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	new
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	"return an initialized instance"
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	^ self basicNew initialize.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	! !
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	!GDBPTY methodsFor:'accessing'!
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	master
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	^ master
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	!
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	name
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	^ name
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	!
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	slave
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	^ slave
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	! !
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!GDBPTY methodsFor:'initialization & release'!
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	initialize
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	\| triplet \|
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	40	OperatingSystem isUNIXlike ifTrue:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	41	\| attrs \|
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	"Use a pseudo-tty"
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	triplet := OperatingSystem makePTY.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	name := triplet at:3.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	"/ pty at:1 is the master;
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	"/ pty at:2 is the slave
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	master := NonPositionableExternalStream forReadWriteToFileDescriptor:(triplet at:1).
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	master buffered:false.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	slave := NonPositionableExternalStream forReadWriteToFileDescriptor:(triplet at:2).
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	54	slave buffered:false.
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	] ifFalse:[
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	OperatingSystem isMSWINDOWSNTlike ifTrue:[
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	self error: 'Windows are not (yet) supported'
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	] ifFalse:[
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	self error: 'Operating system not supported'
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	]
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	].
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	63	"Modified: / 31-05-2017 / 20:14:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	!
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	release
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	name := nil.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	master notNil ifTrue:[
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	master close.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	master := nil.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	].
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	slave notNil ifTrue:[
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	slave close.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	slave := nil.
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	].
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	"Created: / 09-06-2014 / 18:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	! !
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	80	!GDBPTY methodsFor:'printing & storing'!
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	81
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	82	printOn:aStream
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	83	"append a printed representation of the receiver to the argument, aStream"
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	84
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	85	super printOn:aStream.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	86	aStream nextPutAll:'('.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	87	name printOn:aStream.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	88	aStream nextPutAll:')'.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	89
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	90	"Modified: / 31-05-2017 / 20:13:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	91	! !
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	92
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	93	!GDBPTY methodsFor:'setup'!
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	94
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	95	setLocalEcho: aBoolean
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	96	\| attrs \|
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	97
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	98	attrs := master getTTYAttributes.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	99	aBoolean ifTrue:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	100	attrs c_lflag: (attrs c_lflag bitOr: ECHO).
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	101	] ifFalse:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	102	attrs c_lflag: (attrs c_lflag bitClear: ECHO).
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	103	].
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	104	master setTTYAttributes: attrs.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	105
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	106	"Created: / 31-05-2017 / 20:19:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	107	!
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	108
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	109	setOutputCRLF: aBoolean
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	110	\| attrs \|
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	111
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	112	attrs := master getTTYAttributes.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	113	aBoolean ifTrue:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	114	attrs c_oflag: (attrs c_oflag bitOr: ONLCR).
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	115	] ifFalse:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	116	attrs c_oflag: (attrs c_oflag bitClear: ONLCR).
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	117	].
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	118	master setTTYAttributes: attrs.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	119
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	120	"Created: / 31-05-2017 / 20:20:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	121	! !
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	122
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	123	!GDBPTY class methodsFor:'documentation'!
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	124
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	125	version_HG
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	126
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	127	^ '$Changeset: <not expanded> $'
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	128	! !
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	129

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 01 Jun 2017 12:15:43 +0100
changeset 79	303c4edc75ad
parent 78	c24e7d8bc881
child 91	472a4841a8b6
permissions	-rw-r--r--