(sql-create-indexes conn)
(sql-create-custom-tables conn)
(sql-create-indexes conn +custom-index-cols+)
(sql-create-indexes conn)
(sql-create-custom-tables conn)
(sql-create-indexes conn +custom-index-cols+)
(defun translate-all-files (&optional (extension "-trans"))
"Copy translated files and return postgresql copy commands to import"
(defun translate-all-files (&optional (extension "-trans"))
"Copy translated files and return postgresql copy commands to import"
(incf translated-lines)))
(dolist (input-ufile input-ufiles)
(with-umls-ufile (line input-ufile)
(incf translated-lines)))
(dolist (input-ufile input-ufiles)
(with-umls-ufile (line input-ufile)
((< input-lines translated-lines)
(format t "Translated file ~A incomplete, deleting...~%" output-path)
(delete-file output-path)
((< input-lines translated-lines)
(format t "Translated file ~A incomplete, deleting...~%" output-path)
(delete-file output-path)
((eql input-lines translated-lines)
(format t "Translated file ~A already exists: skipping...~%" output-path)
t)
((eql input-lines translated-lines)
(format t "Translated file ~A already exists: skipping...~%" output-path)
t)
((> translated-lines input-lines)
(error "Shouldn't happen. Translated lines of ~A is ~D, greater than input lines ~D"
output-path translated-lines input-lines)
((> translated-lines input-lines)
(error "Shouldn't happen. Translated lines of ~A is ~D, greater than input lines ~D"
output-path translated-lines input-lines)