From: Kevin M. Rosenberg Date: Sat, 6 Jan 2007 16:01:04 +0000 (+0000) Subject: r11459: add verbose option X-Git-Tag: v2006ac.2~30 X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=fe0f8af77c3bc5bb58c1cc0ab3701688fa8089a8 r11459: add verbose option --- diff --git a/create-sql.lisp b/create-sql.lisp index d145ad9..1440fd3 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -242,12 +242,15 @@ (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) @@ -258,11 +261,17 @@ This is much faster that using create-umls-db-insert." (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"))