From 9e472725307c8f98e1590814b0cb77c62cf5dc14 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 7 Jan 2007 04:12:37 +0000 Subject: [PATCH] r11463: add verbose option --- create-sql.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/create-sql.lisp b/create-sql.lisp index 02a8701..9311a82 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -252,7 +252,7 @@ This is much faster that using create-umls-db-insert." (ensure-preparse) (unless skip-translation (when verbose (format t "UMLS Import: Converting text UMLS files to optimized format.~%")) - (translate-all-files extension)) + (translate-all-files :extension extension :verbose verbose)) (let ((copy-cmd (ecase (umls-sql-type) (:mysql #'mysql-copy-cmd) @@ -275,10 +275,11 @@ This is much faster that using create-umls-db-insert." (When verbose (format t "UMLS Import: Completed.~%")) t) -(defun translate-all-files (&optional (extension "-trans")) - "Copy translated files and return postgresql copy commands to import" +(defun translate-all-files (&key (extension "-trans") verbose) + "Translate all *umls-files* to optimized import format." (make-noneng-index-file extension) (dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil)) + (when verbose (format t "UMLS Import: translating file ~S.~%" f)) (translate-umls-file f extension))) (defun translate-umls-file (file extension) -- 2.34.1