projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add support for MYSQL 8 with sqlname indirection to prevent reserved word collisions
[umlisp.git]
/
create-sql.lisp
diff --git
a/create-sql.lisp
b/create-sql.lisp
index 20964f5c4ae3a6a8f4023ecf033582a759061856..3a1902019df6632feb72dcfecb2d3595913912c7 100644
(file)
--- a/
create-sql.lisp
+++ b/
create-sql.lisp
@@
-30,7
+30,7
@@
(setq sqltype "VARCHAR2(20)")))))
(concatenate 'string
(setq sqltype "VARCHAR2(20)")))))
(concatenate 'string
- (
col
c)
+ (
sqlname
c)
" "
(if (or (string-equal sqltype "VARCHAR")
(string-equal sqltype "CHAR"))
" "
(if (or (string-equal sqltype "VARCHAR")
(string-equal sqltype "CHAR"))
@@
-403,7
+403,7
@@
This is much faster that using create-umls-db-insert."
(delete-file output-path)
nil)
((eql input-lines translated-lines)
(delete-file output-path)
nil)
((eql input-lines translated-lines)
- (format t "Translated file ~A
already exist
s: skipping...~%" output-path)
+ (format t "Translated file ~A
exists and is proper number of line
s: skipping...~%" output-path)
t)
((eql input-lines 0)
(warn "The number of input lines is 0 for output file ~A." output-path)
t)
((eql input-lines 0)
(warn "The number of input lines is 0 for output file ~A." output-path)