projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11462: add verbose option for index creation
[umlisp.git]
/
create-sql.lisp
diff --git
a/create-sql.lisp
b/create-sql.lisp
index d145ad9255f8c08c8c60d593800cb6c2ec5cc1ab..02a8701d3ff5cd9a4941c9ae3035a75b97fc2bf2 100644
(file)
--- a/
create-sql.lisp
+++ b/
create-sql.lisp
@@
-208,9
+208,10
@@
(format nil "DROP INDEX ~a"
(concatenate 'string tablename "_" colname "_X")))))
(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)
"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)))
(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))
(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)
"SQL Databases: initializes entire database via SQL insert commands"
(ensure-ucols+ufiles)
(ensure-preparse)
@@
-239,15
+240,18
@@
(sql-insert-all-values conn)
(sql-create-indexes conn)
(sql-create-custom-tables conn)
(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)))
(sql-create-special-tables conn)))
-(defun create-umls-db (&key (extension "-trans") (skip-translation nil))
+(defun create-umls-db (&key (extension "-trans") (skip-translation nil)
(verbose nil)
)
"SQL Databases: initializes entire database via SQL copy commands.
This is much faster that using create-umls-db-insert."
"SQL Databases: initializes entire database via SQL copy commands.
This is much faster that using create-umls-db-insert."
+ (when verbose (format t "UMLS Import: Starting.~%"))
(ensure-ucols+ufiles)
(ensure-ucols+ufiles)
+ (when verbose (format t "UMLS Import: Preparsing files.~%"))
(ensure-preparse)
(unless skip-translation
(ensure-preparse)
(unless skip-translation
+ (when verbose (format t "UMLS Import: Converting text UMLS files to optimized format.~%"))
(translate-all-files extension))
(let ((copy-cmd
(ecase (umls-sql-type)
(translate-all-files extension))
(let ((copy-cmd
(ecase (umls-sql-type)
@@
-258,11
+262,17
@@
This is much faster that using create-umls-db-insert."
(sql-drop-tables conn)
(sql-create-tables conn)
(dolist (file *umls-files*)
(sql-drop-tables conn)
(sql-create-tables conn)
(dolist (file *umls-files*)
+ (when verbose (format t "UMLS Import: Importing file ~A.~%" file))
(sql-execute (funcall copy-cmd file extension) conn))
(sql-execute (funcall copy-cmd file extension) conn))
- (sql-create-indexes conn)
+ (When verbose (format t "UMLS Import: Creating SQL indices.~%"))
+ (sql-create-indexes conn :verbose verbose)
+ (When verbose (format t "UMLS Import: Creating custom tables.~%"))
(sql-create-custom-tables conn)
(sql-create-custom-tables conn)
- (sql-create-indexes conn +custom-index-cols+)
+ (When verbose (format t "UMLS Import: Creating custom indices.~%"))
+ (sql-create-indexes conn :indexes +custom-index-cols+ :verbose verbose)
+ (When verbose (format t "UMLS Import: Creating special tables.~%"))
(sql-create-special-tables conn)))
(sql-create-special-tables conn)))
+ (When verbose (format t "UMLS Import: Completed.~%"))
t)
(defun translate-all-files (&optional (extension "-trans"))
t)
(defun translate-all-files (&optional (extension "-trans"))