activefacts-compositions 1.9.17 → 1.9.18

data/lib/activefacts/generator/sql/mysql.rb

@@ -3,13 +3,11 @@
 #
 # Copyright (c) 2009-2016 Clifford Heath. Read the LICENSE file.
 #
-# Reserved words gathered from:
-# https://dev.mysql.com/doc/refman/5.7/en/keywords.html
-#
 require 'digest/sha1'
 require 'activefacts/metamodel'
 require 'activefacts/compositions'
 require 'activefacts/generator/sql'
+require 'activefacts/generator/traits/sql/mysql'
 
 module ActiveFacts
   module Generators
@@ -17,187 +15,8 @@ module ActiveFacts
     # * underscore 
     class SQL
       class MySQL < SQL
-        def self.options
-          super.merge({
-            # no: [String, "no new options defined here"]
-          })
-        end
-
-        def table_name_max
-          64
-        end
-
-        def data_type_context
-          MySQLDataTypeContext.new
-        end
-
-        def auto_assign_modifier
-          ' AUTO_INCREMENT'
-        end
-
-        def generate_schema
-          ''
-        end
-
-        def normalise_type(type_name, length, value_constraint, options)
-          type = MM::DataType.normalise(type_name)
-          case type
-          when MM::DataType::TYPE_Integer
-            if aa = options[:auto_assign]
-              'BIGINT'
-            else
-              super
-            end
-          when MM::DataType::TYPE_Money;    ['DECIMAL', length]
-          when MM::DataType::TYPE_DateTime; 'DATETIME'
-          when MM::DataType::TYPE_Timestamp;'DATETIME'
-          when MM::DataType::TYPE_Binary;
-            if type_name =~ /^(guid|uuid)$/i && (!length || length == 16)
-              if ![nil, ''].include?(options[:auto_assign])
-                options[:default] = " DEFAULT UNHEX(REPLACE(UUID(),'-',''))"
-                options.delete(:auto_assign)  # Don't auto-assign foreign keys
-              end
-              return ['BINARY', 16]
-            end
-
-            super type_name, length, value_constraint, options
-            # MySQL has various non-standard blob types also
-          else
-            super
-          end
-        end
-
-        # Reserved words cannot be used anywhere without quoting.
-        # Keywords have existing definitions, so should not be used without quoting.
-        # Both lists here are added to the supertype's lists
-        def reserved_words
-          @mysql_reserved_words ||= %w{
-            ACCESSIBLE ANALYZE CHANGE DATABASE DATABASES DAY_HOUR
-            DAY_MICROSECOND DAY_MINUTE DAY_SECOND DELAYED DISTINCTROW
-            DIV DUAL ENCLOSED ESCAPED EXPLAIN FLOAT4 FLOAT8 FORCE
-            FULLTEXT HIGH_PRIORITY HOUR_MICROSECOND HOUR_MINUTE
-            HOUR_SECOND INDEX INFILE INT1 INT2 INT3 INT4 INT8
-            IO_AFTER_GTIDS IO_BEFORE_GTIDS KEYS KILL LINEAR LINES
-            LOAD LOCK LONG LONGBLOB LONGTEXT LOW_PRIORITY MASTER_BIND
-            MASTER_SSL_VERIFY_SERVER_CERT MEDIUMBLOB MEDIUMINT
-            MEDIUMTEXT MIDDLEINT MINUTE_MICROSECOND MINUTE_SECOND
-            NO_WRITE_TO_BINLOG OPTIMIZE OPTIMIZER_COSTS OPTIONALLY
-            OUTFILE PURGE READ_WRITE REGEXP RENAME REPLACE REQUIRE
-            RLIKE SCHEMAS SECOND_MICROSECOND SEPARATOR SHOW SPATIAL
-            SQL_BIG_RESULT SQL_CALC_FOUND_ROWS SQL_SMALL_RESULT SSL
-            STARTING STORED STRAIGHT_JOIN TERMINATED TINYBLOB TINYINT
-            TINYTEXT UNLOCK UNSIGNED USE UTC_DATE UTC_TIME UTC_TIMESTAMP
-            VARCHARACTER VIRTUAL XOR YEAR_MONTH ZEROFILL _FILENAME
-          }
-          super + @mysql_reserved_words
-        end
-
-        def key_words
-          # These keywords should not be used for columns or tables:
-          @mysql_key_words ||= %w{
-            ACCOUNT AGAINST AGGREGATE ALGORITHM ANALYSE ASCII
-            AUTOEXTEND_SIZE AUTO_INCREMENT AVG_ROW_LENGTH BACKUP
-            BINLOG BLOCK BOOL BTREE BYTE CACHE CHANGED CHANNEL
-            CHARSET CHECKSUM CIPHER CLIENT CODE COLUMN_FORMAT COMMENT
-            COMPACT COMPLETION COMPRESSED COMPRESSION CONCURRENT
-            CONSISTENT CONTEXT CPU DATAFILE DATETIME DEFAULT_AUTH
-            DELAY_KEY_WRITE DES_KEY_FILE DIRECTORY DISABLE DISCARD
-            DISK DUMPFILE DUPLICATE ENABLE ENCRYPTION ENDS ENGINE
-            ENGINES ENUM ERROR ERRORS EVENT EVENTS EXCHANGE EXPANSION
-            EXPIRE EXPORT EXTENDED EXTENT_SIZE FAST FAULTS FIELDS
-            FILE_BLOCK_SIZE FIXED FLUSH FOLLOWS FORMAT GEOMETRY
-            GEOMETRYCOLLECTION GET_FORMAT GRANTS GROUP_REPLICATION
-            HASH HELP HOST HOSTS IDENTIFIED IGNORE_SERVER_IDS INDEXES
-            INITIAL_SIZE INSERT_METHOD INSTALL IO IO_THREAD IPC
-            ISSUER JSON KEY_BLOCK_SIZE LEAVES LESS LINESTRING LIST
-            LOCKS LOGFILE LOGS MASTER MASTER_AUTO_POSITION
-            MASTER_CONNECT_RETRY MASTER_DELAY MASTER_HEARTBEAT_PERIOD
-            MASTER_HOST MASTER_LOG_FILE MASTER_LOG_POS MASTER_PASSWORD
-            MASTER_PORT MASTER_RETRY_COUNT MASTER_SERVER_ID MASTER_SSL
-            MASTER_SSL_CA MASTER_SSL_CAPATH MASTER_SSL_CERT
-            MASTER_SSL_CIPHER MASTER_SSL_CRL MASTER_SSL_CRLPATH
-            MASTER_SSL_KEY MASTER_TLS_VERSION MASTER_USER
-            MAX_CONNECTIONS_PER_HOUR MAX_QUERIES_PER_HOUR MAX_ROWS
-            MAX_SIZE MAX_STATEMENT_TIME MAX_UPDATES_PER_HOUR
-            MAX_USER_CONNECTIONS MEDIUM MEMORY MICROSECOND MIGRATE
-            MIN_ROWS MODE MODIFY MULTILINESTRING MULTIPOINT
-            MULTIPOLYGON MUTEX MYSQL_ERRNO NDB NDBCLUSTER NEVER
-            NODEGROUP NONBLOCKING NO_WAIT NVARCHAR OLD_PASSWORD ONE
-            OWNER PACK_KEYS PAGE PARSER PARSE_GCOL_EXPR PARTITIONING
-            PARTITIONS PASSWORD PHASE PLUGIN PLUGINS PLUGIN_DIR
-            POINT POLYGON PORT PREV PROCESSLIST PROFILE PROFILES
-            PROXY QUARTER QUERY QUICK READ_ONLY REBUILD RECOVER
-            REDOFILE REDO_BUFFER_SIZE REDUNDANT RELAY RELAYLOG
-            RELAY_LOG_FILE RELAY_LOG_POS RELAY_THREAD RELOAD REMOVE
-            REORGANIZE REPAIR REPLICATE_DO_DB REPLICATE_DO_TABLE
-            REPLICATE_IGNORE_DB REPLICATE_IGNORE_TABLE REPLICATE_REWRITE_DB
-            REPLICATE_WILD_DO_TABLE REPLICATE_WILD_IGNORE_TABLE
-            REPLICATION RESET RESUME REVERSE ROTATE ROW_FORMAT RTREE
-            SCHEDULE SERIAL SHARE SHUTDOWN SIGNED SLAVE SLOW SNAPSHOT
-            SOCKET SONAME SOUNDS SQL_AFTER_GTIDS SQL_AFTER_MTS_GAPS
-            SQL_BEFORE_GTIDS SQL_BUFFER_RESULT SQL_CACHE SQL_NO_CACHE
-            SQL_THREAD SQL_TSI_DAY SQL_TSI_HOUR SQL_TSI_MINUTE
-            SQL_TSI_MONTH SQL_TSI_QUARTER SQL_TSI_SECOND SQL_TSI_WEEK
-            SQL_TSI_YEAR STACKED STARTS STATS_AUTO_RECALC
-            STATS_PERSISTENT STATS_SAMPLE_PAGES STATUS STOP STORAGE
-            STRING SUBJECT SUBPARTITION SUBPARTITIONS SUPER SUSPEND
-            SWAPS SWITCHES TABLES TABLESPACE TABLE_CHECKSUM TEMPTABLE
-            TEXT THAN TIMESTAMPADD TIMESTAMPDIFF TRIGGERS TYPES
-            UNDEFINED UNDOFILE UNDO_BUFFER_SIZE UNICODE UNINSTALL
-            UPGRADE USER_RESOURCES USE_FRM VALIDATION VARIABLES
-            WAIT WARNINGS WEEK WEIGHT_STRING X509 XA XID
-          }
-
-          super + @mysql_key_words
-        end
-
-        def go s = ''
-          "#{s};\n\n"
-        end
-
-        def open_escape
-          '`'
-        end
-
-        def close_escape
-          '`'
-        end
-
-        def index_kind(index)
-          ''
-        end
-
-        class MySQLDataTypeContext < SQLDataTypeContext
-          def integer_ranges
-            [
-              ['TINYINT', -2**7, 2**7-1],
-              ['TINYINT UNSIGNED', 0, 2**8-1], 
-              ['MEDIUMINT', -2**23, 2**23-1], 
-            ] + super
-          end
-
-          def boolean_type
-            'BOOLEAN'
-          end
-
-          def valid_from_type
-            'DATETIME'  # The TIMESTAMP type starts in 1970
-          end
-
-          def default_char_type
-            (@unicode ? 'N' : '') +
-            'CHAR'
-          end
-
-          def default_varchar_type
-            (@unicode ? 'N' : '') +
-            'VARCHAR'
-          end
-
-          def date_time_type
-            'DATETIME'
-          end
-        end
+        prepend Traits::SQL::MySQL
+        extend Traits::SQL::MySQL   # Needed for class methods, like options
       end
 
     end

