Anubis / Xlib

Commit cd5d8eb41a0f66610c33c344663d537f2de0c172

Authored by totoro
1 parent a75318e1

add the management of delete function

Showing 3 changed files with 43 additions and 7 deletions   Show diff stats
Inline Side-by-side
database/vtm/view_table_manager.anubis
  Show/Hide comments   View file @cd5d8eb
... ... @@ -6,8 +6,8 @@
6 6 */
7 7  
8 8 read tools/basis.anubis
9   -read calexium_lib/database/vtm/view_table_types.anubis
10   -read calexium_lib/database/vtm/view_table_manager_types.anubis
  9 +transmit calexium_lib/database/vtm/view_table_types.anubis
  10 +transmit calexium_lib/database/vtm/view_table_manager_types.anubis
11 11  
12 12 public define Maybe(VTM_view)
13 13 _vtm_get_view
... ... @@ -84,3 +84,28 @@ public define Maybe(TM_writer)
84 84 TM_writer_list tm_wlist
85 85 ) =
86 86 _tm_get_writer(table_name, tm_wlist.list).
  87 +
  88 +public define Maybe((SQLite3DataBase db, List(Int) l_int) -> Maybe(One))
  89 + _tm_get_delete
  90 + (
  91 + String table_name,
  92 + List(TM_delete) list
  93 + ) =
  94 + if list is
  95 + {
  96 + [] then failure,
  97 + [ h . t ] then
  98 + since h is tm_delete(tb_name, delete_func),
  99 + if tb_name = table_name then
  100 + success(delete_func)
  101 + else
  102 + _tm_get_delete(table_name, t)
  103 + }.
  104 +
  105 +public define Maybe((SQLite3DataBase db, List(Int) l_int) -> Maybe(One))
  106 + tm_get_delete
  107 + (
  108 + String table_name,
  109 + TM_delete_list tm_dlist
  110 + ) =
  111 + _tm_get_delete(table_name, tm_dlist.list).
... ...
database/vtm/view_table_manager_types.anubis
  Show/Hide comments   View file @cd5d8eb
... ... @@ -21,6 +21,11 @@ public type TM_writer:
21 21 public type TM_writer_list:
22 22 tm_writer_list(List(TM_writer) list).
23 23  
  24 +public type TM_delete:
  25 + tm_delete(String table_name, (SQLite3DataBase db, List(Int) l_int) -> Maybe(One) delete).
  26 +
  27 +public type TM_delete_list:
  28 + tm_delete_list(List(TM_delete) list).
24 29  
25 30 public type VTM_view:
26 31 vtm_view(String table_name, (SQLite3DataBase db, String view_name) -> VT_view get_view).
... ... @@ -29,4 +34,7 @@ public type VTM_view_list:
29 34 vtm_view_list(List(VTM_view) list).
30 35  
31 36 public type VTM:
32   - vtm(VTM_view_list view_list, VTM_edit_list edit_list, TM_writer_list writer_list).
  37 + vtm(VTM_view_list view_list,
  38 + VTM_edit_list edit_list,
  39 + TM_writer_list writer_list,
  40 + TM_delete_list delete_list).
... ...
web/CXM_common.anubis
  Show/Hide comments   View file @cd5d8eb
... ... @@ -2,12 +2,15 @@
2 2 *Project* The Anubis Project
3 3 *Title* Some common stuff for the web.
4 4  
5   - *Copyright* Copyright (c) Alain Prouté 2003.
  5 + *Copyright*
  6 + Copyright (c) Alain Prouté 2003~2007.
  7 + © Calexium 2007~2016
6 8  
7 9  
8   -
9   - *Author* Alain Prouté
10   -
  10 + *Authors:*
  11 + Alain Prouté
  12 + David René
  13 +
11 14 *Public*
12 15 *Name* HTTP_header
13 16 *Description*
... ...