878548 | 1999-07-01 | Henrik Grubbström (Grubba) | | |
e796fc | 2006-08-09 | Henrik Grubbström (Grubba) | | * $Id: sql_util.pmod,v 1.14 2006/08/09 13:04:38 grubba 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 (
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;
foreach(row; int i; string|int val) {
if (stringp(val)) {
row[i] = utf8_to_string(val);
}
}
return row;
}
}
|