David RENÉ / hayamiki_lib

Commit 7ed7fe529878708ef0b0a37fcc8c504425431777

Authored by totoro
1 parent 4eca48b0

refactoring in progress... Not finished

Showing 36 changed files with 582 additions and 497 deletions   Show diff stats
Inline Side-by-side
model/types/hk_app.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_app_name.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_database.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_datetime_field_attr.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_display.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_edit_view.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ... @@ -22,7 +22,7 @@ public type HK_Edit_View:
22 22 ),
23 23 edit_view_table_form(
24 24 String view_name,
25   - HK_Edit_View_Table ev_table
  25 + HK_Edit_View_Table form_table
26 26 )
27 27 .
28 28  
... ... @@ -54,12 +54,12 @@ public define Message
54 54 map_forget((HK_FK_View _fk_view) |-> add_message(_hk_edit_view_message, "fk_view", to_Message(_fk_view)), __fk_view),
55 55  
56 56 //Alternative edit_view_table_form
57   - edit_view_table_form(_view_name, _ev_table) then
  57 + edit_view_table_form(_view_name, _form_table) then
58 58 forget(add_string(_hk_edit_view_message, "__TYPE_ALT__", "edit_view_table_form"));
59 59 // [type = String] edit_view_table_form.view_name
60 60 forget(add_string(_hk_edit_view_message, "view_name", _view_name));
61   - // [type = HK_Edit_View_Table] edit_view_table_form.ev_table
62   - forget(add_message(_hk_edit_view_message, "ev_table", to_Message(_ev_table))),
  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 63  
64 64 };
65 65 _hk_edit_view_message
... ... @@ -92,11 +92,11 @@ public define Maybe(HK_Edit_View)
92 92 if __type_alt__ = "edit_view_table_form" then //Alternative edit_view_table_form
93 93 // [type = String] edit_view_table_form.view_name
94 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.ev_table
96   - if find_message(_hk_edit_view_message, "ev_table") is {failure then failure, success(ev_table_msg) then
97   - if (Maybe(HK_Edit_View_Table))from_Message(ev_table_msg) is {failure then failure, success(ev_table) 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 98  
99   - success(edit_view_table_form(view_name, ev_table))
  99 + success(edit_view_table_form(view_name, form_table))
100 100 }}}
101 101 else
102 102 failure //No valid Alternative found !
... ...
model/types/hk_edit_view_cell.anubis deleted
View file @4eca48b
1   -/*
2   - * Created by 伝作 (Densaku).
3   - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
6   - *
7   - */
8   -
9   -transmit system/muscle.anubis
10   -transmit system/convert.anubis
11   -transmit tools/basis.anubis
12   -
13   -
14   -public type HK_Edit_View_Cell:
15   - ev_cell(
16   - String column_name
17   - )
18   -.
19   -
20   - HK_Edit_View_Cell message format
21   - ================================
22   -
23   -
24   -public define Message
25   - to_Message
26   - (
27   - HK_Edit_View_Cell _hk_edit_view_cell
28   - )=
29   - with _hk_edit_view_cell_message = message((Word32)0), //
30   - forget(add_string(_hk_edit_view_cell_message, "__TYPE__", "HK_Edit_View_Cell"));
31   - if _hk_edit_view_cell is
32   - {
33   - //Alternative ev_cell
34   - ev_cell(_column_name) then
35   - forget(add_string(_hk_edit_view_cell_message, "__TYPE_ALT__", "ev_cell"));
36   - // [type = String] ev_cell.column_name
37   - forget(add_string(_hk_edit_view_cell_message, "column_name", _column_name)),
38   -
39   - };
40   - _hk_edit_view_cell_message
41   -.
42   -
43   -public define Maybe(HK_Edit_View_Cell)
44   - from_Message
45   - (
46   - Message _hk_edit_view_cell_message
47   - )=
48   - if find_string(_hk_edit_view_cell_message, "__TYPE__") is {failure then failure, success(__type__) then
49   - if find_string(_hk_edit_view_cell_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
50   - if __type__ = "HK_Edit_View_Cell" then
51   - //Alternative ev_cell
52   - if __type_alt__ = "ev_cell" then //Alternative ev_cell
53   - // [type = String] ev_cell.column_name
54   - if find_string(_hk_edit_view_cell_message, "column_name") is {failure then failure, success(column_name) then
55   -
56   - success(ev_cell(column_name))
57   - }
58   - else
59   - failure //No valid Alternative found !
60   - else
61   - failure //Type not found in message !
62   - }}
63   -.
64   -
model/types/hk_edit_view_line.anubis deleted
View file @4eca48b
1   -/*
2   - * Created by 伝作 (Densaku).
3   - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
6   - *
7   - */
8   -
9   -transmit system/muscle.anubis
10   -transmit system/convert.anubis
11   -transmit tools/basis.anubis
12   -
13   -transmit hayamiki_lib/model/types/hk_edit_view_cell.anubis
14   -
15   -public type HK_Edit_View_Line:
16   - ev_line(
17   - List(HK_Edit_View_Cell) ev_cells
18   - )
19   -.
20   -
21   - HK_Edit_View_Line message format
22   - ================================
23   -
24   -
25   -public define Message
26   - to_Message
27   - (
28   - HK_Edit_View_Line _hk_edit_view_line
29   - )=
30   - with _hk_edit_view_line_message = message((Word32)0), //
31   - forget(add_string(_hk_edit_view_line_message, "__TYPE__", "HK_Edit_View_Line"));
32   - if _hk_edit_view_line is
33   - {
34   - //Alternative ev_line
35   - ev_line(__ev_cells) then
36   - forget(add_string(_hk_edit_view_line_message, "__TYPE_ALT__", "ev_line"));
37   - // [type = List(HK_Edit_View_Cell)] ev_line.ev_cells
38   - map_forget((HK_Edit_View_Cell _ev_cells) |-> add_message(_hk_edit_view_line_message, "ev_cells", to_Message(_ev_cells)), __ev_cells),
39   -
40   - };
41   - _hk_edit_view_line_message
42   -.
43   -
44   -public define Maybe(HK_Edit_View_Line)
45   - from_Message
46   - (
47   - Message _hk_edit_view_line_message
48   - )=
49   - if find_string(_hk_edit_view_line_message, "__TYPE__") is {failure then failure, success(__type__) then
50   - if find_string(_hk_edit_view_line_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
51   - if __type__ = "HK_Edit_View_Line" then
52   - //Alternative ev_line
53   - if __type_alt__ = "ev_line" then //Alternative ev_line
54   - // [type = List(HK_Edit_View_Cell)] ev_line.ev_cells
55   - with mb_ev_cells = map_escape(( Message msg ) |-> (Maybe(HK_Edit_View_Cell)) from_Message(msg), find_messages(_hk_edit_view_line_message, "ev_cells")),
56   - if mb_ev_cells is {failure then failure, success(ev_cells) then
57   -
58   - success(ev_line(ev_cells))
59   - }
60   - else
61   - failure //No valid Alternative found !
62   - else
63   - failure //Type not found in message !
64   - }}
65   -.
66   -
model/types/hk_edit_view_table.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ... @@ -10,11 +10,11 @@ transmit system/muscle.anubis
10 10 transmit system/convert.anubis
11 11 transmit tools/basis.anubis
12 12  
13   -transmit hayamiki_lib/model/types/hk_edit_view_line.anubis
  13 +transmit hayamiki_lib/model/types/hk_edit_view_table_line.anubis
