Adding 'view' alternative to db object construction

Cédric RICARD
1 parent 5f6cc89a
Showing 1 changed file with 9 additions and 2 deletions Show diff stats
calexium_lib/database/migration_common.anubis
@@ -20,7 +20,8 @@ read calexium_lib/net_services_protocols/logger_service.anubis
 public type DbTable:
   table(String name, String create_query),
-  table(String db_name, String name, String create_query).
+  table(String db_name, String name, String create_query),
+  view(String name, String create_query).
 public define Bool
@@ -119,7 +120,13 @@ public define Maybe(One)
           {
             failure     then logError(logger, "Version "+version_string+": Can't create '"+db_name+"."+table_name+"' table"); failure,
             success(_)  then create_tables(db, logger, t, version_string)
-          }
+          },
+        view(view_name, create_string) then
+          if alter_view(db, view_name, create_string, logger) is
+          {
+            failure     then logError(logger, "Version "+version_string+": Can't create '"+view_name+"' view"); failure,
+            success(_)  then create_tables(db, logger, t, version_string)
+          },
       }
   }.