projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11475: add support for SRLUS and LRLUS (USA-based) source restriction levels
[umlisp.git]
/
parse-common.lisp
diff --git
a/parse-common.lisp
b/parse-common.lisp
index c9adcf740cd7d856a383723af8a99f55922cbf42..96f7b8ddef77cd7a026bb5579a4c8efb3dd516ba 100644
(file)
--- a/
parse-common.lisp
+++ b/
parse-common.lisp
@@
-277,6
+277,12
@@
append a unique number (starting at 2) onto a column name that is repeated in th
(defun canonicalize-column-type (type)
(cond
(defun canonicalize-column-type (type)
(cond
+ ((string-equal type "TINYINT")
+ (case *umls-sql-type*
+ (:mysql "TINYINT")
+ ((:postgresql :postgresql-socket) "INT1")
+ (:oracle "NUMBER(3,0)")
+ (t "INTEGER")))
((string-equal type "SMALLINT")
(case *umls-sql-type*
(:mysql "SMALLINT")
((string-equal type "SMALLINT")
(case *umls-sql-type*
(:mysql "SMALLINT")
@@
-332,6
+338,9
@@
append a unique number (starting at 2) onto a column name that is repeated in th
(sql-i (setf (sqltype col) (canonicalize-column-type "INTEGER")
(parse-fun col) #'parse-integer
(quote-str col) ""))
(sql-i (setf (sqltype col) (canonicalize-column-type "INTEGER")
(parse-fun col) #'parse-integer
(quote-str col) ""))
+ (sql-t (setf (sqltype col) (canonicalize-column-type "TINYINT")
+ (parse-fun col) #'parse-integer
+ (quote-str col) ""))
(sql-f (setf (sqltype col) (canonicalize-column-type "NUMERIC")
(parse-fun col) #'read-from-string
(quote-str col) ""))
(sql-f (setf (sqltype col) (canonicalize-column-type "NUMERIC")
(parse-fun col) #'read-from-string
(quote-str col) ""))