data/lib/activefacts/generator/sql/oracle.rb

@@ -3,13 +3,11 @@
 #
 # Copyright (c) 2009-2016 Clifford Heath. Read the LICENSE file.
 #
-# Reserved words gathered from:
-# https://docs.oracle.com/cd/B28359_01/appdev.111/b31231/appb.htm
-#
 require 'digest/sha1'
 require 'activefacts/metamodel'
 require 'activefacts/compositions'
 require 'activefacts/generator/sql'
+require 'activefacts/generator/traits/sql/oracle'
 
 module ActiveFacts
   module Generators
@@ -17,155 +15,8 @@ module ActiveFacts
     # * underscore 
     class SQL
       class Oracle < SQL
-        def self.options
-          super.merge({
-            # no: [String, "no new options defined here"]
-          })
-        end
-
-        def initialize composition, options = {}
-          super(composition, {'tables' => 'shout', 'columns' => 'shout'}.merge(options))
-        end
-
-        def table_name_max
-          30
-        end
-
-        def data_type_context
-          OracleDataTypeContext.new
-        end
-
-        def auto_assign_modifier
-          ' GENERATED BY DEFAULT ON NULL AS IDENTITY'
-        end
-
-        def generate_schema
-          ''
-        end
-
-        def normalise_type(type_name, length, value_constraint, options)
-          type = MM::DataType.normalise(type_name)
-          case type
-          when MM::DataType::TYPE_Integer
-            if aa = options[:auto_assign]
-              'LONGINTEGER'
-            else
-              super
-            end
-          when MM::DataType::TYPE_Money;    'MONEY'
-          when MM::DataType::TYPE_DateTime; 'DATETIME'
-          when MM::DataType::TYPE_Timestamp;'DATETIME'
-          when MM::DataType::TYPE_Binary;
-            if type_name =~ /^(guid|uuid)$/i && (!length || length == 16)
-              if ![nil, ''].include?(options[:auto_assign])
-                options[:default] = " DEFAULT SYS_GUID()"
-                options.delete(:auto_assign)
-              end
-              return ['RAW', 32]
-            end
-            ['LOB', length]
-          else
-            super
-          end
-        end
-
-        # Reserved words cannot be used anywhere without quoting.
-        # Keywords have existing definitions, so should not be used without quoting.
-        # Both lists here are added to the supertype's lists
-        def reserved_words
-          @oracle_reserved_words ||= %w{
-            ACCESS ARRAYLEN AUDIT CLUSTER COMMENT COMPRESS EXCLUSIVE
-            IDENTIFIED INDEX INITIAL LOCK LONG MAXEXTENTS MINUS
-            MODE MODIFY NOAUDIT NOCOMPRESS NOTFOUND NOWAIT OFFLINE
-            ONLINE PCTFREE RAW RENAME RESOURCE ROWID ROWLABEL ROWNUM
-            SHARE SQLBUF SUCCESSFUL SYNONYM SYSDATE UID VALIDATE
-            VARCHAR2
-          }
-          @oracle_plsql_reserved_words ||= %w{
-            ABORT ACCEPT ACCESS ARRAYLEN ASSERT ASSIGN BASE_TABLE
-            BINARY_INTEGER BODY CHAR_BASE CLUSTER CLUSTERS COLAUTH
-            COMPRESS CONSTANT CRASH CURRVAL DATABASE DATA_BASE DBA
-            DEBUGOFF DEBUGON DEFINITION DELAY DELTA DIGITS DISPOSE
-            ELSIF ENTRY EXCEPTION_INIT FORM GENERIC IDENTIFIED INDEX
-            INDEXES LIMITED MINUS MLSLABEL MODE NEXTVAL NOCOMPRESS
-            NUMBER_BASE PACKAGE PCTFREE POSITIVE PRAGMA PRIVATE
-            RAISE RECORD REMR RENAME RESOURCE REVERSE ROWID ROWLABEL
-            ROWNUM ROWTYPE RUN SEPARATE SQLERRM STDDEV SUBTYPE
-            TABAUTH TABLES TASK TERMINATE USE VARCHAR2 VARIANCE
-            VIEWS XOR
-          }
-          super + @oracle_reserved_words
-        end
-
-        def key_words
-          # These keywords should not be used for columns or tables:
-          @oracle_key_words ||= %w{
-            ANALYZE ARCHIVE ARCHIVELOG BACKUP BECOME BLOCK BODY
-            CACHE CANCEL CHANGE CHECKPOINT COMPILE CONTENTS CONTROLFILE
-            DATABASE DATAFILE DBA DISABLE DISMOUNT DUMP ENABLE
-            EVENTS EXCEPTIONS EXPLAIN EXTENT EXTERNALLY FLUSH FORCE
-            FREELIST FREELISTS INITRANS LAYER LISTS LOGFILE MANAGE
-            MANUAL MAXDATAFILES MAXINSTANCES MAXLOGFILES MAXLOGHISTORY
-            MAXLOGMEMBERS MAXTRANS MINEXTENTS MOUNT NOARCHIVELOG
-            NOCACHE NOCYCLE NOMAXVALUE NOMINVALUE NOORDER NORESETLOGS
-            NORMAL NOSORT OPTIMAL OWN PACKAGE PARALLEL PCTINCREASE
-            PCTUSED PLAN PRIVATE PROFILE QUOTA RECOVER RESETLOGS
-            RESTRICTED REUSE ROLES SCN SEGMENT SHARED SNAPSHOT SORT
-            STATEMENT_ID STATISTICS STOP STORAGE SWITCH TABLES
-            TABLESPACE THREAD TRACING TRIGGERS UNLIMITED USE
-          }
-          super + @oracle_key_words
-        end
-
-        def go s = ''
-          "#{s};\n\n"
-        end
-
-        def open_escape
-          '"'
-        end
-
-        def close_escape
-          '"'
-        end
-
-        def index_kind(index)
-          ''
-        end
-
-        class OracleDataTypeContext < SQLDataTypeContext
-          def integer_ranges
-            [
-              ['SHORTINTEGER', -2**15, 2**15-1],  # The standard says -10^5..10^5 (less than 16 bits)
-              ['INTEGER', -2**31, 2**31-1],   # The standard says -10^10..10^10 (more than 32 bits!)
-              ['LONGINTEGER', -2**63, 2**63-1],    # The standard says -10^19..10^19 (less than 64 bits)
-            ]
-          end
-
-          def boolean_type
-            'BOOLEAN'
-          end
-
-          def valid_from_type
-            'TIMESTAMP'
-          end
-
-          # There is no performance benefit in using fixed-length CHAR fields,
-          # and an added burden of trimming the implicitly added white-space
-          def default_char_type
-            (@unicode ? 'N' : '') +
-            'VARCHAR'
-          end
-
-          def default_varchar_type
-            (@unicode ? 'N' : '') +
-            'VARCHAR'
-          end
-
-          def date_time_type
-            'TIMESTAMP'
-          end
-        end
+        prepend Traits::SQL::Oracle
+        extend Traits::SQL::Oracle   # Needed for class methods, like options
       end
 
     end

