gacl/adodb/datadict/datadict-sybase.inc.php

   1 <?php
   2
   3 /**
   4   V4.92a 29 Aug 2006  (c) 2000-2006 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 */
  12
  13 // security - hide paths
  14 if (!defined('ADODB_DIR')) die();
  15
  16 class ADODB2_sybase extends ADODB_DataDict {
  17         var $databaseType = 'sybase';
  18
  19         var $dropIndex = 'DROP INDEX %2$s.%1$s';
  20
  21         function MetaType($t,$len=-1,$fieldobj=false)
  22         {
  23                 if (is_object($t)) {
  24                         $fieldobj = $t;
  25                         $t = $fieldobj->type;
  26                         $len = $fieldobj->max_length;
  27                 }
  28
  29                 $len = -1; // mysql max_length is not accurate
  30                 switch (strtoupper($t)) {
  31
  32                 case 'INT':
  33                 case 'INTEGER': return  'I';
  34                 case 'BIT':
  35                 case 'TINYINT': return  'I1';
  36                 case 'SMALLINT': return 'I2';
  37                 case 'BIGINT':  return  'I8';
  38
  39                 case 'REAL':
  40                 case 'FLOAT': return 'F';
  41                 default: return parent::MetaType($t,$len,$fieldobj);
  42                 }
  43         }
  44
  45         function ActualType($meta)
  46         {
  47                 switch(strtoupper($meta)) {
  48                 case 'C': return 'VARCHAR';
  49                 case 'XL':
  50                 case 'X': return 'TEXT';
  51
  52                 case 'C2': return 'NVARCHAR';
  53                 case 'X2': return 'NTEXT';
  54
  55                 case 'B': return 'IMAGE';
  56
  57                 case 'D': return 'DATETIME';
  58                 case 'T': return 'DATETIME';
  59                 case 'L': return 'BIT';
  60
  61                 case 'I': return 'INT';
  62                 case 'I1': return 'TINYINT';
  63                 case 'I2': return 'SMALLINT';
  64                 case 'I4': return 'INT';
  65                 case 'I8': return 'BIGINT';
  66
  67                 case 'F': return 'REAL';
  68                 case 'N': return 'NUMERIC';
  69                 default:
  70                         return $meta;
  71                 }
  72         }
  73
  74
  75         function AddColumnSQL($tabname, $flds)
  76         {
  77                 $tabname = $this->TableName ($tabname);
  78                 $f = array();
  79                 list($lines,$pkey) = $this->_GenFields($flds);
  80                 $s = "ALTER TABLE $tabname $this->addCol";
  81                 foreach($lines as $v) {
  82                         $f[] = "\n $v";
  83                 }
  84                 $s .= implode(', ',$f);
  85                 $sql[] = $s;
  86                 return $sql;
  87         }
  88
  89         function AlterColumnSQL($tabname, $flds)
  90         {
  91                 $tabname = $this->TableName ($tabname);
  92                 $sql = array();
  93                 list($lines,$pkey) = $this->_GenFields($flds);
  94                 foreach($lines as $v) {
  95                         $sql[] = "ALTER TABLE $tabname $this->alterCol $v";
  96                 }
  97
  98                 return $sql;
  99         }
 100
 101         function DropColumnSQL($tabname, $flds)
 102         {
 103                 $tabname = $this->TableName($tabname);
 104                 if (!is_array($flds)) $flds = explode(',',$flds);
 105                 $f = array();
 106                 $s = "ALTER TABLE $tabname";
 107                 foreach($flds as $v) {
 108                         $f[] = "\n$this->dropCol ".$this->NameQuote($v);
 109                 }
 110                 $s .= implode(', ',$f);
 111                 $sql[] = $s;
 112                 return $sql;
 113         }
 114
 115         // return string must begin with space
 116         function _CreateSuffix($fname,$ftype,$fnotnull,$fdefault,$fautoinc,$fconstraint)
 117         {
 118                 $suffix = '';
 119                 if (strlen($fdefault)) $suffix .= " DEFAULT $fdefault";
 120                 if ($fautoinc) $suffix .= ' DEFAULT AUTOINCREMENT';
 121                 if ($fnotnull) $suffix .= ' NOT NULL';
 122                 else if ($suffix == '') $suffix .= ' NULL';
 123                 if ($fconstraint) $suffix .= ' '.$fconstraint;
 124                 return $suffix;
 125         }
 126
 127         /*
 128 CREATE TABLE
 129     [ database_name.[ owner ] . | owner. ] table_name
 130     ( { < column_definition >
 131         | column_name AS computed_column_expression
 132         | < table_constraint > ::= [ CONSTRAINT constraint_name ] }
 133
 134             | [ { PRIMARY KEY | UNIQUE } [ ,...n ]
 135     )
 136
 137 [ ON { filegroup | DEFAULT } ]
 138 [ TEXTIMAGE_ON { filegroup | DEFAULT } ]
 139
 140 < column_definition > ::= { column_name data_type }
 141     [ COLLATE < collation_name > ]
 142     [ [ DEFAULT constant_expression ]
 143         | [ IDENTITY [ ( seed , increment ) [ NOT FOR REPLICATION ] ] ]
 144     ]
 145     [ ROWGUIDCOL]
 146     [ < column_constraint > ] [ ...n ]
 147
 148 < column_constraint > ::= [ CONSTRAINT constraint_name ]
 149     { [ NULL | NOT NULL ]
 150         | [ { PRIMARY KEY | UNIQUE }
 151             [ CLUSTERED | NONCLUSTERED ]
 152             [ WITH FILLFACTOR = fillfactor ]
 153             [ON {filegroup | DEFAULT} ] ]
 154         ]
 155         | [ [ FOREIGN KEY ]
 156             REFERENCES ref_table [ ( ref_column ) ]
 157             [ ON DELETE { CASCADE | NO ACTION } ]
 158             [ ON UPDATE { CASCADE | NO ACTION } ]
 159             [ NOT FOR REPLICATION ]
 160         ]
 161         | CHECK [ NOT FOR REPLICATION ]
 162         ( logical_expression )
 163     }
 164
 165 < table_constraint > ::= [ CONSTRAINT constraint_name ]
 166     { [ { PRIMARY KEY | UNIQUE }
 167         [ CLUSTERED | NONCLUSTERED ]
 168         { ( column [ ASC | DESC ] [ ,...n ] ) }
 169         [ WITH FILLFACTOR = fillfactor ]
 170         [ ON { filegroup | DEFAULT } ]
 171     ]
 172     | FOREIGN KEY
 173         [ ( column [ ,...n ] ) ]
 174         REFERENCES ref_table [ ( ref_column [ ,...n ] ) ]
 175         [ ON DELETE { CASCADE | NO ACTION } ]
 176         [ ON UPDATE { CASCADE | NO ACTION } ]
 177         [ NOT FOR REPLICATION ]
 178     | CHECK [ NOT FOR REPLICATION ]
 179         ( search_conditions )
 180     }
 181
 182
 183         */
 184
 185         /*
 186         CREATE [ UNIQUE ] [ CLUSTERED | NONCLUSTERED ] INDEX index_name
 187     ON { table | view } ( column [ ASC | DESC ] [ ,...n ] )
 188                 [ WITH < index_option > [ ,...n] ]
 189                 [ ON filegroup ]
 190                 < index_option > :: =
 191                     { PAD_INDEX |
 192                         FILLFACTOR = fillfactor |
 193                         IGNORE_DUP_KEY |
 194                         DROP_EXISTING |
 195                     STATISTICS_NORECOMPUTE |
 196                     SORT_IN_TEMPDB
 197                 }
 198 */
 199         function _IndexSQL($idxname, $tabname, $flds, $idxoptions)
 200         {
 201                 $sql = array();
 202
 203                 if ( isset($idxoptions['REPLACE']) || isset($idxoptions['DROP']) ) {
 204                         $sql[] = sprintf ($this->dropIndex, $idxname, $tabname);
 205                         if ( isset($idxoptions['DROP']) )
 206                                 return $sql;
 207                 }
 208
 209                 if ( empty ($flds) ) {
 210                         return $sql;
 211                 }
 212
 213                 $unique = isset($idxoptions['UNIQUE']) ? ' UNIQUE' : '';
 214                 $clustered = isset($idxoptions['CLUSTERED']) ? ' CLUSTERED' : '';
 215
 216                 if ( is_array($flds) )
 217                         $flds = implode(', ',$flds);
 218                 $s = 'CREATE' . $unique . $clustered . ' INDEX ' . $idxname . ' ON ' . $tabname . ' (' . $flds . ')';
 219
 220                 if ( isset($idxoptions[$this->upperName]) )
 221                         $s .= $idxoptions[$this->upperName];
 222
 223                 $sql[] = $s;
 224
 225                 return $sql;
 226         }
 227 }
 228 ?>