From 65ae6cf2cd1aaf298704d3f588ec33455e4da7e3 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 13 May 2005 10:20:20 +0000 Subject: [PATCH] added index on refRel and the rename table statements --- helm/ocaml/metadata/sqlStatements.ml | 21 +++++++++++++++------ helm/ocaml/metadata/sqlStatements.mli | 1 + 2 files changed, 16 insertions(+), 6 deletions(-) diff --git a/helm/ocaml/metadata/sqlStatements.ml b/helm/ocaml/metadata/sqlStatements.ml index 897e15489..2c654bd46 100644 --- a/helm/ocaml/metadata/sqlStatements.ml +++ b/helm/ocaml/metadata/sqlStatements.ml @@ -83,16 +83,18 @@ sprintf "CREATE INDEX %s_conclusion ON %s (conclusion);" name name; sprintf "CREATE INDEX %s_hypothesis ON %s (hypothesis);" name name; sprintf "CREATE INDEX %s_statement ON %s (statement);" name name] -let sprintf_refRel_index name = [] +let sprintf_refRel_index name = [ +sprintf "CREATE INDEX %s_source ON %s (source);" name name +] let sprintf_refObj_index_drop name = [ sprintf "DROP INDEX %s_source ON %s;" name name ; sprintf "DROP INDEX %s_target ON %s;" name name ; sprintf "DROP INDEX %s_position ON %s;" name name ] -let sprintf_refSort_index_drop name = [sprintf " -DROP INDEX %s_source ON %s; -" name name] +let sprintf_refSort_index_drop name = [ +sprintf "DROP INDEX %s_source ON %s;" name name +] let sprintf_objectName_index_drop name = [ sprintf " DROP INDEX %s_value ON %s;" name name] @@ -109,6 +111,11 @@ sprintf "DROP INDEX %s_statement ON %s;" name name] let sprintf_refRel_index_drop name = [] +let sprintf_rename_table oldname newname = [ +sprintf "RENAME TABLE %s TO %s;" oldname newname +] + + (* FUNCTIONS *) let get_table_format t named = @@ -146,7 +153,7 @@ let get_index_drop t named = | `ObjectName -> sprintf_objectName_index_drop named | `Owners -> sprintf_owners_index_drop named | `Count -> sprintf_count_index_drop named - + let create_tables l = List.fold_left (fun s (name,table) -> s @ get_table_format table name) [] l @@ -159,4 +166,6 @@ let drop_tables l = let drop_indexes l = List.fold_left (fun s (name,table) -> s @ get_index_drop table name) [] l - +let rename_tables l = + List.fold_left (fun s (o,n) -> s @ sprintf_rename_table o n) [] l + diff --git a/helm/ocaml/metadata/sqlStatements.mli b/helm/ocaml/metadata/sqlStatements.mli index 05fec142c..18e50e209 100644 --- a/helm/ocaml/metadata/sqlStatements.mli +++ b/helm/ocaml/metadata/sqlStatements.mli @@ -9,3 +9,4 @@ val drop_tables: (string * tbl) list -> string list val drop_indexes: (string * tbl) list -> string list +val rename_tables: (string * string) list -> string list -- 2.39.2