(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)
(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)