CustomDefaultGetterMethodsCodeGenerator.st
author Jakub Nesveda <jakubnesveda@seznam.cz>
Tue, 28 Oct 2014 09:39:46 +0100
changeset 711 605ab7fc9cd1
parent 674 58df305d9184
child 755 37d50424e347
permissions -rw-r--r--
return whole source code when selected interval is empty retrieve selector from method when none selector is specified
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     1
"{ Package: 'jn:refactoring_custom' }"
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     2
588
ba44cf2de8b7 rename CustomAccessMethodsCodeGeneratorTests to CustomGetterMethodsCodeGeneratorTests
Jakub Nesveda <jakubnesveda@seznam.cz>
parents: 585
diff changeset
     3
CustomAccessMethodsCodeGenerator subclass:#CustomDefaultGetterMethodsCodeGenerator
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     4
	instanceVariableNames:''
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     5
	classVariableNames:''
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     6
	poolDictionaries:''
656
a95284467938 move all code generators to category Interface-Refactoring-Custom-Generators
Jakub Nesveda <jakubnesveda@seznam.cz>
parents: 635
diff changeset
     7
	category:'Interface-Refactoring-Custom-Generators'
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     8
!
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     9
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    10
!CustomDefaultGetterMethodsCodeGenerator class methodsFor:'accessing-presentation'!
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    11
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    12
description
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    13
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    14
    ^ 'Getter methods for default variable value in metaclass'
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    15
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    16
    "Created: / 30-06-2014 / 11:14:23 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    17
!
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    18
628
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    19
group
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    20
    "Returns a collection strings describing a group to which
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    21
     receiver belongs. A groups may be nested hence the array of
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    22
     strings. For example for subgroup 'Accessors' in group 'Generators'
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    23
     this method should return #('Generators' 'Accessors')."
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    24
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    25
    "/ By default return an empty array which means the item will appear
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    26
    "/ in top-level group.
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    27
    ^ #('Accessors' 'Getters')
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    28
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    29
    "Created: / 22-08-2014 / 18:54:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    30
!
6f639016753b Sort generators or refactorings by their group.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 588
diff changeset
    31
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    32
label
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    33
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    34
    ^ 'Getter Method(s) for default variable value'
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    35
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    36
    "Created: / 30-06-2014 / 11:15:07 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    37
! !
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    38
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    39
!CustomDefaultGetterMethodsCodeGenerator methodsFor:'code generation'!
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    40
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    41
sourceForClass: aClass variableName: aName
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    42
    "Returns getter method source code for default variable value"
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    43
674
58df305d9184 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents: 656
diff changeset
    44
    | comment |
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    45
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    46
    comment := ''.
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    47
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    48
    userPreferences generateCommentsForGetters ifTrue:[
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    49
        comment := '"default value for the ''%1'' instance variable (automatically generated)"'.
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    50
        comment := comment bindWith: aName.
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    51
    ].
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    52
674
58df305d9184 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents: 656
diff changeset
    53
    ^ self sourceCodeGenerator
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    54
        source: '`@methodName
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    55
            `"comment
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    56
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    57
            self shouldImplement.
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    58
            ^ nil';
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    59
        replace: '`@methodName' with: (self defaultMethodNameFor: aName) asSymbol;
674
58df305d9184 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents: 656
diff changeset
    60
        replace: '`"comment' with: comment;
58df305d9184 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents: 656
diff changeset
    61
        newSource.
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    62
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    63
    "Created: / 30-06-2014 / 10:49:03 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
674
58df305d9184 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents: 656
diff changeset
    64
    "Modified: / 19-09-2014 / 22:34:45 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
585
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    65
! !
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    66
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    67
!CustomDefaultGetterMethodsCodeGenerator methodsFor:'protected'!
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    68
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    69
methodClass: aClass
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    70
    "Assure that method is generated only for metaclass."
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    71
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    72
    ^ aClass theMetaclass
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    73
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    74
    "Created: / 30-06-2014 / 11:11:00 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    75
! !
fdc3edf1a544 add getter methods with lazy initialization along with default variable value metaclass methods
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    76