hg/stx-goodies-cypress: CypressMethod.st@cdf3ee8ceeaa (annotated)

11 333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/cypress' }"
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	CypressModel subclass:#CypressMethod
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:'klass meta category source'
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'Cypress-New-Model'
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!CypressMethod class methodsFor:'instance creation'!
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
13 f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	13	fromFile: aStringOrFilename
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	14	"Reads a CypressMethod from given file"
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	15	^self new initializeFromFile: aStringOrFilename
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	16
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	17	"Created: / 13-09-2012 / 15:36:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	18	!
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	19
11 333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	fromMethod: aMethod
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	"Returns a Cypress method for given (real) method"
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	^self new initializeFromMethod: aMethod
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	"Created: / 11-09-2012 / 00:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	! !
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	!CypressMethod methodsFor:'accessing'!
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
14 d5b81c30785e - CypressWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	29	category
17 d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	30	^ category ? '* as yet unclassified *'
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	31
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	32	"Modified: / 18-09-2012 / 10:56:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	33	!
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	34
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	35	category:something
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	36	category := something.
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	37	!
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	38
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	39	fullClassName
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	40	^meta == true
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	41	ifTrue:[klass , ' class']
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	42	ifFalse:[klass]
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	43
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	44	"Created: / 18-09-2012 / 10:54:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14 d5b81c30785e - CypressWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	45	!
d5b81c30785e - CypressWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	46
12 ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	47	klass
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	48	^ klass
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	49	!
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	50
17 d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	51	klass:something
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	52	klass := something.
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	53	!
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	54
12 ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	55	meta
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	56	^ meta
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	57	!
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	58
17 d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	59	meta:something
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	60	meta := something.
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	61	!
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	62
12 ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	63	selector
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	64	^self name
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	65
ec118792047a - Package writing rewritten to use new model. Writes package according to recent spec. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	66	"Created: / 11-09-2012 / 11:18:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14 d5b81c30785e - CypressWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	67	!
d5b81c30785e - CypressWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	68
d5b81c30785e - CypressWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	69	source
d5b81c30785e - CypressWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	70	^ source
17 d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	71	!
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	72
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	73	source:aString
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	74	source := aString.
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	75	name := (Parser parseMethodSpecification: source) selector
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	76
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	77	"Modified: / 18-09-2012 / 11:09:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	78	! !
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	79
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	80	!CypressMethod methodsFor:'converting'!
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	81
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	82	asChange
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	83	"superclass CypressModel says that I am responsible to implement this method"
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	84
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	85	^ MethodDefinitionChange new
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	86	className: self fullClassName;
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	87	category: self category;
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	88	source: self source;
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	89	selector: self name.
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	90
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	91	"Modified: / 18-09-2012 / 11:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11 333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	! !
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	!CypressMethod methodsFor:'initialization'!
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95
13 f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	96	initializeFromFile: aStringOrFilename
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	97	self readFrom: aStringOrFilename
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	98
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	99	"Created: / 13-09-2012 / 15:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	100	!
f90704544ca0 More refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	101
11 333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	initializeFromMethod: aMethod
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	name := aMethod selector.
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	klass := aMethod mclass name.
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	meta := aMethod mclass isMetaclass.
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	category := aMethod category.
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	source := aMethod source.
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	"Created: / 11-09-2012 / 00:05:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	! !
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111
17 d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	112	!CypressMethod methodsFor:'private'!
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	113
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	114	changesInto:aChangeSet
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	115	"superclass CypressModel says that I am responsible to implement this method"
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	116
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	117	^ aChangeSet add: self asChange
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	118
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	119	"Modified: / 18-09-2012 / 10:57:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	120	! !
d387df3d4e46 - CypressAbstractReaderWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	121
11 333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	!CypressMethod class methodsFor:'documentation'!
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	version_SVN
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	^ '$Id:: $'
333528cd629a - Cypress refactoring - towards a lot simpler code Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 18 Sep 2012 13:49:14 +0000
changeset 20	cdf3ee8ceeaa
parent 17	d387df3d4e46
child 23	c9db5d8c9d2e
permissions	-rw-r--r--