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,8 +6,8 @@
6 */ 6 */
7 7
8 read tools/basis.anubis 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 public define Maybe(VTM_view) 12 public define Maybe(VTM_view)
13 _vtm_get_view 13 _vtm_get_view
@@ -84,3 +84,28 @@ public define Maybe(TM_writer) @@ -84,3 +84,28 @@ public define Maybe(TM_writer)
84 TM_writer_list tm_wlist 84 TM_writer_list tm_wlist
85 ) = 85 ) =
86 _tm_get_writer(table_name, tm_wlist.list). 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,6 +21,11 @@ public type TM_writer:
21 public type TM_writer_list: 21 public type TM_writer_list:
22 tm_writer_list(List(TM_writer) list). 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 public type VTM_view: 30 public type VTM_view:
26 vtm_view(String table_name, (SQLite3DataBase db, String view_name) -> VT_view get_view). 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,4 +34,7 @@ public type VTM_view_list:
29 vtm_view_list(List(VTM_view) list). 34 vtm_view_list(List(VTM_view) list).
30 35
31 public type VTM: 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,12 +2,15 @@
2 *Project* The Anubis Project 2 *Project* The Anubis Project
3 *Title* Some common stuff for the web. 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 *Public* 14 *Public*
12 *Name* HTTP_header 15 *Name* HTTP_header
13 *Description* 16 *Description*