hg/stx-goodies-smallsense: refactoring_custom/SmallSense__CustomClassQuery.st@b51ace366efc (annotated)

828 4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	1	"
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	2	A custom code generation and refactoring support for Smalltalk/X
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	3	Copyright (C) 2013-2015 Jakub Nesveda
1072 a44c741ee5ef Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 833 diff changeset	4	Copyright (C) 2015 Jan Vrany
828 4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	5
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	6	This library is free software; you can redistribute it and/or
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	7	modify it under the terms of the GNU Lesser General Public
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	8	License as published by the Free Software Foundation; either
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	9	version 2.1 of the License.
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	10
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	11	This library is distributed in the hope that it will be useful,
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	14	Lesser General Public License for more details.
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	15
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	16	You should have received a copy of the GNU Lesser General Public
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	17	License along with this library; if not, write to the Free Software
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	18	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	19	"
833 297eb38e4eee Package jn:refactoring_custom renamed to stx:goodies/smallsense/refactoring_custom Jan Vrany <jan.vrany@fit.cvut.cz> parents: 830 diff changeset	20	"{ Package: 'stx:goodies/smallsense/refactoring_custom' }"
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	21
830 1a88f5e65fe2 Classes moved to namespace SmallSense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 828 diff changeset	22	"{ NameSpace: SmallSense }"
803 95cdac772759 Fixed failing tests caused by new STX release Jakub Nesveda <jakubnesveda@seznam.cz> parents: 733 diff changeset	23
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	24	Object subclass:#CustomClassQuery
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	25	instanceVariableNames:''
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	26	classVariableNames:''
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	27	poolDictionaries:''
733 bad42d8d1161 add ability to use refactory class changes for non existing class described by model class Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	28	category:'Interface-Refactoring-Custom-Helpers'
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	29	!
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	30
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	31	!CustomClassQuery class methodsFor:'documentation'!
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	32
828 4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	33	copyright
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	34	"
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	35	A custom code generation and refactoring support for Smalltalk/X
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	36	Copyright (C) 2013-2015 Jakub Nesveda
1072 a44c741ee5ef Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 833 diff changeset	37	Copyright (C) 2015 Jan Vrany
828 4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	38
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	39	This library is free software; you can redistribute it and/or
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	40	modify it under the terms of the GNU Lesser General Public
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	41	License as published by the Free Software Foundation; either
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	42	version 2.1 of the License.
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	43
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	44	This library is distributed in the hope that it will be useful,
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	45	but WITHOUT ANY WARRANTY; without even the implied warranty of
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	46	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	47	Lesser General Public License for more details.
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	48
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	49	You should have received a copy of the GNU Lesser General Public
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	50	License along with this library; if not, write to the Free Software
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	51	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	52	"
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	53	!
4c5acc592dc7 Added copyright notice Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	54
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	55	documentation
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	56	"
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	57	Helper class for retrieving additional informations from classes.
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	58
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	59	[author:]
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	60	Jakub Nesveda <nesvejak@fit.cvut.cz>
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	61
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	62	"
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	63	! !
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	64
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	65	!CustomClassQuery methodsFor:'queries'!
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	66
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	67	methodForSuperclassSelector: aSelector class: aClass
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	68	"retrieve method under given selector in class
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	69	superclass or in superclass superclass until method is found
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	70	or nil is reached"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	71
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	72	\| superclass \|
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	73
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	74	superclass := aClass superclass.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	75	[ superclass notNil ] whileTrue: [
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	76	\| method \|
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	77
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	78	method := superclass compiledMethodAt: aSelector asSymbol.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	79	method notNil ifTrue: [
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	80	^ method
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	81	].
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	82	superclass := superclass superclass.
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	83	].
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	84
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	85	^ nil
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	86
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	87	"Created: / 15-06-2014 / 14:58:31 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 571 diff changeset	88	"Modified: / 07-10-2014 / 19:50:42 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
571 25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	89	! !
25a316ce0c9c extracted method methodForSuperclassSelector from class CustomSubclassResponsibilityCodeGenerator to CustomClassQuery Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	90

author	convert-repo
	Wed, 11 Dec 2019 04:28:36 +0000
changeset 1116	b51ace366efc
parent 1072	a44c741ee5ef
permissions	-rw-r--r--