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
|
@@SET@@ PACKAGE = WBlocks
-- DO NOT EDIT, THIS FILE HAS BEEN GENERATED
package @_PACKAGE_@ is
pragma Style_Checks (Off);
package Lazy is
procedure Register;
-- Register lazy tags into the AWS's Web Block framework
@@TABLE@@
@@IF@@ @_UPPER:SLICE(1..5):VARIABLE_LIST_@ = "LAZY_"
@_REPLACE_ALL(LAZY_/):REPLACE_ALL(__/_):VARIABLE_LIST_@ : constant String := "@_VARIABLE_LIST_@";
@@END_IF@@
@@END_TABLE@@
end Lazy;
end @_PACKAGE_@;
@@TABLE@@
-- DO NOT EDIT, THIS FILE HAS BEEN GENERATED
package @_PACKAGE_@.@_CAPITALIZE:REPLACE_ALL(\./_):BASENAME_@ is
pragma Style_Checks (Off);
Template : constant String := "@_FILENAME_@";
@@TABLE@@@
@@IF@@ not @_IS_EMPTY:URL_@
@@IF@@ @_TABLE_LINE_@ = 1
URL : constant String := "@_URL_@";
@@ELSE@@
URL@_TABLE_LINE_@ : constant String := "@_URL_@";
@@END_IF@@
@@END_IF@@
@@END_TABLE@@
@@TABLE@@
@@IF@@ not @_IS_EMPTY:VARIABLE_@ and @_UPPER:SLICE(1..5):VARIABLE_@ /= "LAZY_"
@_REPLACE_ALL(__/_):VARIABLE_@ : constant String := "@_VARIABLE_@";
@@END_IF@@
@@END_TABLE@@
@@IF@@ @_EXIST:HTTP_@
package HTTP is
@@TABLE@@
@@IF@@ not @_IS_EMPTY:HTTP_@
@_REPLACE_ALL(__/_):HTTP_@ : constant String := "@_HTTP_@";
@@END_IF@@
@@END_TABLE@@
end HTTP;
@@END_IF@@
@@IF@@ @_EXIST:SET_VAR_@
package Set is
@@TABLE@@
@@IF@@ not @_IS_EMPTY:SET_VAR_@
@_REPLACE_ALL(SET_/):SET_VAR_@ : constant String := "@_SET_VAL_@";
@@END_IF@@
@@END_TABLE@@
end Set;
@@END_IF@@
@@IF@@ @_EXIST:AJAX_EVENT_@
package Ajax is
@@TABLE@@
@@IF@@ not @_IS_EMPTY:AJAX_EVENT_@
@_AJAX_EVENT_@_@_AJAX_ACTION_@ : constant String := "/@_AJAX_EVENT_@$@_AJAX_ACTION_@";
@@END_IF@@
@@END_TABLE@@
end Ajax;
@@END_IF@@
end @_PACKAGE_@.@_CAPITALIZE:REPLACE_ALL(\./_):BASENAME_@;
@@END_TABLE@@
-- DO NOT EDIT, THIS FILE HAS BEEN GENERATED
with AWS.MIME;
with AWS.Services.Web_Block.Registry;
with Web_Callbacks;
@@TABLE@@
with @_PACKAGE_@.@_CAPITALIZE:REPLACE_ALL(\./_):BASENAME_@;
@@END_TABLE@@
package body @_PACKAGE_@ is
use AWS;
package body Lazy is
--------------
-- Register --
--------------
procedure Register is
use AWS.Services;
begin
-- Register blocks
@@TABLE@@
@@IF@@ @_UPPER:SLICE(1..5):VARIABLE_LIST_@ = "LAZY_"
Web_Block.Registry.Register
("@_VARIABLE_LIST_@",
"@_LOWER:REPLACE_ALL(LAZY_/):VARIABLE_LIST_@.thtml",
Web_Callbacks.@_CAPITALIZE:REPLACE_ALL(LAZY_/):VARIABLE_LIST_@'Access);
@@END_IF@@
@@END_TABLE@@
-- Register Ajax
@@TABLE@@
@@TABLE@@
@@IF@@ not @_IS_EMPTY:AJAX_EVENT_@
Services.Web_Block.Registry.Register
("/@_AJAX_EVENT_@$@_AJAX_ACTION_@",
@_PACKAGE_@.R_@_CAPITALIZE:REPLACE_ALL(\./_):AJAX_FILE_@.Template,
Web_Callbacks.@_CAPITALIZE:AJAX_EVENT_@_@_CAPITALIZE:AJAX_ACTION_@'Access,
Content_Type => MIME.Text_XML,
Context_Required => True);
@@END_IF@@
@@END_TABLE@@
@@END_TABLE@@
end Register;
end Lazy;
end @_PACKAGE_@;
|
