-
Notifications
You must be signed in to change notification settings - Fork 48
/
Copy pathzdp_builder.abap
116 lines (94 loc) · 2.83 KB
/
zdp_builder.abap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
*&---------------------------------------------------------------------*
*& Report ZDP_BUILDER
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zdp_builder.
INTERFACE lif_pizza.
DATA: dough TYPE string,
sauce TYPE string,
topping TYPE string.
ENDINTERFACE.
CLASS lcl_pizza DEFINITION.
PUBLIC SECTION.
INTERFACES: lif_pizza.
ENDCLASS.
CLASS pizza_builder DEFINITION ABSTRACT.
PUBLIC SECTION.
METHODS: create_new_pizza
RETURNING VALUE(ro_pizza) TYPE REF TO lif_pizza.
METHODS: build_dough ABSTRACT,
build_sauce ABSTRACT,
build_topping ABSTRACT.
PROTECTED SECTION.
DATA: pizza TYPE REF TO lif_pizza.
ENDCLASS.
CLASS pizza_builder IMPLEMENTATION.
METHOD create_new_pizza.
CREATE OBJECT pizza TYPE lcl_pizza.
ro_pizza = pizza.
ENDMETHOD.
ENDCLASS.
CLASS veg_pizza_builder DEFINITION INHERITING FROM pizza_builder.
PUBLIC SECTION.
METHODS: build_dough REDEFINITION,
build_sauce REDEFINITION,
build_topping REDEFINITION.
ENDCLASS.
CLASS veg_pizza_builder IMPLEMENTATION.
METHOD build_dough.
pizza->dough = 'Thin Crust'.
ENDMETHOD.
METHOD build_sauce.
pizza->sauce = 'Mild'.
ENDMETHOD.
METHOD build_topping.
pizza->topping = 'Olives, Pineapples, Jalapenos'.
ENDMETHOD.
ENDCLASS.
CLASS cheese_pizza_builder DEFINITION INHERITING FROM pizza_builder.
PUBLIC SECTION.
METHODS: build_dough REDEFINITION,
build_sauce REDEFINITION,
build_topping REDEFINITION.
ENDCLASS.
CLASS cheese_pizza_builder IMPLEMENTATION.
METHOD build_dough.
pizza->dough = 'Thick Crust'.
ENDMETHOD.
METHOD build_sauce.
pizza->sauce = 'Mild Hot'.
ENDMETHOD.
METHOD build_topping.
pizza->topping = 'Cheese, Cheese, Cheese, more Cheese'.
ENDMETHOD.
ENDCLASS.
CLASS cook DEFINITION.
PUBLIC SECTION.
METHODS: construct_pizza IMPORTING io_builder TYPE REF TO pizza_builder
RETURNING VALUE(ro_pizza) TYPE REF TO lif_pizza.
PRIVATE SECTION.
DATA: pizzabuilder TYPE REF TO pizza_builder.
ENDCLASS.
CLASS cook IMPLEMENTATION.
METHOD construct_pizza.
pizzabuilder = io_builder.
ro_pizza = pizzabuilder->create_new_pizza( ).
pizzabuilder->build_dough( ).
pizzabuilder->build_sauce( ).
pizzabuilder->build_topping( ).
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: o_cook TYPE REF TO cook,
o_pizza_builder TYPE REF TO pizza_builder,
o_pizza TYPE REF TO lif_pizza.
CREATE OBJECT o_cook.
CREATE OBJECT o_pizza_builder TYPE veg_pizza_builder.
o_pizza = o_cook->construct_pizza( o_pizza_builder ).
WRITE: / o_pizza->dough, o_pizza->sauce, o_pizza->topping.
CREATE OBJECT o_pizza_builder TYPE cheese_pizza_builder.
o_pizza = o_cook->construct_pizza( o_pizza_builder ).
WRITE: / o_pizza->dough, o_pizza->sauce, o_pizza->topping.