Anubis / Xlib

Commit 64fc7e3c2d3c906e186588d5cf800915903eeb2e

Authored by totoro
1 parent 6c24007c

Remove vtm from Calexium lib and move it to Hayamiki in view part

Showing 4 changed files with 0 additions and 483 deletions   Show diff stats
Inline Side-by-side
database/vtm/view_table_manager.anubis deleted
View file @6c24007
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Totoro  
4 - * Date: 16/11/2011  
5 - * Time: 23:53  
6 - */  
7 -  
8 -read tools/basis.anubis  
9 -transmit calexium_lib/database/vtm/view_table_types.anubis  
10 -transmit calexium_lib/database/vtm/view_table_manager_types.anubis  
11 -  
12 -public define Maybe(VTM_view)  
13 - _vtm_get_view  
14 - (  
15 - String table_name,  
16 - List(VTM_view) list  
17 - ) =  
18 - if list is  
19 - {  
20 - [] then println("_vtm_get_view "+table_name+" not found"); failure,  
21 - [ h . t ] then  
22 - if h is vtm_view(tb_name, get_view) then  
23 - if tb_name = table_name then  
24 - success(h)  
25 - else  
26 - _vtm_get_view(table_name, t)  
27 - }.  
28 -  
29 -public define Maybe(VTM_view)  
30 - vtm_get_view  
31 - (  
32 - String table_name,  
33 - VTM_view_list vtm_vlist  
34 - ) =  
35 - _vtm_get_view(table_name, vtm_vlist.list).  
36 -  
37 -  
38 -public define Maybe(VTM_edit)  
39 - _vtm_get_edit  
40 - (  
41 - String table_name,  
42 - List(VTM_edit) list  
43 - ) =  
44 - if list is  
45 - {  
46 - [] then failure,  
47 - [ h . t ] then  
48 - if h is vtm_edit(tb_name, get_edit) then  
49 - if tb_name = table_name then  
50 - success(h)  
51 - else  
52 - _vtm_get_edit(table_name, t)  
53 - }.  
54 -  
55 -public define Maybe(VTM_edit)  
56 - vtm_get_edit  
57 - (  
58 - String table_name,  
59 - VTM_edit_list vtm_vlist  
60 - ) =  
61 - _vtm_get_edit(table_name, vtm_vlist.list).  
62 -  
63 -public define Maybe(TM_writer)  
64 - _tm_get_writer  
65 - (  
66 - String table_name,  
67 - List(TM_writer) list  
68 - ) =  
69 - if list is  
70 - {  
71 - [] then failure,  
72 - [ h . t ] then  
73 - if h is tm_writer(tb_name, get_writer) then  
74 - if tb_name = table_name then  
75 - success(h)  
76 - else  
77 - _tm_get_writer(table_name, t)  
78 - }.  
79 -  
80 -public define Maybe(TM_writer)  
81 - tm_get_writer  
82 - (  
83 - String table_name,  
84 - TM_writer_list tm_wlist  
85 - ) =  
86 - _tm_get_writer(table_name, tm_wlist.list).  
87 -  
88 -public define Maybe((SQLite3DataBase db, List(Int) l_int) -> Maybe(One))  
89 - _tm_get_delete  
90 - (  
91 - String table_name,  
92 - List(TM_delete) list  
93 - ) =  
94 - if list is  
95 - {  
96 - [] then failure,  
97 - [ h . t ] then  
98 - since h is tm_delete(tb_name, delete_func),  
99 - if tb_name = table_name then  
100 - success(delete_func)  
101 - else  
102 - _tm_get_delete(table_name, t)  
103 - }.  
104 -  
105 -public define Maybe((SQLite3DataBase db, List(Int) l_int) -> Maybe(One))  
106 - tm_get_delete  
107 - (  
108 - String table_name,  
109 - TM_delete_list tm_dlist  
110 - ) =  
111 - _tm_get_delete(table_name, tm_dlist.list).  
database/vtm/view_table_manager_types.anubis deleted
View file @6c24007
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Totoro  
4 - * Date: 17/11/2011  
5 - * Time: 00:32  
6 - *  
7 - */  
8 -  
9 -read calexium_lib/database/vtm/view_table_types.anubis  
10 -read calexium_lib/web/CXM_common.anubis  
11 -  
12 -public type VTM_edit:  
13 - vtm_edit(String table_name, (SQLite3DataBase db, VT_action action) -> VT_edit get_edit).  
14 -  
15 -public type VTM_edit_list:  
16 - vtm_edit_list(List(VTM_edit) list).  
17 -  
18 -public type TM_writer:  
19 - tm_writer(String table_name, (SQLite3DataBase db, List(Web_arg) lwa) -> Maybe(One) write).  
20 -  
21 -public type TM_writer_list:  
22 - tm_writer_list(List(TM_writer) list).  
23 -  
24 -public type TM_delete:  
25 - tm_delete(String table_name, (SQLite3DataBase db, List(Int) l_int) -> Maybe(One) delete).  
26 -  
27 -public type TM_delete_list:  
28 - tm_delete_list(List(TM_delete) list).  
29 -  
30 -public type VTM_view:  
31 - vtm_view(String table_name, (SQLite3DataBase db, String view_name) -> VT_view get_view).  
32 -  
33 -public type VTM_view_list:  
34 - vtm_view_list(List(VTM_view) list).  
35 -  
36 -public type VTM:  
37 - vtm(VTM_view_list view_list,  
38 - VTM_edit_list edit_list,  
39 - TM_writer_list writer_list,  
40 - TM_delete_list delete_list).  
database/vtm/view_table_renderer.anubis deleted
View file @6c24007
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Totoro  
4 - * Date: 30/11/2011  
5 - * Time: 21:22  
6 - *  
7 - */  
8 -  
9 -read calexium_lib/database/vtm/view_table_types.anubis  
10 -read calexium_lib/database/vtm/view_table_manager_types.anubis  
11 -read calexium_lib/database/vtm/view_table_manager.anubis  
12 -read hayamiki_lib/types/hayamiki.anubis  
13 -read system/string.anubis  
14 -read locale/L3.anubis  
15 -read tools/basis.anubis  
16 -  
17 -read system_colors/rgb.anubis  
18 -read system/convert.anubis  
19 -  
20 -//read utils.anubis  
21 -read locale/L3LanguageInfo.anubis  
22 -read calexium_lib/web/CXM_common.anubis  
23 -read calexium_lib/web/CXM_web_arg_utils.anubis  
24 -read calexium_lib/web/CXM_making_a_web_site.anubis  
25 -read calexium_lib/web/CXM_multihost_http_server.anubis  
26 -read calexium_lib/web/jQuery/CXM_jquery_datatable.anubis  
27 -read calexium_lib/web/jQuery/CXM_jquery_datatable_types.anubis  
28 -read calexium_lib/web/jQuery/CXM_jquery_dialog.anubis  
29 -read calexium_lib/web/jQuery/CXM_jquery_button.anubis  
30 -read calexium_lib/web/jQuery/ui-addon/datetimepicker.anubis  
31 -read calexium_lib/web/CXM_form.anubis  
32 -read calexium_lib/web/widgets/css_helper.anubis  
33 -read calexium_lib/web/widgets/button.anubis  
34 -  
35 -define CXM_Form_Field  
36 - help_line  
37 - (  
38 - HK_Help_Text help,  
39 - (String) -> String _T  
40 - )=  
41 - if help is  
42 - {  
43 - no_help_text then empty,  
44 - help_text_TAG(tag) then explain(_T(tag)),  
45 - help_text(str) then explain(str)  
46 - }.  
47 -  
48 -  
49 - //Edit table part  
50 -public define List(CXM_Form_Field)  
51 - edit_form_lines  
52 - (  
53 - SQLite3DataBase db,  
54 - (String) -> String _T,  
55 - List(VT_edit_entry) list,  
56 - List(CXM_Form_Field) so_far  
57 - )=  
58 - if list is  
59 - {  
60 - [] then reverse(so_far),  
61 - [ h . t] then  
62 - with line =  
63 - if h is  
64 - {  
65 - hidden(name, value) then  
66 - //print("hidden "+name+" = "+value);  
67 - [hidden(html_Id(""), wan(name), wav(value))],  
68 - primary_key(idx) then  
69 - [hidden(html_Id(""), wan("id"), wav(idx))],  
70 - information(s_name, c_name, value, width, help) then  
71 - [input_readonly(label(_T(s_name), no_help), wan(c_name), init(value), if width > 0 then custom(width) else narrow), help_line(help, _T)],  
72 - text(s_name, c_name, value, help) then  
73 - [input(label(_T(s_name), no_help), wan(c_name), init(value), narrow, mandatory), help_line(help, _T)],  
74 - password(s_name, c_name, help) then  
75 - [password_input(label(_T(s_name), no_help), wan(c_name+"_1"), init(""), narrow, non_mandatory),  
76 - password_input(label(_T(s_name), no_help), wan(c_name+"_2"), init(""), narrow, non_mandatory),  
77 - help_line(help, _T)],  
78 -  
79 - foreign_text(s_name, c_name, value, select, help) then  
80 - [selector_c([],label(_T(s_name), no_help), html_Id(""), wan(c_name), 1, select.get(db), success(init(to_String(value))), mandatory), help_line(help, _T)],  
81 - choices_text(s_name, c_name, value, select, help) then  
82 - [selector_c([],label(_T(s_name), no_help), html_Id(""), wan(c_name), 1, select.get(db), success(init(value)), mandatory), help_line(help, _T)],  
83 - text_area(s_name, c_name, value, help) then  
84 - [text_area([],label(_T(s_name), no_help), html_Id(""), wan(c_name), init(value), narrow, (Int)5, mandatory), help_line(help, _T)],  
85 - boolean(s_name, c_name, value, help) then  
86 - [checkboxr([],label(_T(s_name), no_help), html_Id(""), wan(c_name), wav(c_name),value, mandatory), help_line(help, _T)],  
87 - integer(s_name, c_name, value, help) then  
88 - [input(label(_T(s_name), no_help), wan(c_name), init(abs_to_decimal(value)), small, mandatory), help_line(help, _T)],  
89 - choices_int(s_name, c_name, value, select, help) then  
90 - [selector_c([],label(_T(s_name), no_help), html_Id(""), wan(c_name), 1, select.get(db), success(init(to_String(value))), mandatory), help_line(help, _T)],  
91 - date(s_name, c_name, value, help) then  
92 - [input([class("datepicker")], label(_T(s_name), no_help), html_Id(c_name), wan(c_name), init(value), small, non_mandatory), help_line(help, _T)],  
93 - time(s_name, c_name, value, help) then  
94 - [input([class("timepicker")], label(_T(s_name), no_help), html_Id(c_name), wan(c_name), init(value), small, non_mandatory), help_line(help, _T)],  
95 - datetime(s_name, c_name, value, help) then  
96 - [input([class("datetimepicker")], label(_T(s_name), no_help), html_Id(c_name), wan(c_name), init(value), custom(18), mandatory), help_line(help, _T)],  
97 - },  
98 - edit_form_lines(db, _T, t, reverse(line)+so_far)  
99 - }.  
100 -  
101 -public define HTML_Partial_Content  
102 - edit_table_page  
103 - (  
104 - SQLite3DataBase db,  
105 - (String) -> String _T,  
106 - String lang,  
107 - List(Web_arg) lwa,  
108 - VT_edit vt_elist  
109 - ) =  
110 - with table_name = vt_elist.table_name,  
111 - with button_name = if get_String(lwa, "id","none") = "none" then _T("CREATE") else _T("UPDATE"),  
112 - partial_content(jq_datetimepicker_init(lang),  
113 - cxm_form( table_name, lwa,  
114 - edit_form_lines(db, _T, vt_elist.list, [])+  
115 - [ submit("create", failure, button_name, [("table_name", table_name)]) ]  
116 - )).  
117 -  
118 -public define Maybe(HTML_Partial_Content)  
119 - edit_table_content  
120 - (  
121 - SQLite3DataBase db,  
122 - (String) -> String _T,  
123 - String lang,  
124 - List(Web_arg) lwa,  
125 - String table,  
126 - VT_action action,  
127 - VTM vtm  
128 - ) =  
129 - if vtm_get_edit(table, vtm.edit_list) is  
130 - {  
131 - failure then failure,  
132 - success(vtm_e) then  
133 - since vtm_e is vtm_edit(_, get_edit),  
134 - success(edit_table_page(db, _T, lang, lwa, get_edit(db, action)))  
135 - }.  
136 -  
137 -  
138 - // View table part  
139 -define HTML_Row(HTML_Off_Form) make_line  
140 - (  
141 - String table_name,  
142 - String action_name, //default is "edit_table", but can be surcharged for own use  
143 - List(VT_view_entry) entries,  
144 - List(HTML_Cell(HTML_Off_Form)) so_far  
145 - )=  
146 - if entries is  
147 - {  
148 - [] then row( [], reverse(so_far)),  
149 - [h . t] then  
150 - with cell = if h is  
151 - {  
152 - text(string) then cell((HTML_Off_Form)text(string)),  
153 -// link(id, string) then cell((HTML_Off_Form)actioner(same,same, link(string), action_name, [("table_name", table_name),("id",id)])),  
154 - link(id, string) then cell((HTML_Off_Form)literal(jq_dialog_open(string, dialog_id(action_name+"_dlg_ajax"), "'id="+id+"'"))),  
155 - link_id_action(id, name, action) then cell((HTML_Off_Form)actioner(same,same, link(name), action, [("id",id)])),  
156 - icon(icon_path) then cell((HTML_Off_Form)image([], icon_path, ""))  
157 - },  
158 - make_line(table_name, action_name, t, [cell . so_far])  
159 - }.  
160 -  
161 -define List(HTML_Row(HTML_Off_Form))  
162 - make_lines  
163 - (  
164 - (String) -> String _T, //translator  
165 - String table_name,  
166 - String action_name,  
167 - List(VT_view_row) entries,  
168 - List(HTML_Row(HTML_Off_Form)) so_far  
169 - )=  
170 - if entries is  
171 - {  
172 - [] then reverse(so_far),  
173 - [h . t] then  
174 - //compute each line  
175 - //prepare here the first cell for actioner  
176 - with actions_cell = (HTML_Cell(HTML_Off_Form))  
177 - cell([],  
178 - sequence([  
179 - partial(img_button_confirm(icn16_cross, _T("CONFIRMATION_REQUEST"), _T("CONFIRM_LINE_DELETION") , _T("OK"), _T("CANCEL"), jQuery_actioner(same, jqlink, "hk_del_row" + format_extra_operands([("table_name", table_name),("id",to_String(h.db_id))])))),  
180 - partial(img_button(icn16_edit, [event(onclick, jq_dialog_open(dialog_id(action_name+"_dlg_ajax"), "'id="+to_String(h.db_id)+"'"))], "", [])),  
181 - ])  
182 - ),  
183 - make_lines(_T, table_name, action_name, t, [make_line(table_name, action_name, h.list, [actions_cell]). so_far] )  
184 - }.  
185 -  
186 - // View table part  
187 -define HTML_Header_Row(HTML_Off_Form)  
188 - make_header  
189 - (  
190 - (String) -> String _T, //translator  
191 - List(VT_view_entry) entries,  
192 - List(HTML_Header_Cell(HTML_Off_Form)) so_far  
193 - )=  
194 - if entries is  
195 - {  
196 - [] then header_row( [], reverse(so_far)),  
197 - [h . t] then  
198 - with cell = if h is  
199 - {  
200 - text(string) then header_cell((HTML_Off_Form)text(_T(string))),  
201 - link(id, string) then header_cell((HTML_Off_Form)actioner(same,same, link(string),"edit_table",[])), //TODO  
202 - link_id_action(id, text, action) then header_cell((HTML_Off_Form)actioner(same,same, link(text),action,[("id",id)])), //TODO  
203 - icon(icon_path) then header_cell((HTML_Off_Form)image([], icon_path, ""))  
204 - },  
205 - make_header(_T, t, [cell . so_far])  
206 - }.  
207 -  
208 -  
209 -  
210 -public define HTML_Partial_Content  
211 - view_table_form  
212 - (  
213 - (String) -> String _T,  
214 - String action_name,  
215 - VT_view rows  
216 - )=  
217 - with action_header_cell = header_cell((HTML_Off_Form)text(_T("ACTION"))),  
218 - partial_content(  
219 - div( [/*class("tableau")*/],  
220 - sequence(  
221 - [  
222 - partial(jquery_button(jQuery_button(button, "edit_table_"+rows.table_name, "", _T("NEW"), jQuery_actioner(same, jqlink, "edit_table&table_name="+rows.table_name)))),  
223 - //dialog used by datatable entries  
224 - partial(jq_dialog_create(dialog_id(action_name+"_dlg_ajax"), ajax("?a=ajax_edit_table&table_name="+rows.table_name))),  
225 -  
226 - table([core_attrs([id("table_view"), class("tableau display compact nowrap")])],  
227 - make_header(_T, rows.header.list, [action_header_cell]),  
228 - make_lines(_T, rows.table_name, action_name, rows.list, []))  
229 - ]  
230 - )  
231 - ))  
232 - .  
233 -  
234 -public define HTML_Partial_Content  
235 - view_table_page  
236 - (  
237 - (String) -> String _T,  
238 - String lang,  
239 - String web_site_directory,  
240 - String action_name,  
241 - VT_view rows  
242 - ) =  
243 -  
244 -// if tb is tool_box(lang, _T, _, _, db, _) then  
245 -// println("view_table_page - lang : "+lang);  
246 -// println("view_table_page - web_site_directory : "+web_site_directory);  
247 - partial_content(jq_dialog_init + jq_datetimepicker_init(lang),  
248 - [partial(html_wave_box_wide(_T(to_upper(rows.table_name)),  
249 - jquery_datatable("table_view", view_table_form(_T, action_name, rows), true, false, jq_dt_pt_full_numbers, false, scrollY(500), true, true, true, lang, no_extra, web_site_directory)))]).  
250 -  
251 -public define Maybe(HTML_Partial_Content)  
252 - view_table_content  
253 - (  
254 - SQLite3DataBase db,  
255 - (String) -> String _T,  
256 - String lang,  
257 - String web_site_directory,  
258 - String table,  
259 - String view_name,  
260 - String action_name,  
261 - VTM vtm  
262 - ) =  
263 - if vtm_get_view(table, vtm.view_list) is  
264 - {  
265 - failure then failure,  
266 - success(vtm_v) then  
267 - since vtm_v is vtm_view(_, get_view),  
268 - success(view_table_page(_T, lang, web_site_directory, action_name, get_view(db, view_name)))  
269 - }.  
database/vtm/view_table_types.anubis deleted
View file @6c24007
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Totoro  
4 - * Date: 15/11/2011  
5 - * Time: 20:32  
6 - */  
7 -  
8 -read calexium_lib/web/CXM_making_a_web_site.anubis  
9 -transmit calexium_lib/web/CXM_common.anubis  
10 -read hayamiki_lib/types/hayamiki.anubis  
11 -  
12 -public type VT_edit_selector:  
13 - vt_edit_selector((SQLite3DataBase db) -> List((List(CoreAttrs), WebArgValue, String)) get).  
14 -  
15 -public type VT_edit_entry:  
16 - hidden (String name, String value),  
17 - primary_key (String idx),  
18 - information (String s_name, String c_name, String v_name, Int width, HK_Help_Text help), //s_name = show_name for translation, v_name = string to show  
19 - text (String s_name, String c_name, String value, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name  
20 - password (String s_name, String c_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name  
21 - foreign_text(String s_name, String c_name, Int selected, VT_edit_selector selector, HK_Help_Text help),  
22 - choices_text(String s_name, String c_name, String selected, VT_edit_selector selector, HK_Help_Text help),  
23 - text_area (String s_name, String c_name, String value, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name  
24 - boolean (String s_name, String c_name, Bool value, HK_Help_Text help),  
25 - integer (String s_name, String c_name, Int value, HK_Help_Text help),  
26 - choices_int (String s_name, String c_name, Int selected, VT_edit_selector selector, HK_Help_Text help),  
27 - date (String s_name, String c_name, String value, HK_Help_Text help),  
28 - time (String s_name, String c_name, String value, HK_Help_Text help),  
29 - datetime (String s_name, String c_name, String value, HK_Help_Text help).  
30 -  
31 -public define VT_edit_entry text (String s_name, String c_name, String value) = text(s_name, c_name, value, no_help_text).  
32 -public define VT_edit_entry foreign_text(String s_name, String c_name, Int selected, VT_edit_selector selector) = foreign_text(s_name, c_name, selected, selector, no_help_text).  
33 -public define VT_edit_entry text_area (String s_name, String c_name, String value) = text_area(s_name, c_name, value, no_help_text).  
34 -public define VT_edit_entry boolean(String s_name, String c_name, Bool value) = boolean(s_name, c_name, value, no_help_text).  
35 -public define VT_edit_entry integer(String s_name, String c_name, Int value) = integer(s_name, c_name, value, no_help_text).  
36 -public define VT_edit_entry information(String s_name, String c_name, String v_name, HK_Help_Text help) = information(s_name, c_name, v_name, 0, help).  
37 -  
38 -  
39 -public type VT_edit:  
40 - vt_edit(String table_name, List(VT_edit_entry) list).  
41 -  
42 -public type VT_view_entry:  
43 - text(String text),  
44 - link(String id, String text),  
45 - link_id_action(String id, String text, String link_id_action),  
46 - icon(String icon_path).  
47 -  
48 -public type VT_view_row_header:  
49 - vt_view_row_header(List(VT_view_entry) list).  
50 -  
51 -public type VT_view_row:  
52 - vt_view_row(Int db_id, List(VT_view_entry) list).  
53 -  
54 -public type VT_view:  
55 - vt_view(String table_name, String view_name, VT_view_row_header header, List(VT_view_row) list).  
56 -  
57 -  
58 -public type VT_action:  
59 - new_entry,  
60 - edit_entry(String idx).  
61 -  
62 -public define String default_select = "--------------------". //20 dash  
63 -public define (List(CoreAttrs),WebArgValue,String) selector_default_entry = ([], wav("0"),default_select).