WebSVN – Applications.gtt – Diff – /trunk/bibliotheque/pear/DB/dbase.php


<?php
 
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
 
/**
 * The PEAR DB driver for PHP's dbase extension
 * for interacting with dBase databases
 *
 * PHP version 5
 *
 * LICENSE: This source file is subject to version 3.0 of the PHP license
 * that is available through the world-wide-web at the following URI:
 * http://www.php.net/license/3_0.txt.  If you did not receive a copy of
 * the PHP License and are unable to obtain it through the web, please
 * send a note to license@php.net so we can mail you a copy immediately.
 *
 * @category   Database
 * @package    DB
 * @author     Tomas V.V. Cox <cox@idecnet.com>
 * @author     Daniel Convissor <danielc@php.net>
 * @copyright  1997-2007 The PHP Group
 * @license    http://www.php.net/license/3_0.txt  PHP License 3.0
 * @version    CVS: $Id$
 * @link       http://pear.php.net/package/DB
 */
 
/**
 * Obtain the DB_common class so it can be extended from
 */
require_once 'DB/common.php';
 
/**
 * The methods PEAR DB uses to interact with PHP's dbase extension
 * for interacting with dBase databases
 *
 * These methods overload the ones declared in DB_common.
 *
 * @category   Database
 * @package    DB
 * @author     Tomas V.V. Cox <cox@idecnet.com>
 * @author     Daniel Convissor <danielc@php.net>
 * @copyright  1997-2007 The PHP Group
 * @license    http://www.php.net/license/3_0.txt  PHP License 3.0
 * @version    Release: 1.9.2
 * @link       http://pear.php.net/package/DB
 */
class DB_dbase extends DB_common
{
    // {{{ properties
 
    /**
     * The DB driver type (mysql, oci8, odbc, etc.)
     * @var string
     */
    var $phptype = 'dbase';
 
    /**
     * The database syntax variant to be used (db2, access, etc.), if any
     * @var string
     */
    var $dbsyntax = 'dbase';
 
    /**
     * The capabilities of this DB implementation
     *
     * The 'new_link' element contains the PHP version that first provided
     * new_link support for this DBMS.  Contains false if it's unsupported.
     *
     * Meaning of the 'limit' element:
     *   + 'emulate' = emulate with fetch row by number
     *   + 'alter'   = alter the query
     *   + false     = skip rows
     *
     * @var array
     */
    var $features = array(
        'limit'         => false,
        'new_link'      => false,
        'numrows'       => true,
        'pconnect'      => false,
        'prepare'       => false,
        'ssl'           => false,
        'transactions'  => false,
    );
 
    /**
     * A mapping of native error codes to DB error codes
     * @var array
     */
    var $errorcode_map = array(
    );
 
    /**
     * The raw database connection created by PHP
     * @var resource
     */
    var $connection;
 
    /**
     * The DSN information for connecting to a database
     * @var array
     */
    var $dsn = array();
 
 
    /**
     * A means of emulating result resources
     * @var array
     */
    var $res_row = array();
 
    /**
     * The quantity of results so far
     *
     * For emulating result resources.
     *
     * @var integer
     */
    var $result = 0;
 
    /**
     * Maps dbase data type id's to human readable strings
     *
     * The human readable values are based on the output of PHP's
     * dbase_get_header_info() function.
     *
     * @var array
     * @since Property available since Release 1.7.0
     */
    var $types = array(
        'C' => 'character',
        'D' => 'date',
        'L' => 'boolean',
        'M' => 'memo',
        'N' => 'number',
    );
 
 
    // }}}
    // {{{ constructor
 
    /**
     * This constructor calls <kbd>parent::__construct()</kbd>
     *
     * @return void
     */
    function __construct()
    {
        parent::__construct();
    }
 
    // }}}
    // {{{ connect()
 
    /**
     * Connect to the database and create it if it doesn't exist
     *
     * Don't call this method directly.  Use DB::connect() instead.
     *
     * PEAR DB's dbase driver supports the following extra DSN options:
     *   + mode    An integer specifying the read/write mode to use
     *              (0 = read only, 1 = write only, 2 = read/write).
     *              Available since PEAR DB 1.7.0.
     *   + fields  An array of arrays that PHP's dbase_create() function needs
     *              to create a new database.  This information is used if the
     *              dBase file specified in the "database" segment of the DSN
     *              does not exist.  For more info, see the PHP manual's
     *              {@link http://php.net/dbase_create dbase_create()} page.
     *              Available since PEAR DB 1.7.0.
     *
     * Example of how to connect and establish a new dBase file if necessary:
     * <code>
     * require_once 'DB.php';
     *
     * $dsn = array(
     *     'phptype'  => 'dbase',
     *     'database' => '/path/and/name/of/dbase/file',
     *     'mode'     => 2,
     *     'fields'   => array(
     *         array('a', 'N', 5, 0),
     *         array('b', 'C', 40),
     *         array('c', 'C', 255),
     *         array('d', 'C', 20),
     *     ),
     * );
     * $options = array(
     *     'debug'       => 2,
     *     'portability' => DB_PORTABILITY_ALL,
     * );
     *
     * $db = DB::connect($dsn, $options);
     * if (PEAR::isError($db)) {
     *     die($db->getMessage());
     * }
     * </code>
     *
     * @param array $dsn         the data source name
     * @param bool  $persistent  should the connection be persistent?
     *
     * @return int  DB_OK on success. A DB_Error object on failure.
     */
    function connect($dsn, $persistent = false)
    {
        if (!PEAR::loadExtension('dbase')) {
            return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
        }
 
        $this->dsn = $dsn;
        if ($dsn['dbsyntax']) {
            $this->dbsyntax = $dsn['dbsyntax'];
        }
 
        /*
         * Turn track_errors on for entire script since $php_errormsg
         * is the only way to find errors from the dbase extension.
         */
        @ini_set('track_errors', 1);
        $php_errormsg = '';
 
        if (!file_exists($dsn['database'])) {
            $this->dsn['mode'] = 2;
            if (empty($dsn['fields']) || !is_array($dsn['fields'])) {
                return $this->raiseError(DB_ERROR_CONNECT_FAILED,
                                         null, null, null,
                                         'the dbase file does not exist and '
                                         . 'it could not be created because '
                                         . 'the "fields" element of the DSN '
                                         . 'is not properly set');
            }
            $this->connection = @dbase_create($dsn['database'],
                                              $dsn['fields']);
            if (!$this->connection) {
                return $this->raiseError(DB_ERROR_CONNECT_FAILED,
                                         null, null, null,
                                         'the dbase file does not exist and '
                                         . 'the attempt to create it failed: '
                                         . $php_errormsg);
            }
        } else {
            if (!isset($this->dsn['mode'])) {
                $this->dsn['mode'] = 0;
            }
            $this->connection = @dbase_open($dsn['database'],
                                            $this->dsn['mode']);
            if (!$this->connection) {
                return $this->raiseError(DB_ERROR_CONNECT_FAILED,
                                         null, null, null,
                                         $php_errormsg);
            }
        }
        return DB_OK;
    }
 
