[TASK] Update ADOdb to 5.18
[Packages/TYPO3.CMS.git] / typo3 / sysext / adodb / adodb / drivers / adodb-pdo_sqlite.inc.php
1 <?php
2
3 /*
4 V5.18 3 Sep 2012 (c) 2000-2012 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. See License.txt.
8 Set tabs to 4 for best viewing.
9
10 Latest version is available at http://adodb.sourceforge.net
11
12 Thanks Diogo Toscano (diogo#scriptcase.net) for the code.
13 And also Sid Dunayer [sdunayer#interserv.com] for extensive fixes.
14 */
15
16 class ADODB_pdo_sqlite extends ADODB_pdo {
17 var $metaTablesSQL = "SELECT name FROM sqlite_master WHERE type='table'";
18 var $sysDate = 'current_date';
19 var $sysTimeStamp = 'current_timestamp';
20 var $nameQuote = '`';
21 var $replaceQuote = "''";
22 var $hasGenID = true;
23 var $_genIDSQL = "UPDATE %s SET id=id+1 WHERE id=%s";
24 var $_genSeqSQL = "CREATE TABLE %s (id integer)";
25 var $_genSeqCountSQL = 'SELECT COUNT(*) FROM %s';
26 var $_genSeq2SQL = 'INSERT INTO %s VALUES(%s)';
27 var $_dropSeqSQL = 'DROP TABLE %s';
28 var $concat_operator = '||';
29 var $pdoDriver = false;
30 var $random='abs(random())';
31
32 function _init($parentDriver)
33 {
34 $this->pdoDriver = $parentDriver;
35 $parentDriver->_bindInputArray = true;
36 $parentDriver->hasTransactions = false; // // should be set to false because of PDO SQLite driver not supporting changing autocommit mode
37 $parentDriver->hasInsertID = true;
38 }
39
40 function ServerInfo()
41 {
42 $parent = $this->pdoDriver;
43 @($ver = array_pop($parent->GetCol("SELECT sqlite_version()")));
44 @($enc = array_pop($parent->GetCol("PRAGMA encoding")));
45
46 $arr['version'] = $ver;
47 $arr['description'] = 'SQLite ';
48 $arr['encoding'] = $enc;
49
50 return $arr;
51 }
52
53 function SelectLimit($sql,$nrows=-1,$offset=-1,$inputarr=false,$secs2cache=0)
54 {
55 $parent = $this->pdoDriver;
56 $offsetStr = ($offset >= 0) ? " OFFSET $offset" : '';
57 $limitStr = ($nrows >= 0) ? " LIMIT $nrows" : ($offset >= 0 ? ' LIMIT 999999999' : '');
58 if ($secs2cache)
59 $rs = $parent->CacheExecute($secs2cache,$sql."$limitStr$offsetStr",$inputarr);
60 else
61 $rs = $parent->Execute($sql."$limitStr$offsetStr",$inputarr);
62
63 return $rs;
64 }
65
66 function GenID($seq='adodbseq',$start=1)
67 {
68 $parent = $this->pdoDriver;
69 // if you have to modify the parameter below, your database is overloaded,
70 // or you need to implement generation of id's yourself!
71 $MAXLOOPS = 100;
72 while (--$MAXLOOPS>=0) {
73 @($num = array_pop($parent->GetCol("SELECT id FROM {$seq}")));
74 if ($num === false || !is_numeric($num)) {
75 @$parent->Execute(sprintf($this->_genSeqSQL ,$seq));
76 $start -= 1;
77 $num = '0';
78 $cnt = $parent->GetOne(sprintf($this->_genSeqCountSQL,$seq));
79 if (!$cnt) {
80 $ok = $parent->Execute(sprintf($this->_genSeq2SQL,$seq,$start));
81 }
82 if (!$ok) return false;
83 }
84 $parent->Execute(sprintf($this->_genIDSQL,$seq,$num));
85
86 if ($parent->affected_rows() > 0) {
87 $num += 1;
88 $parent->genID = intval($num);
89 return intval($num);
90 }
91 }
92 if ($fn = $parent->raiseErrorFn) {
93 $fn($parent->databaseType,'GENID',-32000,"Unable to generate unique id after $MAXLOOPS attempts",$seq,$num);
94 }
95 return false;
96 }
97
98 function CreateSequence($seqname='adodbseq',$start=1)
99 {
100 $parent = $this->pdoDriver;
101 $ok = $parent->Execute(sprintf($this->_genSeqSQL,$seqname));
102 if (!$ok) return false;
103 $start -= 1;
104 return $parent->Execute("insert into $seqname values($start)");
105 }
106
107 function SetTransactionMode($transaction_mode)
108 {
109 $parent = $this->pdoDriver;
110 $parent->_transmode = strtoupper($transaction_mode);
111 }
112
113 function BeginTrans()
114 {
115 $parent = $this->pdoDriver;
116 if ($parent->transOff) return true;
117 $parent->transCnt += 1;
118 $parent->_autocommit = false;
119 return $parent->Execute("BEGIN {$parent->_transmode}");
120 }
121
122 function CommitTrans($ok=true)
123 {
124 $parent = $this->pdoDriver;
125 if ($parent->transOff) return true;
126 if (!$ok) return $parent->RollbackTrans();
127 if ($parent->transCnt) $parent->transCnt -= 1;
128 $parent->_autocommit = true;
129
130 $ret = $parent->Execute('COMMIT');
131 return $ret;
132 }
133
134 function RollbackTrans()
135 {
136 $parent = $this->pdoDriver;
137 if ($parent->transOff) return true;
138 if ($parent->transCnt) $parent->transCnt -= 1;
139 $parent->_autocommit = true;
140
141 $ret = $parent->Execute('ROLLBACK');
142 return $ret;
143 }
144
145
146 // mark newnham
147 function MetaColumns($tab,$normalize=true)
148 {
149 global $ADODB_FETCH_MODE;
150
151 $parent = $this->pdoDriver;
152 $false = false;
153 $save = $ADODB_FETCH_MODE;
154 $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
155 if ($parent->fetchMode !== false) $savem = $parent->SetFetchMode(false);
156 $rs = $parent->Execute("PRAGMA table_info('$tab')");
157 if (isset($savem)) $parent->SetFetchMode($savem);
158 if (!$rs) {
159 $ADODB_FETCH_MODE = $save;
160 return $false;
161 }
162 $arr = array();
163 while ($r = $rs->FetchRow()) {
164 $type = explode('(',$r['type']);
165 $size = '';
166 if (sizeof($type)==2)
167 $size = trim($type[1],')');
168 $fn = strtoupper($r['name']);
169 $fld = new ADOFieldObject;
170 $fld->name = $r['name'];
171 $fld->type = $type[0];
172 $fld->max_length = $size;
173 $fld->not_null = $r['notnull'];
174 $fld->primary_key = $r['pk'];
175 $fld->default_value = $r['dflt_value'];
176 $fld->scale = 0;
177 if ($save == ADODB_FETCH_NUM) $arr[] = $fld;
178 else $arr[strtoupper($fld->name)] = $fld;
179 }
180 $rs->Close();
181 $ADODB_FETCH_MODE = $save;
182 return $arr;
183 }
184
185 function MetaTables($ttype=false,$showSchema=false,$mask=false)
186 {
187 $parent = $this->pdoDriver;
188
189 if ($mask) {
190 $save = $this->metaTablesSQL;
191 $mask = $this->qstr(strtoupper($mask));
192 $this->metaTablesSQL .= " AND name LIKE $mask";
193 }
194
195 $ret = $parent->GetCol($this->metaTablesSQL);
196
197 if ($mask) {
198 $this->metaTablesSQL = $save;
199 }
200 return $ret;
201 }
202 }
203 ?>