[2] | 1 | <?php |
---|
| 2 | |
---|
| 3 | /** |
---|
| 4 | V4.51 29 July 2004 (c) 2000-2004 John Lim (jlim@natsoft.com.my). 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 | DOCUMENTATION: |
---|
| 12 | |
---|
| 13 | See adodb/tests/test-datadict.php for docs and examples. |
---|
| 14 | */ |
---|
| 15 | |
---|
| 16 | /* |
---|
| 17 | Test script for parser |
---|
| 18 | */ |
---|
| 19 | |
---|
| 20 | // security - hide paths |
---|
| 21 | if (!defined('ADODB_DIR')) die(); |
---|
| 22 | |
---|
| 23 | function Lens_ParseTest() |
---|
| 24 | { |
---|
| 25 | $str = "`zcol ACOL` NUMBER(32,2) DEFAULT 'The \"cow\" (and Jim''s dog) jumps over the moon' PRIMARY, INTI INT AUTO DEFAULT 0"; |
---|
| 26 | print "<p>$str</p>"; |
---|
| 27 | $a= Lens_ParseArgs($str); |
---|
| 28 | print "<pre>"; |
---|
| 29 | print_r($a); |
---|
| 30 | print "</pre>"; |
---|
| 31 | } |
---|
| 32 | |
---|
| 33 | if (!function_exists('ctype_alnum')) { |
---|
| 34 | function ctype_alnum($text) { |
---|
| 35 | return preg_match('/^[a-z0-9]*$/i', $text); |
---|
| 36 | } |
---|
| 37 | } |
---|
| 38 | |
---|
| 39 | //Lens_ParseTest(); |
---|
| 40 | |
---|
| 41 | /** |
---|
| 42 | Parse arguments, treat "text" (text) and 'text' as quotation marks. |
---|
| 43 | To escape, use "" or '' or )) |
---|
| 44 | |
---|
| 45 | Will read in "abc def" sans quotes, as: abc def |
---|
| 46 | Same with 'abc def'. |
---|
| 47 | However if `abc def`, then will read in as `abc def` |
---|
| 48 | |
---|
| 49 | @param endstmtchar Character that indicates end of statement |
---|
| 50 | @param tokenchars Include the following characters in tokens apart from A-Z and 0-9 |
---|
| 51 | @returns 2 dimensional array containing parsed tokens. |
---|
| 52 | */ |
---|
| 53 | function Lens_ParseArgs($args,$endstmtchar=',',$tokenchars='_.-') |
---|
| 54 | { |
---|
| 55 | $pos = 0; |
---|
| 56 | $intoken = false; |
---|
| 57 | $stmtno = 0; |
---|
| 58 | $endquote = false; |
---|
| 59 | $tokens = array(); |
---|
| 60 | $tokens[$stmtno] = array(); |
---|
| 61 | $max = strlen($args); |
---|
| 62 | $quoted = false; |
---|
| 63 | |
---|
| 64 | while ($pos < $max) { |
---|
| 65 | $ch = substr($args,$pos,1); |
---|
| 66 | switch($ch) { |
---|
| 67 | case ' ': |
---|
| 68 | case "\t": |
---|
| 69 | case "\n": |
---|
| 70 | case "\r": |
---|
| 71 | if (!$quoted) { |
---|
| 72 | if ($intoken) { |
---|
| 73 | $intoken = false; |
---|
| 74 | $tokens[$stmtno][] = implode('',$tokarr); |
---|
| 75 | } |
---|
| 76 | break; |
---|
| 77 | } |
---|
| 78 | |
---|
| 79 | $tokarr[] = $ch; |
---|
| 80 | break; |
---|
| 81 | |
---|
| 82 | case '`': |
---|
| 83 | if ($intoken) $tokarr[] = $ch; |
---|
| 84 | case '(': |
---|
| 85 | case ')': |
---|
| 86 | case '"': |
---|
| 87 | case "'": |
---|
| 88 | |
---|
| 89 | if ($intoken) { |
---|
| 90 | if (empty($endquote)) { |
---|
| 91 | $tokens[$stmtno][] = implode('',$tokarr); |
---|
| 92 | if ($ch == '(') $endquote = ')'; |
---|
| 93 | else $endquote = $ch; |
---|
| 94 | $quoted = true; |
---|
| 95 | $intoken = true; |
---|
| 96 | $tokarr = array(); |
---|
| 97 | } else if ($endquote == $ch) { |
---|
| 98 | $ch2 = substr($args,$pos+1,1); |
---|
| 99 | if ($ch2 == $endquote) { |
---|
| 100 | $pos += 1; |
---|
| 101 | $tokarr[] = $ch2; |
---|
| 102 | } else { |
---|
| 103 | $quoted = false; |
---|
| 104 | $intoken = false; |
---|
| 105 | $tokens[$stmtno][] = implode('',$tokarr); |
---|
| 106 | $endquote = ''; |
---|
| 107 | } |
---|
| 108 | } else |
---|
| 109 | $tokarr[] = $ch; |
---|
| 110 | |
---|
| 111 | }else { |
---|
| 112 | |
---|
| 113 | if ($ch == '(') $endquote = ')'; |
---|
| 114 | else $endquote = $ch; |
---|
| 115 | $quoted = true; |
---|
| 116 | $intoken = true; |
---|
| 117 | $tokarr = array(); |
---|
| 118 | if ($ch == '`') $tokarr[] = '`'; |
---|
| 119 | } |
---|
| 120 | break; |
---|
| 121 | |
---|
| 122 | default: |
---|
| 123 | |
---|
| 124 | if (!$intoken) { |
---|
| 125 | if ($ch == $endstmtchar) { |
---|
| 126 | $stmtno += 1; |
---|
| 127 | $tokens[$stmtno] = array(); |
---|
| 128 | break; |
---|
| 129 | } |
---|
| 130 | |
---|
| 131 | $intoken = true; |
---|
| 132 | $quoted = false; |
---|
| 133 | $endquote = false; |
---|
| 134 | $tokarr = array(); |
---|
| 135 | |
---|
| 136 | } |
---|
| 137 | |
---|
| 138 | if ($quoted) $tokarr[] = $ch; |
---|
| 139 | else if (ctype_alnum($ch) || strpos($tokenchars,$ch) !== false) $tokarr[] = $ch; |
---|
| 140 | else { |
---|
| 141 | if ($ch == $endstmtchar) { |
---|
| 142 | $tokens[$stmtno][] = implode('',$tokarr); |
---|
| 143 | $stmtno += 1; |
---|
| 144 | $tokens[$stmtno] = array(); |
---|
| 145 | $intoken = false; |
---|
| 146 | $tokarr = array(); |
---|
| 147 | break; |
---|
| 148 | } |
---|
| 149 | $tokens[$stmtno][] = implode('',$tokarr); |
---|
| 150 | $tokens[$stmtno][] = $ch; |
---|
| 151 | $intoken = false; |
---|
| 152 | } |
---|
| 153 | } |
---|
| 154 | $pos += 1; |
---|
| 155 | } |
---|
| 156 | |
---|
| 157 | return $tokens; |
---|
| 158 | } |
---|
| 159 | |
---|
| 160 | |
---|
| 161 | class ADODB_DataDict { |
---|
| 162 | var $connection; |
---|
| 163 | var $debug = false; |
---|
| 164 | var $dropTable = 'DROP TABLE %s'; |
---|
| 165 | var $dropIndex = 'DROP INDEX %s'; |
---|
| 166 | var $addCol = ' ADD'; |
---|
| 167 | var $alterCol = ' ALTER COLUMN'; |
---|
| 168 | var $dropCol = ' DROP COLUMN'; |
---|
| 169 | var $nameRegex = '\w'; |
---|
| 170 | var $schema = false; |
---|
| 171 | var $serverInfo = array(); |
---|
| 172 | var $autoIncrement = false; |
---|
| 173 | var $dataProvider; |
---|
| 174 | var $blobSize = 100; /// any varchar/char field this size or greater is treated as a blob |
---|
| 175 | /// in other words, we use a text area for editting. |
---|
| 176 | |
---|
| 177 | function GetCommentSQL($table,$col) |
---|
| 178 | { |
---|
| 179 | return false; |
---|
| 180 | } |
---|
| 181 | |
---|
| 182 | function SetCommentSQL($table,$col,$cmt) |
---|
| 183 | { |
---|
| 184 | return false; |
---|
| 185 | } |
---|
| 186 | |
---|
| 187 | function &MetaTables() |
---|
| 188 | { |
---|
| 189 | return $this->connection->MetaTables(); |
---|
| 190 | } |
---|
| 191 | |
---|
| 192 | function &MetaColumns($tab, $upper=true, $schema=false) |
---|
| 193 | { |
---|
| 194 | return $this->connection->MetaColumns($this->TableName($tab), $upper, $schema); |
---|
| 195 | } |
---|
| 196 | |
---|
| 197 | function &MetaPrimaryKeys($tab,$owner=false,$intkey=false) |
---|
| 198 | { |
---|
| 199 | return $this->connection->MetaPrimaryKeys($this->TableName($tab), $owner, $intkey); |
---|
| 200 | } |
---|
| 201 | |
---|
| 202 | function &MetaIndexes($table, $primary = false, $owner = false) |
---|
| 203 | { |
---|
| 204 | return $this->connection->MetaIndexes($this->TableName($table), $primary, $owner); |
---|
| 205 | } |
---|
| 206 | |
---|
| 207 | function MetaType($t,$len=-1,$fieldobj=false) |
---|
| 208 | { |
---|
| 209 | return ADORecordSet::MetaType($t,$len,$fieldobj); |
---|
| 210 | } |
---|
| 211 | |
---|
| 212 | function NameQuote($name = NULL) |
---|
| 213 | { |
---|
| 214 | if (!is_string($name)) { |
---|
| 215 | return FALSE; |
---|
| 216 | } |
---|
| 217 | |
---|
| 218 | $name = trim($name); |
---|
| 219 | |
---|
| 220 | if ( !is_object($this->connection) ) { |
---|
| 221 | return $name; |
---|
| 222 | } |
---|
| 223 | |
---|
| 224 | $quote = $this->connection->nameQuote; |
---|
| 225 | |
---|
| 226 | // if name is of the form `name`, quote it |
---|
| 227 | if ( preg_match('/^`(.+)`$/', $name, $matches) ) { |
---|
| 228 | return $quote . $matches[1] . $quote; |
---|
| 229 | } |
---|
| 230 | |
---|
| 231 | // if name contains special characters, quote it |
---|
| 232 | if ( !preg_match('/^[' . $this->nameRegex . ']+$/', $name) ) { |
---|
| 233 | return $quote . $name . $quote; |
---|
| 234 | } |
---|
| 235 | |
---|
| 236 | return $name; |
---|
| 237 | } |
---|
| 238 | |
---|
| 239 | function TableName($name) |
---|
| 240 | { |
---|
| 241 | if ( $this->schema ) { |
---|
| 242 | return $this->NameQuote($this->schema) .'.'. $this->NameQuote($name); |
---|
| 243 | } |
---|
| 244 | return $this->NameQuote($name); |
---|
| 245 | } |
---|
| 246 | |
---|
| 247 | // Executes the sql array returned by GetTableSQL and GetIndexSQL |
---|
| 248 | function ExecuteSQLArray($sql, $continueOnError = true) |
---|
| 249 | { |
---|
| 250 | $rez = 2; |
---|
| 251 | $conn = &$this->connection; |
---|
| 252 | $saved = $conn->debug; |
---|
| 253 | foreach($sql as $line) { |
---|
| 254 | |
---|
| 255 | if ($this->debug) $conn->debug = true; |
---|
| 256 | $ok = $conn->Execute($line); |
---|
| 257 | $conn->debug = $saved; |
---|
| 258 | if (!$ok) { |
---|
| 259 | if ($this->debug) ADOConnection::outp($conn->ErrorMsg()); |
---|
| 260 | if (!$continueOnError) return 0; |
---|
| 261 | $rez = 1; |
---|
| 262 | } |
---|
| 263 | } |
---|
| 264 | return $rez; |
---|
| 265 | } |
---|
| 266 | |
---|
| 267 | /* |
---|
| 268 | Returns the actual type given a character code. |
---|
| 269 | |
---|
| 270 | C: varchar |
---|
| 271 | X: CLOB (character large object) or largest varchar size if CLOB is not supported |
---|
| 272 | C2: Multibyte varchar |
---|
| 273 | X2: Multibyte CLOB |
---|
| 274 | |
---|
| 275 | B: BLOB (binary large object) |
---|
| 276 | |
---|
| 277 | D: Date |
---|
| 278 | T: Date-time |
---|
| 279 | L: Integer field suitable for storing booleans (0 or 1) |
---|
| 280 | I: Integer |
---|
| 281 | F: Floating point number |
---|
| 282 | N: Numeric or decimal number |
---|
| 283 | */ |
---|
| 284 | |
---|
| 285 | function ActualType($meta) |
---|
| 286 | { |
---|
| 287 | return $meta; |
---|
| 288 | } |
---|
| 289 | |
---|
| 290 | function CreateDatabase($dbname,$options=false) |
---|
| 291 | { |
---|
| 292 | $options = $this->_Options($options); |
---|
| 293 | $sql = array(); |
---|
| 294 | |
---|
| 295 | $s = 'CREATE DATABASE ' . $this->NameQuote($dbname); |
---|
| 296 | if (isset($options[$this->upperName])) |
---|
| 297 | $s .= ' '.$options[$this->upperName]; |
---|
| 298 | |
---|
| 299 | $sql[] = $s; |
---|
| 300 | return $sql; |
---|
| 301 | } |
---|
| 302 | |
---|
| 303 | /* |
---|
| 304 | Generates the SQL to create index. Returns an array of sql strings. |
---|
| 305 | */ |
---|
| 306 | function CreateIndexSQL($idxname, $tabname, $flds, $idxoptions = false) |
---|
| 307 | { |
---|
| 308 | if (!is_array($flds)) { |
---|
| 309 | $flds = explode(',',$flds); |
---|
| 310 | } |
---|
| 311 | |
---|
| 312 | foreach($flds as $key => $fld) { |
---|
| 313 | $flds[$key] = $this->NameQuote($fld); |
---|
| 314 | } |
---|
| 315 | |
---|
| 316 | return $this->_IndexSQL($this->NameQuote($idxname), $this->TableName($tabname), $flds, $this->_Options($idxoptions)); |
---|
| 317 | } |
---|
| 318 | |
---|
| 319 | function DropIndexSQL ($idxname, $tabname = NULL) |
---|
| 320 | { |
---|
| 321 | return array(sprintf($this->dropIndex, $this->NameQuote($idxname), $this->TableName($tabname))); |
---|
| 322 | } |
---|
| 323 | |
---|
| 324 | function SetSchema($schema) |
---|
| 325 | { |
---|
| 326 | $this->schema = $schema; |
---|
| 327 | } |
---|
| 328 | |
---|
| 329 | function AddColumnSQL($tabname, $flds) |
---|
| 330 | { |
---|
| 331 | $tabname = $this->TableName ($tabname); |
---|
| 332 | $sql = array(); |
---|
| 333 | list($lines,$pkey) = $this->_GenFields($flds); |
---|
| 334 | $alter = 'ALTER TABLE ' . $tabname . $this->addCol . ' '; |
---|
| 335 | foreach($lines as $v) { |
---|
| 336 | $sql[] = $alter . $v; |
---|
| 337 | } |
---|
| 338 | return $sql; |
---|
| 339 | } |
---|
| 340 | |
---|
| 341 | function AlterColumnSQL($tabname, $flds) |
---|
| 342 | { |
---|
| 343 | $tabname = $this->TableName ($tabname); |
---|
| 344 | $sql = array(); |
---|
| 345 | list($lines,$pkey) = $this->_GenFields($flds); |
---|
| 346 | $alter = 'ALTER TABLE ' . $tabname . $this->alterCol . ' '; |
---|
| 347 | foreach($lines as $v) { |
---|
| 348 | $sql[] = $alter . $v; |
---|
| 349 | } |
---|
| 350 | return $sql; |
---|
| 351 | } |
---|
| 352 | |
---|
| 353 | function DropColumnSQL($tabname, $flds) |
---|
| 354 | { |
---|
| 355 | $tabname = $this->TableName ($tabname); |
---|
| 356 | if (!is_array($flds)) $flds = explode(',',$flds); |
---|
| 357 | $sql = array(); |
---|
| 358 | $alter = 'ALTER TABLE ' . $tabname . $this->dropCol . ' '; |
---|
| 359 | foreach($flds as $v) { |
---|
| 360 | $sql[] = $alter . $this->NameQuote($v); |
---|
| 361 | } |
---|
| 362 | return $sql; |
---|
| 363 | } |
---|
| 364 | |
---|
| 365 | function DropTableSQL($tabname) |
---|
| 366 | { |
---|
| 367 | return array (sprintf($this->dropTable, $this->TableName($tabname))); |
---|
| 368 | } |
---|
| 369 | |
---|
| 370 | /* |
---|
| 371 | Generate the SQL to create table. Returns an array of sql strings. |
---|
| 372 | */ |
---|
| 373 | function CreateTableSQL($tabname, $flds, $tableoptions=false) |
---|
| 374 | { |
---|
| 375 | if (!$tableoptions) $tableoptions = array(); |
---|
| 376 | |
---|
| 377 | list($lines,$pkey) = $this->_GenFields($flds); |
---|
| 378 | |
---|
| 379 | $taboptions = $this->_Options($tableoptions); |
---|
| 380 | $tabname = $this->TableName ($tabname); |
---|
| 381 | $sql = $this->_TableSQL($tabname,$lines,$pkey,$taboptions); |
---|
| 382 | |
---|
| 383 | $tsql = $this->_Triggers($tabname,$taboptions); |
---|
| 384 | foreach($tsql as $s) $sql[] = $s; |
---|
| 385 | |
---|
| 386 | return $sql; |
---|
| 387 | } |
---|
| 388 | |
---|
| 389 | function _GenFields($flds) |
---|
| 390 | { |
---|
| 391 | if (is_string($flds)) { |
---|
| 392 | $padding = ' '; |
---|
| 393 | $txt = $flds.$padding; |
---|
| 394 | $flds = array(); |
---|
| 395 | $flds0 = Lens_ParseArgs($txt,','); |
---|
| 396 | $hasparam = false; |
---|
| 397 | foreach($flds0 as $f0) { |
---|
| 398 | $f1 = array(); |
---|
| 399 | foreach($f0 as $token) { |
---|
| 400 | switch (strtoupper($token)) { |
---|
| 401 | case 'CONSTRAINT': |
---|
| 402 | case 'DEFAULT': |
---|
| 403 | $hasparam = $token; |
---|
| 404 | break; |
---|
| 405 | default: |
---|
| 406 | if ($hasparam) $f1[$hasparam] = $token; |
---|
| 407 | else $f1[] = $token; |
---|
| 408 | $hasparam = false; |
---|
| 409 | break; |
---|
| 410 | } |
---|
| 411 | } |
---|
| 412 | $flds[] = $f1; |
---|
| 413 | |
---|
| 414 | } |
---|
| 415 | } |
---|
| 416 | $this->autoIncrement = false; |
---|
| 417 | $lines = array(); |
---|
| 418 | $pkey = array(); |
---|
| 419 | foreach($flds as $fld) { |
---|
| 420 | $fld = _array_change_key_case($fld); |
---|
| 421 | |
---|
| 422 | $fname = false; |
---|
| 423 | $fdefault = false; |
---|
| 424 | $fautoinc = false; |
---|
| 425 | $ftype = false; |
---|
| 426 | $fsize = false; |
---|
| 427 | $fprec = false; |
---|
| 428 | $fprimary = false; |
---|
| 429 | $fnoquote = false; |
---|
| 430 | $fdefts = false; |
---|
| 431 | $fdefdate = false; |
---|
| 432 | $fconstraint = false; |
---|
| 433 | $fnotnull = false; |
---|
| 434 | $funsigned = false; |
---|
| 435 | |
---|
| 436 | //----------------- |
---|
| 437 | // Parse attributes |
---|
| 438 | foreach($fld as $attr => $v) { |
---|
| 439 | if ($attr == 2 && is_numeric($v)) $attr = 'SIZE'; |
---|
| 440 | else if (is_numeric($attr) && $attr > 1 && !is_numeric($v)) $attr = strtoupper($v); |
---|
| 441 | |
---|
| 442 | switch($attr) { |
---|
| 443 | case '0': |
---|
| 444 | case 'NAME': $fname = $v; break; |
---|
| 445 | case '1': |
---|
| 446 | case 'TYPE': $ty = $v; $ftype = $this->ActualType(strtoupper($v)); break; |
---|
| 447 | |
---|
| 448 | case 'SIZE': |
---|
| 449 | $dotat = strpos($v,'.'); if ($dotat === false) $dotat = strpos($v,','); |
---|
| 450 | if ($dotat === false) $fsize = $v; |
---|
| 451 | else { |
---|
| 452 | $fsize = substr($v,0,$dotat); |
---|
| 453 | $fprec = substr($v,$dotat+1); |
---|
| 454 | } |
---|
| 455 | break; |
---|
| 456 | case 'UNSIGNED': $funsigned = true; break; |
---|
| 457 | case 'AUTOINCREMENT': |
---|
| 458 | case 'AUTO': $fautoinc = true; $fnotnull = true; break; |
---|
| 459 | case 'KEY': |
---|
| 460 | case 'PRIMARY': $fprimary = $v; $fnotnull = true; break; |
---|
| 461 | case 'DEF': |
---|
| 462 | case 'DEFAULT': $fdefault = $v; break; |
---|
| 463 | case 'NOTNULL': $fnotnull = $v; break; |
---|
| 464 | case 'NOQUOTE': $fnoquote = $v; break; |
---|
| 465 | case 'DEFDATE': $fdefdate = $v; break; |
---|
| 466 | case 'DEFTIMESTAMP': $fdefts = $v; break; |
---|
| 467 | case 'CONSTRAINT': $fconstraint = $v; break; |
---|
| 468 | } //switch |
---|
| 469 | } // foreach $fld |
---|
| 470 | |
---|
| 471 | //-------------------- |
---|
| 472 | // VALIDATE FIELD INFO |
---|
| 473 | if (!strlen($fname)) { |
---|
| 474 | if ($this->debug) ADOConnection::outp("Undefined NAME"); |
---|
| 475 | return false; |
---|
| 476 | } |
---|
| 477 | |
---|
| 478 | $fid = strtoupper(preg_replace('/^`(.+)`$/', '$1', $fname)); |
---|
| 479 | $fname = $this->NameQuote($fname); |
---|
| 480 | |
---|
| 481 | if (!strlen($ftype)) { |
---|
| 482 | if ($this->debug) ADOConnection::outp("Undefined TYPE for field '$fname'"); |
---|
| 483 | return false; |
---|
| 484 | } else { |
---|
| 485 | $ftype = strtoupper($ftype); |
---|
| 486 | } |
---|
| 487 | |
---|
| 488 | $ftype = $this->_GetSize($ftype, $ty, $fsize, $fprec); |
---|
| 489 | |
---|
| 490 | if ($ty == 'X' || $ty == 'X2' || $ty == 'B') $fnotnull = false; // some blob types do not accept nulls |
---|
| 491 | |
---|
| 492 | if ($fprimary) $pkey[] = $fname; |
---|
| 493 | |
---|
| 494 | // some databases do not allow blobs to have defaults |
---|
| 495 | if ($ty == 'X') $fdefault = false; |
---|
| 496 | |
---|
| 497 | //-------------------- |
---|
| 498 | // CONSTRUCT FIELD SQL |
---|
| 499 | if ($fdefts) { |
---|
| 500 | if (substr($this->connection->databaseType,0,5) == 'mysql') { |
---|
| 501 | $ftype = 'TIMESTAMP'; |
---|
| 502 | } else { |
---|
| 503 | $fdefault = $this->connection->sysTimeStamp; |
---|
| 504 | } |
---|
| 505 | } else if ($fdefdate) { |
---|
| 506 | if (substr($this->connection->databaseType,0,5) == 'mysql') { |
---|
| 507 | $ftype = 'TIMESTAMP'; |
---|
| 508 | } else { |
---|
| 509 | $fdefault = $this->connection->sysDate; |
---|
| 510 | } |
---|
| 511 | } else if (strlen($fdefault) && !$fnoquote) |
---|
| 512 | if ($ty == 'C' or $ty == 'X' or |
---|
| 513 | ( substr($fdefault,0,1) != "'" && !is_numeric($fdefault))) |
---|
| 514 | if (strlen($fdefault) != 1 && substr($fdefault,0,1) == ' ' && substr($fdefault,strlen($fdefault)-1) == ' ') |
---|
| 515 | $fdefault = trim($fdefault); |
---|
| 516 | else if (strtolower($fdefault) != 'null') |
---|
| 517 | $fdefault = $this->connection->qstr($fdefault); |
---|
| 518 | $suffix = $this->_CreateSuffix($fname,$ftype,$fnotnull,$fdefault,$fautoinc,$fconstraint,$funsigned); |
---|
| 519 | |
---|
| 520 | $fname = str_pad($fname,16); |
---|
| 521 | $lines[$fid] = $fname.' '.$ftype.$suffix; |
---|
| 522 | |
---|
| 523 | if ($fautoinc) $this->autoIncrement = true; |
---|
| 524 | } // foreach $flds |
---|
| 525 | |
---|
| 526 | return array($lines,$pkey); |
---|
| 527 | } |
---|
| 528 | /* |
---|
| 529 | GENERATE THE SIZE PART OF THE DATATYPE |
---|
| 530 | $ftype is the actual type |
---|
| 531 | $ty is the type defined originally in the DDL |
---|
| 532 | */ |
---|
| 533 | function _GetSize($ftype, $ty, $fsize, $fprec) |
---|
| 534 | { |
---|
| 535 | if (strlen($fsize) && $ty != 'X' && $ty != 'B' && strpos($ftype,'(') === false) { |
---|
| 536 | $ftype .= "(".$fsize; |
---|
| 537 | if (strlen($fprec)) $ftype .= ",".$fprec; |
---|
| 538 | $ftype .= ')'; |
---|
| 539 | } |
---|
| 540 | return $ftype; |
---|
| 541 | } |
---|
| 542 | |
---|
| 543 | |
---|
| 544 | // return string must begin with space |
---|
| 545 | function _CreateSuffix($fname,$ftype,$fnotnull,$fdefault,$fautoinc,$fconstraint) |
---|
| 546 | { |
---|
| 547 | $suffix = ''; |
---|
| 548 | if (strlen($fdefault)) $suffix .= " DEFAULT $fdefault"; |
---|
| 549 | if ($fnotnull) $suffix .= ' NOT NULL'; |
---|
| 550 | if ($fconstraint) $suffix .= ' '.$fconstraint; |
---|
| 551 | return $suffix; |
---|
| 552 | } |
---|
| 553 | |
---|
| 554 | function _IndexSQL($idxname, $tabname, $flds, $idxoptions) |
---|
| 555 | { |
---|
| 556 | $sql = array(); |
---|
| 557 | |
---|
| 558 | if ( isset($idxoptions['REPLACE']) || isset($idxoptions['DROP']) ) { |
---|
| 559 | $sql[] = sprintf ($this->dropIndex, $idxname); |
---|
| 560 | if ( isset($idxoptions['DROP']) ) |
---|
| 561 | return $sql; |
---|
| 562 | } |
---|
| 563 | |
---|
| 564 | if ( empty ($flds) ) { |
---|
| 565 | return $sql; |
---|
| 566 | } |
---|
| 567 | |
---|
| 568 | $unique = isset($idxoptions['UNIQUE']) ? ' UNIQUE' : ''; |
---|
| 569 | |
---|
| 570 | $s = 'CREATE' . $unique . ' INDEX ' . $idxname . ' ON ' . $tabname . ' '; |
---|
| 571 | |
---|
| 572 | if ( isset($idxoptions[$this->upperName]) ) |
---|
| 573 | $s .= $idxoptions[$this->upperName]; |
---|
| 574 | |
---|
| 575 | if ( is_array($flds) ) |
---|
| 576 | $flds = implode(', ',$flds); |
---|
| 577 | $s .= '(' . $flds . ')'; |
---|
| 578 | $sql[] = $s; |
---|
| 579 | |
---|
| 580 | return $sql; |
---|
| 581 | } |
---|
| 582 | |
---|
| 583 | function _DropAutoIncrement($tabname) |
---|
| 584 | { |
---|
| 585 | return false; |
---|
| 586 | } |
---|
| 587 | |
---|
| 588 | function _TableSQL($tabname,$lines,$pkey,$tableoptions) |
---|
| 589 | { |
---|
| 590 | $sql = array(); |
---|
| 591 | |
---|
| 592 | if (isset($tableoptions['REPLACE']) || isset ($tableoptions['DROP'])) { |
---|
| 593 | $sql[] = sprintf($this->dropTable,$tabname); |
---|
| 594 | if ($this->autoIncrement) { |
---|
| 595 | $sInc = $this->_DropAutoIncrement($tabname); |
---|
| 596 | if ($sInc) $sql[] = $sInc; |
---|
| 597 | } |
---|
| 598 | if ( isset ($tableoptions['DROP']) ) { |
---|
| 599 | return $sql; |
---|
| 600 | } |
---|
| 601 | } |
---|
| 602 | $s = "CREATE TABLE $tabname (\n"; |
---|
| 603 | $s .= implode(",\n", $lines); |
---|
| 604 | if (sizeof($pkey)>0) { |
---|
| 605 | $s .= ",\n PRIMARY KEY ("; |
---|
| 606 | $s .= implode(", ",$pkey).")"; |
---|
| 607 | } |
---|
| 608 | if (isset($tableoptions['CONSTRAINTS'])) |
---|
| 609 | $s .= "\n".$tableoptions['CONSTRAINTS']; |
---|
| 610 | |
---|
| 611 | if (isset($tableoptions[$this->upperName.'_CONSTRAINTS'])) |
---|
| 612 | $s .= "\n".$tableoptions[$this->upperName.'_CONSTRAINTS']; |
---|
| 613 | |
---|
| 614 | $s .= "\n)"; |
---|
| 615 | if (isset($tableoptions[$this->upperName])) $s .= $tableoptions[$this->upperName]; |
---|
| 616 | $sql[] = $s; |
---|
| 617 | |
---|
| 618 | return $sql; |
---|
| 619 | } |
---|
| 620 | |
---|
| 621 | /* |
---|
| 622 | GENERATE TRIGGERS IF NEEDED |
---|
| 623 | used when table has auto-incrementing field that is emulated using triggers |
---|
| 624 | */ |
---|
| 625 | function _Triggers($tabname,$taboptions) |
---|
| 626 | { |
---|
| 627 | return array(); |
---|
| 628 | } |
---|
| 629 | |
---|
| 630 | /* |
---|
| 631 | Sanitize options, so that array elements with no keys are promoted to keys |
---|
| 632 | */ |
---|
| 633 | function _Options($opts) |
---|
| 634 | { |
---|
| 635 | if (!is_array($opts)) return array(); |
---|
| 636 | $newopts = array(); |
---|
| 637 | foreach($opts as $k => $v) { |
---|
| 638 | if (is_numeric($k)) $newopts[strtoupper($v)] = $v; |
---|
| 639 | else $newopts[strtoupper($k)] = $v; |
---|
| 640 | } |
---|
| 641 | return $newopts; |
---|
| 642 | } |
---|
| 643 | |
---|
| 644 | /* |
---|
| 645 | "Florian Buzin [ easywe ]" <florian.buzin@easywe.de> |
---|
| 646 | |
---|
| 647 | This function changes/adds new fields to your table. You don't |
---|
| 648 | have to know if the col is new or not. It will check on its own. |
---|
| 649 | */ |
---|
| 650 | function ChangeTableSQL($tablename, $flds, $tableoptions = false) |
---|
| 651 | { |
---|
| 652 | // check table exists |
---|
| 653 | $cols = &$this->MetaColumns($tablename); |
---|
| 654 | if ( empty($cols)) { |
---|
| 655 | return $this->CreateTableSQL($tablename, $flds, $tableoptions); |
---|
| 656 | } |
---|
| 657 | |
---|
| 658 | // already exists, alter table instead |
---|
| 659 | list($lines,$pkey) = $this->_GenFields($flds); |
---|
| 660 | $alter = 'ALTER TABLE ' . $this->TableName($tablename); |
---|
| 661 | $sql = array(); |
---|
| 662 | |
---|
| 663 | foreach ( $lines as $id => $v ) { |
---|
| 664 | if ( isset($cols[$id]) && is_object($cols[$id]) ) { |
---|
| 665 | $sql[] = $alter . $this->alterCol . ' ' . $v; |
---|
| 666 | } else { |
---|
| 667 | $sql[] = $alter . $this->addCol . ' ' . $v; |
---|
| 668 | } |
---|
| 669 | } |
---|
| 670 | |
---|
| 671 | return $sql; |
---|
| 672 | } |
---|
| 673 | } // class |
---|
| 674 | ?> |
---|