    // }}}
    // {{{ disconnect()
 
    /**
     * Disconnects from the database server
     *
     * @return bool  TRUE on success, FALSE on failure
     */
    function disconnect()
    {
        $ret = @dbase_close($this->connection);
        $this->connection = null;
        return $ret;
    }
 
    // }}}
    // {{{ &query()
 
    function &query($query = null)
    {
        // emulate result resources
        $this->res_row[(int)$this->result] = 0;
        $tmp = new DB_result($this, $this->result++);
        return $tmp;
    }
 
    // }}}
    // {{{ fetchInto()
 
    /**
     * Places a row from the result set into the given array
     *
     * Formating of the array and the data therein are configurable.
     * See DB_result::fetchInto() for more information.
     *
     * This method is not meant to be called directly.  Use
     * DB_result::fetchInto() instead.  It can't be declared "protected"
     * because DB_result is a separate object.
     *
     * @param resource $result    the query result resource
     * @param array    $arr       the referenced array to put the data in
     * @param int      $fetchmode how the resulting array should be indexed
     * @param int      $rownum    the row number to fetch (0 = first row)
     *
     * @return mixed  DB_OK on success, NULL when the end of a result set is
     *                 reached or on failure
     *
     * @see DB_result::fetchInto()
     */
    function fetchInto($result, &$arr, $fetchmode, $rownum = null)
    {
        if ($rownum === null) {
            $rownum = $this->res_row[(int)$result]++;
        }
        if ($fetchmode & DB_FETCHMODE_ASSOC) {
            $arr = @dbase_get_record_with_names($this->connection, $rownum);
            if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
                $arr = array_change_key_case($arr, CASE_LOWER);
            }
        } else {
            $arr = @dbase_get_record($this->connection, $rownum);
        }
        if (!$arr) {
            return null;
        }
        if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
            $this->_rtrimArrayValues($arr);
        }
        if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
            $this->_convertNullArrayValuesToEmpty($arr);
        }
        return DB_OK;
    }
 
    // }}}
    // {{{ freeResult()
 
    /**
     * Deletes the result set and frees the memory occupied by the result set.
     *
     * This method is a no-op for dbase, as there aren't result resources in
     * the same sense as most other database backends.
     *
     * @param resource $result  PHP's query result resource
     *
     * @return bool  TRUE on success, FALSE if $result is invalid
     *
     * @see DB_result::free()
     */
    function freeResult($result)
    {
        return true;
    }
 
    // }}}
    // {{{ numCols()
 
    /**
     * Gets the number of columns in a result set
     *
     * This method is not meant to be called directly.  Use
     * DB_result::numCols() instead.  It can't be declared "protected"
     * because DB_result is a separate object.
     *
     * @param resource $result  PHP's query result resource
     *
     * @return int  the number of columns.  A DB_Error object on failure.
     *
     * @see DB_result::numCols()
     */
    function numCols($foo)
    {
        return @dbase_numfields($this->connection);
    }
 
    // }}}
    // {{{ numRows()
 
    /**
     * Gets the number of rows in a result set
     *
     * This method is not meant to be called directly.  Use
     * DB_result::numRows() instead.  It can't be declared "protected"
     * because DB_result is a separate object.
     *
     * @param resource $result  PHP's query result resource
     *
     * @return int  the number of rows.  A DB_Error object on failure.
     *
     * @see DB_result::numRows()
     */
    function numRows($foo)
    {
        return @dbase_numrecords($this->connection);
    }
 
    // }}}
    // {{{ quoteBoolean()
 
    /**
     * Formats a boolean value for use within a query in a locale-independent
 
 
 
 
 
 
 
 
 
 
 
 
 
     * manner.
     *
     * @param boolean the boolean value to be quoted.
     * @return string the quoted string.
     * @see DB_common::quoteSmart()
     * @since Method available since release 1.7.8.
     */
 
 
 
 
    function quoteBoolean($boolean) {
 
 
 
 
 
        return $boolean ? 'T' : 'F';
    }
     
    // }}}
    // {{{ tableInfo()
 
    /**
     * Returns information about the current database
     *
     * @param mixed $result  THIS IS UNUSED IN DBASE.  The current database
     *                       is examined regardless of what is provided here.
     * @param int   $mode    a valid tableInfo mode
     *
     * @return array  an associative array with the information requested.
     *                 A DB_Error object on failure.
     *
     * @see DB_common::tableInfo()
     * @since Method available since Release 1.7.0
     */
    function tableInfo($result = null, $mode = null)
    {
        if (function_exists('dbase_get_header_info')) {
            $id = @dbase_get_header_info($this->connection);
            if (!$id && $php_errormsg) {
                return $this->raiseError(DB_ERROR,
                                         null, null, null,
                                         $php_errormsg);
            }
        } else {
            /*
             * This segment for PHP 4 is loosely based on code by
             * Hadi Rusiah <deegos@yahoo.com> in the comments on
             * the dBase reference page in the PHP manual.
             */
            $db = @fopen($this->dsn['database'], 'r');
            if (!$db) {
                return $this->raiseError(DB_ERROR_CONNECT_FAILED,
                                         null, null, null,
                                         $php_errormsg);
            }
 
            $id = array();
            $i  = 0;
 
            $line = fread($db, 32);
            while (!feof($db)) {
                $line = fread($db, 32);
                if (substr($line, 0, 1) == chr(13)) {
                    break;
                } else {
                    $pos = strpos(substr($line, 0, 10), chr(0));
                    $pos = ($pos == 0 ? 10 : $pos);
                    $id[$i] = array(
                        'name'   => substr($line, 0, $pos),
                        'type'   => $this->types[substr($line, 11, 1)],
                        'length' => ord(substr($line, 16, 1)),
                        'precision' => ord(substr($line, 17, 1)),
                    );
                }
                $i++;
            }
 
            fclose($db);
        }
 
        if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
            $case_func = 'strtolower';
        } else {
            $case_func = 'strval';
        }
 
        $res   = array();
        $count = count($id);
 
        if ($mode) {
            $res['num_fields'] = $count;
        }
 
        for ($i = 0; $i < $count; $i++) {
            $res[$i] = array(
                'table' => $this->dsn['database'],
                'name'  => $case_func($id[$i]['name']),
                'type'  => $id[$i]['type'],
                'len'   => $id[$i]['length'],
                'flags' => ''
            );
            if ($mode & DB_TABLEINFO_ORDER) {
                $res['order'][$res[$i]['name']] = $i;
            }
            if ($mode & DB_TABLEINFO_ORDERTABLE) {
                $res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
            }
        }
 
        return $res;
    }
 
    // }}}
}
 
