From cd04d9b4eb279317e6b5911034a7911c6d61d288 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 6 Jan 2007 19:16:00 +0000 Subject: [PATCH] r11462: add verbose option for index creation --- create-sql.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/create-sql.lisp b/create-sql.lisp index 1440fd3..02a8701 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -208,9 +208,10 @@ (format nil "DROP INDEX ~a" (concatenate 'string tablename "_" colname "_X"))))) -(defun sql-create-indexes (conn &optional (indexes +index-cols+)) +(defun sql-create-indexes (conn &key (indexes +index-cols+) verbose) "SQL Databases: create all indexes" (dolist (idx indexes) + (when verbose (format t "UMLS Import: Creating index ~S.~%" idx)) (ignore-errors (sql-execute (drop-index-cmd (car idx) (cadr idx)) conn)) (sql-execute (create-index-cmd (car idx) (cadr idx) (caddr idx)) conn))) @@ -229,7 +230,7 @@ (make-usrl conn) (make-ustats)) -(defun create-umls-db-by-insert () +(defun create-umls-db-by-insert (&key verbose) "SQL Databases: initializes entire database via SQL insert commands" (ensure-ucols+ufiles) (ensure-preparse) @@ -239,7 +240,7 @@ (sql-insert-all-values conn) (sql-create-indexes conn) (sql-create-custom-tables conn) - (sql-create-indexes conn +custom-index-cols+) + (sql-create-indexes conn :indexes +custom-index-cols+ :verbose verbose) (sql-create-special-tables conn))) (defun create-umls-db (&key (extension "-trans") (skip-translation nil) (verbose nil)) @@ -264,11 +265,11 @@ This is much faster that using create-umls-db-insert." (when verbose (format t "UMLS Import: Importing file ~A.~%" file)) (sql-execute (funcall copy-cmd file extension) conn)) (When verbose (format t "UMLS Import: Creating SQL indices.~%")) - (sql-create-indexes conn) + (sql-create-indexes conn :verbose verbose) (When verbose (format t "UMLS Import: Creating custom tables.~%")) (sql-create-custom-tables conn) (When verbose (format t "UMLS Import: Creating custom indices.~%")) - (sql-create-indexes conn +custom-index-cols+) + (sql-create-indexes conn :indexes +custom-index-cols+ :verbose verbose) (When verbose (format t "UMLS Import: Creating special tables.~%")) (sql-create-special-tables conn))) (When verbose (format t "UMLS Import: Completed.~%")) -- 2.34.1