add the generation of the function which get one row with where clause

totoro
1 parent 72f76e72
Showing 3 changed files with 34 additions and 3 deletions Show diff stats
calexium_lib
src/generation/files.anubis
src/generation/types.anubis
-Subproject commit ef333ee770f743a4ffcbe8f571acca40a96d5d1a
+Subproject commit 626989691473574cf1896048f55f618bd1a9a6c7
@@ -55,6 +55,7 @@ define Maybe(One)
       if generate_extract_db_cursor(strm, table)  is { failure then failure, success(_) then
       if generate_get_all(strm, table)            is { failure then failure, success(_) then
       if generate_get_one(strm, table)            is { failure then failure, success(_) then
+      if generate_get_one_with_clause(strm, table)is { failure then failure, success(_) then
       if generate_update(strm, table)             is { failure then failure, success(_) then
       if generate_delete(strm, table)             is { failure then failure, success(_) then
       if generate_show_string(strm, table)        is { failure then failure, success(_) then
@@ -62,7 +63,7 @@ define Maybe(One)
       if generate_choices_selector(strm, table)   is { failure then failure, success(_) then
       if generate_VT_all_view(strm, table)        is { failure then failure, success(_) then
       if generate_VT_all_edit(strm, table)        is { failure then failure, success(_) then
-      success(unique)}}}}}}}}}}}}}}
+      success(unique)}}}}}}}}}}}}}}}
   }.
  
 define One
@@ -251,7 +251,37 @@ public define Maybe(One)
     success(_)  then  success(unique)
   }.
  
-
+public define Maybe(One)
+  generate_get_one_with_clause
+  (
+    Stream    stream,
+    HK_Table  table
+  )=
+  since table is hk_table(name, short_name, model, _),
+  since model is hk_model(columns, show_string),
+  with type_name = to_upper(name, 1), //make the first character to upper case to able to be a Anubis Type.
+  
+  //generate the type of the table that contain all components 
+  if write_string(stream, 
+     "\n\n"+
+     //SQL query
+     "public define Maybe("+type_name+")\n"+
+     "  get_"+name+"_by_clause\n"+
+     "  (\n"+
+     "    SQLite3DataBase  db,\n"+
+     "    String           clause\n"+
+     "  )=\n"+
+     "  if sql_query_timeout(db, \"SELECT "+join(", ", enclose("\\\"",to_List_String(columns, true)))+" FROM "+name+" WHERE \"+clause+\";\", [], \"get_"+name+"_by_clause\") is\n"+
+     "  {\n"+
+     "    error(_)         then failure,\n"+
+     "    ok(_, cursor, _) then extract_"+name+"(cursor)\n"+
+     "  }.\n"      
+     ) is                                                           //end of the function
+  {
+    failure     then  println("can't write generate_get_one_by_clause "+type_name); failure,
+    success(_)  then  success(unique)
+  }.
+  
 public define Maybe(One)
   generate_update
   (