/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 */
 
?>

Rev 94	Rev 187
1	`<?php`	1	`<?php`
2		2
3	`/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */`	3	`/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */`
4		4
5	`/**`	5	`/**`
6	`* The PEAR DB driver for PHP's dbase extension`	6	`* The PEAR DB driver for PHP's dbase extension`
7	`* for interacting with dBase databases`	7	`* for interacting with dBase databases`
8	`*`	8	`*`
9	`* PHP versions 4 and 5`	9	`* PHP version 5`
10	`*`	10	`*`
11	`* LICENSE: This source file is subject to version 3.0 of the PHP license`	11	`* LICENSE: This source file is subject to version 3.0 of the PHP license`
12	`* that is available through the world-wide-web at the following URI:`	12	`* that is available through the world-wide-web at the following URI:`
13	`* http://www.php.net/license/3_0.txt. If you did not receive a copy of`	13	`* http://www.php.net/license/3_0.txt. If you did not receive a copy of`
14	`* the PHP License and are unable to obtain it through the web, please`	14	`* the PHP License and are unable to obtain it through the web, please`
15	`* send a note to license@php.net so we can mail you a copy immediately.`	15	`* send a note to license@php.net so we can mail you a copy immediately.`
16	`*`	16	`*`
17	`* @category Database`	17	`* @category Database`
18	`* @package DB`	18	`* @package DB`
19	`* @author Tomas V.V. Cox <cox@idecnet.com>`	19	`* @author Tomas V.V. Cox <cox@idecnet.com>`
20	`* @author Daniel Convissor <danielc@php.net>`	20	`* @author Daniel Convissor <danielc@php.net>`
21	`* @copyright 1997-2005 The PHP Group`	21	`* @copyright 1997-2007 The PHP Group`
22	`* @license http://www.php.net/license/3_0.txt PHP License 3.0`	22	`* @license http://www.php.net/license/3_0.txt PHP License 3.0`
23	`* @version CVS: $Id: dbase.php,v 1.39 2005/02/19 23:25:25 danielc Exp $`	23	`* @version CVS: $Id$`
24	`* @link http://pear.php.net/package/DB`	24	`* @link http://pear.php.net/package/DB`
25	`*/`	25	`*/`
26		26
27	`/**`	27	`/**`
28	`* Obtain the DB_common class so it can be extended from`	28	`* Obtain the DB_common class so it can be extended from`
29	`*/`	29	`*/`
30	`require_once 'DB/common.php';`	30	`require_once 'DB/common.php';`
31		31
32	`/**`	32	`/**`
33	`* The methods PEAR DB uses to interact with PHP's dbase extension`	33	`* The methods PEAR DB uses to interact with PHP's dbase extension`
34	`* for interacting with dBase databases`	34	`* for interacting with dBase databases`
35	`*`	35	`*`
36	`* These methods overload the ones declared in DB_common.`	36	`* These methods overload the ones declared in DB_common.`
37	`*`	37	`*`
38	`* @category Database`	38	`* @category Database`
39	`* @package DB`	39	`* @package DB`
40	`* @author Tomas V.V. Cox <cox@idecnet.com>`	40	`* @author Tomas V.V. Cox <cox@idecnet.com>`
41	`* @author Daniel Convissor <danielc@php.net>`	41	`* @author Daniel Convissor <danielc@php.net>`
42	`* @copyright 1997-2005 The PHP Group`	42	`* @copyright 1997-2007 The PHP Group`
43	`* @license http://www.php.net/license/3_0.txt PHP License 3.0`	43	`* @license http://www.php.net/license/3_0.txt PHP License 3.0`
44	`* @version Release: 1.7.6`	44	`* @version Release: 1.9.2`
45	`* @link http://pear.php.net/package/DB`	45	`* @link http://pear.php.net/package/DB`
46	`*/`	46	`*/`
47	`class DB_dbase extends DB_common`	47	`class DB_dbase extends DB_common`
48	`{`	48	`{`
49	`// {{{ properties`	49	`// {{{ properties`
50		50
51	`/**`	51	`/**`
52	`* The DB driver type (mysql, oci8, odbc, etc.)`	52	`* The DB driver type (mysql, oci8, odbc, etc.)`
53	`* @var string`	53	`* @var string`
54	`*/`	54	`*/`
55	`var $phptype = 'dbase';`	55	`var $phptype = 'dbase';`
56		56
57	`/**`	57	`/**`
58	`* The database syntax variant to be used (db2, access, etc.), if any`	58	`* The database syntax variant to be used (db2, access, etc.), if any`
59	`* @var string`	59	`* @var string`
60	`*/`	60	`*/`
61	`var $dbsyntax = 'dbase';`	61	`var $dbsyntax = 'dbase';`
62		62
63	`/**`	63	`/**`
64	`* The capabilities of this DB implementation`	64	`* The capabilities of this DB implementation`
65	`*`	65	`*`
66	`* The 'new_link' element contains the PHP version that first provided`	66	`* The 'new_link' element contains the PHP version that first provided`
67	`* new_link support for this DBMS. Contains false if it's unsupported.`	67	`* new_link support for this DBMS. Contains false if it's unsupported.`
68	`*`	68	`*`
69	`* Meaning of the 'limit' element:`	69	`* Meaning of the 'limit' element:`
70	`* + 'emulate' = emulate with fetch row by number`	70	`* + 'emulate' = emulate with fetch row by number`
71	`* + 'alter' = alter the query`	71	`* + 'alter' = alter the query`
72	`* + false = skip rows`	72	`* + false = skip rows`
73	`*`	73	`*`
74	`* @var array`	74	`* @var array`
75	`*/`	75	`*/`
76	`var $features = array(`	76	`var $features = array(`
77	`'limit' => false,`	77	`'limit' => false,`
78	`'new_link' => false,`	78	`'new_link' => false,`
79	`'numrows' => true,`	79	`'numrows' => true,`
80	`'pconnect' => false,`	80	`'pconnect' => false,`
81	`'prepare' => false,`	81	`'prepare' => false,`
82	`'ssl' => false,`	82	`'ssl' => false,`
83	`'transactions' => false,`	83	`'transactions' => false,`
84	`);`	84	`);`
85		85
86	`/**`	86	`/**`
87	`* A mapping of native error codes to DB error codes`	87	`* A mapping of native error codes to DB error codes`
88	`* @var array`	88	`* @var array`
89	`*/`	89	`*/`
90	`var $errorcode_map = array(`	90	`var $errorcode_map = array(`
91	`);`	91	`);`
92		92
93	`/**`	93	`/**`
94	`* The raw database connection created by PHP`	94	`* The raw database connection created by PHP`
95	`* @var resource`	95	`* @var resource`
96	`*/`	96	`*/`
97	`var $connection;`	97	`var $connection;`
98		98
99	`/**`	99	`/**`
100	`* The DSN information for connecting to a database`	100	`* The DSN information for connecting to a database`
101	`* @var array`	101	`* @var array`
102	`*/`	102	`*/`
103	`var $dsn = array();`	103	`var $dsn = array();`
104		104
105		105
106	`/**`	106	`/**`
107	`* A means of emulating result resources`	107	`* A means of emulating result resources`
108	`* @var array`	108	`* @var array`
109	`*/`	109	`*/`
110	`var $res_row = array();`	110	`var $res_row = array();`
111		111
112	`/**`	112	`/**`
113	`* The quantity of results so far`	113	`* The quantity of results so far`
114	`*`	114	`*`
115	`* For emulating result resources.`	115	`* For emulating result resources.`
116	`*`	116	`*`
117	`* @var integer`	117	`* @var integer`
118	`*/`	118	`*/`
119	`var $result = 0;`	119	`var $result = 0;`
120		120
121	`/**`	121	`/**`
122	`* Maps dbase data type id's to human readable strings`	122	`* Maps dbase data type id's to human readable strings`
123	`*`	123	`*`
124	`* The human readable values are based on the output of PHP's`	124	`* The human readable values are based on the output of PHP's`
125	`* dbase_get_header_info() function.`	125	`* dbase_get_header_info() function.`
126	`*`	126	`*`
127	`* @var array`	127	`* @var array`
128	`* @since Property available since Release 1.7.0`	128	`* @since Property available since Release 1.7.0`
129	`*/`	129	`*/`
130	`var $types = array(`	130	`var $types = array(`
131	`'C' => 'character',`	131	`'C' => 'character',`
132	`'D' => 'date',`	132	`'D' => 'date',`
133	`'L' => 'boolean',`	133	`'L' => 'boolean',`
134	`'M' => 'memo',`	134	`'M' => 'memo',`
135	`'N' => 'number',`	135	`'N' => 'number',`
136	`);`	136	`);`
137		137
138		138
139	`// }}}`	139	`// }}}`
140	`// {{{ constructor`	140	`// {{{ constructor`
141		141
142	`/**`	142	`/**`
143	`* This constructor calls <kbd>$this->DB_common()</kbd>`	143	`* This constructor calls <kbd>parent::__construct()</kbd>`
144	`*`	144	`*`
145	`* @return void`	145	`* @return void`
146	`*/`	146	`*/`
147	`function DB_dbase()`	147	`function __construct()`
148	`{`	148	`{`
149	`$this->DB_common();`	149	`parent::__construct();`
150	`}`	150	`}`
151		151
152	`// }}}`	152	`// }}}`
153	`// {{{ connect()`	153	`// {{{ connect()`
154		154
155	`/**`	155	`/**`
156	`* Connect to the database and create it if it doesn't exist`	156	`* Connect to the database and create it if it doesn't exist`
157	`*`	157	`*`
158	`* Don't call this method directly. Use DB::connect() instead.`	158	`* Don't call this method directly. Use DB::connect() instead.`
159	`*`	159	`*`
160	`* PEAR DB's dbase driver supports the following extra DSN options:`	160	`* PEAR DB's dbase driver supports the following extra DSN options:`
161	`* + mode An integer specifying the read/write mode to use`	161	`* + mode An integer specifying the read/write mode to use`
162	`* (0 = read only, 1 = write only, 2 = read/write).`	162	`* (0 = read only, 1 = write only, 2 = read/write).`
163	`* Available since PEAR DB 1.7.0.`	163	`* Available since PEAR DB 1.7.0.`
164	`* + fields An array of arrays that PHP's dbase_create() function needs`	164	`* + fields An array of arrays that PHP's dbase_create() function needs`
165	`* to create a new database. This information is used if the`	165	`* to create a new database. This information is used if the`
166	`* dBase file specified in the "database" segment of the DSN`	166	`* dBase file specified in the "database" segment of the DSN`
167	`* does not exist. For more info, see the PHP manual's`	167	`* does not exist. For more info, see the PHP manual's`
168	`* {@link http://php.net/dbase_create dbase_create()} page.`	168	`* {@link http://php.net/dbase_create dbase_create()} page.`
169	`* Available since PEAR DB 1.7.0.`	169	`* Available since PEAR DB 1.7.0.`
170	`*`	170	`*`
171	`* Example of how to connect and establish a new dBase file if necessary:`	171	`* Example of how to connect and establish a new dBase file if necessary:`
172	`* <code>`	172	`* <code>`
173	`* require_once 'DB.php';`	173	`* require_once 'DB.php';`
174	`*`	174	`*`
175	`* $dsn = array(`	175	`* $dsn = array(`
176	`* 'phptype' => 'dbase',`	176	`* 'phptype' => 'dbase',`
177	`* 'database' => '/path/and/name/of/dbase/file',`	177	`* 'database' => '/path/and/name/of/dbase/file',`
178	`* 'mode' => 2,`	178	`* 'mode' => 2,`
179	`* 'fields' => array(`	179	`* 'fields' => array(`
180	`* array('a', 'N', 5, 0),`	180	`* array('a', 'N', 5, 0),`
181	`* array('b', 'C', 40),`	181	`* array('b', 'C', 40),`
182	`* array('c', 'C', 255),`	182	`* array('c', 'C', 255),`
183	`* array('d', 'C', 20),`	183	`* array('d', 'C', 20),`
184	`* ),`	184	`* ),`
185	`* );`	185	`* );`
186	`* $options = array(`	186	`* $options = array(`
187	`* 'debug' => 2,`	187	`* 'debug' => 2,`
188	`* 'portability' => DB_PORTABILITY_ALL,`	188	`* 'portability' => DB_PORTABILITY_ALL,`
189	`* );`	189	`* );`
190	`*`	190	`*`
191	`* $db =& DB::connect($dsn, $options);`	191	`* $db = DB::connect($dsn, $options);`
192	`* if (PEAR::isError($db)) {`	192	`* if (PEAR::isError($db)) {`
193	`* die($db->getMessage());`	193	`* die($db->getMessage());`
194	`* }`	194	`* }`
195	`* </code>`	195	`* </code>`
196	`*`	196	`*`
197	`* @param array $dsn the data source name`	197	`* @param array $dsn the data source name`
198	`* @param bool $persistent should the connection be persistent?`	198	`* @param bool $persistent should the connection be persistent?`
199	`*`	199	`*`
200	`* @return int DB_OK on success. A DB_Error object on failure.`	200	`* @return int DB_OK on success. A DB_Error object on failure.`
201	`*/`	201	`*/`
202	`function connect($dsn, $persistent = false)`	202	`function connect($dsn, $persistent = false)`
203	`{`	203	`{`
204	`if (!PEAR::loadExtension('dbase')) {`	204	`if (!PEAR::loadExtension('dbase')) {`
205	`return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);`	205	`return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);`
206	`}`	206	`}`
207		207
208	`$this->dsn = $dsn;`	208	`$this->dsn = $dsn;`
209	`if ($dsn['dbsyntax']) {`	209	`if ($dsn['dbsyntax']) {`
210	`$this->dbsyntax = $dsn['dbsyntax'];`	210	`$this->dbsyntax = $dsn['dbsyntax'];`
211	`}`	211	`}`
212		212
213	`/*`	213	`/*`
214	`* Turn track_errors on for entire script since $php_errormsg`	214	`* Turn track_errors on for entire script since $php_errormsg`
215	`* is the only way to find errors from the dbase extension.`	215	`* is the only way to find errors from the dbase extension.`
216	`*/`	216	`*/`
217	`ini_set('track_errors', 1);`	217	`@ini_set('track_errors', 1);`
218	`$php_errormsg = '';`	218	`$php_errormsg = '';`
219		219
220	`if (!file_exists($dsn['database'])) {`	220	`if (!file_exists($dsn['database'])) {`
221	`$this->dsn['mode'] = 2;`	221	`$this->dsn['mode'] = 2;`
222	`if (empty($dsn['fields']) \|\| !is_array($dsn['fields'])) {`	222	`if (empty($dsn['fields']) \|\| !is_array($dsn['fields'])) {`
223	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`	223	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`
224	`null, null, null,`	224	`null, null, null,`
225	`'the dbase file does not exist and '`	225	`'the dbase file does not exist and '`
226	`. 'it could not be created because '`	226	`. 'it could not be created because '`
227	`. 'the "fields" element of the DSN '`	227	`. 'the "fields" element of the DSN '`
228	`. 'is not properly set');`	228	`. 'is not properly set');`
229	`}`	229	`}`
230	`$this->connection = @dbase_create($dsn['database'],`	230	`$this->connection = @dbase_create($dsn['database'],`
231	`$dsn['fields']);`	231	`$dsn['fields']);`
232	`if (!$this->connection) {`	232	`if (!$this->connection) {`
233	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`	233	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`
234	`null, null, null,`	234	`null, null, null,`
235	`'the dbase file does not exist and '`	235	`'the dbase file does not exist and '`
236	`. 'the attempt to create it failed: '`	236	`. 'the attempt to create it failed: '`
237	`. $php_errormsg);`	237	`. $php_errormsg);`
238	`}`	238	`}`
239	`} else {`	239	`} else {`
240	`if (!isset($this->dsn['mode'])) {`	240	`if (!isset($this->dsn['mode'])) {`
241	`$this->dsn['mode'] = 0;`	241	`$this->dsn['mode'] = 0;`
242	`}`	242	`}`
243	`$this->connection = @dbase_open($dsn['database'],`	243	`$this->connection = @dbase_open($dsn['database'],`
244	`$this->dsn['mode']);`	244	`$this->dsn['mode']);`
245	`if (!$this->connection) {`	245	`if (!$this->connection) {`
246	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`	246	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`
247	`null, null, null,`	247	`null, null, null,`
248	`$php_errormsg);`	248	`$php_errormsg);`
249	`}`	249	`}`
250	`}`	250	`}`
251	`return DB_OK;`	251	`return DB_OK;`
252	`}`	252	`}`
253		253
254	`// }}}`	254	`// }}}`
255	`// {{{ disconnect()`	255	`// {{{ disconnect()`
256		256
257	`/**`	257	`/**`
258	`* Disconnects from the database server`	258	`* Disconnects from the database server`
259	`*`	259	`*`
260	`* @return bool TRUE on success, FALSE on failure`	260	`* @return bool TRUE on success, FALSE on failure`
261	`*/`	261	`*/`
262	`function disconnect()`	262	`function disconnect()`
263	`{`	263	`{`
264	`$ret = @dbase_close($this->connection);`	264	`$ret = @dbase_close($this->connection);`
265	`$this->connection = null;`	265	`$this->connection = null;`
266	`return $ret;`	266	`return $ret;`
267	`}`	267	`}`
268		268
269	`// }}}`	269	`// }}}`
270	`// {{{ &query()`	270	`// {{{ &query()`
271		271
272	`function &query($query = null)`	272	`function &query($query = null)`
273	`{`	273	`{`
274	`// emulate result resources`	274	`// emulate result resources`
275	`$this->res_row[(int)$this->result] = 0;`	275	`$this->res_row[(int)$this->result] = 0;`
276	`$tmp =& new DB_result($this, $this->result++);`	276	`$tmp = new DB_result($this, $this->result++);`
277	`return $tmp;`	277	`return $tmp;`
278	`}`	278	`}`
279		279
280	`// }}}`	280	`// }}}`
281	`// {{{ fetchInto()`	281	`// {{{ fetchInto()`
282		282
283	`/**`	283	`/**`
284	`* Places a row from the result set into the given array`	284	`* Places a row from the result set into the given array`
285	`*`	285	`*`
286	`* Formating of the array and the data therein are configurable.`	286	`* Formating of the array and the data therein are configurable.`
287	`* See DB_result::fetchInto() for more information.`	287	`* See DB_result::fetchInto() for more information.`
288	`*`	288	`*`
289	`* This method is not meant to be called directly. Use`	289	`* This method is not meant to be called directly. Use`
290	`* DB_result::fetchInto() instead. It can't be declared "protected"`	290	`* DB_result::fetchInto() instead. It can't be declared "protected"`
291	`* because DB_result is a separate object.`	291	`* because DB_result is a separate object.`
292	`*`	292	`*`
293	`* @param resource $result the query result resource`	293	`* @param resource $result the query result resource`
294	`* @param array $arr the referenced array to put the data in`	294	`* @param array $arr the referenced array to put the data in`
295	`* @param int $fetchmode how the resulting array should be indexed`	295	`* @param int $fetchmode how the resulting array should be indexed`
296	`* @param int $rownum the row number to fetch (0 = first row)`	296	`* @param int $rownum the row number to fetch (0 = first row)`
297	`*`	297	`*`
298	`* @return mixed DB_OK on success, NULL when the end of a result set is`	298	`* @return mixed DB_OK on success, NULL when the end of a result set is`
299	`* reached or on failure`	299	`* reached or on failure`
300	`*`	300	`*`
301	`* @see DB_result::fetchInto()`	301	`* @see DB_result::fetchInto()`
302	`*/`	302	`*/`
303	`function fetchInto($result, &$arr, $fetchmode, $rownum = null)`	303	`function fetchInto($result, &$arr, $fetchmode, $rownum = null)`
304	`{`	304	`{`
305	`if ($rownum === null) {`	305	`if ($rownum === null) {`
306	`$rownum = $this->res_row[(int)$result]++;`	306	`$rownum = $this->res_row[(int)$result]++;`
307	`}`	307	`}`
308	`if ($fetchmode & DB_FETCHMODE_ASSOC) {`	308	`if ($fetchmode & DB_FETCHMODE_ASSOC) {`
309	`$arr = @dbase_get_record_with_names($this->connection, $rownum);`	309	`$arr = @dbase_get_record_with_names($this->connection, $rownum);`
310	`if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {`	310	`if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {`
311	`$arr = array_change_key_case($arr, CASE_LOWER);`	311	`$arr = array_change_key_case($arr, CASE_LOWER);`
312	`}`	312	`}`
313	`} else {`	313	`} else {`
314	`$arr = @dbase_get_record($this->connection, $rownum);`	314	`$arr = @dbase_get_record($this->connection, $rownum);`
315	`}`	315	`}`
316	`if (!$arr) {`	316	`if (!$arr) {`
317	`return null;`	317	`return null;`
318	`}`	318	`}`
319	`if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {`	319	`if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {`
320	`$this->_rtrimArrayValues($arr);`	320	`$this->_rtrimArrayValues($arr);`
321	`}`	321	`}`
322	`if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {`	322	`if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {`
323	`$this->_convertNullArrayValuesToEmpty($arr);`	323	`$this->_convertNullArrayValuesToEmpty($arr);`
324	`}`	324	`}`
325	`return DB_OK;`	325	`return DB_OK;`
326	`}`	326	`}`
327		327
328	`// }}}`	328	`// }}}`
-		329	`// {{{ freeResult()`
-		330
-		331	`/**`
-		332	`* Deletes the result set and frees the memory occupied by the result set.`
-		333	`*`
-		334	`* This method is a no-op for dbase, as there aren't result resources in`
-		335	`* the same sense as most other database backends.`
-		336	`*`
-		337	`* @param resource $result PHP's query result resource`
-		338	`*`
-		339	`* @return bool TRUE on success, FALSE if $result is invalid`
-		340	`*`
-		341	`* @see DB_result::free()`
-		342	`*/`
-		343	`function freeResult($result)`
-		344	`{`
-		345	`return true;`
-		346	`}`
-		347
-		348	`// }}}`
329	`// {{{ numCols()`	349	`// {{{ numCols()`
330		350
331	`/**`	351	`/**`
332	`* Gets the number of columns in a result set`	352	`* Gets the number of columns in a result set`
333	`*`	353	`*`
334	`* This method is not meant to be called directly. Use`	354	`* This method is not meant to be called directly. Use`
335	`* DB_result::numCols() instead. It can't be declared "protected"`	355	`* DB_result::numCols() instead. It can't be declared "protected"`
336	`* because DB_result is a separate object.`	356	`* because DB_result is a separate object.`
337	`*`	357	`*`
338	`* @param resource $result PHP's query result resource`	358	`* @param resource $result PHP's query result resource`
339	`*`	359	`*`
340	`* @return int the number of columns. A DB_Error object on failure.`	360	`* @return int the number of columns. A DB_Error object on failure.`
341	`*`	361	`*`
342	`* @see DB_result::numCols()`	362	`* @see DB_result::numCols()`
343	`*/`	363	`*/`
344	`function numCols($foo)`	364	`function numCols($foo)`
345	`{`	365	`{`
346	`return @dbase_numfields($this->connection);`	366	`return @dbase_numfields($this->connection);`
347	`}`	367	`}`
348		368
349	`// }}}`	369	`// }}}`
350	`// {{{ numRows()`	370	`// {{{ numRows()`
351		371
352	`/**`	372	`/**`
353	`* Gets the number of rows in a result set`	373	`* Gets the number of rows in a result set`
354	`*`	374	`*`
355	`* This method is not meant to be called directly. Use`	375	`* This method is not meant to be called directly. Use`
356	`* DB_result::numRows() instead. It can't be declared "protected"`	376	`* DB_result::numRows() instead. It can't be declared "protected"`
357	`* because DB_result is a separate object.`	377	`* because DB_result is a separate object.`
358	`*`	378	`*`
359	`* @param resource $result PHP's query result resource`	379	`* @param resource $result PHP's query result resource`
360	`*`	380	`*`
361	`* @return int the number of rows. A DB_Error object on failure.`	381	`* @return int the number of rows. A DB_Error object on failure.`
362	`*`	382	`*`
363	`* @see DB_result::numRows()`	383	`* @see DB_result::numRows()`
364	`*/`	384	`*/`
365	`function numRows($foo)`	385	`function numRows($foo)`
366	`{`	386	`{`
367	`return @dbase_numrecords($this->connection);`	387	`return @dbase_numrecords($this->connection);`
368	`}`	388	`}`
369		389
370	`// }}}`	390	`// }}}`
371	`// {{{ quoteSmart()`	391	`// {{{ quoteBoolean()`
372		392
373	`/**`	393	`/**`
374	`* Formats input so it can be safely used in a query`	394	`* Formats a boolean value for use within a query in a locale-independent`
375	`*`	-
376	`* @param mixed $in the data to be formatted`	-
377	`*`	-
378	`* @return mixed the formatted data. The format depends on the input's`	-
379	`* PHP type:`	-
380	`* + null = the string <samp>NULL</samp>`	-
381	`* + boolean = <samp>T</samp> if true or`	-
382	`* <samp>F</samp> if false. Use the <kbd>Logical</kbd>`	-
383	`* data type.`	-
384	`* + integer or double = the unquoted number`	-
385	`* + other (including strings and numeric strings) =`	-
386	`* the data with single quotes escaped by preceeding`	-
387	`* single quotes then the whole string is encapsulated`	-
388	`* between single quotes`	395	`* manner.`
-		396	`*`
-		397	`* @param boolean the boolean value to be quoted.`
389	`*`	398	`* @return string the quoted string.`
390	`* @see DB_common::quoteSmart()`	399	`* @see DB_common::quoteSmart()`
391	`* @since Method available since Release 1.6.0`	400	`* @since Method available since release 1.7.8.`
392	`*/`	401	`*/`
393	`function quoteSmart($in)`	-
394	`{`	-
395	`if (is_int($in) \|\| is_double($in)) {`	-
396	`return $in;`	-
397	`} elseif (is_bool($in)) {`	402	`function quoteBoolean($boolean) {`
398	`return $in ? 'T' : 'F';`	-
399	`} elseif (is_null($in)) {`	-
400	`return 'NULL';`	-
401	`} else {`	-
402	`return "'" . $this->escapeSimple($in) . "'";`	-
403	`}`	403	`return $boolean ? 'T' : 'F';`
404	`}`	404	`}`
405		405
406	`// }}}`	406	`// }}}`
407	`// {{{ tableInfo()`	407	`// {{{ tableInfo()`
408		408
409	`/**`	409	`/**`
410	`* Returns information about the current database`	410	`* Returns information about the current database`
411	`*`	411	`*`
412	`* @param mixed $result THIS IS UNUSED IN DBASE. The current database`	412	`* @param mixed $result THIS IS UNUSED IN DBASE. The current database`
413	`* is examined regardless of what is provided here.`	413	`* is examined regardless of what is provided here.`
414	`* @param int $mode a valid tableInfo mode`	414	`* @param int $mode a valid tableInfo mode`
415	`*`	415	`*`
416	`* @return array an associative array with the information requested.`	416	`* @return array an associative array with the information requested.`
417	`* A DB_Error object on failure.`	417	`* A DB_Error object on failure.`
418	`*`	418	`*`
419	`* @see DB_common::tableInfo()`	419	`* @see DB_common::tableInfo()`
420	`* @since Method available since Release 1.7.0`	420	`* @since Method available since Release 1.7.0`
421	`*/`	421	`*/`
422	`function tableInfo($result = null, $mode = null)`	422	`function tableInfo($result = null, $mode = null)`
423	`{`	423	`{`
424	`if (function_exists('dbase_get_header_info')) {`	424	`if (function_exists('dbase_get_header_info')) {`
425	`$id = @dbase_get_header_info($this->connection);`	425	`$id = @dbase_get_header_info($this->connection);`
426	`if (!$id && $php_errormsg) {`	426	`if (!$id && $php_errormsg) {`
427	`return $this->raiseError(DB_ERROR,`	427	`return $this->raiseError(DB_ERROR,`
428	`null, null, null,`	428	`null, null, null,`
429	`$php_errormsg);`	429	`$php_errormsg);`
430	`}`	430	`}`
431	`} else {`	431	`} else {`
432	`/*`	432	`/*`
433	`* This segment for PHP 4 is loosely based on code by`	433	`* This segment for PHP 4 is loosely based on code by`
434	`* Hadi Rusiah <deegos@yahoo.com> in the comments on`	434	`* Hadi Rusiah <deegos@yahoo.com> in the comments on`
435	`* the dBase reference page in the PHP manual.`	435	`* the dBase reference page in the PHP manual.`
436	`*/`	436	`*/`
437	`$db = @fopen($this->dsn['database'], 'r');`	437	`$db = @fopen($this->dsn['database'], 'r');`
438	`if (!$db) {`	438	`if (!$db) {`
439	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`	439	`return $this->raiseError(DB_ERROR_CONNECT_FAILED,`
440	`null, null, null,`	440	`null, null, null,`
441	`$php_errormsg);`	441	`$php_errormsg);`
442	`}`	442	`}`
443		443
444	`$id = array();`	444	`$id = array();`
445	`$i = 0;`	445	`$i = 0;`
446		446
447	`$line = fread($db, 32);`	447	`$line = fread($db, 32);`
448	`while (!feof($db)) {`	448	`while (!feof($db)) {`
449	`$line = fread($db, 32);`	449	`$line = fread($db, 32);`
450	`if (substr($line, 0, 1) == chr(13)) {`	450	`if (substr($line, 0, 1) == chr(13)) {`
451	`break;`	451	`break;`
452	`} else {`	452	`} else {`
453	`$pos = strpos(substr($line, 0, 10), chr(0));`	453	`$pos = strpos(substr($line, 0, 10), chr(0));`
454	`$pos = ($pos == 0 ? 10 : $pos);`	454	`$pos = ($pos == 0 ? 10 : $pos);`
455	`$id[$i] = array(`	455	`$id[$i] = array(`
456	`'name' => substr($line, 0, $pos),`	456	`'name' => substr($line, 0, $pos),`
457	`'type' => $this->types[substr($line, 11, 1)],`	457	`'type' => $this->types[substr($line, 11, 1)],`
458	`'length' => ord(substr($line, 16, 1)),`	458	`'length' => ord(substr($line, 16, 1)),`
459	`'precision' => ord(substr($line, 17, 1)),`	459	`'precision' => ord(substr($line, 17, 1)),`
460	`);`	460	`);`
461	`}`	461	`}`
462	`$i++;`	462	`$i++;`
463	`}`	463	`}`
464		464
465	`fclose($db);`	465	`fclose($db);`
466	`}`	466	`}`
467		467
468	`if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {`	468	`if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {`
469	`$case_func = 'strtolower';`	469	`$case_func = 'strtolower';`
470	`} else {`	470	`} else {`
471	`$case_func = 'strval';`	471	`$case_func = 'strval';`
472	`}`	472	`}`
473		473
474	`$res = array();`	474	`$res = array();`
475	`$count = count($id);`	475	`$count = count($id);`
476		476
477	`if ($mode) {`	477	`if ($mode) {`
478	`$res['num_fields'] = $count;`	478	`$res['num_fields'] = $count;`

Subversion Repositories Applications.gtt

(root)/trunk/bibliotheque/pear/DB/dbase.php – Rev 94 → 187