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