/usr/share/doc/libaws-doc/examples/web_block_ajax_templates/templates.tada is in libaws-doc 17.2.2017-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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_@;
|