steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

odbc: compact the declaration of symbols

char-rename
Alexander Iljin 2016-10-30 13:12:08 +03:00 committed by John Benediktsson
parent 52fbba5a4a
commit 36154cff69
1 changed files with 18 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
extra/odbc/odbc.factor
View File

@ -44,45 +44,24 @@ CONSTANT: SQL-DRIVER-PROMPT 2
CONSTANT: SQL-C-DEFAULT 99
SYMBOL: SQL-CHAR
SYMBOL: SQL-VARCHAR
SYMBOL: SQL-LONGVARCHAR
SYMBOL: SQL-WCHAR
SYMBOL: SQL-WCHARVAR
SYMBOL: SQL-WLONGCHARVAR
SYMBOL: SQL-DECIMAL
SYMBOL: SQL-SMALLINT
SYMBOL: SQL-NUMERIC
SYMBOL: SQL-INTEGER
SYMBOL: SQL-REAL
SYMBOL: SQL-FLOAT
SYMBOL: SQL-DOUBLE
SYMBOL: SQL-BIT
SYMBOL: SQL-TINYINT
SYMBOL: SQL-BIGINT
SYMBOL: SQL-BINARY
SYMBOL: SQL-VARBINARY
SYMBOL: SQL-LONGVARBINARY
SYMBOL: SQL-TYPE-DATE
SYMBOL: SQL-TYPE-TIME
SYMBOL: SQL-TYPE-TIMESTAMP
SYMBOL: SQL-TYPE-UTCDATETIME
SYMBOL: SQL-TYPE-UTCTIME
SYMBOL: SQL-INTERVAL-MONTH
SYMBOL: SQL-INTERVAL-YEAR
SYMBOL: SQL-INTERVAL-YEAR-TO-MONTH
SYMBOL: SQL-INTERVAL-DAY
SYMBOL: SQL-INTERVAL-HOUR
SYMBOL: SQL-INTERVAL-MINUTE
SYMBOL: SQL-INTERVAL-SECOND
SYMBOL: SQL-INTERVAL-DAY-TO-HOUR
SYMBOL: SQL-INTERVAL-DAY-TO-MINUTE
SYMBOL: SQL-INTERVAL-DAY-TO-SECOND
SYMBOL: SQL-INTERVAL-HOUR-TO-MINUTE
SYMBOL: SQL-INTERVAL-HOUR-TO-SECOND
SYMBOL: SQL-INTERVAL-MINUTE-TO-SECOND
SYMBOL: SQL-GUID
SYMBOL: SQL-TYPE-UNKNOWN
SYMBOLS:
SQL-CHAR SQL-VARCHAR SQL-LONGVARCHAR
SQL-WCHAR SQL-WCHARVAR SQL-WLONGCHARVAR
SQL-DECIMAL SQL-SMALLINT SQL-NUMERIC SQL-INTEGER
SQL-REAL SQL-FLOAT SQL-DOUBLE
SQL-BIT
SQL-TINYINT SQL-BIGINT
SQL-BINARY SQL-VARBINARY SQL-LONGVARBINARY
SQL-TYPE-DATE SQL-TYPE-TIME SQL-TYPE-TIMESTAMP
SQL-TYPE-UTCDATETIME SQL-TYPE-UTCTIME
SQL-INTERVAL-MONTH SQL-INTERVAL-YEAR SQL-INTERVAL-DAY
SQL-INTERVAL-HOUR SQL-INTERVAL-MINUTE SQL-INTERVAL-SECOND
SQL-INTERVAL-YEAR-TO-MONTH
SQL-INTERVAL-DAY-TO-HOUR SQL-INTERVAL-DAY-TO-MINUTE
SQL-INTERVAL-DAY-TO-SECOND
SQL-INTERVAL-HOUR-TO-MINUTE SQL-INTERVAL-HOUR-TO-SECOND SQL-INTERVAL-MINUTE-TO-SECOND
SQL-GUID
SQL-TYPE-UNKNOWN ;
: convert-sql-type ( number -- symbol )
{