[!!!][TASK] Doctrine: Remove ext:dbal
[Packages/TYPO3.CMS.git] / typo3 / sysext / adodb / adodb / datadict / datadict-mssql.inc.php
1 <?php
2
3 /**
4 @version v5.20.3 01-Jan-2016
5 @copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights reserved.
6 @copyright (c) 2014 Damien Regad, Mark Newnham and the ADOdb community
7 Released under both BSD license and Lesser GPL library license.
8 Whenever there is any discrepancy between the two licenses,
9 the BSD license will take precedence.
10
11 Set tabs to 4 for best viewing.
12
13 */
14
15 /*
16 In ADOdb, named quotes for MS SQL Server use ". From the MSSQL Docs:
17
18 Note Delimiters are for identifiers only. Delimiters cannot be used for keywords,
19 whether or not they are marked as reserved in SQL Server.
20
21 Quoted identifiers are delimited by double quotation marks ("):
22 SELECT * FROM "Blanks in Table Name"
23
24 Bracketed identifiers are delimited by brackets ([ ]):
25 SELECT * FROM [Blanks In Table Name]
26
27 Quoted identifiers are valid only when the QUOTED_IDENTIFIER option is set to ON. By default,
28 the Microsoft OLE DB Provider for SQL Server and SQL Server ODBC driver set QUOTED_IDENTIFIER ON
29 when they connect.
30
31 In Transact-SQL, the option can be set at various levels using SET QUOTED_IDENTIFIER,
32 the quoted identifier option of sp_dboption, or the user options option of sp_configure.
33
34 When SET ANSI_DEFAULTS is ON, SET QUOTED_IDENTIFIER is enabled.
35
36 Syntax
37
38 SET QUOTED_IDENTIFIER { ON | OFF }
39
40
41 */
42
43 // security - hide paths
44 if (!defined('ADODB_DIR')) die();
45
46 class ADODB2_mssql extends ADODB_DataDict {
47 var $databaseType = 'mssql';
48 var $dropIndex = 'DROP INDEX %2$s.%1$s';
49 var $renameTable = "EXEC sp_rename '%s','%s'";
50 var $renameColumn = "EXEC sp_rename '%s.%s','%s'";
51
52 var $typeX = 'TEXT'; ## Alternatively, set it to VARCHAR(4000)
53 var $typeXL = 'TEXT';
54
55 //var $alterCol = ' ALTER COLUMN ';
56
57 function MetaType($t,$len=-1,$fieldobj=false)
58 {
59 if (is_object($t)) {
60 $fieldobj = $t;
61 $t = $fieldobj->type;
62 $len = $fieldobj->max_length;
63 }
64
65 $len = -1; // mysql max_length is not accurate
66 switch (strtoupper($t)) {
67 case 'R':
68 case 'INT':
69 case 'INTEGER': return 'I';
70 case 'BIT':
71 case 'TINYINT': return 'I1';
72 case 'SMALLINT': return 'I2';
73 case 'BIGINT': return 'I8';
74 case 'SMALLDATETIME': return 'T';
75 case 'REAL':
76 case 'FLOAT': return 'F';
77 default: return parent::MetaType($t,$len,$fieldobj);
78 }
79 }
80
81 function ActualType($meta)
82 {
83 switch(strtoupper($meta)) {
84
85 case 'C': return 'VARCHAR';
86 case 'XL': return (isset($this)) ? $this->typeXL : 'TEXT';
87 case 'X': return (isset($this)) ? $this->typeX : 'TEXT'; ## could be varchar(8000), but we want compat with oracle
88 case 'C2': return 'NVARCHAR';
89 case 'X2': return 'NTEXT';
90
91 case 'B': return 'IMAGE';
92
93 case 'D': return 'DATETIME';
94
95 case 'TS':
96 case 'T': return 'DATETIME';
97 case 'L': return 'BIT';
98
99 case 'R':
100 case 'I': return 'INT';
101 case 'I1': return 'TINYINT';
102 case 'I2': return 'SMALLINT';
103 case 'I4': return 'INT';
104 case 'I8': return 'BIGINT';
105
106 case 'F': return 'REAL';
107 case 'N': return 'NUMERIC';
108 default:
109 return $meta;
110 }
111 }
112
113
114 function AddColumnSQL($tabname, $flds)
115 {
116 $tabname = $this->TableName ($tabname);
117 $f = array();
118 list($lines,$pkey) = $this->_GenFields($flds);
119 $s = "ALTER TABLE $tabname $this->addCol";
120 foreach($lines as $v) {
121 $f[] = "\n $v";
122 }
123 $s .= implode(', ',$f);
124 $sql[] = $s;
125 return $sql;
126 }
127
128 /*
129 function AlterColumnSQL($tabname, $flds, $tableflds='', $tableoptions='')
130 {
131 $tabname = $this->TableName ($tabname);
132 $sql = array();
133 list($lines,$pkey) = $this->_GenFields($flds);
134 foreach($lines as $v) {
135 $sql[] = "ALTER TABLE $tabname $this->alterCol $v";
136 }
137
138 return $sql;
139 }
140 */
141
142 function DropColumnSQL($tabname, $flds, $tableflds='',$tableoptions='')
143 {
144 $tabname = $this->TableName ($tabname);
145 if (!is_array($flds))
146 $flds = explode(',',$flds);
147 $f = array();
148 $s = 'ALTER TABLE ' . $tabname;
149 foreach($flds as $v) {
150 $f[] = "\n$this->dropCol ".$this->NameQuote($v);
151 }
152 $s .= implode(', ',$f);
153 $sql[] = $s;
154 return $sql;
155 }
156
157 // return string must begin with space
158 function _CreateSuffix($fname,&$ftype,$fnotnull,$fdefault,$fautoinc,$fconstraint,$funsigned)
159 {
160 $suffix = '';
161 if (strlen($fdefault)) $suffix .= " DEFAULT $fdefault";
162 if ($fautoinc) $suffix .= ' IDENTITY(1,1)';
163 if ($fnotnull) $suffix .= ' NOT NULL';
164 else if ($suffix == '') $suffix .= ' NULL';
165 if ($fconstraint) $suffix .= ' '.$fconstraint;
166 return $suffix;
167 }
168
169 /*
170 CREATE TABLE
171 [ database_name.[ owner ] . | owner. ] table_name
172 ( { < column_definition >
173 | column_name AS computed_column_expression
174 | < table_constraint > ::= [ CONSTRAINT constraint_name ] }
175
176 | [ { PRIMARY KEY | UNIQUE } [ ,...n ]
177 )
178
179 [ ON { filegroup | DEFAULT } ]
180 [ TEXTIMAGE_ON { filegroup | DEFAULT } ]
181
182 < column_definition > ::= { column_name data_type }
183 [ COLLATE < collation_name > ]
184 [ [ DEFAULT constant_expression ]
185 | [ IDENTITY [ ( seed , increment ) [ NOT FOR REPLICATION ] ] ]
186 ]
187 [ ROWGUIDCOL]
188 [ < column_constraint > ] [ ...n ]
189
190 < column_constraint > ::= [ CONSTRAINT constraint_name ]
191 { [ NULL | NOT NULL ]
192 | [ { PRIMARY KEY | UNIQUE }
193 [ CLUSTERED | NONCLUSTERED ]
194 [ WITH FILLFACTOR = fillfactor ]
195 [ON {filegroup | DEFAULT} ] ]
196 ]
197 | [ [ FOREIGN KEY ]
198 REFERENCES ref_table [ ( ref_column ) ]
199 [ ON DELETE { CASCADE | NO ACTION } ]
200 [ ON UPDATE { CASCADE | NO ACTION } ]
201 [ NOT FOR REPLICATION ]
202 ]
203 | CHECK [ NOT FOR REPLICATION ]
204 ( logical_expression )
205 }
206
207 < table_constraint > ::= [ CONSTRAINT constraint_name ]
208 { [ { PRIMARY KEY | UNIQUE }
209 [ CLUSTERED | NONCLUSTERED ]
210 { ( column [ ASC | DESC ] [ ,...n ] ) }
211 [ WITH FILLFACTOR = fillfactor ]
212 [ ON { filegroup | DEFAULT } ]
213 ]
214 | FOREIGN KEY
215 [ ( column [ ,...n ] ) ]
216 REFERENCES ref_table [ ( ref_column [ ,...n ] ) ]
217 [ ON DELETE { CASCADE | NO ACTION } ]
218 [ ON UPDATE { CASCADE | NO ACTION } ]
219 [ NOT FOR REPLICATION ]
220 | CHECK [ NOT FOR REPLICATION ]
221 ( search_conditions )
222 }
223
224
225 */
226
227 /*
228 CREATE [ UNIQUE ] [ CLUSTERED | NONCLUSTERED ] INDEX index_name
229 ON { table | view } ( column [ ASC | DESC ] [ ,...n ] )
230 [ WITH < index_option > [ ,...n] ]
231 [ ON filegroup ]
232 < index_option > :: =
233 { PAD_INDEX |
234 FILLFACTOR = fillfactor |
235 IGNORE_DUP_KEY |
236 DROP_EXISTING |
237 STATISTICS_NORECOMPUTE |
238 SORT_IN_TEMPDB
239 }
240 */
241 function _IndexSQL($idxname, $tabname, $flds, $idxoptions)
242 {
243 $sql = array();
244
245 if ( isset($idxoptions['REPLACE']) || isset($idxoptions['DROP']) ) {
246 $sql[] = sprintf ($this->dropIndex, $idxname, $tabname);
247 if ( isset($idxoptions['DROP']) )
248 return $sql;
249 }
250
251 if ( empty ($flds) ) {
252 return $sql;
253 }
254
255 $unique = isset($idxoptions['UNIQUE']) ? ' UNIQUE' : '';
256 $clustered = isset($idxoptions['CLUSTERED']) ? ' CLUSTERED' : '';
257
258 if ( is_array($flds) )
259 $flds = implode(', ',$flds);
260 $s = 'CREATE' . $unique . $clustered . ' INDEX ' . $idxname . ' ON ' . $tabname . ' (' . $flds . ')';
261
262 if ( isset($idxoptions[$this->upperName]) )
263 $s .= $idxoptions[$this->upperName];
264
265
266 $sql[] = $s;
267
268 return $sql;
269 }
270
271
272 function _GetSize($ftype, $ty, $fsize, $fprec)
273 {
274 switch ($ftype) {
275 case 'INT':
276 case 'SMALLINT':
277 case 'TINYINT':
278 case 'BIGINT':
279 return $ftype;
280 }
281 if ($ty == 'T') return $ftype;
282 return parent::_GetSize($ftype, $ty, $fsize, $fprec);
283
284 }
285 }