878548 | 1999-07-01 | Henrik Grubbström (Grubba) | | |
02a56d | 2006-12-30 | Martin Nilsson | | * $Id: sql_util.pmod,v 1.18 2006/12/29 23:22:43 nilsson Exp $
|
878548 | 1999-07-01 | Henrik Grubbström (Grubba) | | *
* Some SQL utility functions.
* They are kept here to avoid circular references.
*
* Henrik Grubbström 1999-07-01
*/
|
a580e1 | 2000-09-27 | Fredrik Hübinette (Hubbe) | | #pike __REAL_VERSION__
|
a20af6 | 2000-09-26 | Fredrik Hübinette (Hubbe) | |
|
36d2b8 | 2001-09-06 | Martin Nilsson | |
|
878548 | 1999-07-01 | Henrik Grubbström (Grubba) | |
|
36d2b8 | 2001-09-06 | Martin Nilsson | |
|
878548 | 1999-07-01 | Henrik Grubbström (Grubba) | | string quote(string s)
{
|
18096f | 2003-08-22 | Martin Nilsson | | return replace(s, "\'", "\'\'");
|
878548 | 1999-07-01 | Henrik Grubbström (Grubba) | | }
|
36d2b8 | 2001-09-06 | Martin Nilsson | |
|
485cb1 | 1999-07-01 | Henrik Grubbström (Grubba) | | void fallback()
|
878548 | 1999-07-01 | Henrik Grubbström (Grubba) | | {
|
5d1696 | 2003-04-22 | Martin Nilsson | | error( "Function not supported in this database." );
|
878548 | 1999-07-01 | Henrik Grubbström (Grubba) | | }
|
6458a7 | 2000-04-29 | Francesco Chemolli | |
|
580be4 | 2001-12-04 | Martin Nilsson | |
|
36d2b8 | 2001-09-06 | Martin Nilsson | |
|
580be4 | 2001-12-04 | Martin Nilsson | |
|
36d2b8 | 2001-09-06 | Martin Nilsson | |
|
580be4 | 2001-12-04 | Martin Nilsson | |
|
36d2b8 | 2001-09-06 | Martin Nilsson | |
|
4903d5 | 2000-04-29 | Francesco Chemolli | | string emulate_bindings(string query, mapping(string|int:mixed)|void bindings,
void|object driver)
|
6458a7 | 2000-04-29 | Francesco Chemolli | | {
array(string)k, v;
if (!bindings)
return query;
|
580be4 | 2001-12-04 | Martin Nilsson | | function my_quote=(driver&&driver->quote?driver->quote:quote);
|
981f83 | 2005-04-10 | Martin Nilsson | | v=map(values(bindings),
lambda(mixed m) {
if(multisetp(m)) m = indices(m)[0];
return (stringp(m)? "'"+my_quote(m)+"'" : (string)m);
});
|
580be4 | 2001-12-04 | Martin Nilsson | |
|
981f83 | 2005-04-10 | Martin Nilsson | | k=map(indices(bindings),lambda(string s){
return ( (stringp(s)&&s[0]==':') ?
s : ":"+s);
});
|
6458a7 | 2000-04-29 | Francesco Chemolli | | return replace(query,k,v);
}
|
e796fc | 2006-08-09 | Henrik Grubbström (Grubba) | |
class UnicodeWrapper (
|
02a56d | 2006-12-30 | Martin Nilsson | |
|
e796fc | 2006-08-09 | Henrik Grubbström (Grubba) | | static object master_result
)
{
int num_rows()
{
return master_result->num_rows();
}
int num_fields()
{
return master_result->num_fields();
}
int(0..1) eof()
{
return master_result->eof();
}
static array(int|mapping(string:mixed)) field_info;
array(int|mapping(string:mixed)) fetch_fields()
{
if (!field_info) {
field_info = master_result->fetch_fields();
foreach(field_info, int|mapping(string:mixed) field) {
if (mappingp(field)) {
field->name = utf8_to_string(field->name);
if (field->table) {
field->table = utf8_to_string(field->table);
}
if (field->default) {
field->default = utf8_to_string(field->default);
}
}
}
}
return field_info;
}
void seek(int rows)
{
master_result->seek(rows);
}
int|array(string) fetch_row()
{
int|array(string) row = master_result->fetch_row();
if (!arrayp(row)) return row;
|
cd1688 | 2006-08-11 | Henrik Grubbström (Grubba) | | array(int|mapping(string:mixed)) field_info = fetch_fields();
|
e796fc | 2006-08-09 | Henrik Grubbström (Grubba) | | foreach(row; int i; string|int val) {
|
887769 | 2006-11-17 | Martin Stjernholm | | if (stringp(val)) {
row[i] = utf8_to_string(val);
}
}
return row;
}
}
#if constant (Mysql.mysql.HAVE_MYSQL_FIELD_CHARSETNR)
|
77ac70 | 2006-11-27 | Martin Stjernholm | |
|
887769 | 2006-11-17 | Martin Stjernholm | | class MySQLUnicodeWrapper
{
inherit UnicodeWrapper;
int|array(string) fetch_row()
{
int|array(string) row = master_result->fetch_row();
if (!arrayp(row)) return row;
array(int|mapping(string:mixed)) field_info = fetch_fields();
foreach(row; int i; string|int val) {
if (stringp(val) && field_info[i]->charsetnr != 63) {
|
e796fc | 2006-08-09 | Henrik Grubbström (Grubba) | | row[i] = utf8_to_string(val);
}
}
return row;
}
}
|
77ac70 | 2006-11-27 | Martin Stjernholm | |
#else
class MySQLBrokenUnicodeWrapper
{
inherit UnicodeWrapper;
int|array(string) fetch_row()
{
int|array(string) row = master_result->fetch_row();
if (!arrayp(row)) return row;
array(int|mapping(string:mixed)) field_info = fetch_fields();
foreach(row; int i; string|int val) {
if (stringp(val) && field_info[i]->flags &&
!field_info[i]->flags->binary) {
row[i] = utf8_to_string(val);
}
}
return row;
}
}
|
887769 | 2006-11-17 | Martin Stjernholm | | #endif
|