6375f22000-03-26Francesco Chemolli /* * Sybase driver for the Pike programming language. * By Francesco Chemolli <kinkie@roxen.com> 10/12/1999
52510a2002-01-15Martin Nilsson  *
6375f22000-03-26Francesco Chemolli  */
a580e12000-09-27Fredrik Hübinette (Hubbe) #pike __REAL_VERSION__
e1fb092014-02-14Martin Nilsson #require constant(sybase.sybase)
a20af62000-09-26Fredrik Hübinette (Hubbe) 
e1fb092014-02-14Martin Nilsson // Cannot dump this since the #require check may depend on the // presence of system libs at runtime.
7094252017-03-31Henrik Grubbström (Grubba) optional constant dont_dump_program = 1;
a59c792010-11-02Martin Stjernholm 
6375f22000-03-26Francesco Chemolli inherit sybase.sybase:mo; void shutdown() { catch { //there _will_ be an error. It's just that we don't care about it. mo::big_query("shutdown"); }; } string server_info () { return "sybase/10.X or 11.X"; } /* * Unimplemented. Anyone knows Transact-SQL well enough? * maybe we could use the connection properties otherwise (CS_HOSTNAME) */ string host_info() { return "unknown"; } /* * Unimplemented. Anyone knows Transact-SQL well enough? */ array(string) list_dbs(string|void wild) {
6335a12014-11-03Martin Nilsson  error("Unsupported.\n");
6375f22000-03-26Francesco Chemolli } /* * Unimplemented. PLEASE tell me somebody knows how to do this. * There MUST be some system stored procedure... */ array(string) list_tables(string|void wild) {
6335a12014-11-03Martin Nilsson  error("Unsupported.\n");
6375f22000-03-26Francesco Chemolli } /* * Unimplemented. */ array(string) list_fields(string|void wild) {
6335a12014-11-03Martin Nilsson  error("Unsupported.\n");
6375f22000-03-26Francesco Chemolli } int num_rows() {
6335a12014-11-03Martin Nilsson  error("Unsupported by the DB server.\n");
6375f22000-03-26Francesco Chemolli } void seek(int skipthismany) { if (skipthismany<0)
6335a12014-11-03Martin Nilsson  error("Negative skips are not supported.\n");
6375f22000-03-26Francesco Chemolli  if (!skipthismany) return; while (skipthismany && fetch_row()){ skipthismany--; } } void create(void|string host, void|string db, void|string user,
0a5ec32012-04-12Henrik Grubbström (Grubba)  void|string _pass, void|mapping options) {
1dc3fb2008-01-09Martin Stjernholm  string pass = _pass; _pass = "CENSORED";
0a5ec32012-04-12Henrik Grubbström (Grubba)  mo::create(host||"",db||"",user||"",pass||"",options);
6375f22000-03-26Francesco Chemolli  if (db && stringp(db) && sizeof(db)) { mo::big_query("use "+db); } }
6458a72000-04-29Francesco Chemolli int|object big_query(string q, mapping(string|int:mixed)|void bindings) { if (!bindings) return ::big_query(q);
d7bd0e2003-12-31Martin Nilsson  return ::big_query(.sql_util.emulate_bindings(q,bindings,this));
6458a72000-04-29Francesco Chemolli }