David RENÉ / hayamiki_lib

Commit 51fe496be35155ddc273afc5d870604a86897dff

Authored by totoro
1 parent 7a53f1c1

refactoring to DS_Type_File management

Showing 32 changed files with 729 additions and 685 deletions   Show diff stats
Inline Side-by-side
ds_files/ds_types.anubis
  Show/Hide comments   View file @51fe496
@@ -12,277 +12,288 @@ read densaku_lib/types/densaku.anubis @@ -12,277 +12,288 @@ read densaku_lib/types/densaku.anubis
12 define String model_types = "hayamiki_lib/model/types/". 12 define String model_types = "hayamiki_lib/model/types/".
13 define String view_types = "hayamiki_lib/view/types/". 13 define String view_types = "hayamiki_lib/view/types/".
14 14
15 -public define List(DS_Type) hayamiki_lib_types_description = 15 +public define List(DS_Type_File) hayamiki_lib_types_description =
16 [ 16 [
17 - ds_type("HK_Database", [  
18 - alternative("hk_database", [  
19 - component(string, "name", comment("name of the database")),  
20 - component(list, extern_type("HK_App", model_types+"hk_app.anubis"), "apps", comment("list of applications"))  
21 - ])  
22 - ]),  
23 -  
24 - ds_type("HK_App", [  
25 - alternative("hk_app", [  
26 - component(string, "app_name"),  
27 - component(extern_type("HK_Icon", model_types+"hk_icon.anubis"), "icon"),  
28 - component(extern_type("HK_Help_Text", model_types+"hk_help_text.anubis"), "help"),  
29 - component(list, extern_type("HK_Table", model_types+"hk_table.anubis"), "hk_tables")  
30 - ])  
31 - ]),  
32 -  
33 - ds_type("HK_Icon", [  
34 - enum("no_icon"),  
35 - alternative("icon16", [  
36 - component(string, "name")  
37 - ])  
38 - ]),  
39 -  
40 - ds_type("HK_Help_Text", [  
41 - enum("no_help_text", comment("no help text available")),  
42 - alternative("help_text_TAG", [  
43 - component(string, "h_text_tag", comment("TAG use with Anubis translation tool /locale/L3.anubis")) 17 + ds_type_file(auto, auto,
  18 + [
  19 + ds_type("HK_Database", [
  20 + alternative("hk_database", [
  21 + component(string, "name", comment("name of the database")),
  22 + component(list, extern_type("HK_App", model_types+"hk_app.anubis"), "apps", comment("list of applications"))
  23 + ])
  24 + ]),
  25 +
  26 + ds_type("HK_App", [
  27 + alternative("hk_app", [
  28 + component(string, "app_name"),
  29 + component(extern_type("HK_Icon", model_types+"hk_icon.anubis"), "icon"),
  30 + component(extern_type("HK_Help_Text", model_types+"hk_help_text.anubis"), "help"),
  31 + component(list, extern_type("HK_Table", model_types+"hk_table.anubis"), "hk_tables")
  32 + ])
44 ]), 33 ]),
45 - alternative("help_text", [  
46 - component(string, "h_text", comment("pure text to show"))  
47 - ])  
48 - ]),  
49 34
50 - ds_type("HK_Table", [  
51 - alternative("hk_table", [  
52 - component(string, "name", comment("name of the table")),  
53 - component(string, "short_name", comment("table name without app_name in prefix")),  
54 - component(extern_type("HK_Model", model_types+"hk_model.anubis"), "model"),  
55 - component(extern_type("HK_Display", view_types+ "hk_display.anubis"), "display")  
56 - ])  
57 - ]),  
58 -  
59 - ds_type("HK_Model", [  
60 - alternative("hk_model", [  
61 - component(list, extern_type("HK_Model_Column", model_types+"hk_model_column.anubis"), "columns", comment("columns other than the primary key column (if any)")),  
62 - component(string, "show_string")  
63 - ])  
64 - ]),  
65 -  
66 - ds_type("HK_Model_Column", [  
67 - alternative("hk_column", [  
68 - component( string, "name", comment("name of ordinary column (i.e. all but 'id')")),  
69 - component( extern_type("HK_Model_Field", model_types+"hk_model_field.anubis"), "type"),  
70 - component(list, extern_type("HK_Model_Attr", model_types+"hk_model_attr.anubis"), "attributes"),  
71 - component( extern_type("HK_Help_Text", model_types+"hk_help_text.anubis"), "help")  
72 - ])  
73 - ]),  
74 -  
75 - ds_type("HK_Model_Field", [  
76 - enum("p_key"),  
77 - enum("boolean_field", comment("true or false")),  
78 - alternative("date_field", [  
79 - component(extern_type("HK_Datetime_Field_Attr", model_types+"hk_datetime_field_attr.anubis"), "hk_dt_f_attr", comment("date with the precision of the day")), 35 + ds_type("HK_Icon", [
  36 + enum("no_icon"),
  37 + alternative("icon16", [
  38 + component(string, "name")
  39 + ])
80 ]), 40 ]),
81 - alternative("time_field", [  
82 - component(extern_type("HK_Datetime_Field_Attr", model_types+"hk_datetime_field_attr.anubis"), "hk_dt_f_attr", comment("time with the precision of the second")), 41 +
  42 + ds_type("HK_Help_Text", [
  43 + enum("no_help_text", comment("no help text available")),
  44 + alternative("help_text_TAG", [
  45 + component(string, "h_text_tag", comment("TAG use with Anubis translation tool /locale/L3.anubis"))
  46 + ]),
  47 + alternative("help_text", [
  48 + component(string, "h_text", comment("pure text to show"))
  49 + ])
83 ]), 50 ]),
84 - alternative("datetime_field", [  
85 - component(extern_type("HK_Datetime_Field_Attr", model_types+"hk_datetime_field_attr.anubis"), "hk_dt_f_attr", comment("datetime with the precision of the second")), 51 +
  52 + ds_type("HK_Table", [
  53 + alternative("hk_table", [
  54 + component(string, "name", comment("name of the table")),
  55 + component(string, "short_name", comment("table name without app_name in prefix")),
  56 + component(extern_type("HK_Model", model_types+"hk_model.anubis"), "model"),
  57 + component(extern_type("HK_Display", view_types+ "hk_display.anubis"), "display")
  58 + ])
86 ]), 59 ]),
87 - alternative("foreign_key", comment("foreign key to 'id' in another (or same) table and column_name for choice selector)"),  
88 - [  
89 - component(extern_type("HK_App_Name", model_types+"hk_app_name.anubis"), "app_name"),  
90 - component(string, "table_name"),  
91 - //component(extern_type("HK_FK_Attr", model_types+"hk_fk_attr.anubis"), "fk_attr"), 60 +
  61 + ds_type("HK_Model", [
  62 + alternative("hk_model", [
  63 + component(list, extern_type("HK_Model_Column", model_types+"hk_model_column.anubis"), "columns", comment("columns other than the primary key column (if any)")),
  64 + component(string, "show_string")
  65 + ])
92 ]), 66 ]),
93 - alternative("integer_field", [  
94 - component(extern_type("HK_Int_Choices", model_types+"hk_int_choices.anubis"), "choices", comment("integer of arbitrary size ")), 67 +
  68 + ds_type("HK_Model_Column", [
  69 + alternative("hk_column", [
  70 + component( string, "name", comment("name of ordinary column (i.e. all but 'id')")),
  71 + component( extern_type("HK_Model_Field", model_types+"hk_model_field.anubis"), "type"),
  72 + component(list, extern_type("HK_Model_Attr", model_types+"hk_model_attr.anubis"), "attributes"),
  73 + component( extern_type("HK_Help_Text", model_types+"hk_help_text.anubis"), "help")
  74 + ])
95 ]), 75 ]),
96 - enum("float_field"),  
97 - alternative("char_field", [  
98 - component(extern_type("HK_Text_Choices", model_types+"hk_text_choices.anubis"), "choices"),  
99 - component(int, "size", comment("text of maximal size 'size' (number of characters)")), 76 +
  77 + ds_type("HK_Model_Field", [
  78 + enum("p_key"),
  79 + enum("boolean_field", comment("true or false")),
  80 + alternative("date_field", [
  81 + component(extern_type("HK_Datetime_Field_Attr", model_types+"hk_datetime_field_attr.anubis"), "hk_dt_f_attr", comment("date with the precision of the day")),
  82 + ]),
  83 + alternative("time_field", [
  84 + component(extern_type("HK_Datetime_Field_Attr", model_types+"hk_datetime_field_attr.anubis"), "hk_dt_f_attr", comment("time with the precision of the second")),
  85 + ]),
  86 + alternative("datetime_field", [
  87 + component(extern_type("HK_Datetime_Field_Attr", model_types+"hk_datetime_field_attr.anubis"), "hk_dt_f_attr", comment("datetime with the precision of the second")),
  88 + ]),
  89 + alternative("foreign_key", comment("foreign key to 'id' in another (or same) table and column_name for choice selector)"),
  90 + [
  91 + component(extern_type("HK_App_Name", model_types+"hk_app_name.anubis"), "app_name"),
  92 + component(string, "table_name"),
  93 + //component(extern_type("HK_FK_Attr", model_types+"hk_fk_attr.anubis"), "fk_attr"),
  94 + ]),
  95 + alternative("integer_field", [
  96 + component(extern_type("HK_Int_Choices", model_types+"hk_int_choices.anubis"), "choices", comment("integer of arbitrary size ")),
  97 + ]),
  98 + enum("float_field"),
  99 + alternative("char_field", [
  100 + component(extern_type("HK_Text_Choices", model_types+"hk_text_choices.anubis"), "choices"),
  101 + component(int, "size", comment("text of maximal size 'size' (number of characters)")),
  102 + ]),
  103 + alternative("password_field", [
  104 + component(int, "min_size", comment("the password field doesn't show the password string or store it in hashed version into database")),
  105 + ]),
  106 + alternative("text_field", comment("text of variable size"),
  107 + [
  108 + component(extern_type("HK_Text_Field_Attr", model_types+"hk_text_field_attr.anubis"), "hk_text_field_attr"),
  109 + ]),
  110 + enum("color_field", comment("String which representing RGBA color like HTML"))
100 ]), 111 ]),
101 - alternative("password_field", [  
102 - component(int, "min_size", comment("the password field doesn't show the password string or store it in hashed version into database")), 112 +
  113 + //
  114 + ds_type("HK_Text_Field_Attr", [
  115 + enum("none", comment("Nothing special, normal behaviour")),
  116 + enum("rich_editor", comment("Use richt text editor for that area"))
103 ]), 117 ]),
104 - alternative("text_field", comment("text of variable size"),  
105 - [  
106 - component(extern_type("HK_Text_Field_Attr", model_types+"hk_text_field_attr.anubis"), "hk_text_field_attr"), 118 +
  119 + // ds_type("HK_FK_Attr", [
  120 + // enum("one_to_one", comment("Foreign key relation is one to one")),
  121 + // enum("many_to_one", comment("Foreign key relation is many to one"))
  122 + // ]),
  123 +
  124 + ds_type("HK_Int_Choices", [
  125 + enum("no_choice", comment("No list choice is available. Hence the user must enter the value")),
  126 + alternative("int_choices", [
  127 + component(list, extern_type("HK_Int_Choice", model_types+"hk_int_choice.anubis"), "hk_int_choice", comment("List of possible choices"))
  128 + ])
107 ]), 129 ]),
108 - enum("color_field", comment("String which representing RGBA color like HTML"))  
109 - ]),  
110 -  
111 - //  
112 - ds_type("HK_Text_Field_Attr", [  
113 - enum("none", comment("Nothing special, normal behaviour")),  
114 - enum("rich_editor", comment("Use richt text editor for that area"))  
115 - ]),  
116 -  
117 -// ds_type("HK_FK_Attr", [  
118 -// enum("one_to_one", comment("Foreign key relation is one to one")),  
119 -// enum("many_to_one", comment("Foreign key relation is many to one"))  
120 -// ]),  
121 -  
122 - ds_type("HK_Int_Choices", [  
123 - enum("no_choice", comment("No list choice is available. Hence the user must enter the value")),  
124 - alternative("int_choices", [  
125 - component(list, extern_type("HK_Int_Choice", model_types+"hk_int_choice.anubis"), "hk_int_choice", comment("List of possible choices"))  
126 - ])  
127 - ]),  
128 -  
129 - ds_type("HK_Int_Choice", [  
130 - alternative("hk_int_choice", [  
131 - component(int, "value", comment("value to set in database corresponding to description below")),  
132 - component(string, "visible", comment("visible string which help the user to choose teh correct choice"))  
133 - ])  
134 - ]),  
135 -  
136 - ds_type("HK_Text_Choices", [  
137 - enum("no_choice"),  
138 - alternative("text_choices", [  
139 - component(list, extern_type("HK_Text_Choice", model_types+"hk_text_choice.anubis"), "hk_text_choice")  
140 - ])  
141 - ]),  
142 -  
143 - ds_type("HK_Text_Choice", [  
144 - alternative("hk_text_choice", [  
145 - component(string, "value"),  
146 - component(string, "visible")  
147 - ])  
148 - ]),  
149 -  
150 - ds_type("HK_App_Name", [  
151 - enum("this"),  
152 - alternative("app_name", [  
153 - component(string, "name"), 130 +
  131 + ds_type("HK_Int_Choice", [
  132 + alternative("hk_int_choice", [
  133 + component(int, "value", comment("value to set in database corresponding to description below")),
  134 + component(string, "visible", comment("visible string which help the user to choose teh correct choice"))
  135 + ])
154 ]), 136 ]),
155 - enum("none"),  
156 - ]),  
157 -  
158 - ds_type("HK_Datetime_Field_Attr", [  
159 - enum("none", comment("Nothing special, normal behaviour")),  
160 - enum("auto_now", comment("Always update datetime at SQL update")),  
161 - enum("auto_now_add", comment("Set current datetime when row is created and can't be edited anymore"))  
162 - ]),  
163 -  
164 - ds_type("HK_Model_Attr", [  
165 - enum("unique", comment("by default, the values in a column are not required to be all different ")),  
166 - alternative("default", [  
167 - component(string, "default_str", comment("default value (used in case of creation of a NON NULL column in a table which already contains some rows)")), 137 +
  138 + ds_type("HK_Text_Choices", [
  139 + enum("no_choice"),
  140 + alternative("text_choices", [
  141 + component(list, extern_type("HK_Text_Choice", model_types+"hk_text_choice.anubis"), "hk_text_choice")
  142 + ])
168 ]), 143 ]),
169 - enum("not_null"),  
170 - ]),  
171 -  
172 -  
173 -  
174 - //HK_DISPLAY  
175 - ds_type("HK_Display", [  
176 - alternative("hk_display", [  
177 - component(list, extern_type("HK_List_View", view_types+"hk_list_view.anubis"), "list_views"),  
178 - component(list, extern_type("HK_Edit_View", view_types+"hk_edit_view.anubis"), "list_edits"),  
179 - ])  
180 - ]),  
181 - 144 +
  145 + ds_type("HK_Text_Choice", [
  146 + alternative("hk_text_choice", [
  147 + component(string, "value"),
  148 + component(string, "visible")
  149 + ])
  150 + ]),
  151 +
  152 + ds_type("HK_App_Name", [
  153 + enum("this"),
  154 + alternative("app_name", [
  155 + component(string, "name"),
  156 + ]),
  157 + enum("none"),
  158 + ]),
  159 +
  160 + ds_type("HK_Datetime_Field_Attr", [
  161 + enum("none", comment("Nothing special, normal behaviour")),
  162 + enum("auto_now", comment("Always update datetime at SQL update")),
  163 + enum("auto_now_add", comment("Set current datetime when row is created and can't be edited anymore"))
  164 + ]),
  165 +
  166 + ds_type("HK_Model_Attr", [
  167 + enum("unique", comment("by default, the values in a column are not required to be all different ")),
  168 + alternative("default", [
  169 + component(string, "default_str", comment("default value (used in case of creation of a NON NULL column in a table which already contains some rows)")),
  170 + ]),
  171 + enum("not_null"),
  172 + ]),
  173 +
  174 +
  175 +
  176 + //HK_DISPLAY
  177 + ds_type("HK_Display", [
  178 + alternative("hk_display", [
  179 + component(list, extern_type("HK_Viewer", view_types+"hk_viewer.anubis"), "l_viewer"),
  180 + component(list, extern_type("HK_Editor", view_types+"hk_editor.anubis"), "l_editor"),
  181 + ])
  182 + ]),
  183 +
  184 +
  185 +
  186 + ds_type("HK_Viewer", [
  187 + enum("list_view_all"),
  188 + alternative("list_view", [
  189 + component(string, "view_name"),
  190 + component(list, string, "columns"),
  191 + component(extern_type("WEB_Action_Name", "calexium_lib/web/types/web_action_name.anubis"), "link_id_action")
  192 + ])
  193 + ]),
  194 +
  195 + ds_type("HK_FK_View", [
  196 + alternative("fk_view", [
  197 + component(extern_type("HK_App_Name", model_types+"hk_app_name.anubis"), "app_name"),
  198 + component(string, "table_name"),
  199 + component(string, "fk_col_name", comment("column name of the foreign key. The column name must exists in the hk_model")),
  200 + ])
  201 + ]),
  202 +
  203 + ds_type("HK_Form_Table_Cell", no_message, [
  204 + alternative("hk_form_table_cell", [
  205 + component(extern_type("HK_Form_Entry", view_types+"hk_form_entry.anubis"), "form_entry")
  206 + ])
  207 + ]),
  208 +
  209 + ds_type("HK_Form_Table_Line", no_message, [
  210 + alternative("hk_form_table_line", [
  211 + component(list, extern_type("HK_Form_Table_Cell", view_types+"hk_form_table_cell.anubis"), "form_table_cells")
  212 + ])
  213 + ]),
  214 +
  215 + ds_type("HK_Form_Table_Attribute", [
  216 + alternative("hidden", [
  217 + component(string, "name"),
  218 + component(string, "value")
  219 + ])
  220 + ]),
  221 +
  222 + ds_type("HK_Form_Table", no_message, [
  223 + alternative("hk_form_table", [
  224 + component(list, extern_type("HK_Form_Table_Attribute", view_types+"hk_form_table_attribute.anubis"), "table_attr"),
  225 + component(list, extern_type("HK_Form_Table_Line", view_types+"hk_form_table_line.anubis"), "form_lines")
  226 + ])
  227 + ]),
  228 +
182 229
183 -  
184 - ds_type("HK_List_View", [  
185 - enum("list_view_all"),  
186 - alternative("list_view", [  
187 - component(string, "view_name"),  
188 - component(list, string, "columns"),  
189 - component(extern_type("WEB_Action_Name", "calexium_lib/web/types/web_action_name.anubis"), "link_id_action")  
190 - ])  
191 - ]), 230 +
192 231
193 - ds_type("HK_FK_View", [  
194 - alternative("fk_view", [  
195 - component(extern_type("HK_App_Name", model_types+"hk_app_name.anubis"), "app_name"),  
196 - component(string, "table_name"),  
197 - component(string, "fk_col_name", comment("column name of the foreign key. The column name must exists in the hk_model")),  
198 - ])  
199 - ]),  
200 -  
201 - ds_type("HK_Form_Table_Cell", no_message, [  
202 - alternative("hk_form_table_cell", [  
203 - component(extern_type("HK_Form_Entry", view_types+"hk_form_entry.anubis"), "form_entry")  
204 - ])  
205 - ]),  
206 -  
207 - ds_type("HK_Form_Table_Line", no_message, [  
208 - alternative("hk_form_table_line", [  
209 - component(list, extern_type("HK_Form_Table_Cell", view_types+"hk_form_table_cell.anubis"), "form_table_cells")  
210 - ])  
211 - ]),  
212 -  
213 - ds_type("HK_Form_Table_Attribute", [  
214 - alternative("hidden", [  
215 - component(string, "name"),  
216 - component(string, "value")  
217 - ])  
218 - ]),  
219 -  
220 - ds_type("HK_Form_Table", no_message, [  
221 - alternative("hk_form_table", [  
222 - component(list, extern_type("HK_Form_Table_Attribute", view_types+"hk_form_table_attribute.anubis"), "table_attr"),  
223 - component(list, extern_type("HK_Form_Table_Line", view_types+"hk_form_table_line.anubis"), "form_lines")  
224 - ])  
225 - ]),  
226 -  
227 - ds_type("HK_Edit_View_Table_Cell", [  
228 - enum("empty"),  
229 - alternative("column", [  
230 - component(string, "column_name") 232 +
  233 + ds_type("HK_Editor", [
  234 + enum("edit_view_all"),
  235 + alternative("edit_view_list_form", [
  236 + component(string, "view_name"),
  237 + component(list, string, "columns"),
  238 + component(list, extern_type("HK_FK_View", view_types+"hk_fk_view.anubis"), "fk_view")
  239 + ]),
  240 + alternative("form_table", [
  241 + component(string, "view_name"),
  242 + component(extern_type("HK_Editor_Table", view_types+"hk_editor_table.anubis"), "form_table")
  243 + ])
231 ]), 244 ]),
232 - alternative("label", [  
233 - component(string, "label"), 245 +
  246 + ds_type("HK_Form_Tab", no_message, [
  247 + alternative("hk_form_tab", [
  248 + component(string, "fk_table_name"),
  249 + component(string, "fk_col_name"),
  250 + component(string, "list_view_name")
  251 + ])
234 ]), 252 ]),
235 - alternative("cell", [  
236 - component(list, extern_type("HK_Edit_View_Table_Cell", view_types+"hk_edit_view_table_cell.anubis"), "cell")  
237 - ])  
238 - ]),  
239 -  
240 - ds_type("HK_Edit_View_Table_Line", [  
241 - alternative("line", [  
242 - component(list, extern_type("HK_Edit_View_Table_Cell", view_types+"hk_edit_view_table_cell.anubis"), "cells")  
243 - ])  
244 - ]),  
245 -  
246 - ds_type("HK_Edit_View_Table", [  
247 - alternative("table", [  
248 - component(list, extern_type("HK_Edit_View_Table_Line", view_types+"hk_edit_view_table_line.anubis"), "lines")  
249 - ])  
250 - ]),  
251 -  
252 - ds_type("HK_Edit_View", [  
253 - enum("edit_view_all"),  
254 - alternative("edit_view_list_form", [  
255 - component(string, "view_name"),  
256 - component(list, string, "columns"),  
257 - component(list, extern_type("HK_FK_View", view_types+"hk_fk_view.anubis"), "fk_view") 253 +
  254 + ds_type("HK_Form", no_message, [
  255 + alternative("hk_form_in_list", [
  256 + component(string, "table_name", comment("database table name which belonging this form")),
  257 + component(string, "view_name", comment("name of the view")),
  258 + component(list, extern_type("HK_Form_Entry", view_types+"hk_form_entry.anubis"), "list"),
  259 + component(list, extern_type("HK_Form_Tab", view_types+"hk_form_tab.anubis"), "tabs")
  260 + ]),
  261 + alternative("hk_form_in_table", [
  262 + component(string, "table_name", comment("database table name which belonging this form")),
  263 + component(string, "view_name", comment("name of the view")),
  264 + component(extern_type("HK_Form_Table", view_types+"hk_form_table.anubis"), "form_in_table")
  265 + ])
  266 + ])
  267 +
  268 + ]
  269 + ),
  270 + ds_type_file(auto, name("hk_editor_table"),
  271 + [
  272 + ds_type("HK_Editor_Table_Cell", [
  273 + enum("empty"),
  274 + alternative("column", [
  275 + component(string, "column_name")
  276 + ]),
  277 + alternative("label", [
  278 + component(string, "label"),
  279 + ]),
  280 + alternative("table", [
  281 + component(list, ds_type("HK_Editor_Table_Line"), "lines")
  282 + ])
258 ]), 283 ]),
259 - alternative("edit_view_table_form", [  
260 - component(string, "view_name"),  
261 - component(extern_type("HK_Edit_View_Table", view_types+"hk_edit_view_table.anubis"), "form_table")  
262 - ])  
263 - ]),  
264 -  
265 - ds_type("HK_Form_Tab", no_message, [  
266 - alternative("hk_form_tab", [  
267 - component(string, "fk_table_name"),  
268 - component(string, "fk_col_name"),  
269 - component(string, "list_view_name")  
270 - ])  
271 - ]),  
272 -  
273 - ds_type("HK_Form", no_message, [  
274 - alternative("hk_form_in_list", [  
275 - component(string, "table_name", comment("database table name which belonging this form")),  
276 - component(string, "view_name", comment("name of the view")),  
277 - component(list, extern_type("HK_Form_Entry", view_types+"hk_form_entry.anubis"), "list"),  
278 - component(list, extern_type("HK_Form_Tab", view_types+"hk_form_tab.anubis"), "tabs") 284 +
  285 + ds_type("HK_Editor_Table_Line", [
  286 + alternative("line", [
  287 + component(list, ds_type("HK_Editor_Table_Cell"), "cells")
  288 + ])
279 ]), 289 ]),
280 - alternative("hk_form_in_table", [  
281 - component(string, "table_name", comment("database table name which belonging this form")),  
282 - component(string, "view_name", comment("name of the view")),  
283 - component(extern_type("HK_Form_Table", view_types+"hk_form_table.anubis"), "form_in_table")  
284 - ])  
285 - ])  
286 - 290 + ds_type("HK_Editor_Table", [
  291 + alternative("table", [
  292 + component(list, ds_type("HK_Editor_Table_Line"), "lines")
  293 + ])
  294 + ]),
  295 +
  296 + ])
  297 +
287 ] 298 ]
288 . 299 .
model/types/hk_app.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -14,6 +14,8 @@ transmit hayamiki_lib/model/types/hk_table.anubis @@ -14,6 +14,8 @@ transmit hayamiki_lib/model/types/hk_table.anubis
14 transmit hayamiki_lib/model/types/hk_help_text.anubis 14 transmit hayamiki_lib/model/types/hk_help_text.anubis
15 transmit hayamiki_lib/model/types/hk_icon.anubis 15 transmit hayamiki_lib/model/types/hk_icon.anubis
16 16
  17 +
  18 +
