From 0331b47a13331b97e65994c1cdb5298dabc99eb3 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 13 May 2005 10:48:33 +0000 Subject: [PATCH] some more statements --- helm/ocaml/metadata/sqlStatements.ml | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/helm/ocaml/metadata/sqlStatements.ml b/helm/ocaml/metadata/sqlStatements.ml index 2c654bd46..97c7685db 100644 --- a/helm/ocaml/metadata/sqlStatements.ml +++ b/helm/ocaml/metadata/sqlStatements.ml @@ -66,9 +66,8 @@ sprintf "CREATE INDEX %s_source ON %s (source);" name name ; sprintf "CREATE INDEX %s_target ON %s (h_occurrence);" name name ; sprintf "CREATE INDEX %s_position ON %s (h_position);" name name ] -let sprintf_refSort_index name = [sprintf " -CREATE INDEX %s_source ON %s (source); -" name name] +let sprintf_refSort_index name = [ +sprintf "CREATE INDEX %s_source ON %s (source);" name name] let sprintf_objectName_index name = [ sprintf " CREATE INDEX %s_value ON %s (value);" name name] @@ -93,11 +92,10 @@ 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 -] +sprintf "DROP INDEX %s_source ON %s;" name name ] let sprintf_objectName_index_drop name = [ -sprintf " DROP INDEX %s_value ON %s;" name name] +sprintf "DROP INDEX %s_value ON %s;" name name] let sprintf_owners_index_drop name = [ sprintf "DROP INDEX %s_owner ON %s;" name name ; @@ -109,7 +107,8 @@ sprintf "DROP INDEX %s_conclusion ON %s;" name name; sprintf "DROP INDEX %s_hypothesis ON %s;" name name; sprintf "DROP INDEX %s_statement ON %s;" name name] -let sprintf_refRel_index_drop name = [] +let sprintf_refRel_index_drop name = [ +sprintf "DROP INDEX %s_source ON %s;" name name] let sprintf_rename_table oldname newname = [ sprintf "RENAME TABLE %s TO %s;" oldname newname -- 2.39.2