api_conversion.php
5.08 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
<?php
/**
* ----------------------------------------------------------------
* XBase
* api_conversion.php
*
* Developer : Erwin Kooi
* released at : Jan 2006
* last modified by : Erwin Kooi
* date modified : Jan 2006
*
* You're free to use this code as long as you don't alter it
* Copyright (c) 2005 Cyane Dynamic Web Solutions
* Info? Mail to info@cyane.nl
*
* --------------------------------------------------------------
*
* This file implements the default dBase functions as described in the PHP docs
*
**/
if(!isset($locaplic)){
$locaplic = dirname(__FILE__)."/../../";
}
require_once "$locaplic/pacotes/phpxbase/Column.class.php";
require_once "$locaplic/pacotes/phpxbase/Record.class.php";
require_once "$locaplic/pacotes/phpxbase/Table.class.php";
require_once "$locaplic/pacotes/phpxbase/WritableTable.class.php";
function xbase_add_record($xbase_identifier=false,$record) { // - Add a record (array of values) to a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$r =& $xbase->appendRecord();
foreach ($record as $i=>$v) {
if (is_object($i))
$r->setString($i,$v);
else if (is_numeric($i))
$r->setStringByIndex($i,$v);
else
$r->setStringByName($i,$v);
}
$xbase->writeRecord();
}
function xbase_close($xbase_identifier=false) { // - Close a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$xbase->close();
}
function xbase_create($filename,$fields) { // - Creates a dBase database
if ($xbase =& XBaseWritableTable::create($filename,$fields)) return xbase_addInstance($xbase);
return false;
}
function xbase_delete_record($xbase_identifier=false,$record) { // - Deletes a record from a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$xbase->moveTo($record-1);
$xbase->deleteRecord();
}
function xbase_get_header_info($xbase_identifier=false) { // - Get the header info of a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$result = array();
foreach ($xbase->columns as $column) {
$result[] = array(
"name"=>$column->name,
"type"=>$column->type,
"length"=>$column->length,
"precision"=>$column->decimalCount,
"format"=>"%s",
"offset"=>$column->bytePos,
);
}
return $result;
}
function xbase_get_record_with_names($xbase_identifier=false,$record) { // - Gets a record from a dBase database as an associative array
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$r =& $xbase->moveTo($record-1);
$result = array();
foreach ($xbase->columns as $column) {
$result[$column->name] = $r->getString($column);
}
$result["deleted"] = $r->isDeleted();
return $result;
}
function xbase_get_record($xbase_identifier=false) { // - Gets a record from a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$r =& $xbase->moveTo($record-1);
$result = array();
foreach ($xbase->columns as $column) {
$result[] = $r->getString($column);
}
$result["deleted"] = $r->isDeleted();
return $result;
}
function xbase_numfields($xbase_identifier=false) { // - Find out how many fields are in a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
return $xbase->getColumnCount();
}
function xbase_numrecords($xbase_identifier=false) { // - Find out how many records are in a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
return $xbase->getRecordCount();
}
function xbase_open($filename,$flags=0) { // - Opens a dBase database - flags : Typically 0 means read-only, 1 means write-only, and 2 means read and write
if ($flags==0) {
$xbase =& new XBaseTable($filename);
if (!$xbase->open()) return false;
} else {
$xbase =& new XBaseWritableTable($filename);
if (!$xbase->openWrite()) return false;
}
return xbase_addInstance($xbase);
}
function xbase_pack($xbase_identifier=false) { // - Packs a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$xbase->pack();
}
function xbase_replace_record($xbase_identifier=false,$record,$record_number) { // - Replace a record in a dBase database
if (!($xbase=&xbase_getInstance($xbase_identifier))) return false;
$r =& $xbase->moveTo($record_number-1);
foreach ($record as $i=>$v) {
if (is_object($i))
$r->setString($i,$v);
else if (is_numeric($i))
$r->setStringByIndex($i,$v);
else
$r->setStringByName($i,$v);
}
$xbase->writeRecord();
}
/**
* private
*/
$xbase_instances = array();
function &xbase_getInstance($i=NULL) {
global $xbase_instances;
if (sizeof($xbase_instances)==0) trigger_error ("No xbases available", E_USER_ERROR);
if (is_null($i)) {
$result =& current($xbase_instances);
} else {
if (!@$xbase_instances[$i]) trigger_error ($i." is an invalid xbase identifier", E_USER_ERROR);
$result =& $xbase_instances[$i];
}
return $result;
}
function xbase_addInstance(&$i) {
global $xbase_instances;
$result = sizeof($xbase_instances);
$xbase_instances[$result]=&$i;
return $result;
}
?>