projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
783a79a
)
r4800: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 4 May 2003 08:55:52 +0000
(08:55 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 4 May 2003 08:55:52 +0000
(08:55 +0000)
sql-create.lisp
patch
|
blob
|
history
diff --git
a/sql-create.lisp
b/sql-create.lisp
index 4d10d3da4c7216fa5d7b3678369684805fe5bec5..101a02a06a0debfac257b5450cb1c287b55749e8 100644
(file)
--- a/
sql-create.lisp
+++ b/
sql-create.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-create.lisp,v 1.
5 2003/05/04 08:52:13
kevin Exp $
+;;;; $Id: sql-create.lisp,v 1.
6 2003/05/04 08:55:52
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@
-50,7
+50,7
@@
(format nil "~a (~a)" sqltype (umls-col-max c))
sqltype))))))
(format nil "CREATE TABLE ~a (~{~a~^,~})" (umls-file-table file)
(format nil "~a (~a)" sqltype (umls-col-max c))
sqltype))))))
(format nil "CREATE TABLE ~a (~{~a~^,~})" (umls-file-table file)
- (mapcar col-func (umls-cols-for-umls-file file)))))
)
+ (mapcar col-func (umls-cols-for-umls-file file)))))
(defun create-custom-table-cmd (tablename sql-cmd)
"Return SQL command to create a custom table"
(defun create-custom-table-cmd (tablename sql-cmd)
"Return SQL command to create a custom table"
@@
-79,7
+79,7
@@
(mapcar2-append-string insert-func
(remove-custom-cols (umls-file-colstructs file))
values)
(mapcar2-append-string insert-func
(remove-custom-cols (umls-file-colstructs file))
values)
- (custom-col-values (custom-colstructs-for-file file) values "," t)))
+ (custom-col-values
-old
(custom-colstructs-for-file file) values "," t)))
)))
(defun insert-col-value (col value)
)))
(defun insert-col-value (col value)
@@
-303,7
+303,7
@@
This is much faster that using create-umls-db-insert."
"|"))
(remove-custom-cols (umls-file-colstructs file))
line)
"|"))
(remove-custom-cols (umls-file-colstructs file))
line)
- (custom-col-values (custom-colstructs-for-file file) line "|" nil))))
+ (custom-col-values
-old
(custom-colstructs-for-file file) line "|" nil))))
(defun umls-translate (file line)
"Translate a single line for sql output"
(defun umls-translate (file line)
"Translate a single line for sql output"