Add NO_NAME_MSG for Muscle message name

Add /database/db_types.anubis. This help to manage database type more safely

Add NO_NAME_MSG for Muscle message name
Add /database/db_types.anubis. This help to manage database type more safely
David RENE
1 parent 451b436d
Showing 4 changed files with 72 additions and 11 deletions Show diff stats
calexium_lib/CXM_message_constants.anubis
calexium_lib/database/db_types.anubis
calexium_lib/database/db_utils.anubis
calexium_lib/web/CXM_making_a_web_site.anubis
@@ -5,8 +5,9 @@
  * Time: 16:06
  * (c) Calexium
  *
- * To change this template use Tools | Options | Coding | Edit Standard Headers.
  */
+ 
+public define Word32 _NO_NAME_MSG                = 0x00000000.             
 // ****************  MAILBOX PROTOCOL ***************
+/*
+ * Created by PyramIDE.
+ * User: Totoro
+ * Date: 14/11/2011
+ * Time: 22:41
+ * 
+ * To change this template use Tools | Options | Coding | Edit Standard Headers.
+ */
+read tools/basis.anubis
+
+public type DB_id:
+  none,
+  db_id(Int value).
+  
+public type DB_datetime:
+  datetime(String datetime).
+
+public type DB_date:
+  date(String date).
+  
+public type DB_integer:
+  db_integer(Int value).
+  
+
+public define String
+  to_String
+  (
+    DB_id idx
+  )=
+  if idx is
+  {
+    none        then "none",
+    db_id(idx)  then abs_to_decimal(idx)
+  }.
+  
+public define String
+  to_String
+  (
+    DB_date d
+  )= 
+  d.date.
+  
+public define String
+  to_String
+  (
+    DB_datetime d
+  )=
+  d.datetime.
+    
+public define String
+  to_DBString
+  (
+    Bool value
+  )=
+  if value then "1" else "0".
+  
+public type SQLite3_update_field:
+  field(String column, SQLite3Bind bind).
+  
@@ -81,7 +81,7 @@ public define DbQueryResult
   with t0 = unow,
   if sql_query_timeout(db, sql_query, initial_bindings, 60, 100, (DbError _) |-> false) is 
   {
-    error(sql_error)  then  logError("DB", db_error(sql_error,msg)); 
+    error(sql_error)  then  logError("DB", db_error(sql_error,msg) + " executing [" + sql_query + "]"); 
       __logLongQueries(t0, sql_query);
       error(sql_error),
     ok(headers, cursor, reset) then 
@@ -124,7 +124,8 @@ public define SQLite3QueryResult
   with t0 = unow,
   if sql_query_timeout(db, sql_query, initial_bindings, 60, 100) is 
   {
-    error(sql_error)  then  logError("DB", db_error(sql_error,msg));
+    error(sql_error)  then  logError("DB", db_error(sql_error,msg) /*+ " executing [" + sql_query + "]"*/);
+      //println(" executing [" + sql_query + "]");
       __logLongQueries(t0, sql_query);
       error(sql_error),
     ok(headers, cursor, reset) then  
@@ -3524,7 +3524,7 @@ define Printable_tree
      {
        [ ] then [ ], 
        [h . t] then if h is cell(options,element) then 
-         ["<td ",format(reverse(normalize(options))),">",
+         ["<td",format(reverse(normalize(options))),">",
             format_element(element), 
           "</td>" 
           . format(t,format_element)]
@@ -3558,7 +3558,7 @@ define Printable_tree
      {
        [ ] then [ ], 
        [h . t] then if h is row(options,cells) then 
-         ["<tr ",format(reverse(options)),">",
+         ["<tr",format(reverse(options)),">",
           format(cells,format_element),
           "</tr>\n"
           . format(t,format_element)]
@@ -3574,7 +3574,7 @@ define Printable_tree
   {
     empty                     then [ ], 
     header_row(options,cells) then 
-         ["<thead> <tr ",format(reverse(options)),">",
+         ["<thead> <tr",format(reverse(options)),">",
           format(cells,format_element),
           "</tr> </thead>\n"
          ]
@@ -3590,7 +3590,7 @@ define Printable_tree
   {
     empty                     then [ ], 
     footer_row(options,cells) then 
-         ["<tfoot> <tr ",format(reverse(options)),">",
+         ["<tfoot> <tr",format(reverse(options)),">",
           format(cells,format_element),
           "</tr> </tfoot>\n"
          ]
@@ -3890,18 +3890,18 @@ define Printable_tree
    if element is 
      {
        any_text(opts,t)              then 
-         ["<span ", format_text_options(opts), ">",t,"</span>"], 
+         ["<span", format_text_options(opts), ">",t,"</span>"], 
        any_preformated(opts,s)       then 
-         ["<span ", format_text_options(opts), "><pre>",s,"</pre></span>"], 
+         ["<span", format_text_options(opts), "><pre>",s,"</pre></span>"], 
          //["<pre>",s,"</pre>"], 
        any_paragraph(opts,e)         then 
-         ["<p ", format_text_options(opts), ">",format_element(e),"</p>\n"], 
+         ["<p", format_text_options(opts), ">",format_element(e),"</p>\n"], 
        any_image(opts, url, alt)                then 
          ["<img alt=\"",alt,"\" src=\"",url,"\" ", format_attrs(opts)," />"],
        any_image(opts, url, alt, w, h)            then 
          ["<img alt=\"",alt,"\" src=\"",url,"\" width=\"",w,"\" height=\"",h,"\" ", format_attrs(opts)," />"],
        any_table(opts,h_row, rows, f_row) then 
-         ["<table ",format(reverse(opts),false),">",
+         ["<table",format(reverse(opts),false),">",
             format(h_row, format_element),
             "<tbody>",format(rows,format_element),"</tbody>",
             format(f_row, format_element),