data/lib/activefacts/generator/sql/postgres.rb

@@ -3,13 +3,11 @@
 #
 # Copyright (c) 2017 Clifford Heath. Read the LICENSE file.
 #
-# Reserved words gathered from:
-# https://www.postgresql.org/docs/9.5/static/sql-keywords-appendix.html
-#
 require 'digest/sha1'
 require 'activefacts/metamodel'
 require 'activefacts/compositions'
 require 'activefacts/generator/sql'
+require 'activefacts/generator/traits/sql/postgres'
 
 module ActiveFacts
   module Generators
@@ -17,148 +15,8 @@ module ActiveFacts
     # * underscore 
     class SQL
       class Postgres < SQL
-        def self.options
-          super.merge({
-            # no: [String, "no new options defined here"]
-          })
-        end
-
-        def initialize composition, options = {}
-          super(composition, {'tables' => 'snake', 'columns' => 'snake'}.merge(options))
-        end
-
-        def table_name_max
-          63
-        end
-
-        def data_type_context
-          PostgresDataTypeContext.new
-        end
-
-        def auto_assign_modifier
-          ''
-        end
-
-        def generate_schema
-          go "CREATE EXTENSION IF NOT EXISTS pgcrypto WITH SCHEMA public"
-        end
-
-        def normalise_type(type_name, length, value_constraint, options)
-          if type_name =~ /^(guid|uuid)$/i
-            if ![nil, ''].include?(options[:auto_assign])
-              options[:default] = " DEFAULT 'gen_random_uuid()'"
-            end
-            return ['UUID']
-          end
-
-          type = MM::DataType.normalise(type_name)
-          case type
-          when MM::DataType::TYPE_Integer
-            if aa = options[:auto_assign]
-              if aa.size > 0
-                'BIGSERIAL'
-              else
-                'BIGINT'
-              end
-            else
-              super
-            end
-          when MM::DataType::TYPE_Money;    'MONEY'
-          when MM::DataType::TYPE_DateTime; 'TIMESTAMP'
-          when MM::DataType::TYPE_Timestamp;'TIMESTAMP'
-          when MM::DataType::TYPE_Binary;
-            if length && length <= 8192
-              super
-            else
-              'IMAGE'
-            end
-          else
-            super
-          end
-        end
-
-        # Reserved words cannot be used anywhere without quoting.
-        # Keywords have existing definitions, so should not be used without quoting.
-        # Both lists here are added to the supertype's lists
-        def reserved_words
-          @postgres_reserved_words ||= %w{
-            ANALYSE ANALYZE LIMIT PLACING RETURNING VARIADIC
-          }
-          super + @postgres_reserved_words
-        end
-
-        def key_words
-          # These keywords should not be used for columns or tables:
-          @postgres_key_words ||= %w{
-            ABORT ACCESS AGGREGATE ALSO BACKWARD CACHE CHECKPOINT
-            CLASS CLUSTER COMMENT COMMENTS CONFIGURATION CONFLICT
-            CONVERSION COPY COST CSV DATABASE DELIMITER DELIMITERS
-            DICTIONARY DISABLE DISCARD ENABLE ENCRYPTED ENUM EVENT
-            EXCLUSIVE EXPLAIN EXTENSION FAMILY FORCE FORWARD FUNCTIONS
-            HEADER IMMUTABLE IMPLICIT INDEX INDEXES INHERIT INHERITS
-            INLINE LABEL LEAKPROOF LISTEN LOAD LOCK LOCKED LOGGED
-            MATERIALIZED MODE MOVE NOTHING NOTIFY NOWAIT OIDS
-            OPERATOR OWNED OWNER PARSER PASSWORD PLANS POLICY
-            PREPARED PROCEDURAL PROGRAM QUOTE REASSIGN RECHECK
-            REFRESH REINDEX RENAME REPLACE REPLICA RESET RULE
-            SEQUENCES SHARE SHOW SKIP SNAPSHOT STABLE STATISTICS
-            STDIN STDOUT STORAGE STRICT SYSID TABLES TABLESPACE
-            TEMP TEMPLATE TEXT TRUSTED TYPES UNENCRYPTED UNLISTEN
-            UNLOGGED VACUUM VALIDATE VALIDATOR VIEWS VOLATILE
-          }
-
-          # These keywords cannot be used for type or functions (and should not for columns or tables)
-          @postgres_key_words_func_type ||= %w{
-            GREATEST LEAST SETOF XMLROOT 
-          }
-          super + @postgres_key_words + @postgres_key_words_func_type
-        end
-
-        def go s = ''
-          "#{s};\n\n"
-        end
-
-        def open_escape
-          '"'
-        end
-
-        def close_escape
-          '"'
-        end
-
-        def index_kind(index)
-          ''
-        end
-
-        class PostgresDataTypeContext < SQLDataTypeContext
-          def integer_ranges
-            super
-          end
-
-          def boolean_type
-            'BOOLEAN'
-          end
-
-          def valid_from_type
-            'TIMESTAMP'
-          end
-
-          # There is no performance benefit in using fixed-length CHAR fields,
-          # and an added burden of trimming the implicitly added white-space
-          def default_char_type
-            (@unicode ? 'N' : '') +
-            'VARCHAR'
-          end
-
-          def default_varchar_type
-            (@unicode ? 'N' : '') +
-            'VARCHAR'
-          end
-
-          def date_time_type
-            'TIMESTAMP'
-          end
-        end
+        prepend Traits::SQL::Postgres
+        extend Traits::SQL::Postgres   # Needed for class methods, like options
       end
 
     end

