summaryrefslogtreecommitdiff
path: root/trunk/adodb5/drivers/adodb-text.inc.php
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/adodb5/drivers/adodb-text.inc.php')
-rw-r--r--trunk/adodb5/drivers/adodb-text.inc.php389
1 files changed, 0 insertions, 389 deletions
diff --git a/trunk/adodb5/drivers/adodb-text.inc.php b/trunk/adodb5/drivers/adodb-text.inc.php
deleted file mode 100644
index 04d74882..00000000
--- a/trunk/adodb5/drivers/adodb-text.inc.php
+++ /dev/null
@@ -1,389 +0,0 @@
-<?php
-/*
-V5.18 3 Sep 2012 (c) 2000-2012 John Lim (jlim#natsoft.com). All rights reserved.
- Set tabs to 4.
-*/
-
-/*
-Setup:
-
- $db = NewADOConnection('text');
- $db->Connect($array,[$types],[$colnames]);
-
- Parameter $array is the 2 dimensional array of data. The first row can contain the
- column names. If column names is not defined in first row, you MUST define $colnames,
- the 3rd parameter.
-
- Parameter $types is optional. If defined, it should contain an array matching
- the number of columns in $array, with each element matching the correct type defined
- by MetaType: (B,C,I,L,N). If undefined, we will probe for $this->_proberows rows
- to guess the type. Only C,I and N are recognised.
-
- Parameter $colnames is optional. If defined, it is an array that contains the
- column names of $array. If undefined, we assume the first row of $array holds the
- column names.
-
- The Execute() function will return a recordset. The recordset works like a normal recordset.
- We have partial support for SQL parsing. We process the SQL using the following rules:
-
- 1. SQL order by's always work for the first column ordered. Subsequent cols are ignored
-
- 2. All operations take place on the same table. No joins possible. In fact the FROM clause
- is ignored! You can use any name for the table.
-
- 3. To simplify code, all columns are returned, except when selecting 1 column
-
- $rs = $db->Execute('select col1,col2 from table'); // sql ignored, will generate all cols
-
- We special case handling of 1 column because it is used in filter popups
-
- $rs = $db->Execute('select col1 from table');
- // sql accepted and processed -- any table name is accepted
-
- $rs = $db->Execute('select distinct col1 from table');
- // sql accepted and processed
-
-4. Where clauses are ignored, but searching with the 3rd parameter of Execute is permitted.
- This has to use PHP syntax and we will eval() it. You can even use PHP functions.
-
- $rs = $db->Execute('select * from table',false,"\$COL1='abc' and $\COL2=3")
- // the 3rd param is searched -- make sure that $COL1 is a legal column name
- // and all column names must be in upper case.
-
-4. Group by, having, other clauses are ignored
-
-5. Expression columns, min(), max() are ignored
-
-6. All data is readonly. Only SELECTs permitted.
-*/
-
-// security - hide paths
-if (!defined('ADODB_DIR')) die();
-
-if (! defined("_ADODB_TEXT_LAYER")) {
- define("_ADODB_TEXT_LAYER", 1 );
-
-// for sorting in _query()
-function adodb_cmp($a, $b) {
- if ($a[0] == $b[0]) return 0;
- return ($a[0] < $b[0]) ? -1 : 1;
-}
-// for sorting in _query()
-function adodb_cmpr($a, $b) {
- if ($a[0] == $b[0]) return 0;
- return ($a[0] > $b[0]) ? -1 : 1;
-}
-class ADODB_text extends ADOConnection {
- var $databaseType = 'text';
-
- var $_origarray; // original data
- var $_types;
- var $_proberows = 8;
- var $_colnames;
- var $_skiprow1=false;
- var $readOnly = true;
- var $hasTransactions = false;
-
- var $_rezarray;
- var $_reznames;
- var $_reztypes;
-
- function ADODB_text()
- {
- }
-
- function RSRecordCount()
- {
- if (!empty($this->_rezarray)) return sizeof($this->_rezarray);
-
- return sizeof($this->_origarray);
- }
-
- function _insertid()
- {
- return false;
- }
-
- function _affectedrows()
- {
- return false;
- }
-
- // returns true or false
- function PConnect(&$array, $types = false, $colnames = false)
- {
- return $this->Connect($array, $types, $colnames);
- }
- // returns true or false
- function Connect(&$array, $types = false, $colnames = false)
- {
- if (is_string($array) and $array === 'iluvphplens') return 'me2';
-
- if (!$array) {
- $this->_origarray = false;
- return true;
- }
- $row = $array[0];
- $cols = sizeof($row);
-
-
- if ($colnames) $this->_colnames = $colnames;
- else {
- $this->_colnames = $array[0];
- $this->_skiprow1 = true;
- }
- if (!$types) {
- // probe and guess the type
- $types = array();
- $firstrow = true;
- if ($this->_proberows > sizeof($array)) $max = sizeof($array);
- else $max = $this->_proberows;
- for ($j=($this->_skiprow1)?1:0;$j < $max; $j++) {
- $row = $array[$j];
- if (!$row) break;
- $i = -1;
- foreach($row as $v) {
- $i += 1;
- //print " ($i ".$types[$i]. "$v) ";
- $v = trim($v);
- if (!preg_match('/^[+-]{0,1}[0-9\.]+$/',$v)) {
- $types[$i] = 'C'; // once C, always C
- continue;
- }
- if (isset($types[$i]) && $types[$i]=='C') continue;
- if ($firstrow) {
- // If empty string, we presume is character
- // test for integer for 1st row only
- // after that it is up to testing other rows to prove
- // that it is not an integer
- if (strlen($v) == 0) $types[0] = 'C';
- if (strpos($v,'.') !== false) $types[0] = 'N';
- else $types[$i] = 'I';
- continue;
- }
-
- if (strpos($v,'.') !== false) $types[$i] = 'N';
-
- }
- $firstrow = false;
- }
- }
- //print_r($types);
- $this->_origarray = $array;
- $this->_types = $types;
- return true;
- }
-
-
-
- // returns queryID or false
- // We presume that the select statement is on the same table (what else?),
- // with the only difference being the order by.
- //You can filter by using $eval and each clause is stored in $arr .eg. $arr[1] == 'name'
- // also supports SELECT [DISTINCT] COL FROM ... -- only 1 col supported
- function _query($sql,$input_arr,$eval=false)
- {
- if ($this->_origarray === false) return false;
-
- $eval = $this->evalAll;
- $usql = strtoupper(trim($sql));
- $usql = preg_replace("/[\t\n\r]/",' ',$usql);
- $usql = preg_replace('/ *BY/i',' BY',strtoupper($usql));
-
- $eregword ='([A-Z_0-9]*)';
- //print "<BR> $sql $eval ";
- if ($eval) {
- $i = 0;
- foreach($this->_colnames as $n) {
- $n = strtoupper(trim($n));
- $eval = str_replace("\$$n","\$arr[$i]",$eval);
-
- $i += 1;
- }
-
- $i = 0;
- $eval = "\$rez=($eval);";
- //print "<p>Eval string = $eval </p>";
- $where_arr = array();
-
- reset($this->_origarray);
- while (list($k_arr,$arr) = each($this->_origarray)) {
-
- if ($i == 0 && $this->_skiprow1)
- $where_arr[] = $arr;
- else {
- eval($eval);
- //print " $i: result=$rez arr[0]={$arr[0]} arr[1]={$arr[1]} <BR>\n ";
- if ($rez) $where_arr[] = $arr;
- }
- $i += 1;
- }
- $this->_rezarray = $where_arr;
- }else
- $where_arr = $this->_origarray;
-
- // THIS PROJECTION CODE ONLY WORKS FOR 1 COLUMN,
- // OTHERWISE IT RETURNS ALL COLUMNS
- if (substr($usql,0,7) == 'SELECT ') {
- $at = strpos($usql,' FROM ');
- $sel = trim(substr($usql,7,$at-7));
-
- $distinct = false;
- if (substr($sel,0,8) == 'DISTINCT') {
- $distinct = true;
- $sel = trim(substr($sel,8,$at));
- }
-
- // $sel holds the selection clause, comma delimited
- // currently we only project if one column is involved
- // this is to support popups in PHPLens
- if (strpos(',',$sel)===false) {
- $colarr = array();
-
- preg_match("/$eregword/",$sel,$colarr);
- $col = $colarr[1];
- $i = 0;
- $n = '';
- reset($this->_colnames);
- while (list($k_n,$n) = each($this->_colnames)) {
-
- if ($col == strtoupper(trim($n))) break;
- $i += 1;
- }
-
- if ($n && $col) {
- $distarr = array();
- $projarray = array();
- $projtypes = array($this->_types[$i]);
- $projnames = array($n);
-
- reset($where_arr);
- while (list($k_a,$a) = each($where_arr)) {
- if ($i == 0 && $this->_skiprow1) {
- $projarray[] = array($n);
- continue;
- }
-
- if ($distinct) {
- $v = strtoupper($a[$i]);
- if (! $distarr[$v]) {
- $projarray[] = array($a[$i]);
- $distarr[$v] = 1;
- }
- } else
- $projarray[] = array($a[$i]);
-
- } //foreach
- //print_r($projarray);
- }
- } // check 1 column in projection
- } // is SELECT
-
- if (empty($projarray)) {
- $projtypes = $this->_types;
- $projarray = $where_arr;
- $projnames = $this->_colnames;
- }
- $this->_rezarray = $projarray;
- $this->_reztypes = $projtypes;
- $this->_reznames = $projnames;
-
-
- $pos = strpos($usql,' ORDER BY ');
- if ($pos === false) return $this;
- $orderby = trim(substr($usql,$pos+10));
-
- preg_match("/$eregword/",$orderby,$arr);
- if (sizeof($arr) < 2) return $this; // actually invalid sql
- $col = $arr[1];
- $at = (integer) $col;
- if ($at == 0) {
- $i = 0;
- reset($projnames);
- while (list($k_n,$n) = each($projnames)) {
- if (strtoupper(trim($n)) == $col) {
- $at = $i+1;
- break;
- }
- $i += 1;
- }
- }
-
- if ($at <= 0 || $at > sizeof($projarray[0])) return $this; // cannot find sort column
- $at -= 1;
-
- // generate sort array consisting of (sortval1, row index1) (sortval2, row index2)...
- $sorta = array();
- $t = $projtypes[$at];
- $num = ($t == 'I' || $t == 'N');
- for ($i=($this->_skiprow1)?1:0, $max = sizeof($projarray); $i < $max; $i++) {
- $row = $projarray[$i];
- $val = ($num)?(float)$row[$at]:$row[$at];
- $sorta[]=array($val,$i);
- }
-
- // check for desc sort
- $orderby = substr($orderby,strlen($col)+1);
- $arr == array();
- preg_match('/([A-Z_0-9]*)/i',$orderby,$arr);
-
- if (trim($arr[1]) == 'DESC') $sortf = 'adodb_cmpr';
- else $sortf = 'adodb_cmp';
-
- // hasta la sorta babe
- usort($sorta, $sortf);
-
- // rearrange original array
- $arr2 = array();
- if ($this->_skiprow1) $arr2[] = $projarray[0];
- foreach($sorta as $v) {
- $arr2[] = $projarray[$v[1]];
- }
-
- $this->_rezarray = $arr2;
- return $this;
- }
-
- /* Returns: the last error message from previous database operation */
- function ErrorMsg()
- {
- return '';
- }
-
- /* Returns: the last error number from previous database operation */
- function ErrorNo()
- {
- return 0;
- }
-
- // returns true or false
- function _close()
- {
- }
-
-
-}
-
-/*--------------------------------------------------------------------------------------
- Class Name: Recordset
---------------------------------------------------------------------------------------*/
-
-
-class ADORecordSet_text extends ADORecordSet_array
-{
-
- var $databaseType = "text";
-
- function ADORecordSet_text(&$conn,$mode=false)
- {
- $this->ADORecordSet_array();
- $this->InitArray($conn->_rezarray,$conn->_reztypes,$conn->_reznames);
- $conn->_rezarray = false;
- }
-
-} // class ADORecordSet_text
-
-
-} // defined
-
-?> \ No newline at end of file
generated by cgit v1.3 (git 2.53.0) at 2026-07-11 17:53:38 +0000