(sql-create-indexes conn +custom-index-cols+)
(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."
+ (when verbose (format t "UMLS Import: Starting.~%"))
(ensure-ucols+ufiles)
+ (when verbose (format t "UMLS Import: Preparsing files.~%"))
(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)
(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))
+ (When verbose (format t "UMLS Import: Creating SQL indices.~%"))
(sql-create-indexes conn)
+ (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+)
+ (When verbose (format t "UMLS Import: Creating special tables.~%"))
(sql-create-special-tables conn)))
+ (When verbose (format t "UMLS Import: Completed.~%"))
t)
(defun translate-all-files (&optional (extension "-trans"))