14 14  
15 15 public type HK_Edit_View_Table:
16   - ev_table(
17   - List(HK_Edit_View_Line) ev_lines
  16 + table(
  17 + List(HK_Edit_View_Table_Line) lines
18 18 )
19 19 .
20 20  
... ... @@ -31,11 +31,11 @@ public define Message
31 31 forget(add_string(_hk_edit_view_table_message, "__TYPE__", "HK_Edit_View_Table"));
32 32 if _hk_edit_view_table is
33 33 {
34   - //Alternative ev_table
35   - ev_table(__ev_lines) then
36   - forget(add_string(_hk_edit_view_table_message, "__TYPE_ALT__", "ev_table"));
37   - // [type = List(HK_Edit_View_Line)] ev_table.ev_lines
38   - map_forget((HK_Edit_View_Line _ev_lines) |-> add_message(_hk_edit_view_table_message, "ev_lines", to_Message(_ev_lines)), __ev_lines),
  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 39  
40 40 };
41 41 _hk_edit_view_table_message
... ... @@ -49,13 +49,13 @@ public define Maybe(HK_Edit_View_Table)
49 49 if find_string(_hk_edit_view_table_message, "__TYPE__") is {failure then failure, success(__type__) then
50 50 if find_string(_hk_edit_view_table_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
51 51 if __type__ = "HK_Edit_View_Table" then
52   - //Alternative ev_table
53   - if __type_alt__ = "ev_table" then //Alternative ev_table
54   - // [type = List(HK_Edit_View_Line)] ev_table.ev_lines
55   - with mb_ev_lines = map_escape(( Message msg ) |-> (Maybe(HK_Edit_View_Line)) from_Message(msg), find_messages(_hk_edit_view_table_message, "ev_lines")),
56   - if mb_ev_lines is {failure then failure, success(ev_lines) 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 57  
58   - success(ev_table(ev_lines))
  58 + success(table(lines))
59 59 }
60 60 else
61 61 failure //No valid Alternative found !
... ...
model/types/hk_edit_view_table_cell.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
  6 + *
  7 + */
  8 +
  9 +transmit system/muscle.anubis
  10 +transmit system/convert.anubis
  11 +transmit tools/basis.anubis
  12 +
  13 +
  14 +public type HK_Edit_View_Table_Cell:
  15 + cell(
  16 + String column_name
  17 + )
  18 +.
  19 +
  20 + HK_Edit_View_Table_Cell message format
  21 + ======================================
  22 +
  23 +
  24 +public define Message
  25 + to_Message
  26 + (
  27 + HK_Edit_View_Table_Cell _hk_edit_view_table_cell
  28 + )=
  29 + with _hk_edit_view_table_cell_message = message((Word32)0), //
  30 + forget(add_string(_hk_edit_view_table_cell_message, "__TYPE__", "HK_Edit_View_Table_Cell"));
  31 + if _hk_edit_view_table_cell is
  32 + {
  33 + //Alternative cell
  34 + cell(_column_name) then
  35 + forget(add_string(_hk_edit_view_table_cell_message, "__TYPE_ALT__", "cell"));
  36 + // [type = String] cell.column_name
  37 + forget(add_string(_hk_edit_view_table_cell_message, "column_name", _column_name)),
  38 +
  39 + };
  40 + _hk_edit_view_table_cell_message
  41 +.
  42 +
  43 +public define Maybe(HK_Edit_View_Table_Cell)
  44 + from_Message
  45 + (
  46 + Message _hk_edit_view_table_cell_message
  47 + )=
  48 + if find_string(_hk_edit_view_table_cell_message, "__TYPE__") is {failure then failure, success(__type__) then
  49 + if find_string(_hk_edit_view_table_cell_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  50 + if __type__ = "HK_Edit_View_Table_Cell" then
  51 + //Alternative cell
  52 + if __type_alt__ = "cell" then //Alternative cell
  53 + // [type = String] cell.column_name
  54 + if find_string(_hk_edit_view_table_cell_message, "column_name") is {failure then failure, success(column_name) then
  55 +
  56 + success(cell(column_name))
  57 + }
  58 + else
  59 + failure //No valid Alternative found !
  60 + else
  61 + failure //Type not found in message !
  62 + }}
  63 +.
  64 +
... ...
model/types/hk_edit_view_table_line.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
  6 + *
  7 + */
  8 +
  9 +transmit system/muscle.anubis
  10 +transmit system/convert.anubis
  11 +transmit tools/basis.anubis
  12 +
  13 +transmit hayamiki_lib/model/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 +
... ...
model/types/hk_fk_view.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_help_text.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_icon.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_int_choice.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_int_choices.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_list_view.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_model.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_model_attr.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_model_column.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_model_field.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_table.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_text_choice.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_text_choices.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
model/types/hk_text_field_attr.anubis
  Show/Hide comments   View file @7ed7fe5
1 1 /*
2 2 * Created by 伝作 (Densaku).
3 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
6 6 *
7 7 */
8 8  
... ...
view/types/hk_form.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  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 +read hayamiki_lib/view/types/hk_form_table.anubis
  12 +
  13 +//public type VT_edit_selector:
  14 +// vt_edit_selector((SQLite3DataBase db, HK_Referer referer, String filter) -> List((List(CoreAttrs), WebArgValue, String)) get).
  15 +//
  16 +//
  17 +//public type VT_edit_entry:
  18 +// hidden (String name, String value),
  19 +// label (String s_name),
  20 +// primary_key (String idx),
  21 +// 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
  22 +// text (String s_name, String c_name, String value, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  23 +// password (String s_name, String c_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  24 +// foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector, HK_Help_Text help),
  25 +// choices_text(String s_name, String c_name, String selected, VT_edit_selector selector, HK_Help_Text help),
  26 +// text_area (String s_name, String c_name, String value, HK_Text_Field_Attr area_att, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name
  27 +// boolean (String s_name, String c_name, Bool value, HK_Help_Text help),
  28 +// integer (String s_name, String c_name, Int value, HK_Help_Text help),
  29 +// float (String s_name, String c_name, Float value, HK_Help_Text help),
  30 +// choices_int (String s_name, String c_name, Int selected, VT_edit_selector selector, HK_Help_Text help),
  31 +// date (String s_name, String c_name, String value, HK_Help_Text help),
  32 +// time (String s_name, String c_name, String value, HK_Help_Text help),
  33 +// datetime (String s_name, String c_name, String value, HK_Help_Text help),
  34 +// color (String s_name, String c_name, String value, HK_Help_Text help)
  35 +//.
  36 +
  37 +//public define VT_edit_entry text (String s_name, String c_name, String value) = text(s_name, c_name, value, no_help_text).
  38 +//public define VT_edit_entry foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector) = foreign_text(s_name, c_name, selected, selector, no_help_text).
  39 +//public define VT_edit_entry text_area (String s_name, String c_name, String value) = text_area(s_name, c_name, value, none, no_help_text).
  40 +//public define VT_edit_entry boolean(String s_name, String c_name, Bool value) = boolean(s_name, c_name, value, no_help_text).
  41 +//public define VT_edit_entry integer(String s_name, String c_name, Int value) = integer(s_name, c_name, value, no_help_text).
  42 +//public define VT_edit_entry float(String s_name, String c_name, Float value) = float(s_name, c_name, value, no_help_text).
  43 +//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).
  44 +
  45 +
  46 +public type HK_Form_Tab: //HK_V_Edit_Tab:
  47 + hk_ve_form_tab(String fk_table_name, String fk_col_name, String list_view_name)
  48 +.
  49 +
  50 +public type HK_Form: //VT_edit:
  51 + hk_form_in_list (String table_name, String view_name, List(HK_Form_Entry) list, List(HK_Form_Tab) tabs),
  52 + hk_form_in_table(String table_name, String view_name, HK_Form_Table ve_table)
  53 +.
  54 +
  55 +
  56 +public type VT_view_model_entry:
  57 + //hidden (String name, String value),
  58 + primary_key ,
  59 + information (String label, String column_name, Int width, HK_Help_Text help), //s_name = show_name for translation, v_name = string to show
  60 + text (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  61 + password (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  62 + foreign_text(String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),
  63 + choices_text(String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),
  64 + text_area (String label, String column_name, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name
  65 + boolean (String label, String column_name, HK_Help_Text help),
  66 + integer (String label, String column_name, HK_Help_Text help),
  67 + float (String label, String column_name, HK_Help_Text help),
  68 + choices_int (String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),
  69 + date (String label, String column_name, HK_Help_Text help),
  70 + time (String label, String column_name, HK_Help_Text help),
  71 + datetime (String label, String column_name, HK_Help_Text help),
  72 + color (String label, String column_name, HK_Help_Text help).
  73 +
  74 +
  75 +public type VT_view_model:
  76 + vt_view_model(List(VT_view_model_entry) list).
  77 +
  78 +public type VT_view_entry:
  79 + text(String text),
  80 + link(String id, String text),
  81 + link_id_action(String id, String text, WEB_Action_Name link_id_action),
  82 + icon(String icon_path).
  83 +
  84 +public type VT_view_row_header:
  85 + vt_view_row_header(List(VT_view_entry) list).
  86 +
  87 +public type VT_view_row:
  88 + vt_view_row(Int db_id, List(VT_view_entry) list).
  89 +
  90 +public type VT_View_DB_Calls:
  91 + vt_view_db_calls(
  92 + (SQLite3DataBase db, String clause) -> Int get_count,
  93 + (SQLite3DataBase db, HK_Referer referer, String clause) -> JsonMember get_rows_json
  94 +// (SQLite3DataBase db, String clause) -> List(VT_view_row) get_rows
  95 + )
  96 +.
  97 +
  98 +public type VT_view:
  99 + vt_view(String table_name, String view_name, VT_view_model view_model, VT_view_row_header header, VT_View_DB_Calls db_calls).
  100 +
  101 +
  102 +public type HK_Form_action:
  103 + new_entry,
  104 + edit_entry(String idx).
  105 +
  106 +public define String default_select = "--------------------". //20 dash
  107 +public define (List(CoreAttrs),WebArgValue,String) selector_default_entry = ([], wav("none"),default_select).
... ...
view/types/hk_form_entry.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  1 +/*
  2 + * Created by PyramIDE.
  3 + * User: フランスのトトロ aka (David RENÉ)
  4 + * Date: 04/04/2017
  5 + * Time: 00:22
  6 + * © Calexium
  7 + */
  8 +
  9 +
  10 +read calexium_lib/web/CXM_making_a_web_site.anubis
  11 +transmit calexium_lib/web/CXM_common.anubis
  12 +read hayamiki_lib/types/hayamiki.anubis
  13 +
  14 +
  15 +public type HK_Form_Selector:
  16 + hk_form_selector((SQLite3DataBase db, HK_Referer referer, String filter) -> List((List(CoreAttrs), WebArgValue, String)) get).
  17 +
  18 +
  19 +public type HK_Form_Entry: //legacy VT_Edit
  20 + hidden (String name, String value),
  21 + label (String s_name),
  22 + primary_key (String idx),
  23 + 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
  24 + text (String s_name, String c_name, String value, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  25 + password (String s_name, String c_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  26 + foreign_text(String s_name, String c_name, DB_id selected, HK_Form_Selector selector, HK_Help_Text help),
  27 + choices_text(String s_name, String c_name, String selected, HK_Form_Selector selector, HK_Help_Text help),
  28 + text_area (String s_name, String c_name, String value, HK_Text_Field_Attr area_att, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name
  29 + boolean (String s_name, String c_name, Bool value, HK_Help_Text help),
  30 + integer (String s_name, String c_name, Int value, HK_Help_Text help),
  31 + float (String s_name, String c_name, Float value, HK_Help_Text help),
  32 + choices_int (String s_name, String c_name, Int selected, HK_Form_Selector selector, HK_Help_Text help),
  33 + date (String s_name, String c_name, String value, HK_Help_Text help),
  34 + time (String s_name, String c_name, String value, HK_Help_Text help),
  35 + datetime (String s_name, String c_name, String value, HK_Help_Text help),
  36 + color (String s_name, String c_name, String value, HK_Help_Text help)
  37 +.
  38 +
  39 +public define HK_Form_Entry text (String s_name, String c_name, String value) = text (s_name, c_name, value, no_help_text).
  40 +public define HK_Form_Entry foreign_text(String s_name, String c_name, DB_id selected, HK_Form_Selector selector) = foreign_text(s_name, c_name, selected, selector, no_help_text).
  41 +public define HK_Form_Entry text_area (String s_name, String c_name, String value) = text_area (s_name, c_name, value, none, no_help_text).
  42 +public define HK_Form_Entry boolean (String s_name, String c_name, Bool value) = boolean (s_name, c_name, value, no_help_text).
  43 +public define HK_Form_Entry integer (String s_name, String c_name, Int value) = integer (s_name, c_name, value, no_help_text).
  44 +public define HK_Form_Entry float (String s_name, String c_name, Float value) = float (s_name, c_name, value, no_help_text).
  45 +public define HK_Form_Entry information (String s_name, String c_name, String v_name, HK_Help_Text help) = information(s_name, c_name, v_name, 0, help).
... ...
view/types/hk_form_table.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
  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_form_table_line.anubis
  14 +
  15 +public type HK_Form_Table:
  16 + hk_form_table(
  17 + List(HK_Form_Table_Line) form_lines
  18 + )
  19 +.
  20 +
  21 + HK_Form_Table message format
  22 + ============================
  23 +
  24 +
  25 +public define Message
  26 + to_Message
  27 + (
  28 + HK_Form_Table _hk_form_table
  29 + )=
  30 + with _hk_form_table_message = message((Word32)0), //
  31 + forget(add_string(_hk_form_table_message, "__TYPE__", "HK_Form_Table"));
  32 + if _hk_form_table is
  33 + {
  34 + //Alternative hk_form_table
  35 + hk_form_table(__form_lines) then
  36 + forget(add_string(_hk_form_table_message, "__TYPE_ALT__", "hk_form_table"));
  37 + // [type = List(HK_Form_Table_Line)] hk_form_table.form_lines
  38 + map_forget((HK_Form_Table_Line _form_lines) |-> add_message(_hk_form_table_message, "form_lines", to_Message(_form_lines)), __form_lines),
  39 +
  40 + };
  41 + _hk_form_table_message
  42 +.
  43 +
  44 +public define Maybe(HK_Form_Table)
  45 + from_Message
  46 + (
  47 + Message _hk_form_table_message
  48 + )=
  49 + if find_string(_hk_form_table_message, "__TYPE__") is {failure then failure, success(__type__) then
  50 + if find_string(_hk_form_table_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  51 + if __type__ = "HK_Form_Table" then
  52 + //Alternative hk_form_table
  53 + if __type_alt__ = "hk_form_table" then //Alternative hk_form_table
  54 + // [type = List(HK_Form_Table_Line)] hk_form_table.form_lines
  55 + with mb_form_lines = map_escape(( Message msg ) |-> (Maybe(HK_Form_Table_Line)) from_Message(msg), find_messages(_hk_form_table_message, "form_lines")),
  56 + if mb_form_lines is {failure then failure, success(form_lines) then
  57 +
  58 + success(hk_form_table(form_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_form_table_cell.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
  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_form_entry.anubis
  14 +
  15 +public type HK_Form_Table_Cell:
  16 + hk_form_table_cell(
  17 + HK_Form_Entry form_entry
  18 + )
  19 +.
  20 +
  21 + HK_Form_Table_Cell message format
  22 + =================================
  23 +
  24 +
  25 +public define Message
  26 + to_Message
  27 + (
  28 + HK_Form_Table_Cell _hk_form_table_cell
  29 + )=
  30 + with _hk_form_table_cell_message = message((Word32)0), //
  31 + forget(add_string(_hk_form_table_cell_message, "__TYPE__", "HK_Form_Table_Cell"));
  32 + if _hk_form_table_cell is
  33 + {
  34 + //Alternative hk_form_table_cell
  35 + hk_form_table_cell(_form_entry) then
  36 + forget(add_string(_hk_form_table_cell_message, "__TYPE_ALT__", "hk_form_table_cell"));
  37 + // [type = HK_Form_Entry] hk_form_table_cell.form_entry
  38 + forget(add_message(_hk_form_table_cell_message, "form_entry", to_Message(_form_entry))),
  39 +
  40 + };
  41 + _hk_form_table_cell_message
  42 +.
  43 +
  44 +public define Maybe(HK_Form_Table_Cell)
  45 + from_Message
  46 + (
  47 + Message _hk_form_table_cell_message
  48 + )=
  49 + if find_string(_hk_form_table_cell_message, "__TYPE__") is {failure then failure, success(__type__) then
  50 + if find_string(_hk_form_table_cell_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  51 + if __type__ = "HK_Form_Table_Cell" then
  52 + //Alternative hk_form_table_cell
  53 + if __type_alt__ = "hk_form_table_cell" then //Alternative hk_form_table_cell
  54 + // [type = HK_Form_Entry] hk_form_table_cell.form_entry
  55 + if find_message(_hk_form_table_cell_message, "form_entry") is {failure then failure, success(form_entry_msg) then
  56 + if (Maybe(HK_Form_Entry))from_Message(form_entry_msg) is {failure then failure, success(form_entry) then
  57 +
  58 + success(hk_form_table_cell(form_entry))
  59 + }}
  60 + else
  61 + failure //No valid Alternative found !
  62 + else
  63 + failure //Type not found in message !
  64 + }}
  65 +.
  66 +
... ...
view/types/hk_form_table_line.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-04
  5 + * Time: 01:16:47
  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_form_table_cell.anubis
  14 +
  15 +public type HK_Form_Table_Line:
  16 + hk_form_table_line(
  17 + List(HK_Form_Table_Cell) form_table_cells
  18 + )
  19 +.
  20 +
  21 + HK_Form_Table_Line message format
  22 + =================================
  23 +
  24 +
  25 +public define Message
  26 + to_Message
  27 + (
  28 + HK_Form_Table_Line _hk_form_table_line
  29 + )=
  30 + with _hk_form_table_line_message = message((Word32)0), //
  31 + forget(add_string(_hk_form_table_line_message, "__TYPE__", "HK_Form_Table_Line"));
  32 + if _hk_form_table_line is
  33 + {
  34 + //Alternative hk_form_table_line
  35 + hk_form_table_line(__form_table_cells) then
  36 + forget(add_string(_hk_form_table_line_message, "__TYPE_ALT__", "hk_form_table_line"));
  37 + // [type = List(HK_Form_Table_Cell)] hk_form_table_line.form_table_cells
  38 + map_forget((HK_Form_Table_Cell _form_table_cells) |-> add_message(_hk_form_table_line_message, "form_table_cells", to_Message(_form_table_cells)), __form_table_cells),
  39 +
  40 + };
  41 + _hk_form_table_line_message
  42 +.
  43 +
  44 +public define Maybe(HK_Form_Table_Line)
  45 + from_Message
  46 + (
  47 + Message _hk_form_table_line_message
  48 + )=
  49 + if find_string(_hk_form_table_line_message, "__TYPE__") is {failure then failure, success(__type__) then
  50 + if find_string(_hk_form_table_line_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  51 + if __type__ = "HK_Form_Table_Line" then
  52 + //Alternative hk_form_table_line
  53 + if __type_alt__ = "hk_form_table_line" then //Alternative hk_form_table_line
  54 + // [type = List(HK_Form_Table_Cell)] hk_form_table_line.form_table_cells
  55 + with mb_form_table_cells = map_escape(( Message msg ) |-> (Maybe(HK_Form_Table_Cell)) from_Message(msg), find_messages(_hk_form_table_line_message, "form_table_cells")),
  56 + if mb_form_table_cells is {failure then failure, success(form_table_cells) then
  57 +
  58 + success(hk_form_table_line(form_table_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_view_editor_cell.anubis deleted
View file @4eca48b
1   -/*
2   - * Created by 伝作 (Densaku).
3   - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
6   - *
7   - */
8   -
9   -transmit system/muscle.anubis
10   -transmit system/convert.anubis
11   -transmit tools/basis.anubis
12   -
13   -transmit hayamiki_lib/view/view_table_types.anubis
14   -
15   -public type HK_View_Editor_Cell:
16   - ve_cell(
17   - VT_edit_entry edit_entry
18   - )
19   -.
20   -
21   - HK_View_Editor_Cell message format
22   - ==================================
23   -
24   -
25   -public define Message
26   - to_Message
27   - (
28   - HK_View_Editor_Cell _hk_view_editor_cell
29   - )=
30   - with _hk_view_editor_cell_message = message((Word32)0), //
31   - forget(add_string(_hk_view_editor_cell_message, "__TYPE__", "HK_View_Editor_Cell"));
32   - if _hk_view_editor_cell is
33   - {
34   - //Alternative ve_cell
35   - ve_cell(_edit_entry) then
36   - forget(add_string(_hk_view_editor_cell_message, "__TYPE_ALT__", "ve_cell"));
37   - // [type = VT_edit_entry] ve_cell.edit_entry
38   - forget(add_message(_hk_view_editor_cell_message, "edit_entry", to_Message(_edit_entry))),
39   -
40   - };
41   - _hk_view_editor_cell_message
42   -.
43   -
44   -public define Maybe(HK_View_Editor_Cell)
45   - from_Message
46   - (
47   - Message _hk_view_editor_cell_message
48   - )=
49   - if find_string(_hk_view_editor_cell_message, "__TYPE__") is {failure then failure, success(__type__) then
50   - if find_string(_hk_view_editor_cell_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
51   - if __type__ = "HK_View_Editor_Cell" then
52   - //Alternative ve_cell
53   - if __type_alt__ = "ve_cell" then //Alternative ve_cell
54   - // [type = VT_edit_entry] ve_cell.edit_entry
55   - if find_message(_hk_view_editor_cell_message, "edit_entry") is {failure then failure, success(edit_entry_msg) then
56   - if (Maybe(VT_edit_entry))from_Message(edit_entry_msg) is {failure then failure, success(edit_entry) then
57   -
58   - success(ve_cell(edit_entry))
59   - }}
60   - else
61   - failure //No valid Alternative found !
62   - else
63   - failure //Type not found in message !
64   - }}
65   -.
66   -
view/types/hk_view_editor_line.anubis deleted
View file @4eca48b
1   -/*
2   - * Created by 伝作 (Densaku).
3   - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
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_view_editor_cell.anubis
14   -
15   -public type HK_View_Editor_Line:
16   - ve_line(
17   - List(HK_View_Editor_Cell) ve_cells
18   - )
19   -.
20   -
21   - HK_View_Editor_Line message format
22   - ==================================
23   -
24   -
25   -public define Message
26   - to_Message
27   - (
28   - HK_View_Editor_Line _hk_view_editor_line
29   - )=
30   - with _hk_view_editor_line_message = message((Word32)0), //
31   - forget(add_string(_hk_view_editor_line_message, "__TYPE__", "HK_View_Editor_Line"));
32   - if _hk_view_editor_line is
33   - {
34   - //Alternative ve_line
35   - ve_line(__ve_cells) then
36   - forget(add_string(_hk_view_editor_line_message, "__TYPE_ALT__", "ve_line"));
37   - // [type = List(HK_View_Editor_Cell)] ve_line.ve_cells
38   - map_forget((HK_View_Editor_Cell _ve_cells) |-> add_message(_hk_view_editor_line_message, "ve_cells", to_Message(_ve_cells)), __ve_cells),
39   -
40   - };
41   - _hk_view_editor_line_message
42   -.
43   -
44   -public define Maybe(HK_View_Editor_Line)
45   - from_Message
46   - (
47   - Message _hk_view_editor_line_message
48   - )=
49   - if find_string(_hk_view_editor_line_message, "__TYPE__") is {failure then failure, success(__type__) then
50   - if find_string(_hk_view_editor_line_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
51   - if __type__ = "HK_View_Editor_Line" then
52   - //Alternative ve_line
53   - if __type_alt__ = "ve_line" then //Alternative ve_line
54   - // [type = List(HK_View_Editor_Cell)] ve_line.ve_cells
55   - with mb_ve_cells = map_escape(( Message msg ) |-> (Maybe(HK_View_Editor_Cell)) from_Message(msg), find_messages(_hk_view_editor_line_message, "ve_cells")),
56   - if mb_ve_cells is {failure then failure, success(ve_cells) then
57   -
58   - success(ve_line(ve_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_view_editor_table.anubis deleted
View file @4eca48b
1   -/*
2   - * Created by 伝作 (Densaku).
3   - * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4   - * Date: 2017-04-03
5   - * Time: 23:52:46
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_view_editor_line.anubis
14   -
15   -public type HK_View_Editor_Table:
16   - ve_table(
17   - List(HK_View_Editor_Line) ve_lines
18   - )
19   -.
20   -
21   - HK_View_Editor_Table message format
22   - ===================================
23   -
24   -
25   -public define Message
26   - to_Message
27   - (
28   - HK_View_Editor_Table _hk_view_editor_table
29   - )=
30   - with _hk_view_editor_table_message = message((Word32)0), //
31   - forget(add_string(_hk_view_editor_table_message, "__TYPE__", "HK_View_Editor_Table"));
32   - if _hk_view_editor_table is
33   - {
34   - //Alternative ve_table
35   - ve_table(__ve_lines) then
36   - forget(add_string(_hk_view_editor_table_message, "__TYPE_ALT__", "ve_table"));
37   - // [type = List(HK_View_Editor_Line)] ve_table.ve_lines
38   - map_forget((HK_View_Editor_Line _ve_lines) |-> add_message(_hk_view_editor_table_message, "ve_lines", to_Message(_ve_lines)), __ve_lines),
39   -
40   - };
41   - _hk_view_editor_table_message
42   -.
43   -
44   -public define Maybe(HK_View_Editor_Table)
45   - from_Message
46   - (
47   - Message _hk_view_editor_table_message
48   - )=
49   - if find_string(_hk_view_editor_table_message, "__TYPE__") is {failure then failure, success(__type__) then
50   - if find_string(_hk_view_editor_table_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
51   - if __type__ = "HK_View_Editor_Table" then
52   - //Alternative ve_table
53   - if __type_alt__ = "ve_table" then //Alternative ve_table
54   - // [type = List(HK_View_Editor_Line)] ve_table.ve_lines
55   - with mb_ve_lines = map_escape(( Message msg ) |-> (Maybe(HK_View_Editor_Line)) from_Message(msg), find_messages(_hk_view_editor_table_message, "ve_lines")),
56   - if mb_ve_lines is {failure then failure, success(ve_lines) then
57   -
58   - success(ve_table(ve_lines))
59   - }
60   - else
61   - failure //No valid Alternative found !
62   - else
63   - failure //Type not found in message !
64   - }}
65   -.
66   -
view/view_editor_renderer.anubis 0 → 100644
  Show/Hide comments   View file @7ed7fe5
  1 +/*
  2 + * Created by PyramIDE.
  3 + * User: フランスのトトロ aka (David RENÉ)
  4 + * Date: 03/04/2017
  5 + * Time: 21:26
  6 + * © Calexium
  7 + */
  8 +
  9 +read calexium_lib/web/CXM_making_a_web_site.anubis
  10 +read calexium_lib/web/CXM_form.anubis
  11 +read hayamiki_lib/view/view_table_manager_types.anubis
  12 +read hayamiki_lib/view/view_table_manager.anubis
  13 +read hayamiki_lib/types/hayamiki.anubis
  14 +
  15 +public define Maybe(HTML_Partial_Content)
  16 + view_editor_content
  17 + (
  18 + SQLite3DataBase db,
  19 + (String) -> String _T,
  20 + String lang,
  21 + String web_site_directory,
  22 + List(Web_arg) lwa,
  23 + String table, //table name
  24 + String view_name, //view name to use
  25 + VT_action action, //new_entry or edit an existing record
  26 + VTM vtm,
  27 + String clause,
  28 + String fk_clause,
  29 + HK_Referer referer
  30 + ) =
  31 + if vtm_get_edit(table, vtm.edit_list) is
  32 + {
  33 + failure then failure,
  34 + success(vtm_e) then
  35 + since vtm_e is vtm_edit(_, get_edit),
  36 + success(edit_table_form(db, _T, lang, web_site_directory, lwa, get_edit(db, action, view_name), vtm, clause, fk_clause, referer))
  37 + }.
... ...
view/view_table_types.anubis deleted
View file @4eca48b
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, HK_Referer referer, String filter) -> List((List(CoreAttrs), WebArgValue, String)) get).
14   -
15   -
16   -public type VT_edit_entry:
17   - hidden (String name, String value),
18   - label (String s_name),
19   - primary_key (String idx),
20   - 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
21   - text (String s_name, String c_name, String value, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
22   - password (String s_name, String c_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
23   - foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector, HK_Help_Text help),
24   - choices_text(String s_name, String c_name, String selected, VT_edit_selector selector, HK_Help_Text help),
25   - text_area (String s_name, String c_name, String value, HK_Text_Field_Attr area_att, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name
26   - boolean (String s_name, String c_name, Bool value, HK_Help_Text help),
27   - integer (String s_name, String c_name, Int value, HK_Help_Text help),
28   - float (String s_name, String c_name, Float value, HK_Help_Text help),
29   - choices_int (String s_name, String c_name, Int selected, VT_edit_selector selector, HK_Help_Text help),
30   - date (String s_name, String c_name, String value, HK_Help_Text help),
31   - time (String s_name, String c_name, String value, HK_Help_Text help),
32   - datetime (String s_name, String c_name, String value, HK_Help_Text help),
33   - color (String s_name, String c_name, String value, HK_Help_Text help)
34   -.
35   -
36   -public define VT_edit_entry text (String s_name, String c_name, String value) = text(s_name, c_name, value, no_help_text).
37   -public define VT_edit_entry foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector) = foreign_text(s_name, c_name, selected, selector, no_help_text).
38   -public define VT_edit_entry text_area (String s_name, String c_name, String value) = text_area(s_name, c_name, value, none, no_help_text).
39   -public define VT_edit_entry boolean(String s_name, String c_name, Bool value) = boolean(s_name, c_name, value, no_help_text).
40   -public define VT_edit_entry integer(String s_name, String c_name, Int value) = integer(s_name, c_name, value, no_help_text).
41   -public define VT_edit_entry float(String s_name, String c_name, Float value) = float(s_name, c_name, value, no_help_text).
42   -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).
43   -
44   -
45   -public type HK_V_Edit_Tab:
46   - hk_v_edit_tab(String fk_table_name, String fk_col_name, String list_view_name)
47   -.
48   -
49   -public type VT_edit:
50   - vt_edit_list_form(String table_name, String view_name, List(VT_edit_entry) list, List(HK_V_Edit_Tab) tabs),
51   - vt_edit_table_form(String table_name, String view_name,
52   -
53   -
54   -public type VT_view_model_entry:
55   - //hidden (String name, String value),
56   - primary_key ,
57   - information (String label, String column_name, Int width, HK_Help_Text help), //s_name = show_name for translation, v_name = string to show
58   - text (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
59   - password (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
60   - foreign_text(String label, String column_name, VT_edit_selector selector, HK_Help_Text help),
61   - choices_text(String label, String column_name, VT_edit_selector selector, HK_Help_Text help),
62   - text_area (String label, String column_name, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name
63   - boolean (String label, String column_name, HK_Help_Text help),
64   - integer (String label, String column_name, HK_Help_Text help),
65   - float (String label, String column_name, HK_Help_Text help),
66   - choices_int (String label, String column_name, VT_edit_selector selector, HK_Help_Text help),
67   - date (String label, String column_name, HK_Help_Text help),
68   - time (String label, String column_name, HK_Help_Text help),
69   - datetime (String label, String column_name, HK_Help_Text help),
70   - color (String label, String column_name, HK_Help_Text help).
71   -
72   -
73   -public type VT_view_model:
74   - vt_view_model(List(VT_view_model_entry) list).
75   -
76   -public type VT_view_entry:
77   - text(String text),
78   - link(String id, String text),
79   - link_id_action(String id, String text, WEB_Action_Name link_id_action),
80   - icon(String icon_path).
81   -
82   -public type VT_view_row_header:
83   - vt_view_row_header(List(VT_view_entry) list).
84   -
85   -public type VT_view_row:
86   - vt_view_row(Int db_id, List(VT_view_entry) list).
87   -
88   -public type VT_View_DB_Calls:
89   - vt_view_db_calls(
90   - (SQLite3DataBase db, String clause) -> Int get_count,
91   - (SQLite3DataBase db, HK_Referer referer, String clause) -> JsonMember get_rows_json
92   -// (SQLite3DataBase db, String clause) -> List(VT_view_row) get_rows
93   - )
94   -.
95   -
96   -public type VT_view:
97   - vt_view(String table_name, String view_name, VT_view_model view_model, VT_view_row_header header, VT_View_DB_Calls db_calls).
98   -
99   -
100   -public type VT_action:
101   - new_entry,
102   - edit_entry(String idx).
103   -
104   -public define String default_select = "--------------------". //20 dash
105   -public define (List(CoreAttrs),WebArgValue,String) selector_default_entry = ([], wav("none"),default_select).
view/web_action.anubis
  Show/Hide comments   View file @7ed7fe5
... ... @@ -11,6 +11,7 @@ read calexium_lib/web/CXM_making_a_web_site.anubis
11 11 here are defined all action managed by Hayamiki Controller
12 12  
13 13 public define WEB_Action_Name hkc_edit_table = controller_action("hk_c", "edit_table").
  14 +public define WEB_Action_Name hkc_view_editor = controller_action("hk_c", "view_editor").
14 15 public define WEB_Action_Name hkc_grid_view = controller_action("hk_c", "grid_view").
15 16 public define WEB_Action_Name hkc_grid_action = controller_action("hk_c", "grid_action").
16 17 public define WEB_Action_Name hkc_list_view = controller_action("hk_c", "view_table").
... ...