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 CONSTANT: SQL-C-DEFAULT 99
SYMBOL: SQL-CHAR SYMBOLS:
SYMBOL: SQL-VARCHAR SQL-CHAR SQL-VARCHAR SQL-LONGVARCHAR
SYMBOL: SQL-LONGVARCHAR SQL-WCHAR SQL-WCHARVAR SQL-WLONGCHARVAR
SYMBOL: SQL-WCHAR SQL-DECIMAL SQL-SMALLINT SQL-NUMERIC SQL-INTEGER
SYMBOL: SQL-WCHARVAR SQL-REAL SQL-FLOAT SQL-DOUBLE
SYMBOL: SQL-WLONGCHARVAR SQL-BIT
SYMBOL: SQL-DECIMAL SQL-TINYINT SQL-BIGINT
SYMBOL: SQL-SMALLINT SQL-BINARY SQL-VARBINARY SQL-LONGVARBINARY
SYMBOL: SQL-NUMERIC SQL-TYPE-DATE SQL-TYPE-TIME SQL-TYPE-TIMESTAMP
SYMBOL: SQL-INTEGER SQL-TYPE-UTCDATETIME SQL-TYPE-UTCTIME
SYMBOL: SQL-REAL SQL-INTERVAL-MONTH SQL-INTERVAL-YEAR SQL-INTERVAL-DAY
SYMBOL: SQL-FLOAT SQL-INTERVAL-HOUR SQL-INTERVAL-MINUTE SQL-INTERVAL-SECOND
SYMBOL: SQL-DOUBLE SQL-INTERVAL-YEAR-TO-MONTH
SYMBOL: SQL-BIT SQL-INTERVAL-DAY-TO-HOUR SQL-INTERVAL-DAY-TO-MINUTE
SYMBOL: SQL-TINYINT SQL-INTERVAL-DAY-TO-SECOND
SYMBOL: SQL-BIGINT SQL-INTERVAL-HOUR-TO-MINUTE SQL-INTERVAL-HOUR-TO-SECOND SQL-INTERVAL-MINUTE-TO-SECOND
SYMBOL: SQL-BINARY SQL-GUID
SYMBOL: SQL-VARBINARY SQL-TYPE-UNKNOWN ;
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
: convert-sql-type ( number -- symbol ) : convert-sql-type ( number -- symbol )
{ {