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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269 | -----------------------------------------------------------------------
-- asf-views-nodes-facelets -- Facelets composition nodes
-- Copyright (C) 2009 - 2021 Stephane Carrez
-- Written by Stephane Carrez (Stephane.Carrez@gmail.com)
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
-----------------------------------------------------------------------
-- = Facelet Components =
-- The facelets is the default view declaration language that uses XML and XHTML.
-- It is a composition and templating framework that allows to create the component
-- tree.
--
-- The facelet components are defined in the following namespace:
-- ```
-- xmlns:ui="http://java.sun.com/jsf/facelets"
-- ```
--
-- The facelet components are implemented by the `ASF.Views.Nodes.Facelets`
-- package which defines the pre-defined tags for composing a view. Nodes of
-- this package are instantiated when the facelet XML tag is found when reading
-- the XHTML view description.
--
-- @include-doc docs/comp-facelet/*.txt
with Ada.Strings.Hash;
with ASF.Factory;
with Ada.Containers.Indefinite_Hashed_Maps;
package ASF.Views.Nodes.Facelets is
-- Register the facelets component factory.
procedure Register (Factory : in out ASF.Factory.Component_Factory);
-- ------------------------------
-- Include Tag
-- ------------------------------
-- The <ui:include src="..."/>
type Include_Tag_Node is new Tag_Node with private;
type Include_Tag_Node_Access is access all Include_Tag_Node'Class;
-- Create the Include Tag
function Create_Include_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- Build the component tree from the tag node and attach it as
-- the last child of the given parent. Calls recursively the
-- method to create children.
overriding
procedure Build_Components (Node : access Include_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class);
-- ------------------------------
-- Composition Tag
-- ------------------------------
-- The <ui:composition template="..."/>
type Composition_Tag_Node is new Tag_Node with private;
type Composition_Tag_Node_Access is access all Composition_Tag_Node'Class;
-- Create the Composition Tag
function Create_Composition_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- Build the component tree from the tag node and attach it as
-- the last child of the given parent. Calls recursively the
-- method to create children.
overriding
procedure Build_Components (Node : access Composition_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class);
-- Freeze the tag node tree and perform any initialization steps
-- necessary to build the components efficiently. After this call
-- the tag node tree should not be modified and it represents a read-only
-- tree.
overriding
procedure Freeze (Node : access Composition_Tag_Node);
-- Include in the component tree the definition identified by the name.
-- Upon completion, return in <b>Found</b> whether the definition was found
-- within this composition context.
procedure Include_Definition (Node : access Composition_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class;
Name : in Unbounded_String;
Found : out Boolean);
-- ------------------------------
-- Debug Tag
-- ------------------------------
-- The <ui:debug/>
type Debug_Tag_Node is new Tag_Node with private;
type Debug_Tag_Node_Access is access all Debug_Tag_Node'Class;
-- Create the Debug Tag
function Create_Debug_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- Build the component tree from the tag node and attach it as
-- the last child of the given parent. Calls recursively the
-- method to create children.
overriding
procedure Build_Components (Node : access Debug_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class);
-- ------------------------------
-- Decorate Tag
-- ------------------------------
-- The <ui:decorate template="...">...</ui:decorate>
type Decorate_Tag_Node is new Composition_Tag_Node with private;
type Decorate_Tag_Node_Access is access all Decorate_Tag_Node'Class;
-- Create the Decorate Tag
function Create_Decorate_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- ------------------------------
-- Define Tag
-- ------------------------------
-- The <ui:define name="...">...</ui:define>
type Define_Tag_Node is new Tag_Node with private;
type Define_Tag_Node_Access is access all Define_Tag_Node'Class;
-- Create the Define Tag
function Create_Define_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- Build the component tree from the tag node and attach it as
-- the last child of the given parent. Calls recursively the
-- method to create children.
overriding
procedure Build_Components (Node : access Define_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class);
-- ------------------------------
-- Insert Tag
-- ------------------------------
-- The <ui:insert name="...">...</ui:insert>
type Insert_Tag_Node is new Tag_Node with private;
type Insert_Tag_Node_Access is access all Insert_Tag_Node'Class;
-- Create the Insert Tag
function Create_Insert_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- Build the component tree from the tag node and attach it as
-- the last child of the given parent. Calls recursively the
-- method to create children.
overriding
procedure Build_Components (Node : access Insert_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class);
-- ------------------------------
-- Param Tag
-- ------------------------------
-- The <ui:param name="name" value="#{expr}"/> parameter creation.
-- The parameter is created in the faces context.
type Param_Tag_Node is new Tag_Node with private;
type Param_Tag_Node_Access is access all Param_Tag_Node'Class;
-- Create the Param Tag
function Create_Param_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- Build the component tree from the tag node and attach it as
-- the last child of the given parent. Calls recursively the
-- method to create children.
overriding
procedure Build_Components (Node : access Param_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class);
-- ------------------------------
-- Comment Tag
-- ------------------------------
-- The <ui:comment condition="...">...</ui:comment>
type Comment_Tag_Node is new Tag_Node with private;
type Comment_Tag_Node_Access is access all Comment_Tag_Node'Class;
-- Create the Comment Tag
function Create_Comment_Tag_Node (Binding : in Binding_Type;
Line : in Line_Info;
Parent : in Tag_Node_Access;
Attributes : in Tag_Attribute_Array_Access)
return Tag_Node_Access;
-- Build the component tree from the tag node and attach it as
-- the last child of the given parent. Calls recursively the
-- method to create children.
overriding
procedure Build_Components (Node : access Comment_Tag_Node;
Parent : in UIComponent_Access;
Context : in out Facelet_Context'Class);
private
-- Tag library map indexed on the library namespace.
package Define_Maps is new
Ada.Containers.Indefinite_Hashed_Maps (Key_Type => String,
Element_Type => Define_Tag_Node_Access,
Hash => Ada.Strings.Hash,
Equivalent_Keys => "=");
type Include_Tag_Node is new Tag_Node with record
Source : Tag_Attribute_Access;
end record;
type Composition_Tag_Node is new Tag_Node with record
Template : Tag_Attribute_Access;
Defines : Define_Maps.Map;
end record;
type Debug_Tag_Node is new Tag_Node with record
Source : Tag_Attribute_Access;
end record;
type Decorate_Tag_Node is new Composition_Tag_Node with null record;
type Define_Tag_Node is new Tag_Node with record
Define_Name : Unbounded_String;
end record;
type Insert_Tag_Node is new Tag_Node with record
Insert_Name : Tag_Attribute_Access;
end record;
type Param_Tag_Node is new Tag_Node with record
Var : Tag_Attribute_Access;
Value : Tag_Attribute_Access;
end record;
type Comment_Tag_Node is new Tag_Node with record
Condition : Tag_Attribute_Access;
end record;
end ASF.Views.Nodes.Facelets;
|