[Phpgroupware-cvs] phpgwapi/inc/adodb/datadict/datadict-db2.inc.php, 1.1.2.1

[nomail]

Update of /phpgwapi/inc/adodb/datadict
Added Files:
        Branch: proposed-0_9_18-branch
          datadict-db2.inc.php

date: 2004/12/30 04:51:48;  author: skwashd;  state: Exp;  lines: +143 -0

Log Message:
switch to ADOdb
=====================================================================
<?php

/**
  V4.54 5 Nov 2004  (c) 2000-2004 John Lim (address@hidden). All rights 
reserved.
  Released under both BSD license and Lesser GPL library license. 
  Whenever there is any discrepancy between the two licenses, 
  the BSD license will take precedence.
        
  Set tabs to 4 for best viewing.
 
*/
// security - hide paths
if (!defined('ADODB_DIR')) die();

class ADODB2_db2 extends ADODB_DataDict {
        
        var $databaseType = 'db2';
        var $seqField = false;
        
        function ActualType($meta)
        {
                switch($meta) {
                case 'C': return 'VARCHAR';
                case 'XL': return 'CLOB';
                case 'X': return 'VARCHAR(3600)'; 

                case 'C2': return 'VARCHAR'; // up to 32K
                case 'X2': return 'VARCHAR(3600)'; // up to 32000, but default 
page size too small

                case 'B': return 'BLOB';

                case 'D': return 'DATE';
                case 'T': return 'TIMESTAMP';

                case 'L': return 'SMALLINT';
                case 'I': return 'INTEGER';
                case 'I1': return 'SMALLINT';
                case 'I2': return 'SMALLINT';
                case 'I4': return 'INTEGER';
                case 'I8': return 'BIGINT';

                case 'F': return 'DOUBLE';
                case 'N': return 'DECIMAL';
                default:
                        return $meta;
                }
        }
        
        // return string must begin with space
        function 
_CreateSuffix($fname,$ftype,$fnotnull,$fdefault,$fautoinc,$fconstraint)
        {       
                $suffix = '';
                if ($fautoinc) return ' GENERATED ALWAYS AS IDENTITY'; # as 
identity start with 
                if (strlen($fdefault)) $suffix .= " DEFAULT $fdefault";
                if ($fnotnull) $suffix .= ' NOT NULL';
                if ($fconstraint) $suffix .= ' '.$fconstraint;
                return $suffix;
        }

        function AlterColumnSQL($tabname, $flds)
        {
                if ($this->debug) ADOConnection::outp("AlterColumnSQL not 
supported");
                return array();
        }
        
        
        function DropColumnSQL($tabname, $flds)
        {
                if ($this->debug) ADOConnection::outp("DropColumnSQL not 
supported");
                return array();
        }
        
        
        function xChangeTableSQL($tablename, $flds, $tableoptions = false)
        {
                
                /**
                  Allow basic table changes to DB2 databases
                  DB2 will fatally reject changes to non character columns 

                */
                
                $validTypes = array("CHAR","VARC");
                $invalidTypes = array("BIGI","BLOB","CLOB","DATE", 
"DECI","DOUB", "INTE", "REAL","SMAL", "TIME");
                // check table exists
                $cols = &$this->MetaColumns($tablename);
                if ( empty($cols)) { 
                        return $this->CreateTableSQL($tablename, $flds, 
$tableoptions);
                }
                
                // already exists, alter table instead
                list($lines,$pkey) = $this->_GenFields($flds);
                $alter = 'ALTER TABLE ' . $this->TableName($tablename);
                $sql = array();
                
                foreach ( $lines as $id => $v ) {
                        if ( isset($cols[$id]) && is_object($cols[$id]) ) {
                                /**
                                  If the first field of $v is the fieldname, and
                                  the second is the field type/size, we assume 
its an
                                  attempt to modify the column size, so check 
that it is allowed
                                  $v can have an indeterminate number of blanks 
between the
                                  fields, so account for that too
                                 */
                                $vargs = explode(' ' , $v);
                                // assume that $vargs[0] is the field name.
                                $i=0;
                                // Find the next non-blank value;
                                for ($i=1;$i<sizeof($vargs);$i++)
                                        if ($vargs[$i] != '')
                                                break;
                                
                                // if $vargs[$i] is one of the following, we 
are trying to change the
                                // size of the field, if not allowed, simply 
ignore the request.
                                if 
(in_array(substr($vargs[$i],0,4),$invalidTypes)) 
                                        continue;
                                // insert the appropriate DB2 syntax
                                if 
(in_array(substr($vargs[$i],0,4),$validTypes)) {
                                        
array_splice($vargs,$i,0,array('SET','DATA','TYPE'));
                                }

                                // Now Look for the NOT NULL statement as this 
is not allowed in
                                // the ALTER table statement. If it is in 
there, remove it
                                if (in_array('NOT',$vargs) && 
in_array('NULL',$vargs)) {
                                        for ($i=1;$i<sizeof($vargs);$i++)
                                        if ($vargs[$i] == 'NOT')
                                                break;
                                        array_splice($vargs,$i,2,'');
                                }
                                $v = implode(' ',$vargs);       
                                $sql[] = $alter . $this->alterCol . ' ' . $v;
                        } else {
                                $sql[] = $alter . $this->addCol . ' ' . $v;
                        }
                }
                
                return $sql;
        }
        
}


?>