Commit f13201203aa29869b1ea937d1be0492d165989d5

Authored by David RENÉ
1 parent 8a4f6493

[+] refactoring the get X _show_string

Showing 1 changed file with 12 additions and 6 deletions   Show diff stats
src/generation/types.anubis
@@ -415,7 +415,17 @@ public define Maybe(One) @@ -415,7 +415,17 @@ public define Maybe(One)
415 " failure then default_select,\n"+ 415 " failure then default_select,\n"+
416 " success(obj) then "+show_string+"\n"+ 416 " success(obj) then "+show_string+"\n"+
417 " }\n"+ 417 " }\n"+
418 - " }." 418 + " }\n"+
  419 + "."+
  420 + "\n\n"+
  421 + "public define String\n"+
  422 + " get_"+name+"_show_string\n"+
  423 + " (\n"+
  424 + " SQLite3DataBase db,\n"+
  425 + " "+type_name+" obj\n"+
  426 + " )=\n"+
  427 + " "+show_string+"\n"+
  428 + "."
419 ) is //end of the function 429 ) is //end of the function
420 { 430 {
421 failure then println("can't write generate_update "+type_name); failure, 431 failure then println("can't write generate_update "+type_name); failure,
@@ -446,11 +456,7 @@ public define Maybe(One) @@ -446,11 +456,7 @@ public define Maybe(One)
446 " {\n"+ 456 " {\n"+
447 " [] then [selector_default_entry . reverse(so_far)],\n"+ 457 " [] then [selector_default_entry . reverse(so_far)],\n"+
448 " [ h . t ] then \n"+ 458 " [ h . t ] then \n"+
449 - " if h.id is \n"+  
450 - " {\n"+  
451 - " none then [selector_default_entry],\n"+  
452 - " db_id(_id) then _get_selector_"+name+"(db, t, [([], wav(to_String(_id)), get_"+name+"_show_string(db, h.id)) . so_far])\n"+  
453 - " }\n"+ 459 + " _get_selector_"+name+"(db, t, [([], wav(to_String(h.id)), get_"+name+"_show_string(db, h)) . so_far])\n"+
454 " }.\n\n"+ 460 " }.\n\n"+
455 "public define List((List(CoreAttrs), WebArgValue, String))\n"+ 461 "public define List((List(CoreAttrs), WebArgValue, String))\n"+
456 " get_selector_"+name+"\n"+ 462 " get_selector_"+name+"\n"+