add create-index

2008-06-13 01:17:10 -05:00 · 2008-06-13 01:17:10 -05:00 · f508f57fa0
parent 216bf23e6c
commit f508f57fa0
1 changed files with 9 additions and 0 deletions
--- a/extra/db/queries/queries.factor
+++ b/extra/db/queries/queries.factor
@ -195,3 +195,12 @@ M: db <count-statement> ( tuple class groups -- statement )
    ] { { } { } { } } nmake
    >r >r parse-sql 4drop r> r>
    <simple-statement> maybe-make-retryable do-select ;
+
+: create-index ( index-name table-name columns -- )
+    [
+        >r >r "create index " % % r> " on " % % r> "(" %
+        "," join % ")" %
+    ] "" make sql-command ;
+
+: drop-index ( index-name -- )
+    [ "drop index " % % ] "" make sql-command ;