8785481999-07-01Henrik Grubbström (Grubba) /*
36d2b82001-09-06Martin Nilsson  * $Id: sql_util.pmod,v 1.9 2001/09/06 20:11:00 nilsson Exp $
8785481999-07-01Henrik Grubbström (Grubba)  * * Some SQL utility functions. * They are kept here to avoid circular references. * * Henrik Grubbström 1999-07-01 */
a580e12000-09-27Fredrik Hübinette (Hubbe) #pike __REAL_VERSION__
a20af62000-09-26Fredrik Hübinette (Hubbe) 
36d2b82001-09-06Martin Nilsson //! Some SQL utility functions
8785481999-07-01Henrik Grubbström (Grubba) 
36d2b82001-09-06Martin Nilsson //! Quote a string so that it can safely be put in a query. //! //! @param s //! String to quote.
8785481999-07-01Henrik Grubbström (Grubba) string quote(string s) { return(replace(s, "\'", "\'\'")); }
36d2b82001-09-06Martin Nilsson //! Throw an error in case an unimplemented function is called.
485cb11999-07-01Henrik Grubbström (Grubba) void fallback()
8785481999-07-01Henrik Grubbström (Grubba) {
485cb11999-07-01Henrik Grubbström (Grubba)  throw(({ "Function not supported in this database.", backtrace() }));
8785481999-07-01Henrik Grubbström (Grubba) }
6458a72000-04-29Francesco Chemolli 
36d2b82001-09-06Martin Nilsson //! build a raw SQL query, given the cooked query and the variable bindings //! It's meant to be used as an emulation engine for those drivers not //! providing such a behaviour directly (i.e. Oracle). //! The raw query can contain some variables (identified by prefixing //! a colon to a name or a number(i.e. :var, :2). They will be //! replaced by the corresponding value in the mapping. //! //! @param query //! The query //! //! @param bindings //! Optional mapping containing the variable bindings. Make sure that //! no confusion is possible in the query. If necessary, change the //! variables' names.
4903d52000-04-29Francesco Chemolli string emulate_bindings(string query, mapping(string|int:mixed)|void bindings, void|object driver)
6458a72000-04-29Francesco Chemolli { array(string)k, v;
4903d52000-04-29Francesco Chemolli  function my_quote=(driver&&driver->quote?driver->quote:quote);
6458a72000-04-29Francesco Chemolli  if (!bindings) return query; v=Array.map(values(bindings),
a315b52001-01-09Marcus Comstedt  lambda(mixed m) { if(multisetp(m)) m = indices(m)[0]; return (stringp(m)? "'"+my_quote(m)+"'" : (string)m); }); k=Array.map(indices(bindings),lambda(string s){ return (stringp(s)? s : ":"+s); });
6458a72000-04-29Francesco Chemolli  return replace(query,k,v); }