data/lib/activefacts/generator/sql/server.rb

@@ -3,13 +3,11 @@
 #
 # Copyright (c) 2009-2016 Clifford Heath. Read the LICENSE file.
 #
-# Reserved words gathered from:
-# https://technet.microsoft.com/en-us/library/ms189822(v=sql.110).aspx
-#
 require 'digest/sha1'
 require 'activefacts/metamodel'
 require 'activefacts/compositions'
 require 'activefacts/generator/sql'
+require 'activefacts/generator/traits/sql/server'
 
 module ActiveFacts
   module Generators
@@ -17,129 +15,8 @@ module ActiveFacts
     # * underscore 
     class SQL
       class Server < SQL
-        def self.options
-          super.merge({
-            # no: [String, "no new options defined here"]
-          })
-        end
-
-        def initialize composition, options = {}
-          super
-          @closed_world_indices = true
-        end
-
-        def table_name_max
-          128
-        end
-
-        def data_type_context
-          SQLServerDataTypeContext.new
-        end
-
-        def auto_assign_modifier
-          ' IDENTITY'
-        end
-
-        def normalise_type(type_name, length, value_constraint, options)
-          type = MM::DataType.normalise(type_name)
-          case type
-          when MM::DataType::TYPE_Money;    'MONEY'
-          when MM::DataType::TYPE_DateTime; 'DATETIME'
-          when MM::DataType::TYPE_Timestamp;'DATETIME'
-          when MM::DataType::TYPE_Binary;
-            if type_name =~ /^(guid|uuid)$/i && (!length || length == 16)
-              if ![nil, ''].include?(options[:auto_assign])
-                options[:default] = ' DEFAULT NEWID()'
-                options.delete(:auto_assign)
-              end
-              return 'UNIQUEIDENTIFIER'
-            end
-            if length && length <= 8192
-              super
-            else
-              'IMAGE'
-            end
-          else
-            super
-          end
-        end
-
-        # Reserved words cannot be used anywhere without quoting.
-        # Keywords have existing definitions, so should not be used without quoting.
-        # Both lists here are added to the supertype's lists
-        def reserved_words
-          @sqlserver_reserved_words ||= %w{
-            BACKUP BREAK BROWSE BULK CHECKPOINT CLUSTERED COMPUTE
-            CONTAINSTABLE DATABASE DBCC DENY DISK DISTRIBUTED DUMP
-            ERRLVL FILE FILLFACTOR FREETEXT FREETEXTTABLE HOLDLOCK
-            IDENTITYCOL IDENTITY_INSERT INDEX KILL LINENO LOAD
-            NOCHECK NONCLUSTERED OFF OFFSETS OPENDATASOURCE OPENQUERY
-            OPENROWSET OPENXML PIVOT PLAN PRINT PROC RAISERROR
-            READTEXT RECONFIGURE REPLICATION RESTORE REVERT ROWCOUNT
-            ROWGUIDCOL RULE SAVE SECURITYAUDIT SEMANTICKEYPHRASETABLE
-            SEMANTICSIMILARITYDETAILSTABLE SEMANTICSIMILARITYTABLE
-            SETUSER SHUTDOWN STATISTICS TEXTSIZE TOP TRAN TRY_CONVERT
-            TSEQUAL UNPIVOT UPDATETEXT USE WAITFOR WITHIN GROUP
-            WRITETEXT
-          }
-          super + @sqlserver_reserved_words
-        end
-
-        def key_words
-          # These keywords should not be used for columns or tables:
-          @sqlserver_key_words ||= %w{
-            INCLUDE INDEX SQLCA
-          }
-          super + @sqlserver_key_words
-        end
-
-        def go s = ''
-          "#{s}\nGO\n"
-        end
-
-        def open_escape
-          '['
-        end
-
-        def close_escape
-          ']'
-        end
-
-        def index_kind(index)
-          (index.composite_as_primary_index ? ' CLUSTERED' : ' NONCLUSTERED')
-        end
-
-        class SQLServerDataTypeContext < SQLDataTypeContext
-          def integer_ranges
-            [
-              ['BIT', 0, 1],
-              ['TINYINT', -2**7, 2**7-1],
-            ] +
-            super
-          end
-
-          def boolean_type
-            'BIT'
-          end
-
-          def valid_from_type
-            'DATETIME'
-          end
-
-          def default_char_type
-            (@unicode ? 'N' : '') +
-            'CHAR'
-          end
-
-          def default_varchar_type
-            (@unicode ? 'N' : '') +
-            'VARCHAR'
-          end
-
-          def date_time_type
-            'DATETIME'
-          end
-        end
+        prepend Traits::SQL::Server
+        extend Traits::SQL::Server   # Needed for class methods, like options
       end
 
     end