17 public type HK_App: 19 public type HK_App:
18 hk_app( 20 hk_app(
19 String app_name, 21 String app_name,
model/types/hk_app_name.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_App_Name: 16 public type HK_App_Name:
15 this, 17 this,
16 app_name( 18 app_name(
model/types/hk_database.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,6 +12,8 @@ transmit tools/basis.anubis @@ -12,6 +12,8 @@ transmit tools/basis.anubis
12 12
13 transmit hayamiki_lib/model/types/hk_app.anubis 13 transmit hayamiki_lib/model/types/hk_app.anubis
14 14
  15 +
  16 +
15 public type HK_Database: 17 public type HK_Database:
16 hk_database( 18 hk_database(
17 String name, //name of the database 19 String name, //name of the database
model/types/hk_datetime_field_attr.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Datetime_Field_Attr: 16 public type HK_Datetime_Field_Attr:
15 none, //Nothing special, normal behaviour 17 none, //Nothing special, normal behaviour
16 auto_now, //Always update datetime at SQL update 18 auto_now, //Always update datetime at SQL update
model/types/hk_help_text.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Help_Text: 16 public type HK_Help_Text:
15 no_help_text, //no help text available 17 no_help_text, //no help text available
16 help_text_TAG( 18 help_text_TAG(
model/types/hk_icon.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Icon: 16 public type HK_Icon:
15 no_icon, 17 no_icon,
16 icon16( 18 icon16(
model/types/hk_int_choice.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Int_Choice: 16 public type HK_Int_Choice:
15 hk_int_choice( 17 hk_int_choice(
16 Int value, //value to set in database corresponding to description below 18 Int value, //value to set in database corresponding to description below
model/types/hk_int_choices.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,6 +12,8 @@ transmit tools/basis.anubis @@ -12,6 +12,8 @@ transmit tools/basis.anubis
12 12
13 transmit hayamiki_lib/model/types/hk_int_choice.anubis 13 transmit hayamiki_lib/model/types/hk_int_choice.anubis
14 14
  15 +
  16 +
15 public type HK_Int_Choices: 17 public type HK_Int_Choices:
16 no_choice, //No list choice is available. Hence the user must enter the value 18 no_choice, //No list choice is available. Hence the user must enter the value
17 int_choices( 19 int_choices(
model/types/hk_model.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,6 +12,8 @@ transmit tools/basis.anubis @@ -12,6 +12,8 @@ transmit tools/basis.anubis
12 12
13 transmit hayamiki_lib/model/types/hk_model_column.anubis 13 transmit hayamiki_lib/model/types/hk_model_column.anubis
14 14
  15 +
  16 +
15 public type HK_Model: 17 public type HK_Model:
16 hk_model( 18 hk_model(
17 List(HK_Model_Column) columns, //columns other than the primary key column (if any) 19 List(HK_Model_Column) columns, //columns other than the primary key column (if any)
model/types/hk_model_attr.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Model_Attr: 16 public type HK_Model_Attr:
15 unique, //by default, the values in a column are not required to be all different 17 unique, //by default, the values in a column are not required to be all different
16 default( 18 default(
model/types/hk_model_column.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -14,6 +14,8 @@ transmit hayamiki_lib/model/types/hk_help_text.anubis @@ -14,6 +14,8 @@ transmit hayamiki_lib/model/types/hk_help_text.anubis
14 transmit hayamiki_lib/model/types/hk_model_attr.anubis 14 transmit hayamiki_lib/model/types/hk_model_attr.anubis
15 transmit hayamiki_lib/model/types/hk_model_field.anubis 15 transmit hayamiki_lib/model/types/hk_model_field.anubis
16 16
  17 +
  18 +
17 public type HK_Model_Column: 19 public type HK_Model_Column:
18 hk_column( 20 hk_column(
19 String name, //name of ordinary column (i.e. all but 'id') 21 String name, //name of ordinary column (i.e. all but 'id')
model/types/hk_model_field.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -16,6 +16,8 @@ transmit hayamiki_lib/model/types/hk_int_choices.anubis @@ -16,6 +16,8 @@ transmit hayamiki_lib/model/types/hk_int_choices.anubis
16 transmit hayamiki_lib/model/types/hk_app_name.anubis 16 transmit hayamiki_lib/model/types/hk_app_name.anubis
17 transmit hayamiki_lib/model/types/hk_datetime_field_attr.anubis 17 transmit hayamiki_lib/model/types/hk_datetime_field_attr.anubis
18 18
  19 +
  20 +
19 public type HK_Model_Field: 21 public type HK_Model_Field:
20 p_key, 22 p_key,
21 boolean_field, //true or false 23 boolean_field, //true or false
model/types/hk_table.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -13,6 +13,8 @@ transmit tools/basis.anubis @@ -13,6 +13,8 @@ transmit tools/basis.anubis
13 transmit hayamiki_lib/view/types/hk_display.anubis 13 transmit hayamiki_lib/view/types/hk_display.anubis
14 transmit hayamiki_lib/model/types/hk_model.anubis 14 transmit hayamiki_lib/model/types/hk_model.anubis
15 15
  16 +
  17 +
16 public type HK_Table: 18 public type HK_Table:
17 hk_table( 19 hk_table(
18 String name, //name of the table 20 String name, //name of the table
model/types/hk_text_choice.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Text_Choice: 16 public type HK_Text_Choice:
15 hk_text_choice( 17 hk_text_choice(
16 String value, 18 String value,
model/types/hk_text_choices.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,6 +12,8 @@ transmit tools/basis.anubis @@ -12,6 +12,8 @@ transmit tools/basis.anubis
12 12
13 transmit hayamiki_lib/model/types/hk_text_choice.anubis 13 transmit hayamiki_lib/model/types/hk_text_choice.anubis
14 14
  15 +
  16 +
15 public type HK_Text_Choices: 17 public type HK_Text_Choices:
16 no_choice, 18 no_choice,
17 text_choices( 19 text_choices(
model/types/hk_text_field_attr.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Text_Field_Attr: 16 public type HK_Text_Field_Attr:
15 none, //Nothing special, normal behaviour 17 none, //Nothing special, normal behaviour
16 rich_editor //Use richt text editor for that area 18 rich_editor //Use richt text editor for that area
view/types/hk_display.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -10,13 +10,15 @@ transmit system/muscle.anubis @@ -10,13 +10,15 @@ transmit system/muscle.anubis
10 transmit system/convert.anubis 10 transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 -transmit hayamiki_lib/view/types/hk_edit_view.anubis  
14 -transmit hayamiki_lib/view/types/hk_list_view.anubis 13 +transmit hayamiki_lib/view/types/hk_editor.anubis
  14 +transmit hayamiki_lib/view/types/hk_viewer.anubis
  15 +
  16 +
15 17
16 public type HK_Display: 18 public type HK_Display:
17 hk_display( 19 hk_display(
18 - List(HK_List_View) list_views,  
19 - List(HK_Edit_View) list_edits 20 + List(HK_Viewer) l_viewer,
  21 + List(HK_Editor) l_editor
20 ) 22 )
21 . 23 .
22 24
@@ -34,12 +36,12 @@ public define Message @@ -34,12 +36,12 @@ public define Message
34 if _hk_display is 36 if _hk_display is
35 { 37 {
36 //Alternative hk_display 38 //Alternative hk_display
37 - hk_display(__list_views, __list_edits) then 39 + hk_display(__l_viewer, __l_editor) then
38 forget(add_string(_hk_display_message, "__TYPE_ALT__", "hk_display")); 40 forget(add_string(_hk_display_message, "__TYPE_ALT__", "hk_display"));
39 - // [type = List(HK_List_View)] hk_display.list_views  
40 - map_forget((HK_List_View _list_views) |-> add_message(_hk_display_message, "list_views", to_Message(_list_views)), __list_views);  
41 - // [type = List(HK_Edit_View)] hk_display.list_edits  
42 - map_forget((HK_Edit_View _list_edits) |-> add_message(_hk_display_message, "list_edits", to_Message(_list_edits)), __list_edits), 41 + // [type = List(HK_Viewer)] hk_display.l_viewer
  42 + map_forget((HK_Viewer _l_viewer) |-> add_message(_hk_display_message, "l_viewer", to_Message(_l_viewer)), __l_viewer);
  43 + // [type = List(HK_Editor)] hk_display.l_editor
  44 + map_forget((HK_Editor _l_editor) |-> add_message(_hk_display_message, "l_editor", to_Message(_l_editor)), __l_editor),
43 45
44 }; 46 };
45 _hk_display_message 47 _hk_display_message
@@ -55,14 +57,14 @@ public define Maybe(HK_Display) @@ -55,14 +57,14 @@ public define Maybe(HK_Display)
55 if __type__ = "HK_Display" then 57 if __type__ = "HK_Display" then
56 //Alternative hk_display 58 //Alternative hk_display
57 if __type_alt__ = "hk_display" then //Alternative hk_display 59 if __type_alt__ = "hk_display" then //Alternative hk_display
58 - // [type = List(HK_List_View)] hk_display.list_views  
59 - with mb__list_views_ = map_escape(( Message msg ) |-> (Maybe(HK_List_View)) from_Message(msg), find_messages(_hk_display_message, "list_views")),  
60 - if mb__list_views_ is {failure then failure, success(_list_views_) then  
61 - // [type = List(HK_Edit_View)] hk_display.list_edits  
62 - with mb__list_edits_ = map_escape(( Message msg ) |-> (Maybe(HK_Edit_View)) from_Message(msg), find_messages(_hk_display_message, "list_edits")),  
63 - if mb__list_edits_ is {failure then failure, success(_list_edits_) then 60 + // [type = List(HK_Viewer)] hk_display.l_viewer
  61 + with mb__l_viewer_ = map_escape(( Message msg ) |-> (Maybe(HK_Viewer)) from_Message(msg), find_messages(_hk_display_message, "l_viewer")),
  62 + if mb__l_viewer_ is {failure then failure, success(_l_viewer_) then
  63 + // [type = List(HK_Editor)] hk_display.l_editor
  64 + with mb__l_editor_ = map_escape(( Message msg ) |-> (Maybe(HK_Editor)) from_Message(msg), find_messages(_hk_display_message, "l_editor")),
  65 + if mb__l_editor_ is {failure then failure, success(_l_editor_) then
64 66
65 - success(hk_display(_list_views_, _list_edits_)) 67 + success(hk_display(_l_viewer_, _l_editor_))
66 }} 68 }}
67 else 69 else
68 failure //No valid Alternative found ! 70 failure //No valid Alternative found !
view/types/hk_edit_view.anubis deleted
View file @7a53f1c
1 -/*  
2 - * Created by 伝作 (Densaku).  
3 - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)  
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00  
6 - *  
7 - */  
8 -  
9 -transmit system/muscle.anubis  
10 -transmit system/convert.anubis  
11 -transmit tools/basis.anubis  
12 -  
13 -transmit hayamiki_lib/view/types/hk_edit_view_table.anubis  
14 -transmit hayamiki_lib/view/types/hk_fk_view.anubis  
15 -  
16 -public type HK_Edit_View:  
17 - edit_view_all,  
18 - edit_view_list_form(  
19 - String view_name,  
20 - List(String) columns,  
21 - List(HK_FK_View) fk_view  
22 - ),  
23 - edit_view_table_form(  
24 - String view_name,  
25 - HK_Edit_View_Table form_table  
26 - )  
27 -.  
28 -  
29 - HK_Edit_View message format  
30 - ===========================  
31 -  
32 -  
33 -public define Message  
34 - to_Message  
35 - (  
36 - HK_Edit_View _hk_edit_view  
37 - )=  
38 - with _hk_edit_view_message = message((Word32)0), //  
39 - forget(add_string(_hk_edit_view_message, "__TYPE__", "HK_Edit_View"));  
40 - if _hk_edit_view is  
41 - {  
42 - //Alternative edit_view_all (NO TYPE)  
43 - edit_view_all then  
44 - forget(add_string(_hk_edit_view_message, "__TYPE_ALT__", "edit_view_all")),  
45 -  
46 - //Alternative edit_view_list_form  
47 - edit_view_list_form(_view_name, __columns, __fk_view) then  
48 - forget(add_string(_hk_edit_view_message, "__TYPE_ALT__", "edit_view_list_form"));  
49 - // [type = String] edit_view_list_form.view_name  
50 - forget(add_string(_hk_edit_view_message, "view_name", _view_name));  
51 - // [type = List(String)] edit_view_list_form.columns  
52 - map_forget((String _columns) |-> add_string(_hk_edit_view_message, "columns", _columns), __columns);  
53 - // [type = List(HK_FK_View)] edit_view_list_form.fk_view  
54 - map_forget((HK_FK_View _fk_view) |-> add_message(_hk_edit_view_message, "fk_view", to_Message(_fk_view)), __fk_view),  
55 -  
56 - //Alternative edit_view_table_form  
57 - edit_view_table_form(_view_name, _form_table) then  
58 - forget(add_string(_hk_edit_view_message, "__TYPE_ALT__", "edit_view_table_form"));  
59 - // [type = String] edit_view_table_form.view_name  
60 - forget(add_string(_hk_edit_view_message, "view_name", _view_name));  
61 - // [type = HK_Edit_View_Table] edit_view_table_form.form_table  
62 - forget(add_message(_hk_edit_view_message, "form_table", to_Message(_form_table))),  
63 -  
64 - };  
65 - _hk_edit_view_message  
66 -.  
67 -  
68 -public define Maybe(HK_Edit_View)  
69 - from_Message  
70 - (  
71 - Message _hk_edit_view_message  
72 - )=  
73 - if find_string(_hk_edit_view_message, "__TYPE__") is {failure then failure, success(__type__) then  
74 - if find_string(_hk_edit_view_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then  
75 - if __type__ = "HK_Edit_View" then  
76 - //Alternative edit_view_all (NO TYPE)  
77 - if __type_alt__ = "edit_view_all" then  
78 - success(edit_view_all)  
79 - else //Alternative edit_view_list_form  
80 - if __type_alt__ = "edit_view_list_form" then //Alternative edit_view_list_form  
81 - // [type = String] edit_view_list_form.view_name  
82 - if find_string(_hk_edit_view_message, "view_name") is {failure then failure, success(_view_name_) then  
83 - // [type = List(String)] edit_view_list_form.columns  
84 - with _columns_ = find_string_list(_hk_edit_view_message, "columns"),  
85 - // [type = List(HK_FK_View)] edit_view_list_form.fk_view  
86 - with mb__fk_view_ = map_escape(( Message msg ) |-> (Maybe(HK_FK_View)) from_Message(msg), find_messages(_hk_edit_view_message, "fk_view")),  
87 - if mb__fk_view_ is {failure then failure, success(_fk_view_) then  
88 -  
89 - success(edit_view_list_form(_view_name_, _columns_, _fk_view_))  
90 - }}  
91 - else //Alternative edit_view_table_form  
92 - if __type_alt__ = "edit_view_table_form" then //Alternative edit_view_table_form  
93 - // [type = String] edit_view_table_form.view_name  
94 - if find_string(_hk_edit_view_message, "view_name") is {failure then failure, success(_view_name_) then  
95 - // [type = HK_Edit_View_Table] edit_view_table_form.form_table  
96 - if find_message(_hk_edit_view_message, "form_table") is {failure then failure, success(_form_table__msg) then  
97 - if (Maybe(HK_Edit_View_Table))from_Message(_form_table__msg) is {failure then failure, success(_form_table_) then  
98 -  
99 - success(edit_view_table_form(_view_name_, _form_table_))  
100 - }}}  
101 - else  
102 - failure //No valid Alternative found !  
103 - else  
104 - failure //Type not found in message !  
105 - }}  
106 -.  
107 -  
view/types/hk_edit_view_table.anubis deleted
View file @7a53f1c
1 -/*  
2 - * Created by 伝作 (Densaku).  
3 - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)  
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00  
6 - *  
7 - */  
8 -  
9 -transmit system/muscle.anubis  
10 -transmit system/convert.anubis  
11 -transmit tools/basis.anubis  
12 -  
13 -transmit hayamiki_lib/view/types/hk_edit_view_table_line.anubis  
14 -  
15 -public type HK_Edit_View_Table:  
16 - table(  
17 - List(HK_Edit_View_Table_Line) lines  
18 - )  
19 -.  
20 -  
21 - HK_Edit_View_Table message format  
22 - =================================  
23 -  
24 -  
25 -public define Message  
26 - to_Message  
27 - (  
28 - HK_Edit_View_Table _hk_edit_view_table  
29 - )=  
30 - with _hk_edit_view_table_message = message((Word32)0), //  
31 - forget(add_string(_hk_edit_view_table_message, "__TYPE__", "HK_Edit_View_Table"));  
32 - if _hk_edit_view_table is  
33 - {  
34 - //Alternative table  
35 - table(__lines) then  
36 - forget(add_string(_hk_edit_view_table_message, "__TYPE_ALT__", "table"));  
37 - // [type = List(HK_Edit_View_Table_Line)] table.lines  
38 - map_forget((HK_Edit_View_Table_Line _lines) |-> add_message(_hk_edit_view_table_message, "lines", to_Message(_lines)), __lines),  
39 -  
40 - };  
41 - _hk_edit_view_table_message  
42 -.  
43 -  
44 -public define Maybe(HK_Edit_View_Table)  
45 - from_Message  
46 - (  
47 - Message _hk_edit_view_table_message  
48 - )=  
49 - if find_string(_hk_edit_view_table_message, "__TYPE__") is {failure then failure, success(__type__) then  
50 - if find_string(_hk_edit_view_table_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then  
51 - if __type__ = "HK_Edit_View_Table" then  
52 - //Alternative table  
53 - if __type_alt__ = "table" then //Alternative table  
54 - // [type = List(HK_Edit_View_Table_Line)] table.lines  
55 - with mb__lines_ = map_escape(( Message msg ) |-> (Maybe(HK_Edit_View_Table_Line)) from_Message(msg), find_messages(_hk_edit_view_table_message, "lines")),  
56 - if mb__lines_ is {failure then failure, success(_lines_) then  
57 -  
58 - success(table(_lines_))  
59 - }  
60 - else  
61 - failure //No valid Alternative found !  
62 - else  
63 - failure //Type not found in message !  
64 - }}  
65 -.  
66 -  
view/types/hk_edit_view_table_cell.anubis deleted
View file @7a53f1c
1 -/*  
2 - * Created by 伝作 (Densaku).  
3 - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)  
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00  
6 - *  
7 - */  
8 -  
9 -transmit system/muscle.anubis  
10 -transmit system/convert.anubis  
11 -transmit tools/basis.anubis  
12 -  
13 -transmit hayamiki_lib/view/types/hk_edit_view_table_cell.anubis  
14 -  
15 -public type HK_Edit_View_Table_Cell:  
16 - empty,  
17 - column(  
18 - String column_name  
19 - ),  
20 - label(  
21 - String label  
22 - ),  
23 - cell(  
24 - List(HK_Edit_View_Table_Cell) cell  
25 - )  
26 -.  
27 -  
28 - HK_Edit_View_Table_Cell message format  
29 - ======================================  
30 -  
31 -  
32 -public define Message  
33 - to_Message  
34 - (  
35 - HK_Edit_View_Table_Cell _hk_edit_view_table_cell  
36 - )=  
37 - with _hk_edit_view_table_cell_message = message((Word32)0), //  
38 - forget(add_string(_hk_edit_view_table_cell_message, "__TYPE__", "HK_Edit_View_Table_Cell"));  
39 - if _hk_edit_view_table_cell is  
40 - {  
41 - //Alternative empty (NO TYPE)  
42 - empty then  
43 - forget(add_string(_hk_edit_view_table_cell_message, "__TYPE_ALT__", "empty")),  
44 -  
45 - //Alternative column  
46 - column(_column_name) then  
47 - forget(add_string(_hk_edit_view_table_cell_message, "__TYPE_ALT__", "column"));  
48 - // [type = String] column.column_name  
49 - forget(add_string(_hk_edit_view_table_cell_message, "column_name", _column_name)),  
50 -  
51 - //Alternative label  
52 - label(_label) then  
53 - forget(add_string(_hk_edit_view_table_cell_message, "__TYPE_ALT__", "label"));  
54 - // [type = String] label.label  
55 - forget(add_string(_hk_edit_view_table_cell_message, "label", _label)),  
56 -  
57 - //Alternative cell  
58 - cell(__cell) then  
59 - forget(add_string(_hk_edit_view_table_cell_message, "__TYPE_ALT__", "cell"));  
60 - // [type = List(HK_Edit_View_Table_Cell)] cell.cell  
61 - map_forget((HK_Edit_View_Table_Cell _cell) |-> add_message(_hk_edit_view_table_cell_message, "cell", to_Message(_cell)), __cell),  
62 -  
63 - };  
64 - _hk_edit_view_table_cell_message  
65 -.  
66 -  
67 -public define Maybe(HK_Edit_View_Table_Cell)  
68 - from_Message  
69 - (  
70 - Message _hk_edit_view_table_cell_message  
71 - )=  
72 - if find_string(_hk_edit_view_table_cell_message, "__TYPE__") is {failure then failure, success(__type__) then  
73 - if find_string(_hk_edit_view_table_cell_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then  
74 - if __type__ = "HK_Edit_View_Table_Cell" then  
75 - //Alternative empty (NO TYPE)  
76 - if __type_alt__ = "empty" then  
77 - success(empty)  
78 - else //Alternative column  
79 - if __type_alt__ = "column" then //Alternative column  
80 - // [type = String] column.column_name  
81 - if find_string(_hk_edit_view_table_cell_message, "column_name") is {failure then failure, success(_column_name_) then  
82 -  
83 - success(column(_column_name_))  
84 - }  
85 - else //Alternative label  
86 - if __type_alt__ = "label" then //Alternative label  
87 - // [type = String] label.label  
88 - if find_string(_hk_edit_view_table_cell_message, "label") is {failure then failure, success(_label_) then  
89 -  
90 - success(label(_label_))  
91 - }  
92 - else //Alternative cell  
93 - if __type_alt__ = "cell" then //Alternative cell  
94 - // [type = List(HK_Edit_View_Table_Cell)] cell.cell  
95 - with mb__cell_ = map_escape(( Message msg ) |-> (Maybe(HK_Edit_View_Table_Cell)) from_Message(msg), find_messages(_hk_edit_view_table_cell_message, "cell")),  
96 - if mb__cell_ is {failure then failure, success(_cell_) then  
97 -  
98 - success(cell(_cell_))  
99 - }  
100 - else  
101 - failure //No valid Alternative found !  
102 - else  
103 - failure //Type not found in message !  
104 - }}  
105 -.  
106 -  
view/types/hk_edit_view_table_line.anubis deleted
View file @7a53f1c
1 -/*  
2 - * Created by 伝作 (Densaku).  
3 - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)  
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00  
6 - *  
7 - */  
8 -  
9 -transmit system/muscle.anubis  
10 -transmit system/convert.anubis  
11 -transmit tools/basis.anubis  
12 -  
13 -transmit hayamiki_lib/view/types/hk_edit_view_table_cell.anubis  
14 -  
15 -public type HK_Edit_View_Table_Line:  
16 - line(  
17 - List(HK_Edit_View_Table_Cell) cells  
18 - )  
19 -.  
20 -  
21 - HK_Edit_View_Table_Line message format  
22 - ======================================  
23 -  
24 -  
25 -public define Message  
26 - to_Message  
27 - (  
28 - HK_Edit_View_Table_Line _hk_edit_view_table_line  
29 - )=  
30 - with _hk_edit_view_table_line_message = message((Word32)0), //  
31 - forget(add_string(_hk_edit_view_table_line_message, "__TYPE__", "HK_Edit_View_Table_Line"));  
32 - if _hk_edit_view_table_line is  
33 - {  
34 - //Alternative line  
35 - line(__cells) then  
36 - forget(add_string(_hk_edit_view_table_line_message, "__TYPE_ALT__", "line"));  
37 - // [type = List(HK_Edit_View_Table_Cell)] line.cells  
38 - map_forget((HK_Edit_View_Table_Cell _cells) |-> add_message(_hk_edit_view_table_line_message, "cells", to_Message(_cells)), __cells),  
39 -  
40 - };  
41 - _hk_edit_view_table_line_message  
42 -.  
43 -  
44 -public define Maybe(HK_Edit_View_Table_Line)  
45 - from_Message  
46 - (  
47 - Message _hk_edit_view_table_line_message  
48 - )=  
49 - if find_string(_hk_edit_view_table_line_message, "__TYPE__") is {failure then failure, success(__type__) then  
50 - if find_string(_hk_edit_view_table_line_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then  
51 - if __type__ = "HK_Edit_View_Table_Line" then  
52 - //Alternative line  
53 - if __type_alt__ = "line" then //Alternative line  
54 - // [type = List(HK_Edit_View_Table_Cell)] line.cells  
55 - with mb__cells_ = map_escape(( Message msg ) |-> (Maybe(HK_Edit_View_Table_Cell)) from_Message(msg), find_messages(_hk_edit_view_table_line_message, "cells")),  
56 - if mb__cells_ is {failure then failure, success(_cells_) then  
57 -  
58 - success(line(_cells_))  
59 - }  
60 - else  
61 - failure //No valid Alternative found !  
62 - else  
63 - failure //Type not found in message !  
64 - }}  
65 -.  
66 -  
view/types/hk_editor.anubis 0 → 100644
  Show/Hide comments   View file @51fe496
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
  6 + *
  7 + */
  8 +
  9 +transmit system/muscle.anubis
  10 +transmit system/convert.anubis
  11 +transmit tools/basis.anubis
  12 +
  13 +transmit hayamiki_lib/view/types/hk_editor_table.anubis
  14 +transmit hayamiki_lib/view/types/hk_fk_view.anubis
  15 +
  16 +
  17 +
  18 +public type HK_Editor:
  19 + edit_view_all,
  20 + edit_view_list_form(
  21 + String view_name,
  22 + List(String) columns,
  23 + List(HK_FK_View) fk_view
  24 + ),
  25 + form_table(
  26 + String view_name,
  27 + HK_Editor_Table form_table
  28 + )
  29 +.
  30 +
  31 + HK_Editor message format
  32 + ========================
  33 +
  34 +
  35 +public define Message
  36 + to_Message
  37 + (
  38 + HK_Editor _hk_editor
  39 + )=
  40 + with _hk_editor_message = message((Word32)0), //
  41 + forget(add_string(_hk_editor_message, "__TYPE__", "HK_Editor"));
  42 + if _hk_editor is
  43 + {
  44 + //Alternative edit_view_all (NO TYPE)
  45 + edit_view_all then
  46 + forget(add_string(_hk_editor_message, "__TYPE_ALT__", "edit_view_all")),
  47 +
  48 + //Alternative edit_view_list_form
  49 + edit_view_list_form(_view_name, __columns, __fk_view) then
  50 + forget(add_string(_hk_editor_message, "__TYPE_ALT__", "edit_view_list_form"));
  51 + // [type = String] edit_view_list_form.view_name
  52 + forget(add_string(_hk_editor_message, "view_name", _view_name));
  53 + // [type = List(String)] edit_view_list_form.columns
  54 + map_forget((String _columns) |-> add_string(_hk_editor_message, "columns", _columns), __columns);
  55 + // [type = List(HK_FK_View)] edit_view_list_form.fk_view
  56 + map_forget((HK_FK_View _fk_view) |-> add_message(_hk_editor_message, "fk_view", to_Message(_fk_view)), __fk_view),
  57 +
  58 + //Alternative form_table
  59 + form_table(_view_name, _form_table) then
  60 + forget(add_string(_hk_editor_message, "__TYPE_ALT__", "form_table"));
  61 + // [type = String] form_table.view_name
  62 + forget(add_string(_hk_editor_message, "view_name", _view_name));
  63 + // [type = HK_Editor_Table] form_table.form_table
  64 + forget(add_message(_hk_editor_message, "form_table", to_Message(_form_table))),
  65 +
  66 + };
  67 + _hk_editor_message
  68 +.
  69 +
  70 +public define Maybe(HK_Editor)
  71 + from_Message
  72 + (
  73 + Message _hk_editor_message
  74 + )=
  75 + if find_string(_hk_editor_message, "__TYPE__") is {failure then failure, success(__type__) then
  76 + if find_string(_hk_editor_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  77 + if __type__ = "HK_Editor" then
  78 + //Alternative edit_view_all (NO TYPE)
  79 + if __type_alt__ = "edit_view_all" then
  80 + success(edit_view_all)
  81 + else //Alternative edit_view_list_form
  82 + if __type_alt__ = "edit_view_list_form" then //Alternative edit_view_list_form
  83 + // [type = String] edit_view_list_form.view_name
  84 + if find_string(_hk_editor_message, "view_name") is {failure then failure, success(_view_name_) then
  85 + // [type = List(String)] edit_view_list_form.columns
  86 + with _columns_ = find_string_list(_hk_editor_message, "columns"),
  87 + // [type = List(HK_FK_View)] edit_view_list_form.fk_view
  88 + with mb__fk_view_ = map_escape(( Message msg ) |-> (Maybe(HK_FK_View)) from_Message(msg), find_messages(_hk_editor_message, "fk_view")),
  89 + if mb__fk_view_ is {failure then failure, success(_fk_view_) then
  90 +
  91 + success(edit_view_list_form(_view_name_, _columns_, _fk_view_))
  92 + }}
  93 + else //Alternative form_table
  94 + if __type_alt__ = "form_table" then //Alternative form_table
  95 + // [type = String] form_table.view_name
  96 + if find_string(_hk_editor_message, "view_name") is {failure then failure, success(_view_name_) then
  97 + // [type = HK_Editor_Table] form_table.form_table
  98 + if find_message(_hk_editor_message, "form_table") is {failure then failure, success(_form_table__msg) then
  99 + if (Maybe(HK_Editor_Table))from_Message(_form_table__msg) is {failure then failure, success(_form_table_) then
  100 +
  101 + success(form_table(_view_name_, _form_table_))
  102 + }}}
  103 + else
  104 + failure //No valid Alternative found !
  105 + else
  106 + failure //Type not found in message !
  107 + }}
  108 +.
  109 +
view/types/hk_editor_table.anubis 0 → 100644
  Show/Hide comments   View file @51fe496
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
  6 + *
  7 + */
  8 +
  9 +transmit system/muscle.anubis
  10 +transmit system/convert.anubis
  11 +transmit tools/basis.anubis
  12 +
  13 +
  14 +public type HK_Editor_Table_Line:...
  15 +
  16 +public type HK_Editor_Table_Cell:
  17 + empty,
  18 + column(
  19 + String column_name
  20 + ),
  21 + label(
  22 + String label
  23 + ),
  24 + table(
  25 + List(HK_Editor_Table_Line) lines
  26 + )
  27 +.
  28 +
  29 +
  30 +public type HK_Editor_Table_Line:
  31 + line(
  32 + List(HK_Editor_Table_Cell) cells
  33 + )
  34 +.
  35 +
  36 +
  37 +public type HK_Editor_Table:
  38 + table(
  39 + List(HK_Editor_Table_Line) lines
  40 + )
  41 +.
  42 +
  43 + HK_Editor_Table_Cell message format
  44 + ===================================
  45 +
  46 +
  47 +public define Message
  48 + to_Message
  49 + (
  50 + HK_Editor_Table_Cell _hk_editor_table_cell
  51 + )=
  52 + with _hk_editor_table_cell_message = message((Word32)0), //
  53 + forget(add_string(_hk_editor_table_cell_message, "__TYPE__", "HK_Editor_Table_Cell"));
  54 + if _hk_editor_table_cell is
  55 + {
  56 + //Alternative empty (NO TYPE)
  57 + empty then
  58 + forget(add_string(_hk_editor_table_cell_message, "__TYPE_ALT__", "empty")),
  59 +
  60 + //Alternative column
  61 + column(_column_name) then
  62 + forget(add_string(_hk_editor_table_cell_message, "__TYPE_ALT__", "column"));
  63 + // [type = String] column.column_name
  64 + forget(add_string(_hk_editor_table_cell_message, "column_name", _column_name)),
  65 +
  66 + //Alternative label
  67 + label(_label) then
  68 + forget(add_string(_hk_editor_table_cell_message, "__TYPE_ALT__", "label"));
  69 + // [type = String] label.label
  70 + forget(add_string(_hk_editor_table_cell_message, "label", _label)),
  71 +
  72 + //Alternative table
  73 + table(__lines) then
  74 + forget(add_string(_hk_editor_table_cell_message, "__TYPE_ALT__", "table"));
  75 + // [type = List(HK_Editor_Table_Line)] table.lines
  76 + map_forget((HK_Editor_Table_Line _lines) |-> add_message(_hk_editor_table_cell_message, "lines", to_Message(_lines)), __lines),
  77 +
  78 + };
  79 + _hk_editor_table_cell_message
  80 +.
  81 +
  82 +public define Maybe(HK_Editor_Table_Cell)
  83 + from_Message
  84 + (
  85 + Message _hk_editor_table_cell_message
  86 + )=
  87 + if find_string(_hk_editor_table_cell_message, "__TYPE__") is {failure then failure, success(__type__) then
  88 + if find_string(_hk_editor_table_cell_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  89 + if __type__ = "HK_Editor_Table_Cell" then
  90 + //Alternative empty (NO TYPE)
  91 + if __type_alt__ = "empty" then
  92 + success(empty)
  93 + else //Alternative column
  94 + if __type_alt__ = "column" then //Alternative column
  95 + // [type = String] column.column_name
  96 + if find_string(_hk_editor_table_cell_message, "column_name") is {failure then failure, success(_column_name_) then
  97 +
  98 + success(column(_column_name_))
  99 + }
  100 + else //Alternative label
  101 + if __type_alt__ = "label" then //Alternative label
  102 + // [type = String] label.label
  103 + if find_string(_hk_editor_table_cell_message, "label") is {failure then failure, success(_label_) then
  104 +
  105 + success(label(_label_))
  106 + }
  107 + else //Alternative table
  108 + if __type_alt__ = "table" then //Alternative table
  109 + // [type = List(HK_Editor_Table_Line)] table.lines
  110 + with mb__lines_ = map_escape(( Message msg ) |-> (Maybe(HK_Editor_Table_Line)) from_Message(msg), find_messages(_hk_editor_table_cell_message, "lines")),
  111 + if mb__lines_ is {failure then failure, success(_lines_) then
  112 +
  113 + success(table(_lines_))
  114 + }
  115 + else
  116 + failure //No valid Alternative found !
  117 + else
  118 + failure //Type not found in message !
  119 + }}
  120 +.
  121 +
  122 +
  123 +
  124 +
  125 + HK_Editor_Table_Line message format
  126 + ===================================
  127 +
  128 +
  129 +public define Message
  130 + to_Message
  131 + (
  132 + HK_Editor_Table_Line _hk_editor_table_line
  133 + )=
  134 + with _hk_editor_table_line_message = message((Word32)0), //
  135 + forget(add_string(_hk_editor_table_line_message, "__TYPE__", "HK_Editor_Table_Line"));
  136 + if _hk_editor_table_line is
  137 + {
  138 + //Alternative line
  139 + line(__cells) then
  140 + forget(add_string(_hk_editor_table_line_message, "__TYPE_ALT__", "line"));
  141 + // [type = List(HK_Editor_Table_Cell)] line.cells
  142 + map_forget((HK_Editor_Table_Cell _cells) |-> add_message(_hk_editor_table_line_message, "cells", to_Message(_cells)), __cells),
  143 +
  144 + };
  145 + _hk_editor_table_line_message
  146 +.
  147 +
  148 +public define Maybe(HK_Editor_Table_Line)
  149 + from_Message
  150 + (
  151 + Message _hk_editor_table_line_message
  152 + )=
  153 + if find_string(_hk_editor_table_line_message, "__TYPE__") is {failure then failure, success(__type__) then
  154 + if find_string(_hk_editor_table_line_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  155 + if __type__ = "HK_Editor_Table_Line" then
  156 + //Alternative line
  157 + if __type_alt__ = "line" then //Alternative line
  158 + // [type = List(HK_Editor_Table_Cell)] line.cells
  159 + with mb__cells_ = map_escape(( Message msg ) |-> (Maybe(HK_Editor_Table_Cell)) from_Message(msg), find_messages(_hk_editor_table_line_message, "cells")),
  160 + if mb__cells_ is {failure then failure, success(_cells_) then
  161 +
  162 + success(line(_cells_))
  163 + }
  164 + else
  165 + failure //No valid Alternative found !
  166 + else
  167 + failure //Type not found in message !
  168 + }}
  169 +.
  170 +
  171 +
  172 +
  173 +
  174 + HK_Editor_Table message format
  175 + ==============================
  176 +
  177 +
  178 +public define Message
  179 + to_Message
  180 + (
  181 + HK_Editor_Table _hk_editor_table
  182 + )=
  183 + with _hk_editor_table_message = message((Word32)0), //
  184 + forget(add_string(_hk_editor_table_message, "__TYPE__", "HK_Editor_Table"));
  185 + if _hk_editor_table is
  186 + {
  187 + //Alternative table
  188 + table(__lines) then
  189 + forget(add_string(_hk_editor_table_message, "__TYPE_ALT__", "table"));
  190 + // [type = List(HK_Editor_Table_Line)] table.lines
  191 + map_forget((HK_Editor_Table_Line _lines) |-> add_message(_hk_editor_table_message, "lines", to_Message(_lines)), __lines),
  192 +
  193 + };
  194 + _hk_editor_table_message
  195 +.
  196 +
  197 +public define Maybe(HK_Editor_Table)
  198 + from_Message
  199 + (
  200 + Message _hk_editor_table_message
  201 + )=
  202 + if find_string(_hk_editor_table_message, "__TYPE__") is {failure then failure, success(__type__) then
  203 + if find_string(_hk_editor_table_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  204 + if __type__ = "HK_Editor_Table" then
  205 + //Alternative table
  206 + if __type_alt__ = "table" then //Alternative table
  207 + // [type = List(HK_Editor_Table_Line)] table.lines
  208 + with mb__lines_ = map_escape(( Message msg ) |-> (Maybe(HK_Editor_Table_Line)) from_Message(msg), find_messages(_hk_editor_table_message, "lines")),
  209 + if mb__lines_ is {failure then failure, success(_lines_) then
  210 +
  211 + success(table(_lines_))
  212 + }
  213 + else
  214 + failure //No valid Alternative found !
  215 + else
  216 + failure //Type not found in message !
  217 + }}
  218 +.
  219 +
view/types/hk_fk_view.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,6 +12,8 @@ transmit tools/basis.anubis @@ -12,6 +12,8 @@ transmit tools/basis.anubis
12 12
13 transmit hayamiki_lib/model/types/hk_app_name.anubis 13 transmit hayamiki_lib/model/types/hk_app_name.anubis
14 14
  15 +
  16 +
15 public type HK_FK_View: 17 public type HK_FK_View:
16 fk_view( 18 fk_view(
17 HK_App_Name app_name, 19 HK_App_Name app_name,
view/types/hk_form.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -14,6 +14,8 @@ transmit hayamiki_lib/view/types/hk_form_table.anubis @@ -14,6 +14,8 @@ transmit hayamiki_lib/view/types/hk_form_table.anubis
14 transmit hayamiki_lib/view/types/hk_form_tab.anubis 14 transmit hayamiki_lib/view/types/hk_form_tab.anubis
15 transmit hayamiki_lib/view/types/hk_form_entry.anubis 15 transmit hayamiki_lib/view/types/hk_form_entry.anubis
16 16
  17 +
  18 +
17 public type HK_Form: 19 public type HK_Form:
18 hk_form_in_list( 20 hk_form_in_list(
19 String table_name, //database table name which belonging this form 21 String table_name, //database table name which belonging this form
view/types/hk_form_tab.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Form_Tab: 16 public type HK_Form_Tab:
15 hk_form_tab( 17 hk_form_tab(
16 String fk_table_name, 18 String fk_table_name,
view/types/hk_form_table.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -13,6 +13,8 @@ transmit tools/basis.anubis @@ -13,6 +13,8 @@ transmit tools/basis.anubis
13 transmit hayamiki_lib/view/types/hk_form_table_line.anubis 13 transmit hayamiki_lib/view/types/hk_form_table_line.anubis
14 transmit hayamiki_lib/view/types/hk_form_table_attribute.anubis 14 transmit hayamiki_lib/view/types/hk_form_table_attribute.anubis
15 15
  16 +
  17 +
16 public type HK_Form_Table: 18 public type HK_Form_Table:
17 hk_form_table( 19 hk_form_table(
18 List(HK_Form_Table_Attribute) table_attr, 20 List(HK_Form_Table_Attribute) table_attr,
view/types/hk_form_table_attribute.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -11,6 +11,8 @@ transmit system/convert.anubis @@ -11,6 +11,8 @@ transmit system/convert.anubis
11 transmit tools/basis.anubis 11 transmit tools/basis.anubis
12 12
13 13
  14 +
  15 +
14 public type HK_Form_Table_Attribute: 16 public type HK_Form_Table_Attribute:
15 hidden( 17 hidden(
16 String name, 18 String name,
view/types/hk_form_table_cell.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,6 +12,8 @@ transmit tools/basis.anubis @@ -12,6 +12,8 @@ transmit tools/basis.anubis
12 12
13 transmit hayamiki_lib/view/types/hk_form_entry.anubis 13 transmit hayamiki_lib/view/types/hk_form_entry.anubis
14 14
  15 +
  16 +
15 public type HK_Form_Table_Cell: 17 public type HK_Form_Table_Cell:
16 hk_form_table_cell( 18 hk_form_table_cell(
17 HK_Form_Entry form_entry 19 HK_Form_Entry form_entry
view/types/hk_form_table_line.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,6 +12,8 @@ transmit tools/basis.anubis @@ -12,6 +12,8 @@ transmit tools/basis.anubis
12 12
13 transmit hayamiki_lib/view/types/hk_form_table_cell.anubis 13 transmit hayamiki_lib/view/types/hk_form_table_cell.anubis
14 14
  15 +
  16 +
15 public type HK_Form_Table_Line: 17 public type HK_Form_Table_Line:
16 hk_form_table_line( 18 hk_form_table_line(
17 List(HK_Form_Table_Cell) form_table_cells 19 List(HK_Form_Table_Cell) form_table_cells
view/types/hk_list_view.anubis renamed to view/types/hk_viewer.anubis
  Show/Hide comments   View file @51fe496
1 /* 1 /*
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 - * Date: 2017-04-10  
5 - * Time: 09:51:00 4 + * Date: 2017-04-12
  5 + * Time: 22:22:45
6 * 6 *
7 */ 7 */
8 8
@@ -12,7 +12,9 @@ transmit tools/basis.anubis @@ -12,7 +12,9 @@ transmit tools/basis.anubis
12 12
13 transmit calexium_lib/web/types/web_action_name.anubis 13 transmit calexium_lib/web/types/web_action_name.anubis
14 14
15 -public type HK_List_View: 15 +
  16 +
  17 +public type HK_Viewer:
16 list_view_all, 18 list_view_all,
17 list_view( 19 list_view(
18 String view_name, 20 String view_name,
@@ -21,56 +23,56 @@ public type HK_List_View: @@ -21,56 +23,56 @@ public type HK_List_View:
21 ) 23 )
22 . 24 .
23 25
24 - HK_List_View message format  
25 - =========================== 26 + HK_Viewer message format
  27 + ========================
26 28
27 29
28 public define Message 30 public define Message
29 to_Message 31 to_Message
30 ( 32 (
31 - HK_List_View _hk_list_view 33 + HK_Viewer _hk_viewer
32 )= 34 )=
33 - with _hk_list_view_message = message((Word32)0), //  
34 - forget(add_string(_hk_list_view_message, "__TYPE__", "HK_List_View"));  
35 - if _hk_list_view is 35 + with _hk_viewer_message = message((Word32)0), //
  36 + forget(add_string(_hk_viewer_message, "__TYPE__", "HK_Viewer"));
  37 + if _hk_viewer is
36 { 38 {
37 //Alternative list_view_all (NO TYPE) 39 //Alternative list_view_all (NO TYPE)
38 list_view_all then 40 list_view_all then
39 - forget(add_string(_hk_list_view_message, "__TYPE_ALT__", "list_view_all")), 41 + forget(add_string(_hk_viewer_message, "__TYPE_ALT__", "list_view_all")),
40 42
41 //Alternative list_view 43 //Alternative list_view
42 list_view(_view_name, __columns, _link_id_action) then 44 list_view(_view_name, __columns, _link_id_action) then
43 - forget(add_string(_hk_list_view_message, "__TYPE_ALT__", "list_view")); 45 + forget(add_string(_hk_viewer_message, "__TYPE_ALT__", "list_view"));
44 // [type = String] list_view.view_name 46 // [type = String] list_view.view_name
45 - forget(add_string(_hk_list_view_message, "view_name", _view_name)); 47 + forget(add_string(_hk_viewer_message, "view_name", _view_name));
46 // [type = List(String)] list_view.columns 48 // [type = List(String)] list_view.columns
47 - map_forget((String _columns) |-> add_string(_hk_list_view_message, "columns", _columns), __columns); 49 + map_forget((String _columns) |-> add_string(_hk_viewer_message, "columns", _columns), __columns);
48 // [type = WEB_Action_Name] list_view.link_id_action 50 // [type = WEB_Action_Name] list_view.link_id_action
49 - forget(add_message(_hk_list_view_message, "link_id_action", to_Message(_link_id_action))), 51 + forget(add_message(_hk_viewer_message, "link_id_action", to_Message(_link_id_action))),
50 52
51 }; 53 };
52 - _hk_list_view_message 54 + _hk_viewer_message
53 . 55 .
54 56
55 -public define Maybe(HK_List_View) 57 +public define Maybe(HK_Viewer)
56 from_Message 58 from_Message
57 ( 59 (
58 - Message _hk_list_view_message 60 + Message _hk_viewer_message
59 )= 61 )=
60 - if find_string(_hk_list_view_message, "__TYPE__") is {failure then failure, success(__type__) then  
61 - if find_string(_hk_list_view_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then  
62 - if __type__ = "HK_List_View" then 62 + if find_string(_hk_viewer_message, "__TYPE__") is {failure then failure, success(__type__) then
  63 + if find_string(_hk_viewer_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  64 + if __type__ = "HK_Viewer" then
63 //Alternative list_view_all (NO TYPE) 65 //Alternative list_view_all (NO TYPE)
64 if __type_alt__ = "list_view_all" then 66 if __type_alt__ = "list_view_all" then
65 success(list_view_all) 67 success(list_view_all)
66 else //Alternative list_view 68 else //Alternative list_view
67 if __type_alt__ = "list_view" then //Alternative list_view 69 if __type_alt__ = "list_view" then //Alternative list_view
68 // [type = String] list_view.view_name 70 // [type = String] list_view.view_name
69 - if find_string(_hk_list_view_message, "view_name") is {failure then failure, success(_view_name_) then 71 + if find_string(_hk_viewer_message, "view_name") is {failure then failure, success(_view_name_) then
70 // [type = List(String)] list_view.columns 72 // [type = List(String)] list_view.columns
71 - with _columns_ = find_string_list(_hk_list_view_message, "columns"), 73 + with _columns_ = find_string_list(_hk_viewer_message, "columns"),
72 // [type = WEB_Action_Name] list_view.link_id_action 74 // [type = WEB_Action_Name] list_view.link_id_action
73 - if find_message(_hk_list_view_message, "link_id_action") is {failure then failure, success(_link_id_action__msg) then 75 + if find_message(_hk_viewer_message, "link_id_action") is {failure then failure, success(_link_id_action__msg) then
74 if (Maybe(WEB_Action_Name))from_Message(_link_id_action__msg) is {failure then failure, success(_link_id_action_) then 76 if (Maybe(WEB_Action_Name))from_Message(_link_id_action__msg) is {failure then failure, success(_link_id_action_) then
75 77
76 success(list_view(_view_name_, _columns_, _link_id_action_)) 78 success(list_view(_view_name_, _columns_, _link_id_action_))