617c48adcb
Added user roles management Improvement CMS_HOOK_FORM_ALTER design. Factorized code into CMS_WIDGET_COMPOSITE Use general notion of CMS_WIDGET (and CMS_FORM allows CMS_WIDGET, and not just CMS_FORM_ITEM) Fixed various CMS_WIDGET traversal, and fixed related issue for CMS forms Fixed CMS_FORM_CHECKBOX_INPUT when no value was set. Added CMS_FORM_DATA.cached_value .. to pass computed values during validation to submit actions (mainly for optimization) Added support for @include=filename in CMS_CONFIGURATION Added CMS_WIDGET_TABLE as filled version of CMS_WIDGET_AGENT_TABLE (renamed from previous CMS_WIDGET_TABLE) Many improvements to the CMS_FORM design Some improvements to CMS_MODULE ...
99 lines
1.7 KiB
Plaintext
99 lines
1.7 KiB
Plaintext
note
|
|
description: "Summary description for {CMS_API_OPTIONS}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
CMS_API_OPTIONS
|
|
|
|
inherit
|
|
TABLE_ITERABLE [detachable ANY, STRING]
|
|
|
|
create
|
|
make,
|
|
make_from_manifest
|
|
|
|
convert
|
|
make_from_manifest ({ ARRAY [TUPLE [key: STRING; value: detachable ANY]],
|
|
ARRAY [TUPLE [STRING_8, ARRAY [TUPLE [STRING_8, STRING_32]]]],
|
|
ARRAY [TUPLE [STRING_8, ARRAY [TUPLE [STRING_8, STRING_8]]]]
|
|
})
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make (n: INTEGER)
|
|
do
|
|
create table.make (n)
|
|
end
|
|
|
|
make_from_manifest (lst: ARRAY [TUPLE [key: STRING; value: detachable ANY]])
|
|
do
|
|
make (lst.count)
|
|
across
|
|
lst as c
|
|
loop
|
|
force (c.item.value, c.item.key)
|
|
end
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
item (k: STRING): detachable ANY
|
|
do
|
|
Result := table.item (k)
|
|
end
|
|
|
|
force (v: detachable ANY; k: STRING)
|
|
do
|
|
table.force (v, k)
|
|
end
|
|
|
|
boolean_item (k: STRING; dft: BOOLEAN): BOOLEAN
|
|
do
|
|
if attached {BOOLEAN} item (k) as b then
|
|
Result := b
|
|
else
|
|
Result := dft
|
|
end
|
|
end
|
|
|
|
string_general_item (k: STRING): detachable READABLE_STRING_GENERAL
|
|
do
|
|
if attached {READABLE_STRING_GENERAL} item (k) as s then
|
|
Result := s
|
|
end
|
|
end
|
|
|
|
string_item, string_8_item (k: STRING): detachable READABLE_STRING_8
|
|
do
|
|
if attached {READABLE_STRING_8} item (k) as s then
|
|
Result := s
|
|
end
|
|
end
|
|
|
|
table: HASH_TABLE [detachable ANY, STRING]
|
|
|
|
feature -- Change
|
|
|
|
import (a_opts: CMS_API_OPTIONS)
|
|
do
|
|
across
|
|
a_opts as c
|
|
loop
|
|
force (c.item, c.key)
|
|
end
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
new_cursor: TABLE_ITERATION_CURSOR [detachable ANY, STRING]
|
|
-- Fresh cursor associated with current structure
|
|
do
|
|
Result := table.new_cursor
|
|
end
|
|
|
|
invariant
|
|
|
|
end
|