diff options
| author | Stig Bakken <ssb@php.net> | 1999-04-22 02:48:28 +0000 | 
|---|---|---|
| committer | Stig Bakken <ssb@php.net> | 1999-04-22 02:48:28 +0000 | 
| commit | 2c0ad3ee25cd8e449b02c4668a39f48998507739 (patch) | |
| tree | 8064c7ee59309ffed3d9c5b8fd5c329ede193561 /ext/sybase | |
| parent | 2a78f92804ae6f3e32cd278afbb9aa8ec3d2f52d (diff) | |
| download | php-git-2c0ad3ee25cd8e449b02c4668a39f48998507739.tar.gz | |
last bunch of extensions moving to ext/
fhttpd module taken out of functions, functions is ready to go.
The only extensions I have tested are gd+freetype and odbc(solid).
Please try compiling in your favourite extensions and let me know how it
works.
Diffstat (limited to 'ext/sybase')
| -rw-r--r-- | ext/sybase/Makefile.am | 6 | ||||
| -rw-r--r-- | ext/sybase/Makefile.in | 270 | ||||
| -rw-r--r-- | ext/sybase/config.h.stub | 6 | ||||
| -rw-r--r-- | ext/sybase/config.m4 | 73 | ||||
| -rw-r--r-- | ext/sybase/php3_sybase-ct.h | 123 | ||||
| -rw-r--r-- | ext/sybase/php3_sybase.h | 141 | ||||
| -rw-r--r-- | ext/sybase/setup.stub | 11 | ||||
| -rw-r--r-- | ext/sybase/sybase-ct.c | 1652 | ||||
| -rw-r--r-- | ext/sybase/sybase.c | 1258 | 
9 files changed, 3540 insertions, 0 deletions
diff --git a/ext/sybase/Makefile.am b/ext/sybase/Makefile.am new file mode 100644 index 0000000000..97c3e06f8f --- /dev/null +++ b/ext/sybase/Makefile.am @@ -0,0 +1,6 @@ +# $Id$ + +INCLUDES=@INCLUDES@ -I@top_srcdir@ -I@top_srcdir@/libzend +noinst_LIBRARIES=libphpext_sybase.a +libphpext_sybase_a_SOURCES=sybase.c sybase-ct.c + diff --git a/ext/sybase/Makefile.in b/ext/sybase/Makefile.in new file mode 100644 index 0000000000..224e6b570d --- /dev/null +++ b/ext/sybase/Makefile.in @@ -0,0 +1,270 @@ +# Makefile.in generated automatically by automake 1.3 from Makefile.am + +# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +# $Id$ + + +SHELL = /bin/sh + +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ +prefix = @prefix@ +exec_prefix = @exec_prefix@ + +bindir = @bindir@ +sbindir = @sbindir@ +libexecdir = @libexecdir@ +datadir = @datadir@ +sysconfdir = @sysconfdir@ +sharedstatedir = @sharedstatedir@ +localstatedir = @localstatedir@ +libdir = @libdir@ +infodir = @infodir@ +mandir = @mandir@ +includedir = @includedir@ +oldincludedir = /usr/include + +DISTDIR = + +pkgdatadir = $(datadir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ + +top_builddir = ../.. + +ACLOCAL = @ACLOCAL@ +AUTOCONF = @AUTOCONF@ +AUTOMAKE = @AUTOMAKE@ +AUTOHEADER = @AUTOHEADER@ + +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +transform = @program_transform_name@ + +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +APACHE_INCLUDE = @APACHE_INCLUDE@ +APACHE_TARGET = @APACHE_TARGET@ +APXS = @APXS@ +APXS_LDFLAGS = @APXS_LDFLAGS@ +BINNAME = @BINNAME@ +CC = @CC@ +CFLAGS = @CFLAGS@ +CFLAGS_SHLIB = @CFLAGS_SHLIB@ +DEBUG_CFLAGS = @DEBUG_CFLAGS@ +EXTINFO_DEPS = @EXTINFO_DEPS@ +EXTRA_LIBS = @EXTRA_LIBS@ +EXT_LIBS = @EXT_LIBS@ +EXT_SUBDIRS = @EXT_SUBDIRS@ +FHTTPD_LIB = @FHTTPD_LIB@ +FHTTPD_TARGET = @FHTTPD_TARGET@ +HSREGEX = @HSREGEX@ +INSTALL_IT = @INSTALL_IT@ +LDFLAGS_SHLIB = @LDFLAGS_SHLIB@ +LDFLAGS_SHLIB_EXPORT = @LDFLAGS_SHLIB_EXPORT@ +MAINT = @MAINT@ +MAKEINFO = @MAKEINFO@ +PACKAGE = @PACKAGE@ +PERL_PATH = @PERL_PATH@ +PHP_BUILD_DATE = @PHP_BUILD_DATE@ +PHP_DEBUG = @PHP_DEBUG@ +PHP_LIBS = @PHP_LIBS@ +PHP_VERSION = @PHP_VERSION@ +PROG_SENDMAIL = @PROG_SENDMAIL@ +RANLIB = @RANLIB@ +RDYNAMIC_LFLAGS = @RDYNAMIC_LFLAGS@ +REGEX_LIB = @REGEX_LIB@ +STRONGHOLD = @STRONGHOLD@ +VERSION = @VERSION@ +WARNING_LEVEL = @WARNING_LEVEL@ +YACC = @YACC@ + +INCLUDES=@INCLUDES@ -I@top_srcdir@ -I@top_srcdir@/libzend +noinst_LIBRARIES=libphpext_sybase.a +libphpext_sybase_a_SOURCES=sybase.c sybase-ct.c +mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs +CONFIG_HEADER = ../../config.h +CONFIG_CLEAN_FILES =  +LIBRARIES =  $(noinst_LIBRARIES) + + +DEFS = @DEFS@ -I. -I$(srcdir) -I../.. +CPPFLAGS = @CPPFLAGS@ +LDFLAGS = @LDFLAGS@ +LIBS = @LIBS@ +libphpext_sybase_a_LIBADD =  +libphpext_sybase_a_OBJECTS =  sybase.o sybase-ct.o +AR = ar +COMPILE = $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) +LINK = $(CC) $(CFLAGS) $(LDFLAGS) -o $@ +DIST_COMMON =  Makefile.am Makefile.in + + +DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) + +TAR = tar +GZIP = --best +SOURCES = $(libphpext_sybase_a_SOURCES) +OBJECTS = $(libphpext_sybase_a_OBJECTS) + +all: Makefile $(LIBRARIES) + +.SUFFIXES: +.SUFFIXES: .S .c .o .s +$(srcdir)/Makefile.in: @MAINT@ Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4) +	cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps ext/sybase/Makefile + +Makefile: $(srcdir)/Makefile.in  $(top_builddir)/config.status +	cd $(top_builddir) \ +	  && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status + + +mostlyclean-noinstLIBRARIES: + +clean-noinstLIBRARIES: +	-test -z "$(noinst_LIBRARIES)" || rm -f $(noinst_LIBRARIES) + +distclean-noinstLIBRARIES: + +maintainer-clean-noinstLIBRARIES: + +.c.o: +	$(COMPILE) -c $< + +.s.o: +	$(COMPILE) -c $< + +.S.o: +	$(COMPILE) -c $< + +mostlyclean-compile: +	-rm -f *.o core *.core + +clean-compile: + +distclean-compile: +	-rm -f *.tab.c + +maintainer-clean-compile: + +libphpext_sybase.a: $(libphpext_sybase_a_OBJECTS) $(libphpext_sybase_a_DEPENDENCIES) +	-rm -f libphpext_sybase.a +	$(AR) cru libphpext_sybase.a $(libphpext_sybase_a_OBJECTS) $(libphpext_sybase_a_LIBADD) +	$(RANLIB) libphpext_sybase.a + +tags: TAGS + +ID: $(HEADERS) $(SOURCES) $(LISP) +	here=`pwd` && cd $(srcdir) \ +	  && mkid -f$$here/ID $(SOURCES) $(HEADERS) $(LISP) + +TAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) $(LISP) +	tags=; \ +	here=`pwd`; \ +	list='$(SOURCES) $(HEADERS)'; \ +	unique=`for i in $$list; do echo $$i; done | \ +	  awk '    { files[$$0] = 1; } \ +	       END { for (i in files) print i; }'`; \ +	test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ +	  || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags  $$unique $(LISP) -o $$here/TAGS) + +mostlyclean-tags: + +clean-tags: + +distclean-tags: +	-rm -f TAGS ID + +maintainer-clean-tags: + +distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) + +subdir = ext/sybase + +distdir: $(DISTFILES) +	@for file in $(DISTFILES); do \ +	  d=$(srcdir); \ +	  test -f $(distdir)/$$file \ +	  || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ +	  || cp -p $$d/$$file $(distdir)/$$file; \ +	done +info: +dvi: +check: all +	$(MAKE) +installcheck: +install-exec:  +	@$(NORMAL_INSTALL) + +install-data:  +	@$(NORMAL_INSTALL) + +install: install-exec install-data all +	@: + +uninstall:  + +install-strip: +	$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install +installdirs: + + +mostlyclean-generic: +	-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) + +clean-generic: +	-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) + +distclean-generic: +	-rm -f Makefile $(DISTCLEANFILES) +	-rm -f config.cache config.log stamp-h stamp-h[0-9]* +	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: +	-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) +	-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) +mostlyclean:  mostlyclean-noinstLIBRARIES mostlyclean-compile \ +		mostlyclean-tags mostlyclean-generic + +clean:  clean-noinstLIBRARIES clean-compile clean-tags clean-generic \ +		mostlyclean + +distclean:  distclean-noinstLIBRARIES distclean-compile distclean-tags \ +		distclean-generic clean +	-rm -f config.status + +maintainer-clean:  maintainer-clean-noinstLIBRARIES \ +		maintainer-clean-compile maintainer-clean-tags \ +		maintainer-clean-generic distclean +	@echo "This command is intended for maintainers to use;" +	@echo "it deletes files that may require special tools to rebuild." + +.PHONY: mostlyclean-noinstLIBRARIES distclean-noinstLIBRARIES \ +clean-noinstLIBRARIES maintainer-clean-noinstLIBRARIES \ +mostlyclean-compile distclean-compile clean-compile \ +maintainer-clean-compile tags mostlyclean-tags distclean-tags \ +clean-tags maintainer-clean-tags distdir info dvi installcheck \ +install-exec install-data install uninstall all installdirs \ +mostlyclean-generic distclean-generic clean-generic \ +maintainer-clean-generic clean mostlyclean distclean maintainer-clean + + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/ext/sybase/config.h.stub b/ext/sybase/config.h.stub new file mode 100644 index 0000000000..15ce4496bc --- /dev/null +++ b/ext/sybase/config.h.stub @@ -0,0 +1,6 @@ +/* Define if you have libdnet_stub (used for Sybase support) */ +#define HAVE_LIBDNET_STUB 0 + +#define HAVE_SYBASE 0 + +#define HAVE_SYBASE_CT 0 diff --git a/ext/sybase/config.m4 b/ext/sybase/config.m4 new file mode 100644 index 0000000000..34de48373b --- /dev/null +++ b/ext/sybase/config.m4 @@ -0,0 +1,73 @@ +dnl $Id$ + +AC_MSG_CHECKING(for Sybase support) +AC_ARG_WITH(sybase, +[  --with-sybase[=DIR]     Include Sybase-DB support.  DIR is the Sybase home +                          directory, defaults to /home/sybase.], +[ +  if test "$withval" != "no"; then +    if test "$withval" = "yes"; then +      SYBASE_INCDIR=/home/sybase/include +      SYBASE_LIBDIR=/home/sybase/lib +    else +      SYBASE_INCDIR=$withval/include +      SYBASE_LIBDIR=$withval/lib +    fi +    SYBASE_INCLUDE=-I$SYBASE_INCDIR +    SYBASE_LFLAGS="-L$SYBASE_LIBDIR -L$SYBASE_LIBDIR" +    SYBASE_LIBS=-lsybdb +    AC_MSG_RESULT(yes) +    PHP_EXTENSION(sybase) +    AC_CHECK_LIB(dnet_stub, dnet_addr, +     [ SYBASE_LIBS="$SYBASE_LIBS -ldnet_stub" +        AC_DEFINE(HAVE_LIBDNET_STUB) +     ]) +    AC_DEFINE(HAVE_SYBASE) +    EXTRA_LIBS="$EXTRA_LIBS $SYBASE_LFLAGS $SYBASE_LIBS" +    INCLUDES="$INCLUDES $SYBASE_INCLUDE" +  else +    AC_MSG_RESULT(no) +  fi +],[ +  AC_MSG_RESULT(no) +]) + + +AC_MSG_CHECKING(for Sybase-CT support) +AC_ARG_WITH(sybase-ct, +[  --with-sybase-ct[=DIR]  Include Sybase-CT support.  DIR is the Sybase home +                          directory, defaults to /home/sybase.], +[ +  if test "$withval" != "no"; then +    AC_MSG_RESULT(yes) +    if test -z "$SYBASE_LIBS"; then +      PHP_EXTENSION(sybase) +    fi +    AC_DEFINE(HAVE_SYBASE_CT) +    if test "$withval" = "yes"; then +      SYBASE_CT_INCDIR=/home/sybase/include +      SYBASE_CT_LIBDIR=/home/sybase/lib +    else +      SYBASE_CT_INCDIR=$withval/include +      SYBASE_CT_LIBDIR=$withval/lib +    fi +    SYBASE_CT_INCLUDE=-I$SYBASE_CT_INCDIR +    SYBASE_CT_LFLAGS="-L$SYBASE_CT_LIBDIR" +    SYBASE_CT_LIBS="-lcs -lct -lcomn -lintl" +    old_LDFLAGS=$LDFLAGS +    LDFLAGS="$LDFLAGS -L$SYBASE_CT_LIBDIR" +    AC_CHECK_LIB(tcl, netg_errstr, +              [ SYBASE_CT_LIBS="$SYBASE_CT_LIBS -ltcl" ], +              [ SYBASE_CT_LIBS="$SYBASE_CT_LIBS -lsybtcl" ], +              [ $SYBASE_CT_LIBS ]) +    AC_CHECK_LIB(insck, insck__getVdate, +              [ SYBASE_CT_LIBS="$SYBASE_CT_LIBS -linsck" ]) +      LDFLAGS=$old_LDFLAGS +    EXTRA_LIBS="$EXTRA_LIBS $SYBASE_CT_LFLAGS $SYBASE_CT_LIBS" +    INCLUDES="$INCLUDES $SYBASE_CT_INCLUDE" +  else +    AC_MSG_RESULT(no) +  fi +],[ +  AC_MSG_RESULT(no) +]) diff --git a/ext/sybase/php3_sybase-ct.h b/ext/sybase/php3_sybase-ct.h new file mode 100644 index 0000000000..1ce0a30f0c --- /dev/null +++ b/ext/sybase/php3_sybase-ct.h @@ -0,0 +1,123 @@ +/*  +   +----------------------------------------------------------------------+ +   | PHP HTML Embedded Scripting Language Version 3.0                     | +   +----------------------------------------------------------------------+ +   | Copyright (c) 1997,1998 PHP Development Team (See Credits file)      | +   +----------------------------------------------------------------------+ +   | This program is free software; you can redistribute it and/or modify | +   | it under the terms of one of the following licenses:                 | +   |                                                                      | +   |  A) the GNU General Public License as published by the Free Software | +   |     Foundation; either version 2 of the License, or (at your option) | +   |     any later version.                                               | +   |                                                                      | +   |  B) the PHP License as published by the PHP Development Team and     | +   |     included in the distribution in the file: LICENSE                | +   |                                                                      | +   | This program is distributed in the hope that it will be useful,      | +   | but WITHOUT ANY WARRANTY; without even the implied warranty of       | +   | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        | +   | GNU General Public License for more details.                         | +   |                                                                      | +   | You should have received a copy of both licenses referred to here.   | +   | If you did not, or have any questions about PHP licensing, please    | +   | contact core@php.net.                                                | +   +----------------------------------------------------------------------+ +   | Authors: Zeev Suraski <zeev@zend.com>                                | +   +----------------------------------------------------------------------+ + */ + + +/* $Id$ */ + +#ifndef _PHP3_SYBASE_CT_H +#define _PHP3_SYBASE_CT_H + +#if COMPILE_DL +#undef HAVE_SYBASE_CT +#define HAVE_SYBASE_CT 1 +#endif + +#if HAVE_SYBASE_CT + +#define CTLIB_VERSION CS_VERSION_100 + +extern php3_module_entry sybct_module_entry; +#define sybct_module_ptr &sybct_module_entry + +extern int php3_minit_sybct(INIT_FUNC_ARGS); +extern int php3_rinit_sybct(INIT_FUNC_ARGS); +extern int php3_mshutdown_sybct(SHUTDOWN_FUNC_ARGS); +extern int php3_rshutdown_sybct(SHUTDOWN_FUNC_ARGS); +extern void php3_info_sybct(void); +extern void php3_sybct_connect(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_pconnect(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_close(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_select_db(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_query(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_free_result(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_get_last_message(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_num_rows(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_num_fields(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_fetch_row(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_fetch_array(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_fetch_object(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_data_seek(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_result(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_affected_rows(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_field_seek(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_min_client_severity(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_min_server_severity(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybct_fetch_field(INTERNAL_FUNCTION_PARAMETERS); + + +#include <ctpublic.h> + +typedef struct { +	long default_link; +	long num_links,num_persistent; +	long max_links,max_persistent; +	long allow_persistent; +	char *appname; +	char *hostname; +	char *server_message; +	int le_link,le_plink,le_result; +	long min_server_severity, min_client_severity; +	long cfg_min_server_severity, cfg_min_client_severity; +} sybct_module; + +typedef struct { +	CS_CONNECTION *connection; +	CS_COMMAND *cmd; +	int valid; +	int deadlock; +	int dead; +	long affected_rows; +} sybct_link; + +#define SYBASE_ROWS_BLOCK 128 + +typedef struct { +	char *name,*column_source; +	int max_length, numeric; +	CS_INT type; +} sybct_field; + +typedef struct { +	pval **data; +	sybct_field *fields; +	sybct_link *sybct_ptr; +	int cur_row,cur_field; +	int num_rows,num_fields; +} sybct_result; + + +extern sybct_module php3_sybct_module; + +#else + +#define sybct_module_ptr NULL + +#endif + +#endif /* _PHP3_SYBASE_CT_H */ diff --git a/ext/sybase/php3_sybase.h b/ext/sybase/php3_sybase.h new file mode 100644 index 0000000000..dbfcdd767a --- /dev/null +++ b/ext/sybase/php3_sybase.h @@ -0,0 +1,141 @@ +/*  +   +----------------------------------------------------------------------+ +   | PHP HTML Embedded Scripting Language Version 3.0                     | +   +----------------------------------------------------------------------+ +   | Copyright (c) 1997,1998 PHP Development Team (See Credits file)      | +   +----------------------------------------------------------------------+ +   | This program is free software; you can redistribute it and/or modify | +   | it under the terms of one of the following licenses:                 | +   |                                                                      | +   |  A) the GNU General Public License as published by the Free Software | +   |     Foundation; either version 2 of the License, or (at your option) | +   |     any later version.                                               | +   |                                                                      | +   |  B) the PHP License as published by the PHP Development Team and     | +   |     included in the distribution in the file: LICENSE                | +   |                                                                      | +   | This program is distributed in the hope that it will be useful,      | +   | but WITHOUT ANY WARRANTY; without even the implied warranty of       | +   | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        | +   | GNU General Public License for more details.                         | +   |                                                                      | +   | You should have received a copy of both licenses referred to here.   | +   | If you did not, or have any questions about PHP licensing, please    | +   | contact core@php.net.                                                | +   +----------------------------------------------------------------------+ +   | Authors: Zeev Suraski <zeev@zend.com>                                | +   +----------------------------------------------------------------------+ + */ + + +/* $Id$ */ + +#ifndef _PHP3_SYBASE_H +#define _PHP3_SYBASE_H + +#if COMPILE_DL +#undef HAVE_SYBASE +#define HAVE_SYBASE 1 +#endif + +#if HAVE_SYBASE + +extern php3_module_entry sybase_module_entry; +#define sybase_module_ptr &sybase_module_entry + +extern int php3_minit_sybase(INIT_FUNC_ARGS); +extern int php3_rinit_sybase(INIT_FUNC_ARGS); +extern int php3_mshutdown_sybase(SHUTDOWN_FUNC_ARGS); +extern int php3_rshutdown_sybase(SHUTDOWN_FUNC_ARGS); +extern void php3_info_sybase(void); +extern void php3_sybase_connect(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_pconnect(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_close(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_select_db(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_query(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_free_result(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_get_last_message(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_num_rows(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_num_fields(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_fetch_row(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_fetch_array(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_fetch_object(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_data_seek(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_result(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_field_seek(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_min_error_severity(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_min_message_severity(INTERNAL_FUNCTION_PARAMETERS); + +extern void php3_sybase_db_query(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_list_fields(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_fetch_lengths(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_fetch_field(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_field_seek(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_free_result(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_field_name(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_field_table(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_field_len(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_field_type(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_sybase_field_flags(INTERNAL_FUNCTION_PARAMETERS); + + + +#include <sybfront.h> +#include <sybdb.h> +#include <syberror.h> + +#define coltype(j) dbcoltype(sybase_ptr->link,j) +#define intcol(i) ((int) *(DBINT *) dbdata(sybase_ptr->link,i)) +#define smallintcol(i) ((int) *(DBSMALLINT *) dbdata(sybase_ptr->link,i)) +#define tinyintcol(i) ((int) *(DBTINYINT *) dbdata(sybase_ptr->link,i)) +#define anyintcol(j) (coltype(j)==SYBINT4?intcol(j):(coltype(j)==SYBINT2?smallintcol(j):tinyintcol(j))) +#define charcol(i) ((DBCHAR *) dbdata(sybase_ptr->link,i)) +#define floatcol(i) ((float) *(DBFLT8 *) dbdata(sybase_ptr->link,i)) + +typedef struct sybase_link_struct sybase_link; + +typedef struct { +	long default_link; +	long num_links,num_persistent; +	long max_links,max_persistent; +	long allow_persistent; +	char *appname; +	char *server_message; +	int le_link,le_plink,le_result; +	long min_error_severity,min_message_severity; +	long cfg_min_error_severity,cfg_min_message_severity; +	long compatability_mode; +} sybase_module; + +struct sybase_link_struct { +	LOGINREC *login; +	DBPROCESS *link; +	int valid; +}; + +#define SYBASE_ROWS_BLOCK 128 + +typedef struct { +	char *name,*column_source; +	int max_length, numeric; +	int type; +} sybase_field; + +typedef struct { +	pval **data; +	sybase_field *fields; +	sybase_link *sybase_ptr; +	int cur_row,cur_field; +	int num_rows,num_fields; +} sybase_result; + + +extern sybase_module php3_sybase_module; + +#else + +#define sybase_module_ptr NULL + +#endif + +#endif /* _PHP3_SYBASE_H */ diff --git a/ext/sybase/setup.stub b/ext/sybase/setup.stub new file mode 100644 index 0000000000..58e0b789c6 --- /dev/null +++ b/ext/sybase/setup.stub @@ -0,0 +1,11 @@ +# $Source$ +# $Id$ + +define_option with-sybase 'Sybase support?' yesnodir \ +    'no /home/sybase Sybase install' \ +'     Whether to build PHP with Sybase support (DBLib only).\n +     More info about Sybase can be found at http://www.sybase.com/.' + +define_option with-sybase-ct 'Sybase-CT support?' yesnodir \ +    'no /home/sybase Sybase-CT install' \ +'     Whether to build PHP with Sybase-CT support.' diff --git a/ext/sybase/sybase-ct.c b/ext/sybase/sybase-ct.c new file mode 100644 index 0000000000..7f45658d6b --- /dev/null +++ b/ext/sybase/sybase-ct.c @@ -0,0 +1,1652 @@ +/* +   +----------------------------------------------------------------------+ +   | PHP HTML Embedded Scripting Language Version 3.0                     | +   +----------------------------------------------------------------------+ +   | Copyright (c) 1997,1998 PHP Development Team (See Credits file)      | +   +----------------------------------------------------------------------+ +   | This program is free software; you can redistribute it and/or modify | +   | it under the terms of one of the following licenses:                 | +   |                                                                      | +   |  A) the GNU General Public License as published by the Free Software | +   |     Foundation; either version 2 of the License, or (at your option) | +   |     any later version.                                               | +   |                                                                      | +   |  B) the PHP License as published by the PHP Development Team and     | +   |     included in the distribution in the file: LICENSE                | +   |                                                                      | +   | This program is distributed in the hope that it will be useful,      | +   | but WITHOUT ANY WARRANTY; without even the implied warranty of       | +   | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        | +   | GNU General Public License for more details.                         | +   |                                                                      | +   | You should have received a copy of both licenses referred to here.   | +   | If you did not, or have any questions about PHP licensing, please    | +   | contact core@php.net.                                                | +   +----------------------------------------------------------------------+ +   | Authors: Zeev Suraski <zeev@zend.com>                                | +   |          Tom May <tom@go2net.com>                                    | +   +----------------------------------------------------------------------+ + */ +  +/* $Id$ */ + + +#ifndef MSVC5 +#include "config.h" +#endif +#include "php.h" +#include "php3_sybase-ct.h" +#include "ext/standard/php3_standard.h" +#include "php_globals.h" + +#if HAVE_SYBASE_CT + + + +function_entry sybct_functions[] = { +	{"sybase_connect",		php3_sybct_connect,			NULL}, +	{"sybase_pconnect",		php3_sybct_pconnect,		NULL}, +	{"sybase_close",		php3_sybct_close,			NULL}, +	{"sybase_select_db",	php3_sybct_select_db,		NULL}, +	{"sybase_query",		php3_sybct_query,			NULL}, +	{"sybase_free_result",	php3_sybct_free_result,		NULL}, +	{"sybase_num_rows",		php3_sybct_num_rows,		NULL}, +	{"sybase_num_fields",	php3_sybct_num_fields,		NULL}, +	{"sybase_fetch_row",	php3_sybct_fetch_row,		NULL}, +	{"sybase_fetch_array",	php3_sybct_fetch_array,		NULL}, +	{"sybase_fetch_object",	php3_sybct_fetch_object,	NULL}, +	{"sybase_data_seek",	php3_sybct_data_seek,		NULL}, +	{"sybase_fetch_field",	php3_sybct_fetch_field,		NULL}, +	{"sybase_field_seek",	php3_sybct_field_seek,		NULL}, +	{"sybase_result",		php3_sybct_result,			NULL}, +	{"sybase_affected_rows",php3_sybct_affected_rows,	NULL}, +	{"sybase_min_client_severity",	php3_sybct_min_client_severity,		NULL}, +	{"sybase_min_server_severity",	php3_sybct_min_server_severity,		NULL}, +	{"mssql_connect",		php3_sybct_connect,			NULL}, +	{"mssql_pconnect",		php3_sybct_pconnect,		NULL}, +	{"mssql_close",			php3_sybct_close,			NULL}, +	{"mssql_select_db",		php3_sybct_select_db,		NULL}, +	{"mssql_query",			php3_sybct_query,			NULL}, +	{"mssql_free_result",	php3_sybct_free_result,		NULL}, +	{"mssql_num_rows",		php3_sybct_num_rows,		NULL}, +	{"mssql_num_fields",	php3_sybct_num_fields,		NULL}, +	{"mssql_fetch_row",		php3_sybct_fetch_row,		NULL}, +	{"mssql_fetch_array",	php3_sybct_fetch_array,		NULL}, +	{"mssql_fetch_object",	php3_sybct_fetch_object,	NULL}, +	{"mssql_data_seek",		php3_sybct_data_seek,		NULL}, +	{"mssql_fetch_field",	php3_sybct_fetch_field,		NULL}, +	{"mssql_field_seek",	php3_sybct_field_seek,		NULL}, +	{"mssql_result",		php3_sybct_result,			NULL}, +	{"mssql_affected_rows",	php3_sybct_affected_rows,	NULL}, +	{"mssql_min_client_severity",	php3_sybct_min_client_severity,		NULL}, +	{"mssql_min_server_severity",	php3_sybct_min_server_severity,		NULL}, +	{NULL, NULL, NULL} +}; + +php3_module_entry sybct_module_entry = { +	"Sybase SQL - CT", sybct_functions, php3_minit_sybct, php3_mshutdown_sybct, php3_rinit_sybct, php3_rshutdown_sybct, php3_info_sybct, STANDARD_MODULE_PROPERTIES +}; + +#if COMPILE_DL +php3_module_entry *get_module() { return &sybct_module_entry; } +#endif + +THREAD_LS sybct_module php3_sybct_module; +THREAD_LS static CS_CONTEXT *context; +THREAD_LS static HashTable *resource_list,*resource_plist; + +#define CHECK_LINK(link) { if (link==-1) { php3_error(E_WARNING,"Sybase:  A link to the server could not be established"); RETURN_FALSE; } } + + +static int _clean_invalid_results(list_entry *le) +{ +	if (le->type == php3_sybct_module.le_result) { +		sybct_link *sybct_ptr = ((sybct_result *) le->ptr)->sybct_ptr; +		 +		if (!sybct_ptr->valid) { +			return 1; +		} +	} +	return 0; +} + + +static void _free_sybct_result(sybct_result *result) +{ +	int i,j; + +	if (result->data) { +		for (i=0; i<result->num_rows; i++) { +			for (j=0; j<result->num_fields; j++) { +				pval_destructor(&result->data[i][j]); +			} +			efree(result->data[i]); +		} +		efree(result->data); +	} +	 +	if (result->fields) { +		for (i=0; i<result->num_fields; i++) { +			STR_FREE(result->fields[i].name); +			STR_FREE(result->fields[i].column_source); +		} +		efree(result->fields); +	} + +	efree(result); +} + + +static void _close_sybct_link(sybct_link *sybct_ptr) +{ +	CS_INT con_status; + +	sybct_ptr->valid = 0; +	_php3_hash_apply(resource_list,(int (*)(void *))_clean_invalid_results); + +	/* Non-persistent connections will always be connected or we wouldn't +	 * get here, but since we want to check the death status anyway +	 * we might as well double-check the connect status. +	 */ +	if (ct_con_props(sybct_ptr->connection, CS_GET, CS_CON_STATUS, +					 &con_status, CS_UNUSED, NULL)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to get connection status on close"); +		/* Assume the worst. */ +		con_status = CS_CONSTAT_CONNECTED | CS_CONSTAT_DEAD; +	} +	if (con_status & CS_CONSTAT_CONNECTED) { +		if ((con_status & CS_CONSTAT_DEAD) || ct_close(sybct_ptr->connection, CS_UNUSED)!=CS_SUCCEED) { +			ct_close(sybct_ptr->connection, CS_FORCE_CLOSE); +		} +	} + +	ct_con_drop(sybct_ptr->connection); +	efree(sybct_ptr); +	php3_sybct_module.num_links--; +} + + +static void _close_sybct_plink(sybct_link *sybct_ptr) +{ +	CS_INT con_status; + +	/* Persistent connections may have been closed before a failed +	 * reopen attempt. +	 */ +	if (ct_con_props(sybct_ptr->connection, CS_GET, CS_CON_STATUS, +					 &con_status, CS_UNUSED, NULL)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to get connection status on close"); +		/* Assume the worst. */ +		con_status = CS_CONSTAT_CONNECTED | CS_CONSTAT_DEAD; +	} +	if (con_status & CS_CONSTAT_CONNECTED) { +		if ((con_status & CS_CONSTAT_DEAD) || ct_close(sybct_ptr->connection, CS_UNUSED)!=CS_SUCCEED) { +			ct_close(sybct_ptr->connection, CS_FORCE_CLOSE); +		} +	} + +	ct_con_drop(sybct_ptr->connection); +	free(sybct_ptr); +	php3_sybct_module.num_persistent--; +	php3_sybct_module.num_links--; +} + + +static CS_RETCODE _client_message_handler(CS_CONTEXT *context, CS_CONNECTION *connection, CS_CLIENTMSG *errmsg) +{ +	if (CS_SEVERITY(errmsg->msgnumber) >= php3_sybct_module.min_client_severity) { +		php3_error(E_WARNING,"Sybase:  Client message:  %s (severity %d)",errmsg->msgstring, CS_SEVERITY(errmsg->msgnumber)); +	} + +	/* If this is a timeout message, return CS_FAIL to cancel the +	 * operation and mark the connection as dead. +	 */ +	if (CS_SEVERITY(errmsg->msgnumber) == CS_SV_RETRY_FAIL && +		CS_NUMBER(errmsg->msgnumber) == 63 && +		CS_ORIGIN(errmsg->msgnumber) == 2 && +		CS_LAYER(errmsg->msgnumber) == 1) +	{ +		return CS_FAIL; +	} + +    return CS_SUCCEED; +} + + +static CS_RETCODE _server_message_handler(CS_CONTEXT *context, CS_CONNECTION *connection, CS_SERVERMSG *srvmsg) +{ +	if (srvmsg->severity >= php3_sybct_module.min_server_severity) { +		php3_error(E_WARNING,"Sybase:  Server message:  %s (severity %d, procedure %s)", +					srvmsg->text, srvmsg->severity, ((srvmsg->proclen>0) ? srvmsg->proc : "N/A")); +	} + +	/* If this is a deadlock message, set the connection's deadlock flag +	 * so we will retry the request.  Sorry about the bare constant here, +	 * but it's not defined anywhere and it's a "well-known" number. +	 */ +	if (srvmsg->msgnumber == 1205) { +		sybct_link *sybct; + +		if (ct_con_props(connection, CS_GET, CS_USERDATA, &sybct, CS_SIZEOF(sybct), NULL)==CS_SUCCEED) { +		    sybct->deadlock = 1; +		} +		else { +			/* oh well */ +		} +	} + +    return CS_SUCCEED; +} + + +int php3_minit_sybct(INIT_FUNC_ARGS) +{ +	long timeout; + +	if (cs_ctx_alloc(CTLIB_VERSION, &context)!=CS_SUCCEED || ct_init(context,CTLIB_VERSION)!=CS_SUCCEED) { +		return FAILURE; +	} +	/* Initialize message handlers */ +	 +	if (ct_callback(context, NULL, CS_SET, CS_SERVERMSG_CB, (CS_VOID *)_server_message_handler)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to set server message handler"); +	} +	if (ct_callback(context, NULL, CS_SET, CS_CLIENTMSG_CB, (CS_VOID *)_client_message_handler)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to set client message handler"); +	} +	 +	/* Set datetime conversion format to "Nov  3 1998  8:06PM". +	 * This is the default format for the ct-lib that comes with +	 * Sybase ASE 11.5.1 for Solaris, but the Linux libraries that +	 * come with 11.0.3.3 default to "03/11/98" which is singularly +	 * useless.  This levels the playing field for all platforms. +	 */ +	{ +		CS_INT dt_convfmt = CS_DATES_SHORT; +		if (cs_dt_info(context, CS_SET, NULL, CS_DT_CONVFMT, CS_UNUSED, &dt_convfmt, sizeof(dt_convfmt), NULL)!=CS_SUCCEED) { +			php3_error(E_WARNING,"Sybase:  Unable to set datetime conversion format"); +		} +	} + +	/* Set the login and command timeouts.  These are per-context and +	 * can't be set with ct_con_props(), so set them globally from +	 * their config values if requested.  The defaults are 1 minute +	 * for CS_LOGIN_TIMEOUT and CS_NO_LIMIT for CS_TIMEOUT.  The latter +	 * especially is fairly useless for web applications. +	 * Note that depite some noise in the documentation about using +	 * signals to implement timeouts, they are actually implemented +	 * by using poll() or select() on Solaris and Linux. +	 */ +	if (cfg_get_long("sybct.login_timeout",&timeout)==SUCCESS) { +		CS_INT cs_login_timeout = timeout; +		if (ct_config(context, CS_SET, CS_LOGIN_TIMEOUT, &cs_login_timeout, CS_UNUSED, NULL)!=CS_SUCCEED) { +			php3_error(E_WARNING,"Sybase:  Unable to set login timeoutt"); +		} +	} +	if (cfg_get_long("sybct.timeout",&timeout)==SUCCESS) { +		CS_INT cs_timeout = timeout; +		if (ct_config(context, CS_SET, CS_TIMEOUT, &cs_timeout, CS_UNUSED, NULL)!=CS_SUCCEED) { +			php3_error(E_WARNING,"Sybase:  Unable to set timeout"); +		} +	} + +	if (cfg_get_long("sybct.allow_persistent",&php3_sybct_module.allow_persistent)==FAILURE) { +		php3_sybct_module.allow_persistent=1; +	} +	if (cfg_get_long("sybct.max_persistent",&php3_sybct_module.max_persistent)==FAILURE) { +		php3_sybct_module.max_persistent=-1; +	} +	if (cfg_get_long("sybct.max_links",&php3_sybct_module.max_links)==FAILURE) { +		php3_sybct_module.max_links=-1; +	} +	if (cfg_get_long("sybct.min_server_severity",&php3_sybct_module.cfg_min_server_severity)==FAILURE) { +		php3_sybct_module.cfg_min_server_severity=10; +	} +	if (cfg_get_long("sybct.min_client_severity",&php3_sybct_module.cfg_min_client_severity)==FAILURE) { +		php3_sybct_module.cfg_min_client_severity=10; +	} +	 +	if (cfg_get_string("sybct.hostname",&php3_sybct_module.hostname)==FAILURE +		|| php3_sybct_module.hostname[0]==0) { +		php3_sybct_module.hostname=NULL; +	} + +	php3_sybct_module.num_persistent=0; +	php3_sybct_module.le_link = register_list_destructors(_close_sybct_link,NULL); +	php3_sybct_module.le_plink = register_list_destructors(NULL,_close_sybct_plink); +	php3_sybct_module.le_result = register_list_destructors(_free_sybct_result,NULL); + +	return SUCCESS; +} + + +int php3_rinit_sybct(INIT_FUNC_ARGS) +{ +	php3_sybct_module.default_link=-1; +	php3_sybct_module.num_links = php3_sybct_module.num_persistent; +	php3_sybct_module.appname = estrndup("PHP 3.0",7); +	php3_sybct_module.server_message = NULL; +	php3_sybct_module.min_server_severity = php3_sybct_module.cfg_min_server_severity; +	php3_sybct_module.min_client_severity = php3_sybct_module.cfg_min_client_severity; +	return SUCCESS; +} + +int php3_mshutdown_sybct(SHUTDOWN_FUNC_ARGS) +{ +/*	ct_exit(context,CS_UNUSED); +	cs_ctx_drop(context); */ +	return SUCCESS; +} + +int php3_rshutdown_sybct(SHUTDOWN_FUNC_ARGS) +{ +	efree(php3_sybct_module.appname); +	if (php3_sybct_module.server_message) { +		efree(php3_sybct_module.server_message); +	} +	return SUCCESS; +} + + +static int _php3_sybct_really_connect(sybct_link *sybct, char *host, char *user, char *passwd) +{ +	/* set a CS_CONNECTION record */ +	if (ct_con_alloc(context, &sybct->connection)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to allocate connection record"); +		return 0; +	} +	 +	/* Note - this saves a copy of sybct, not a pointer to it. */ +	if (ct_con_props(sybct->connection, CS_SET, CS_USERDATA, &sybct, CS_SIZEOF(sybct), NULL)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to set userdata"); +		ct_con_drop(sybct->connection); +		return 0; +	} + +	if (user) { +		ct_con_props(sybct->connection, CS_SET, CS_USERNAME, user, CS_NULLTERM, NULL); +	} +	if (passwd) { +		ct_con_props(sybct->connection, CS_SET, CS_PASSWORD, passwd, CS_NULLTERM, NULL); +	} +	ct_con_props(sybct->connection, CS_SET, CS_APPNAME, php3_sybct_module.appname, CS_NULLTERM, NULL); + +	if (php3_sybct_module.hostname) { +		ct_con_props(sybct->connection, CS_SET, CS_HOSTNAME, php3_sybct_module.hostname, CS_NULLTERM, NULL); +	} + +	sybct->valid = 1; +	sybct->dead = 0; + +	/* create the link */ +	if (ct_connect(sybct->connection, host, CS_NULLTERM)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to connect"); +		ct_con_drop(sybct->connection); +		return 0; +	} + +	if (ct_cmd_alloc(sybct->connection,&sybct->cmd)!=CS_SUCCEED) { +		php3_error(E_WARNING,"Sybase:  Unable to allocate command record"); +		ct_close(sybct->connection,CS_UNUSED); +		ct_con_drop(sybct->connection); +		return 0; +	} + +	return 1; +} + + +static void php3_sybct_do_connect(INTERNAL_FUNCTION_PARAMETERS,int persistent) +{ +	char *user,*passwd,*host; +	char *hashed_details; +	int hashed_details_length; +	sybct_link *sybct_ptr; + +	resource_list = list; +	resource_plist = plist; +		 +	switch(ARG_COUNT(ht)) { +		case 0: /* defaults */ +			host=user=passwd=NULL; +			hashed_details_length=5+3; +			hashed_details = (char *) emalloc(hashed_details_length+1); +			strcpy(hashed_details,"sybct___"); +			break; +		case 1: { +				pval *yyhost; +				 +				if (getParameters(ht, 1, &yyhost)==FAILURE) { +					RETURN_FALSE; +				} +				convert_to_string(yyhost); +				host = yyhost->value.str.val; +				user=passwd=NULL; +				hashed_details_length = yyhost->value.str.len+5+3; +				hashed_details = (char *) emalloc(hashed_details_length+1); +				sprintf(hashed_details,"sybct_%s__",yyhost->value.str.val); +			} +			break; +		case 2: { +				pval *yyhost,*yyuser; +				 +				if (getParameters(ht, 2, &yyhost, &yyuser)==FAILURE) { +					RETURN_FALSE; +				} +				convert_to_string(yyhost); +				convert_to_string(yyuser); +				host = yyhost->value.str.val; +				user = yyuser->value.str.val; +				passwd=NULL; +				hashed_details_length = yyhost->value.str.len+yyuser->value.str.len+5+3; +				hashed_details = (char *) emalloc(hashed_details_length+1); +				sprintf(hashed_details,"sybct_%s_%s_",yyhost->value.str.val,yyuser->value.str.val); +			} +			break; +		case 3: { +				pval *yyhost,*yyuser,*yypasswd; +			 +				if (getParameters(ht, 3, &yyhost, &yyuser, &yypasswd) == FAILURE) { +					RETURN_FALSE; +				} +				convert_to_string(yyhost); +				convert_to_string(yyuser); +				convert_to_string(yypasswd); +				host = yyhost->value.str.val; +				user = yyuser->value.str.val; +				passwd = yypasswd->value.str.val; +				hashed_details_length = yyhost->value.str.len+yyuser->value.str.len+yypasswd->value.str.len+5+3; +				hashed_details = (char *) emalloc(hashed_details_length+1); +				sprintf(hashed_details,"sybct_%s_%s_%s",yyhost->value.str.val,yyuser->value.str.val,yypasswd->value.str.val); /* SAFE */ +			} +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} + + +	if (!php3_sybct_module.allow_persistent) { +		persistent=0; +	} +	if (persistent) { +		list_entry *le; + +		/* try to find if we already have this link in our persistent list */ +		if (_php3_hash_find(plist, hashed_details, hashed_details_length+1, (void **) &le)==FAILURE) {  /* we don't */ +			list_entry new_le; + +			if (php3_sybct_module.max_links!=-1 && php3_sybct_module.num_links>=php3_sybct_module.max_links) { +				php3_error(E_WARNING,"Sybase:  Too many open links (%d)",php3_sybct_module.num_links); +				efree(hashed_details); +				RETURN_FALSE; +			} +			if (php3_sybct_module.max_persistent!=-1 && php3_sybct_module.num_persistent>=php3_sybct_module.max_persistent) { +				php3_error(E_WARNING,"Sybase:  Too many open persistent links (%d)",php3_sybct_module.num_persistent); +				efree(hashed_details); +				RETURN_FALSE; +			} + +			sybct_ptr = (sybct_link *) malloc(sizeof(sybct_link)); +			if (!_php3_sybct_really_connect(sybct_ptr, host, user, passwd)) { +				free(sybct_ptr); +				efree(hashed_details); +				RETURN_FALSE; +			} + +			/* hash it up */ +			new_le.type = php3_sybct_module.le_plink; +			new_le.ptr = sybct_ptr; +			if (_php3_hash_update(plist, hashed_details, hashed_details_length+1, (void *) &new_le, sizeof(list_entry),NULL)==FAILURE) { +				ct_close(sybct_ptr->connection, CS_UNUSED); +				ct_con_drop(sybct_ptr->connection); +				free(sybct_ptr); +				efree(hashed_details); +				RETURN_FALSE; +			} +			php3_sybct_module.num_persistent++; +			php3_sybct_module.num_links++; +		} else {  /* we do */ +			CS_INT con_status; + +			if (le->type != php3_sybct_module.le_plink) { +				efree(hashed_details); +				RETURN_FALSE; +			} +			 +			sybct_ptr = (sybct_link *) le->ptr; + +			/* If the link has died, close it and overwrite it with a new one. */ + +			if (ct_con_props(sybct_ptr->connection, CS_GET, CS_CON_STATUS, +							 &con_status, CS_UNUSED, NULL)!=CS_SUCCEED) { +				php3_error(E_WARNING,"Sybase:  Unable to get connection status"); +				efree(hashed_details); +				RETURN_FALSE; +			} +			if (!(con_status & CS_CONSTAT_CONNECTED) || (con_status & CS_CONSTAT_DEAD) || sybct_ptr->dead) { +				sybct_link sybct; + +				if (con_status & CS_CONSTAT_CONNECTED) { +					ct_close(sybct_ptr->connection, CS_FORCE_CLOSE); +				} +				/* Create a new connection, then replace the old +				 * connection.  If we fail to create a new connection, +				 * put the old one back so there will be a connection, +				 * even if it is a non-functional one.  This is because +				 * code may still be holding an id for this connection +				 * so we can't free the CS_CONNECTION. +				 * (This is actually totally hokey, it would be better +				 * to just ct_con_drop() the connection and set +				 * sybct_ptr->connection to NULL, then test it for +				 * NULL before trying to use it elsewhere . . .) +				 */ +				memcpy(&sybct,sybct_ptr,sizeof(sybct_link)); +				if (!_php3_sybct_really_connect(sybct_ptr, host, user, passwd)) { +					memcpy(sybct_ptr,&sybct,sizeof(sybct_link)); +					efree(hashed_details); +					RETURN_FALSE; +				} +				ct_con_drop(sybct.connection); /* drop old connection */ +			} +		} +		return_value->value.lval = php3_list_insert(sybct_ptr,php3_sybct_module.le_plink); +		return_value->type = IS_LONG; +	} else { /* non persistent */ +		list_entry *index_ptr,new_index_ptr; +		 +		/* first we check the hash for the hashed_details key.  if it exists, +		 * it should point us to the right offset where the actual sybct link sits. +		 * if it doesn't, open a new sybct link, add it to the resource list, +		 * and add a pointer to it with hashed_details as the key. +		 */ +		if (_php3_hash_find(list,hashed_details,hashed_details_length+1,(void **) &index_ptr)==SUCCESS) { +			int type,link; +			void *ptr; + +			if (index_ptr->type != le_index_ptr) { +				efree(hashed_details); +				RETURN_FALSE; +			} +			link = (int) index_ptr->ptr; +			ptr = php3_list_find(link,&type);   /* check if the link is still there */ +			if (ptr && (type==php3_sybct_module.le_link || type==php3_sybct_module.le_plink)) { +				return_value->value.lval = php3_sybct_module.default_link = link; +				return_value->type = IS_LONG; +				efree(hashed_details); +				return; +			} else { +				_php3_hash_del(list,hashed_details,hashed_details_length+1); +			} +		} +		if (php3_sybct_module.max_links!=-1 && php3_sybct_module.num_links>=php3_sybct_module.max_links) { +			php3_error(E_WARNING,"Sybase:  Too many open links (%d)",php3_sybct_module.num_links); +			efree(hashed_details); +			RETURN_FALSE; +		} + +		sybct_ptr = (sybct_link *) emalloc(sizeof(sybct_link)); +		if (!_php3_sybct_really_connect(sybct_ptr, host, user, passwd)) { +			efree(sybct_ptr); +			efree(hashed_details); +			RETURN_FALSE; +		} + +		/* add it to the list */ +		return_value->value.lval = php3_list_insert(sybct_ptr,php3_sybct_module.le_link); +		return_value->type = IS_LONG; +		 +		/* add it to the hash */ +		new_index_ptr.ptr = (void *) return_value->value.lval; +		new_index_ptr.type = le_index_ptr; +		if (_php3_hash_update(list,hashed_details,hashed_details_length+1,(void *) &new_index_ptr, sizeof(list_entry),NULL)==FAILURE) { +			ct_close(sybct_ptr->connection, CS_UNUSED); +			ct_con_drop(sybct_ptr->connection); +			efree(sybct_ptr); +			efree(hashed_details); +			RETURN_FALSE; +		} +		php3_sybct_module.num_links++; +	} +	efree(hashed_details); +	php3_sybct_module.default_link=return_value->value.lval; +} + + +static int php3_sybct_get_default_link(INTERNAL_FUNCTION_PARAMETERS) +{ +	if (php3_sybct_module.default_link==-1) { /* no link opened yet, implicitly open one */ +		HashTable dummy; + +		_php3_hash_init(&dummy,0,NULL,NULL,0); +		php3_sybct_do_connect(&dummy,return_value,list,plist,0); +		_php3_hash_destroy(&dummy); +	} +	return php3_sybct_module.default_link; +} + + +void php3_sybct_connect(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybct_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU,0); +} + +void php3_sybct_pconnect(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybct_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU,1); +} + + +void php3_sybct_close(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_link_index; +	int id,type; +	 +	switch (ARG_COUNT(ht)) { +		case 0: +			id = php3_sybct_module.default_link; +			break; +		case 1: +			if (getParameters(ht, 1, &sybct_link_index)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(sybct_link_index); +			id = sybct_link_index->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_link && type!=php3_sybct_module.le_plink) { +		php3_error(E_WARNING,"%d is not a Sybase link index",id); +		RETURN_FALSE; +	} +	 +	php3_list_delete(id); +	RETURN_TRUE; +} +	 + +static int exec_cmd(sybct_link *sybct_ptr,char *cmdbuf) +{ +	CS_RETCODE retcode; +	CS_INT restype; +	int failure=0; + +	/* Fail if we already marked this connection dead. */ + +	if (sybct_ptr->dead) { +		return FAILURE; +	} + +	/* +	 ** Get a command handle, store the command string in it, and +	 ** send it to the server. +	 */ +	 +	if (ct_command(sybct_ptr->cmd, CS_LANG_CMD, cmdbuf, CS_NULLTERM, CS_UNUSED)!=CS_SUCCEED) { +		sybct_ptr->dead = 1; +		return FAILURE; +	} +	if (ct_send(sybct_ptr->cmd)!=CS_SUCCEED) { +		sybct_ptr->dead = 1; +		return FAILURE; +	} +	 +	while ((retcode = ct_results(sybct_ptr->cmd, &restype))==CS_SUCCEED) { +		switch ((int) restype) { +			case CS_CMD_SUCCEED: +			case CS_CMD_DONE: +				break; +		 +			case CS_CMD_FAIL: +				failure=1; +				break; +			 +			case CS_STATUS_RESULT: +				ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_CURRENT); +				break; +			 +			default: +				failure=1; +				break; +		} +		if (failure) { +			ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_ALL); +			return FAILURE; +		} +	} + +	switch (retcode) { +		case CS_END_RESULTS: +			return SUCCESS; +			break; + +		case CS_FAIL: +			/* Hopefully this either cleans up the connection, or the +			 * connection ends up marked dead so it will be reopened +			 * if it is persistent.  We may want to do +			 * ct_close(CS_FORCE_CLOSE) if ct_cancel() fails; see the +			 * doc for ct_results()==CS_FAIL. +			 */ +			ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_ALL); +			/* Don't take chances with the vagaries of ct-lib.  Mark it +			 * dead ourselves. +			 */ +			sybct_ptr->dead = 1; +			return FAILURE; + +		default: +			return FAILURE; +	} +} + + +void php3_sybct_select_db(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *db,*sybct_link_index; +	int id,type; +	char *cmdbuf; +	sybct_link  *sybct_ptr; +	 +	switch(ARG_COUNT(ht)) { +		case 1: +			if (getParameters(ht, 1, &db)==FAILURE) { +				RETURN_FALSE; +			} +			id = php3_sybct_get_default_link(INTERNAL_FUNCTION_PARAM_PASSTHRU); +			break; +		case 2: +			if (getParameters(ht, 2, &db, &sybct_link_index)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(sybct_link_index); +			id = sybct_link_index->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	CHECK_LINK(id); +	 +	sybct_ptr = (sybct_link *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_link && type!=php3_sybct_module.le_plink) { +		php3_error(E_WARNING,"%d is not a Sybase link index",id); +		RETURN_FALSE; +	} +	 +	convert_to_string(db); +	cmdbuf = (char *) emalloc(sizeof("use ")+db->value.str.len+1); +	sprintf(cmdbuf,"use %s",db->value.str.val); /* SAFE */ + +	if (exec_cmd(sybct_ptr,cmdbuf)==FAILURE) { +		efree(cmdbuf); +		RETURN_FALSE; +	} else { +		efree(cmdbuf); +		RETURN_TRUE; +	} +} + + +static sybct_result * _php3_sybct_fetch_result_set (sybct_link *sybct_ptr) +{ +	int num_fields; +	sybct_result *result; +	char **tmp_buffer; +	CS_INT *lengths; +	CS_SMALLINT *indicators; +	unsigned char *numerics; +	CS_INT *types; +	CS_DATAFMT *datafmt; +	int i,j,retcode; +	int blocks_initialized=1; + +	/* The following is more or less the equivalent of mysql_store_result(). +	 * fetch all rows from the server into the row buffer, thus: +	 * 1)  Being able to fire up another query without explicitly reading all rows +	 * 2)  Having numrows accessible +	 */ + +	if (ct_res_info(sybct_ptr->cmd, CS_NUMDATA, &num_fields, CS_UNUSED, NULL)!=CS_SUCCEED) { +		return NULL; +	} +	 +	result = (sybct_result *) emalloc(sizeof(sybct_result)); +	result->data = (pval **) emalloc(sizeof(pval *)*SYBASE_ROWS_BLOCK); +	result->fields = NULL; +	result->sybct_ptr = sybct_ptr; +	result->cur_field=result->cur_row=result->num_rows=0; +	result->num_fields = num_fields; + +	tmp_buffer = (char **) emalloc(sizeof(char *)*num_fields); +	lengths = (CS_INT *) emalloc(sizeof(CS_INT)*num_fields); +	indicators = (CS_SMALLINT *) emalloc(sizeof(CS_INT)*num_fields); +	datafmt = (CS_DATAFMT *) emalloc(sizeof(CS_DATAFMT)*num_fields); +	numerics = (unsigned char *) emalloc(sizeof(unsigned char)*num_fields); +	types = (CS_INT *) emalloc(sizeof(CS_INT)*num_fields); +	 + +	for (i=0; i<num_fields; i++) { +		ct_describe(sybct_ptr->cmd,i+1,&datafmt[i]); +		types[i] = datafmt[i].datatype; +		switch (datafmt[i].datatype) { +			case CS_CHAR_TYPE: +			case CS_VARCHAR_TYPE: +			case CS_TEXT_TYPE: +			case CS_IMAGE_TYPE: +				datafmt[i].maxlength++; +				numerics[i] = 0; +				break; +			case CS_BINARY_TYPE: +			case CS_VARBINARY_TYPE: +				datafmt[i].maxlength *= 2; +				datafmt[i].maxlength++; +				numerics[i] = 0; +				break; +			case CS_BIT_TYPE: +			case CS_TINYINT_TYPE: +				datafmt[i].maxlength = 4; +				numerics[i] = 1; +				break; +			case CS_SMALLINT_TYPE: +				datafmt[i].maxlength = 7; +				numerics[i] = 1; +				break; +			case CS_INT_TYPE: +				datafmt[i].maxlength = 12; +				numerics[i] = 1; +				break; +			case CS_REAL_TYPE: +			case CS_FLOAT_TYPE: +				datafmt[i].maxlength = 24; +				numerics[i] = 1; +				break; +			case CS_MONEY_TYPE: +			case CS_MONEY4_TYPE: +				datafmt[i].maxlength = 24; +				numerics[i] = 0; +				break; +			case CS_DATETIME_TYPE: +			case CS_DATETIME4_TYPE: +				datafmt[i].maxlength = 30; +				numerics[i] = 0; +				break; +			case CS_NUMERIC_TYPE: +			case CS_DECIMAL_TYPE: +				datafmt[i].maxlength = datafmt[i].precision + 3; +				numerics[i] = 1; +				break; +			default: +				datafmt[i].maxlength++; +				numerics[i] = 0; +				break; +		} +		tmp_buffer[i] = (char *)emalloc(datafmt[i].maxlength); +		datafmt[i].datatype = CS_CHAR_TYPE; +		datafmt[i].format = CS_FMT_NULLTERM; +		ct_bind(sybct_ptr->cmd,i+1,&datafmt[i],tmp_buffer[i],&lengths[i],&indicators[i]); +	} +	 +	while ((retcode=ct_fetch(sybct_ptr->cmd,CS_UNUSED,CS_UNUSED,CS_UNUSED,NULL))==CS_SUCCEED +			|| retcode==CS_ROW_FAIL) { +		/* +		if (retcode==CS_ROW_FAIL) { +			php3_error(E_WARNING,"Sybase:  Error reading row %d",result->num_rows); +		} +		*/ +		i = result->num_rows++; +		if (result->num_rows > blocks_initialized*SYBASE_ROWS_BLOCK) { +			result->data = (pval **) erealloc(result->data,sizeof(pval *)*SYBASE_ROWS_BLOCK*(++blocks_initialized)); +		} +		result->data[i] = (pval *) emalloc(sizeof(pval)*num_fields); +		for (j=0; j<num_fields; j++) { +			if (indicators[j] == -1) { /* null value */ +				var_reset(&result->data[i][j]); +			} else { +				result->data[i][j].value.str.len = lengths[j]-1;  /* we don't need the NULL in the length */ +				result->data[i][j].value.str.val = estrndup(tmp_buffer[j],lengths[j]); +				result->data[i][j].type = IS_STRING; +			} +		} +	} + +	if (retcode != CS_END_DATA) { +		_free_sybct_result(result); +		result = NULL; +	} else { +		result->fields = (sybct_field *) emalloc(sizeof(sybct_field)*num_fields); +		j=0; +		for (i=0; i<num_fields; i++) { +			char computed_buf[16]; +		 +			if (datafmt[i].namelen>0) { +				result->fields[i].name = estrndup(datafmt[i].name,datafmt[i].namelen); +			} else { +				if (j>0) { +					snprintf(computed_buf,16,"computed%d",j); +				} else { +					strcpy(computed_buf,"computed"); +				} +				result->fields[i].name = estrdup(computed_buf); +				j++; +			} +			result->fields[i].column_source = empty_string; +			result->fields[i].max_length = datafmt[i].maxlength-1; +			result->fields[i].numeric = numerics[i]; +			result->fields[i].type = types[i]; +		} +	} + +	efree(datafmt); +	efree(lengths); +	efree(indicators); +	efree(numerics); +	efree(types); +	for (i=0; i<num_fields; i++) { +		efree(tmp_buffer[i]); +	} +	efree(tmp_buffer); + +	return result; +} + + +void php3_sybct_query(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *query,*sybct_link_index; +	int id,type; +	sybct_link *sybct_ptr; +	sybct_result *result; +	CS_INT restype; +	CS_RETCODE retcode; +	enum { +		Q_RESULT,				/* Success with results. */ +		Q_SUCCESS,				/* Success but no results. */ +		Q_FAILURE,				/* Failure, no results. */ +	} status; +	 +	switch(ARG_COUNT(ht)) { +		case 1: +			if (getParameters(ht, 1, &query)==FAILURE) { +				RETURN_FALSE; +			} +			id = php3_sybct_module.default_link; +			break; +		case 2: +			if (getParameters(ht, 2, &query, &sybct_link_index)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(sybct_link_index); +			id = sybct_link_index->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	sybct_ptr = (sybct_link *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_link && type!=php3_sybct_module.le_plink) { +		php3_error(E_WARNING,"%d is not a Sybase link index",id); +		RETURN_FALSE; +	} +	 +	convert_to_string(query); +	 +	/* Fail if we already marked this connection dead. */ + +	if (sybct_ptr->dead) { +		RETURN_FALSE; +	} + +	/* Repeat until we don't deadlock. */ + +	for (;;) { +		result = NULL; +		sybct_ptr->deadlock = 0; +		sybct_ptr->affected_rows = 0; + +		/* On Solaris 11.5, ct_command() can be moved outside the +		 * loop, but not on Linux 11.0. +		 */ +		if (ct_command(sybct_ptr->cmd, CS_LANG_CMD, query->value.str.val, CS_NULLTERM, CS_UNUSED)!=CS_SUCCEED) { +			/* If this didn't work, the connection is screwed but +			 * ct-lib might not set CS_CONSTAT_DEAD.  So set our own +			 * flag.  This happens sometimes when the database is restarted +			 * and/or its machine is rebooted, and ct_command() returns +			 * CS_BUSY for some reason. +			 */ +			sybct_ptr->dead = 1; +		    RETURN_FALSE; +		} + +		if (ct_send(sybct_ptr->cmd)!=CS_SUCCEED) { +			ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_ALL); +			sybct_ptr->dead = 1; +			RETURN_FALSE; +		} + +		/* Use the first result set or succeed/fail status and discard the +		 * others.  Applications really shouldn't be making calls that +		 * return multiple result sets, but if they do then we need to +		 * properly read or cancel them or the connection will become +		 * unusable. +		 */ +		if (ct_results(sybct_ptr->cmd, &restype)!=CS_SUCCEED) { +			ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_ALL); +			sybct_ptr->dead = 1; +			RETURN_FALSE; +		} + +		switch ((int) restype) { +			case CS_CMD_FAIL: +			default: +				status = Q_FAILURE; +				break; +			case CS_CMD_SUCCEED: +			case CS_CMD_DONE: { +					CS_INT row_count; +					if (ct_res_info(sybct_ptr->cmd, CS_ROW_COUNT, &row_count, CS_UNUSED, NULL)==CS_SUCCEED) { +						sybct_ptr->affected_rows = (long)row_count; +					} +				} +				/* Fall through */ +			case CS_COMPUTEFMT_RESULT: +			case CS_ROWFMT_RESULT: +			case CS_DESCRIBE_RESULT: +			case CS_MSG_RESULT: +				status = Q_SUCCESS; +				break; +			case CS_COMPUTE_RESULT: +			case CS_CURSOR_RESULT: +			case CS_PARAM_RESULT: +			case CS_ROW_RESULT: +			case CS_STATUS_RESULT: +				result = _php3_sybct_fetch_result_set(sybct_ptr); +				if (result == NULL) { +					ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_ALL); +					sybct_ptr->dead = 1; +					RETURN_FALSE; +				} +				status = Q_RESULT; +				break; +		} + +		/* The only restype we should get now is CS_CMD_DONE, possibly +		 * followed by a CS_STATUS_RESULT/CS_CMD_SUCCEED/CS_CMD_DONE +		 * sequence if the command was a stored procedure call.  But we +		 * still need to read and discard unexpected results.  We might +		 * want to return a failure in this case because the application +		 * won't be getting all the results it asked for. +		 */ +		while ((retcode = ct_results(sybct_ptr->cmd, &restype))==CS_SUCCEED) { +			switch ((int) restype) { +				case CS_CMD_SUCCEED: +				case CS_CMD_DONE: +					break; + +				case CS_CMD_FAIL: +					status = Q_FAILURE; +					break; +			 +				case CS_COMPUTE_RESULT: +				case CS_CURSOR_RESULT: +				case CS_PARAM_RESULT: +				case CS_ROW_RESULT: +					/* Unexpected results, cancel them. */ +				case CS_STATUS_RESULT: +					ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_CURRENT); +					break; +			 +				default: +					status = Q_FAILURE; +					break; +			} +			if (status == Q_FAILURE) { +				ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_ALL); +			} +		} + +		switch (retcode) { +			case CS_END_RESULTS: +				/* Normal. */ +				break; + +			case CS_FAIL: +				/* Hopefully this either cleans up the connection, or the +				 * connection ends up marked dead so it will be reopened +				 * if it is persistent.  We may want to do +				 * ct_close(CS_FORCE_CLOSE) if ct_cancel() fails; see the +				 * doc for ct_results()==CS_FAIL. +				 */ +				ct_cancel(NULL, sybct_ptr->cmd, CS_CANCEL_ALL); +				/* Don't take chances with the vagaries of ct-lib.  Mark it +				 * dead ourselves. +				 */ +				sybct_ptr->dead = 1; +			case CS_CANCELED: +			default: +				status = Q_FAILURE; +				break; +		} + +		/* If query completed without deadlock, break out of the loop. +		 * Sometimes deadlock results in failures and sometimes not, +		 * it seems to depend on the server flavor.  But we want to +		 * retry all deadlocks. +		 */ +		if (sybct_ptr->dead || sybct_ptr->deadlock == 0) { +			break; +		} + +		/* Get rid of any results we may have fetched.  This happens: +		 * e.g., our result set may be a stored procedure status which +		 * is returned even if the stored procedure deadlocks.  As an +		 * optimization, we could try not to fetch results in known +		 * deadlock conditions, but deadlock is (should be) rare. +		 */ +		if (result != NULL) { +			_free_sybct_result(result); +		} +	} + +	if (status == Q_SUCCESS) { +		RETURN_TRUE; +	} + +	if (status == Q_FAILURE) { +		if (result != NULL) { +			_free_sybct_result(result); +		} +		RETURN_FALSE; +	} + +	return_value->value.lval = php3_list_insert(result,php3_sybct_module.le_result); +	return_value->type = IS_LONG; +} + + +void php3_sybct_free_result(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_result_index; +	sybct_result *result; +	int type; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybct_result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybct_result_index); +	if (sybct_result_index->value.lval==0) { +		RETURN_FALSE; +	} +	result = (sybct_result *) php3_list_find(sybct_result_index->value.lval,&type); +	 +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",sybct_result_index->value.lval); +		RETURN_FALSE; +	} +	php3_list_delete(sybct_result_index->value.lval); +	RETURN_TRUE; +} + + +#if 0 +void php3_sybct_get_last_message(INTERNAL_FUNCTION_PARAMETERS) +{ +	if (php3_sybct_module.server_message) { +		RETURN_STRING(php3_sybct_module.server_message,1); +	} +} +#endif  + + +void php3_sybct_num_rows(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *result_index; +	int type,id; +	sybct_result *result; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(result_index); +	id = result_index->value.lval; +	 +	result = (sybct_result *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	}	 +	 +	return_value->value.lval = result->num_rows; +	return_value->type = IS_LONG; +} + + +void php3_sybct_num_fields(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *result_index; +	int type,id; +	sybct_result *result; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(result_index); +	id = result_index->value.lval; +	 +	result = (sybct_result *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	}	 +	 +	return_value->value.lval = result->num_fields; +	return_value->type = IS_LONG; +} + + +void php3_sybct_fetch_row(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_result_index; +	int type,i,id; +	sybct_result *result; +	pval field_content; + +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybct_result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybct_result_index); +	id = sybct_result_index->value.lval; +	 +	result = (sybct_result *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	if (result->cur_row >= result->num_rows) { +		RETURN_FALSE; +	} +	 +	array_init(return_value); +	for (i=0; i<result->num_fields; i++) { +		field_content = result->data[result->cur_row][i]; +		pval_copy_constructor(&field_content); +		_php3_hash_index_update(return_value->value.ht, i, (void *) &field_content, sizeof(pval),NULL); +	} +	result->cur_row++; +} + + +static void php3_sybct_fetch_hash(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_result_index; +	sybct_result *result; +	int type; +	int i; +	pval *pval_ptr,tmp; +	PLS_FETCH(); +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybct_result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybct_result_index); +	result = (sybct_result *) php3_list_find(sybct_result_index->value.lval,&type); +	 +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",sybct_result_index->value.lval); +		RETURN_FALSE; +	} +	 +	if (result->cur_row >= result->num_rows) { +		RETURN_FALSE; +	} +	 +	if (array_init(return_value)==FAILURE) { +		RETURN_FALSE; +	} +	 +	for (i=0; i<result->num_fields; i++) { +		tmp = result->data[result->cur_row][i]; +		pval_copy_constructor(&tmp); +		if (PG(magic_quotes_runtime) && tmp.type == IS_STRING) { +			tmp.value.str.val = _php3_addslashes(tmp.value.str.val,tmp.value.str.len,&tmp.value.str.len,1); +		} +		_php3_hash_index_update(return_value->value.ht, i, (void *) &tmp, sizeof(pval), (void **) &pval_ptr); +		_php3_hash_pointer_update(return_value->value.ht, result->fields[i].name, strlen(result->fields[i].name)+1, pval_ptr); +	} +	result->cur_row++; +} + + +void php3_sybct_fetch_object(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybct_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU); +	if (return_value->type==IS_ARRAY) { +		return_value->type=IS_OBJECT; +	} +} + + +void php3_sybct_fetch_array(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybct_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU); +} + +void php3_sybct_data_seek(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_result_index,*offset; +	int type,id; +	sybct_result *result; + +	if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &sybct_result_index, &offset)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybct_result_index); +	id = sybct_result_index->value.lval; +	 +	result = (sybct_result *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} + +	convert_to_long(offset); +	if (offset->value.lval<0 || offset->value.lval>=result->num_rows) { +		php3_error(E_WARNING,"Sybase:  Bad row offset"); +		RETURN_FALSE; +	} +	 +	result->cur_row = offset->value.lval; +	RETURN_TRUE; +} + + +static char *php3_sybct_get_field_name(CS_INT type) +{ +	switch (type) { +		case CS_CHAR_TYPE: +		case CS_VARCHAR_TYPE: +		case CS_TEXT_TYPE: +			return "string"; +			break; +		case CS_IMAGE_TYPE: +			return "image"; +			break; +		case CS_BINARY_TYPE: +		case CS_VARBINARY_TYPE: +			return "blob"; +			break; +		case CS_BIT_TYPE: +			return "bit"; +			break; +		case CS_TINYINT_TYPE: +		case CS_SMALLINT_TYPE: +		case CS_INT_TYPE: +			return "int"; +			break; +		case CS_REAL_TYPE: +		case CS_FLOAT_TYPE: +		case CS_NUMERIC_TYPE: +		case CS_DECIMAL_TYPE: +			return "real"; +			break; +		case CS_MONEY_TYPE: +		case CS_MONEY4_TYPE: +			return "money"; +			break; +		case CS_DATETIME_TYPE: +		case CS_DATETIME4_TYPE: +			return "datetime"; +			break; +		default: +			return "unknown"; +			break; +	} +} + + +void php3_sybct_fetch_field(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_result_index,*offset; +	int type,id,field_offset; +	sybct_result *result; + +	switch (ARG_COUNT(ht)) { +		case 1: +			if (getParameters(ht, 1, &sybct_result_index)==FAILURE) { +				RETURN_FALSE; +			} +			field_offset=-1; +			break; +		case 2: +			if (getParameters(ht, 2, &sybct_result_index, &offset)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(offset); +			field_offset = offset->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	convert_to_long(sybct_result_index); +	id = sybct_result_index->value.lval; +	 +	result = (sybct_result *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	if (field_offset==-1) { +		field_offset = result->cur_field; +		result->cur_field++; +	} +	 +	if (field_offset<0 || field_offset >= result->num_fields) { +		if (ARG_COUNT(ht)==2) { /* field specified explicitly */ +			php3_error(E_WARNING,"Sybase:  Bad column offset"); +		} +		RETURN_FALSE; +	} + +	if (object_init(return_value)==FAILURE) { +		RETURN_FALSE; +	} +	add_property_string(return_value, "name",result->fields[field_offset].name, 1); +	add_property_long(return_value, "max_length",result->fields[field_offset].max_length); +	add_property_string(return_value, "column_source",result->fields[field_offset].column_source, 1); +	add_property_long(return_value, "numeric", result->fields[field_offset].numeric); +	add_property_string(return_value, "type", php3_sybct_get_field_name(result->fields[field_offset].type), 1); +} + + +void php3_sybct_field_seek(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_result_index,*offset; +	int type,id,field_offset; +	sybct_result *result; + +	if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &sybct_result_index, &offset)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybct_result_index); +	id = sybct_result_index->value.lval; +	 +	result = (sybct_result *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	convert_to_long(offset); +	field_offset = offset->value.lval; +	 +	if (field_offset<0 || field_offset >= result->num_fields) { +		php3_error(E_WARNING,"Sybase:  Bad column offset"); +		RETURN_FALSE; +	} + +	result->cur_field = field_offset; +	RETURN_TRUE; +} + + +void php3_sybct_result(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *row, *field, *sybct_result_index; +	int id,type,field_offset=0; +	sybct_result *result; +	 + +	if (ARG_COUNT(ht)!=3 || getParameters(ht, 3, &sybct_result_index, &row, &field)==FAILURE) { +		WRONG_PARAM_COUNT; +	} + +	convert_to_long(sybct_result_index); +	id = sybct_result_index->value.lval; +	 +	result = (sybct_result *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	convert_to_long(row); +	if (row->value.lval<0 || row->value.lval>=result->num_rows) { +		php3_error(E_WARNING,"Sybase:  Bad row offset (%d)",row->value.lval); +		RETURN_FALSE; +	} + +	switch(field->type) { +		case IS_STRING: { +			int i; + +			for (i=0; i<result->num_fields; i++) { +				if (!strcasecmp(result->fields[i].name,field->value.str.val)) { +					field_offset = i; +					break; +				} +			} +			if (i>=result->num_fields) { /* no match found */ +				php3_error(E_WARNING,"Sybase:  %s field not found in result",field->value.str.val); +				RETURN_FALSE; +			} +			break; +		} +		default: +			convert_to_long(field); +			field_offset = field->value.lval; +			if (field_offset<0 || field_offset>=result->num_fields) { +				php3_error(E_WARNING,"Sybase:  Bad column offset specified"); +				RETURN_FALSE; +			} +			break; +	} + +	*return_value = result->data[row->value.lval][field_offset]; +	pval_copy_constructor(return_value); +} + + +void php3_sybct_affected_rows(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybct_link_index; +	int id,type; +	sybct_link *sybct_ptr; +	CS_INT row_count; +	 +	switch(ARG_COUNT(ht)) { +		case 0: +			id = php3_sybct_get_default_link(INTERNAL_FUNCTION_PARAM_PASSTHRU); +			break; +		case 1: +			if (getParameters(ht, 1, &sybct_link_index)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(sybct_link_index); +			id = sybct_link_index->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	sybct_ptr = (sybct_link *) php3_list_find(id,&type); +	if (type!=php3_sybct_module.le_link && type!=php3_sybct_module.le_plink) { +		php3_error(E_WARNING,"%d is not a Sybase link index",id); +		RETURN_FALSE; +	} + +	return_value->value.lval = sybct_ptr->affected_rows; +	return_value->type = IS_LONG; +} + + +void php3_info_sybct(void) +{ +	char maxp[16],maxl[16]; +	 +	if (php3_sybct_module.max_persistent==-1) { +		strcpy(maxp,"Unlimited"); +	} else { +		snprintf(maxp,15,"%ld",php3_sybct_module.max_persistent); +		maxp[15]=0; +	} +	if (php3_sybct_module.max_links==-1) { +		strcpy(maxl,"Unlimited"); +	} else { +		snprintf(maxl,15,"%ld",php3_sybct_module.max_links); +		maxl[15]=0; +	} +	php3_printf("<table cellpadding=5>" +				"<tr><td>Allow persistent links:</td><td>%s</td></tr>\n" +				"<tr><td>Persistent links:</td><td>%d/%s</td></tr>\n" +				"<tr><td>Total links:</td><td>%d/%s</td></tr>\n" +				"<tr><td>Application name:</td><td>%s</td></tr>\n" +				"</table>\n", +				(php3_sybct_module.allow_persistent?"Yes":"No"), +				php3_sybct_module.num_persistent,maxp, +				php3_sybct_module.num_links,maxl, +				php3_sybct_module.appname); +} + + +void php3_sybct_min_client_severity(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *severity; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &severity)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	convert_to_long(severity); +	php3_sybct_module.min_client_severity = severity->value.lval; +} + + +void php3_sybct_min_server_severity(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *severity; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &severity)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	convert_to_long(severity); +	php3_sybct_module.min_server_severity = severity->value.lval; +} + + +#endif diff --git a/ext/sybase/sybase.c b/ext/sybase/sybase.c new file mode 100644 index 0000000000..11d5fcd768 --- /dev/null +++ b/ext/sybase/sybase.c @@ -0,0 +1,1258 @@ +/* +   +----------------------------------------------------------------------+ +   | PHP HTML Embedded Scripting Language Version 3.0                     | +   +----------------------------------------------------------------------+ +   | Copyright (c) 1997,1998 PHP Development Team (See Credits file)      | +   +----------------------------------------------------------------------+ +   | This program is free software; you can redistribute it and/or modify | +   | it under the terms of one of the following licenses:                 | +   |                                                                      | +   |  A) the GNU General Public License as published by the Free Software | +   |     Foundation; either version 2 of the License, or (at your option) | +   |     any later version.                                               | +   |                                                                      | +   |  B) the PHP License as published by the PHP Development Team and     | +   |     included in the distribution in the file: LICENSE                | +   |                                                                      | +   | This program is distributed in the hope that it will be useful,      | +   | but WITHOUT ANY WARRANTY; without even the implied warranty of       | +   | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        | +   | GNU General Public License for more details.                         | +   |                                                                      | +   | You should have received a copy of both licenses referred to here.   | +   | If you did not, or have any questions about PHP licensing, please    | +   | contact core@php.net.                                                | +   +----------------------------------------------------------------------+ +   | Authors: Zeev Suraski <zeev@zend.com>                                | +   +----------------------------------------------------------------------+ +   | php3_sybase_get_column_content_with_type() based on code by:         | +   |                     Muhammad A Muquit <MA_Muquit@fccc.edu>           | +   |                     Rasmus Lerdorf <rasmus@lerdorf.on.ca>            | +   +----------------------------------------------------------------------+ + */ +  +/* $Id$ */ + + +#ifndef MSVC5 +#include "config.h" +#endif +#include "php.h" +#include "php3_sybase.h" +#include "ext/standard/php3_standard.h" +#include "php_globals.h" + +#if HAVE_SYBASE + +#include <sybfront.h> +#include <sybdb.h> +#include <syberror.h> + +#if BROKEN_SYBASE_PCONNECTS +#include "http_log.h" +#endif + +function_entry sybase_functions[] = { +	{"sybase_connect",			php3_sybase_connect,			NULL}, +	{"sybase_pconnect",			php3_sybase_pconnect,			NULL}, +	{"sybase_close",			php3_sybase_close,				NULL}, +	{"sybase_select_db",		php3_sybase_select_db,			NULL}, +	{"sybase_query",			php3_sybase_query,				NULL}, +	{"sybase_free_result",		php3_sybase_free_result,		NULL}, +	{"sybase_get_last_message",	php3_sybase_get_last_message,	NULL}, +	{"sybase_num_rows",			php3_sybase_num_rows,			NULL}, +	{"sybase_num_fields",		php3_sybase_num_fields,			NULL}, +	{"sybase_fetch_row",		php3_sybase_fetch_row,			NULL}, +	{"sybase_fetch_array",		php3_sybase_fetch_array,		NULL}, +	{"sybase_fetch_object",		php3_sybase_fetch_object,		NULL}, +	{"sybase_data_seek",		php3_sybase_data_seek,			NULL}, +	{"sybase_fetch_field",		php3_sybase_fetch_field,		NULL}, +	{"sybase_field_seek",		php3_sybase_field_seek,			NULL}, +	{"sybase_result",			php3_sybase_result,				NULL}, +	{"sybase_min_error_severity",	php3_sybase_min_error_severity,		NULL}, +	{"sybase_min_message_severity",	php3_sybase_min_message_severity,	NULL}, +	{"mssql_connect",			php3_sybase_connect,			NULL}, +	{"mssql_pconnect",			php3_sybase_pconnect,			NULL}, +	{"mssql_close",				php3_sybase_close,				NULL}, +	{"mssql_select_db",			php3_sybase_select_db,			NULL}, +	{"mssql_query",				php3_sybase_query,				NULL}, +	{"mssql_free_result",		php3_sybase_free_result,		NULL}, +	{"mssql_get_last_message",	php3_sybase_get_last_message,	NULL}, +	{"mssql_num_rows",			php3_sybase_num_rows,			NULL}, +	{"mssql_num_fields",		php3_sybase_num_fields,			NULL}, +	{"mssql_fetch_row",			php3_sybase_fetch_row,			NULL}, +	{"mssql_fetch_array",		php3_sybase_fetch_array,		NULL}, +	{"mssql_fetch_object",		php3_sybase_fetch_object,		NULL}, +	{"mssql_data_seek",			php3_sybase_data_seek,			NULL}, +	{"mssql_fetch_field",		php3_sybase_fetch_field,		NULL}, +	{"mssql_field_seek",		php3_sybase_field_seek,			NULL}, +	{"mssql_result",			php3_sybase_result,				NULL}, +	{"mssql_min_error_severity",	php3_sybase_min_error_severity,		NULL}, +	{"mssql_min_message_severity",	php3_sybase_min_message_severity,	NULL}, +	{NULL, NULL, NULL} +}; + +php3_module_entry sybase_module_entry = { +	"Sybase SQL", sybase_functions, php3_minit_sybase, php3_mshutdown_sybase, php3_rinit_sybase, php3_rshutdown_sybase, php3_info_sybase, STANDARD_MODULE_PROPERTIES +}; + +#if COMPILE_DL +php3_module_entry *get_module() { return &sybase_module_entry; } +#endif + +THREAD_LS sybase_module php3_sybase_module; +THREAD_LS static HashTable *resource_list, *resource_plist; + + +#define CHECK_LINK(link) { if (link==-1) { php3_error(E_WARNING,"Sybase:  A link to the server could not be established"); RETURN_FALSE; } } + + +static void php3_sybase_get_column_content(sybase_link *sybase_ptr,int offset,pval *result, int column_type); + +/* error handler */ +static int php3_sybase_error_handler(DBPROCESS *dbproc,int severity,int dberr, +										int oserr,char *dberrstr,char *oserrstr) +{ +	if (severity >= php3_sybase_module.min_error_severity) { +		php3_error(E_WARNING,"Sybase error:  %s (severity %d)",dberrstr,severity); +	} +	return INT_CANCEL;   +} + +/* message handler */ +static int php3_sybase_message_handler(DBPROCESS *dbproc,DBINT msgno,int msgstate, +										int severity,char *msgtext,char *srvname, +										char *procname,DBUSMALLINT line) +{ +	if (severity >= php3_sybase_module.min_message_severity) { +		php3_error(E_WARNING,"Sybase message:  %s (severity %d)",msgtext,severity); +	} +	STR_FREE(php3_sybase_module.server_message); +	php3_sybase_module.server_message = estrdup(msgtext); +	return 0; +} + + +static int _clean_invalid_results(list_entry *le) +{ +	if (le->type == php3_sybase_module.le_result) { +		sybase_link *sybase_ptr = ((sybase_result *) le->ptr)->sybase_ptr; +		 +		if (!sybase_ptr->valid) { +			return 1; +		} +	} +	return 0; +} + + +static void _free_sybase_result(sybase_result *result) +{ +	int i,j; +	 +	if (result->data) { +		for (i=0; i<result->num_rows; i++) { +			for (j=0; j<result->num_fields; j++) { +				pval_destructor(&result->data[i][j]); +			} +			efree(result->data[i]); +		} +		efree(result->data); +	} +	 +	if (result->fields) { +		for (i=0; i<result->num_fields; i++) { +			STR_FREE(result->fields[i].name); +			STR_FREE(result->fields[i].column_source); +		} +		efree(result->fields); +	} +	efree(result); +} + + +static void _close_sybase_link(sybase_link *sybase_ptr) +{ +	sybase_ptr->valid = 0; +	_php3_hash_apply(resource_list,(int (*)(void *))_clean_invalid_results); +	dbclose(sybase_ptr->link); +	dbloginfree(sybase_ptr->login); +	efree(sybase_ptr); +	php3_sybase_module.num_links--; +} + + +static void _close_sybase_plink(sybase_link *sybase_ptr) +{ +	dbclose(sybase_ptr->link); +	dbloginfree(sybase_ptr->login); +	free(sybase_ptr); +	php3_sybase_module.num_persistent--; +	php3_sybase_module.num_links--; +} + + +int php3_minit_sybase(INIT_FUNC_ARGS) +{ +	char *interface_file; + +	if (dbinit()==FAIL) { +		return FAILURE; +	} +	dberrhandle((EHANDLEFUNC) php3_sybase_error_handler); +	dbmsghandle((MHANDLEFUNC) php3_sybase_message_handler); + +	if (cfg_get_string("sybase.interface_file",&interface_file)==SUCCESS) { +		dbsetifile(interface_file); +	} +	if (cfg_get_long("sybase.allow_persistent",&php3_sybase_module.allow_persistent)==FAILURE) { +		php3_sybase_module.allow_persistent=1; +	} +	if (cfg_get_long("sybase.max_persistent",&php3_sybase_module.max_persistent)==FAILURE) { +		php3_sybase_module.max_persistent=-1; +	} +	if (cfg_get_long("sybase.max_links",&php3_sybase_module.max_links)==FAILURE) { +		php3_sybase_module.max_links=-1; +	} +	if (cfg_get_long("sybase.min_error_severity",&php3_sybase_module.cfg_min_error_severity)==FAILURE) { +		php3_sybase_module.cfg_min_error_severity=10; +	} +	if (cfg_get_long("sybase.min_message_severity",&php3_sybase_module.cfg_min_message_severity)==FAILURE) { +		php3_sybase_module.cfg_min_message_severity=10; +	} +	if (cfg_get_long("sybase.compatability_mode",&php3_sybase_module.compatability_mode)==FAILURE) { +		php3_sybase_module.compatability_mode = 0; +	} +	 +	php3_sybase_module.num_persistent=0; +	php3_sybase_module.le_link = register_list_destructors(_close_sybase_link,NULL); +	php3_sybase_module.le_plink = register_list_destructors(NULL,_close_sybase_plink); +	php3_sybase_module.le_result = register_list_destructors(_free_sybase_result,NULL); +	 +	return SUCCESS; +} + + +int php3_rinit_sybase(INIT_FUNC_ARGS) +{ +	php3_sybase_module.default_link=-1; +	php3_sybase_module.num_links = php3_sybase_module.num_persistent; +	php3_sybase_module.appname = estrndup("PHP 3.0",7); +	php3_sybase_module.server_message = empty_string; +	php3_sybase_module.min_error_severity = php3_sybase_module.cfg_min_error_severity; +	php3_sybase_module.min_message_severity = php3_sybase_module.cfg_min_message_severity; +	return SUCCESS; +} + +int php3_mshutdown_sybase(SHUTDOWN_FUNC_ARGS) +{ +	dbexit(); +	return SUCCESS; +} + +int php3_rshutdown_sybase(SHUTDOWN_FUNC_ARGS) +{ +	efree(php3_sybase_module.appname); +	STR_FREE(php3_sybase_module.server_message); +	return SUCCESS; +} + +static void php3_sybase_do_connect(INTERNAL_FUNCTION_PARAMETERS,int persistent) +{ +	char *user,*passwd,*host; +	char *hashed_details; +	int hashed_details_length; +	sybase_link sybase,*sybase_ptr; + +	resource_list = list; +	resource_plist = plist; +		 +	switch(ARG_COUNT(ht)) { +		case 0: /* defaults */ +			host=user=passwd=NULL; +			hashed_details_length=6+3; +			hashed_details = (char *) emalloc(hashed_details_length+1); +			strcpy(hashed_details,"sybase___"); +			break; +		case 1: { +				pval *yyhost; +				 +				if (getParameters(ht, 1, &yyhost)==FAILURE) { +					RETURN_FALSE; +				} +				convert_to_string(yyhost); +				host = yyhost->value.str.val; +				user=passwd=NULL; +				hashed_details_length = yyhost->value.str.len+6+3; +				hashed_details = (char *) emalloc(hashed_details_length+1); +				sprintf(hashed_details,"sybase_%s__",yyhost->value.str.val); +			} +			break; +		case 2: { +				pval *yyhost,*yyuser; +				 +				if (getParameters(ht, 2, &yyhost, &yyuser)==FAILURE) { +					RETURN_FALSE; +				} +				convert_to_string(yyhost); +				convert_to_string(yyuser); +				host = yyhost->value.str.val; +				user = yyuser->value.str.val; +				passwd=NULL; +				hashed_details_length = yyhost->value.str.len+yyuser->value.str.len+6+3; +				hashed_details = (char *) emalloc(hashed_details_length+1); +				sprintf(hashed_details,"sybase_%s_%s_",yyhost->value.str.val,yyuser->value.str.val); +			} +			break; +		case 3: { +				pval *yyhost,*yyuser,*yypasswd; +			 +				if (getParameters(ht, 3, &yyhost, &yyuser, &yypasswd) == FAILURE) { +					RETURN_FALSE; +				} +				convert_to_string(yyhost); +				convert_to_string(yyuser); +				convert_to_string(yypasswd); +				host = yyhost->value.str.val; +				user = yyuser->value.str.val; +				passwd = yypasswd->value.str.val; +				hashed_details_length = yyhost->value.str.len+yyuser->value.str.len+yypasswd->value.str.len+6+3; +				hashed_details = (char *) emalloc(hashed_details_length+1); +				sprintf(hashed_details,"sybase_%s_%s_%s",yyhost->value.str.val,yyuser->value.str.val,yypasswd->value.str.val); /* SAFE */ +			} +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} + + +	/* set a DBLOGIN record */	 +	if ((sybase.login=dblogin())==NULL) { +		php3_error(E_WARNING,"Sybase:  Unable to allocate login record"); +		RETURN_FALSE; +	} +	 +	if (user) { +		DBSETLUSER(sybase.login,user); +	} +	if (passwd) { +		DBSETLPWD(sybase.login,passwd); +	} +	DBSETLAPP(sybase.login,php3_sybase_module.appname); +	sybase.valid = 1; + +	if (!php3_sybase_module.allow_persistent) { +		persistent=0; +	} +	if (persistent) { +		list_entry *le; + +		/* try to find if we already have this link in our persistent list */ +		if (_php3_hash_find(plist, hashed_details, hashed_details_length+1, (void **) &le)==FAILURE) {  /* we don't */ +			list_entry new_le; + +			if (php3_sybase_module.max_links!=-1 && php3_sybase_module.num_links>=php3_sybase_module.max_links) { +				php3_error(E_WARNING,"Sybase:  Too many open links (%d)",php3_sybase_module.num_links); +				efree(hashed_details); +				dbloginfree(sybase.login); +				RETURN_FALSE; +			} +			if (php3_sybase_module.max_persistent!=-1 && php3_sybase_module.num_persistent>=php3_sybase_module.max_persistent) { +				php3_error(E_WARNING,"Sybase:  Too many open persistent links (%d)",php3_sybase_module.num_persistent); +				efree(hashed_details); +				dbloginfree(sybase.login); +				RETURN_FALSE; +			} +			/* create the link */ +			if ((sybase.link=dbopen(sybase.login,host))==FAIL) { +				/*php3_error(E_WARNING,"Sybase:  Unable to connect to server:  %s",sybase_error(sybase));*/ +				efree(hashed_details); +				dbloginfree(sybase.login); +				RETURN_FALSE; +			} + +			if (dbsetopt(sybase.link,DBBUFFER,"2",-1)==FAIL) { +				efree(hashed_details); +				dbloginfree(sybase.login); +				dbclose(sybase.link); +				RETURN_FALSE; +			} + +			/* hash it up */ +			sybase_ptr = (sybase_link *) malloc(sizeof(sybase_link)); +			memcpy(sybase_ptr,&sybase,sizeof(sybase_link)); +			new_le.type = php3_sybase_module.le_plink; +			new_le.ptr = sybase_ptr; +			if (_php3_hash_update(plist, hashed_details, hashed_details_length+1, (void *) &new_le, sizeof(list_entry),NULL)==FAILURE) { +				free(sybase_ptr); +				efree(hashed_details); +				dbloginfree(sybase.login); +				RETURN_FALSE; +			} +			php3_sybase_module.num_persistent++; +			php3_sybase_module.num_links++; +		} else {  /* we do */ +			if (le->type != php3_sybase_module.le_plink) { +#if BROKEN_SYBASE_PCONNECTS +				log_error("PHP/Sybase:  Hashed persistent link is not a Sybase link!",php3_rqst->server); +#endif +				php3_error(E_WARNING,"Sybase:  Hashed persistent link is not a Sybase link!"); +				RETURN_FALSE; +			} +			 +			sybase_ptr = (sybase_link *) le->ptr; +			/* test that the link hasn't died */ +			if (DBDEAD(sybase_ptr->link)==TRUE) { +#if BROKEN_SYBASE_PCONNECTS +				log_error("PHP/Sybase:  Persistent link died, trying to reconnect...",php3_rqst->server); +#endif +				if ((sybase_ptr->link=dbopen(sybase_ptr->login,host))==FAIL) { +#if BROKEN_SYBASE_PCONNECTS +					log_error("PHP/Sybase:  Unable to reconnect!",php3_rqst->server); +#endif +					/*php3_error(E_WARNING,"Sybase:  Link to server lost, unable to reconnect");*/ +					_php3_hash_del(plist, hashed_details, hashed_details_length+1); +					efree(hashed_details); +					RETURN_FALSE; +				} +#if BROKEN_SYBASE_PCONNECTS +				log_error("PHP/Sybase:  Reconnect successful!",php3_rqst->server); +#endif +				if (dbsetopt(sybase_ptr->link,DBBUFFER,"2",-1)==FAIL) { +#if BROKEN_SYBASE_PCONNECTS +					log_error("PHP/Sybase:  Unable to set required options",php3_rqst->server); +#endif +					_php3_hash_del(plist, hashed_details, hashed_details_length+1); +					efree(hashed_details); +					RETURN_FALSE; +				} +			} +		} +		return_value->value.lval = php3_list_insert(sybase_ptr,php3_sybase_module.le_plink); +		return_value->type = IS_LONG; +	} else { /* non persistent */ +		list_entry *index_ptr,new_index_ptr; +		 +		/* first we check the hash for the hashed_details key.  if it exists, +		 * it should point us to the right offset where the actual sybase link sits. +		 * if it doesn't, open a new sybase link, add it to the resource list, +		 * and add a pointer to it with hashed_details as the key. +		 */ +		if (_php3_hash_find(list,hashed_details,hashed_details_length+1,(void **) &index_ptr)==SUCCESS) { +			int type,link; +			void *ptr; + +			if (index_ptr->type != le_index_ptr) { +				RETURN_FALSE; +			} +			link = (int) index_ptr->ptr; +			ptr = php3_list_find(link,&type);   /* check if the link is still there */ +			if (ptr && (type==php3_sybase_module.le_link || type==php3_sybase_module.le_plink)) { +				return_value->value.lval = php3_sybase_module.default_link = link; +				return_value->type = IS_LONG; +				efree(hashed_details); +				return; +			} else { +				_php3_hash_del(list,hashed_details,hashed_details_length+1); +			} +		} +		if (php3_sybase_module.max_links!=-1 && php3_sybase_module.num_links>=php3_sybase_module.max_links) { +			php3_error(E_WARNING,"Sybase:  Too many open links (%d)",php3_sybase_module.num_links); +			efree(hashed_details); +			RETURN_FALSE; +		} +		 +		if ((sybase.link=dbopen(sybase.login,host))==NULL) { +			/*php3_error(E_WARNING,"Sybase:  Unable to connect to server:  %s",sybase_error(sybase));*/ +			efree(hashed_details); +			RETURN_FALSE; +		} + +		if (dbsetopt(sybase.link,DBBUFFER,"2",-1)==FAIL) { +			efree(hashed_details); +			dbloginfree(sybase.login); +			dbclose(sybase.link); +			RETURN_FALSE; +		} +		 +		/* add it to the list */ +		sybase_ptr = (sybase_link *) emalloc(sizeof(sybase_link)); +		memcpy(sybase_ptr,&sybase,sizeof(sybase_link)); +		return_value->value.lval = php3_list_insert(sybase_ptr,php3_sybase_module.le_link); +		return_value->type = IS_LONG; +		 +		/* add it to the hash */ +		new_index_ptr.ptr = (void *) return_value->value.lval; +		new_index_ptr.type = le_index_ptr; +		if (_php3_hash_update(list,hashed_details,hashed_details_length+1,(void *) &new_index_ptr, sizeof(list_entry),NULL)==FAILURE) { +			efree(hashed_details); +			RETURN_FALSE; +		} +		php3_sybase_module.num_links++; +	} +	efree(hashed_details); +	php3_sybase_module.default_link=return_value->value.lval; +} + + +static int php3_sybase_get_default_link(INTERNAL_FUNCTION_PARAMETERS) +{ +	if (php3_sybase_module.default_link==-1) { /* no link opened yet, implicitly open one */ +		HashTable dummy; + +		_php3_hash_init(&dummy,0,NULL,NULL,0); +		php3_sybase_do_connect(&dummy,return_value,list,plist,0); +		_php3_hash_destroy(&dummy); +	} +	return php3_sybase_module.default_link; +} + + +void php3_sybase_connect(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybase_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU,0); +} + +void php3_sybase_pconnect(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybase_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU,1); +} + + +void php3_sybase_close(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybase_link_index; +	int id,type; +	 +	switch (ARG_COUNT(ht)) { +		case 0: +			id = php3_sybase_module.default_link; +			break; +		case 1: +			if (getParameters(ht, 1, &sybase_link_index)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(sybase_link_index); +			id = sybase_link_index->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_link && type!=php3_sybase_module.le_plink) { +		php3_error(E_WARNING,"%d is not a Sybase link index",id); +		RETURN_FALSE; +	} +	 +	php3_list_delete(id); +	RETURN_TRUE; +} +	 + +void php3_sybase_select_db(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *db,*sybase_link_index; +	int id,type; +	sybase_link  *sybase_ptr; +	 +	switch(ARG_COUNT(ht)) { +		case 1: +			if (getParameters(ht, 1, &db)==FAILURE) { +				RETURN_FALSE; +			} +			id = php3_sybase_get_default_link(INTERNAL_FUNCTION_PARAM_PASSTHRU); +			break; +		case 2: +			if (getParameters(ht, 2, &db, &sybase_link_index)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(sybase_link_index); +			id = sybase_link_index->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	CHECK_LINK(id); +	 +	sybase_ptr = (sybase_link *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_link && type!=php3_sybase_module.le_plink) { +		php3_error(E_WARNING,"%d is not a Sybase link index",id); +		RETURN_FALSE; +	} +	 +	convert_to_string(db); +	 +	if (dbuse(sybase_ptr->link,db->value.str.val)==FAIL) { +		/*php3_error(E_WARNING,"Sybase:  Unable to select database:  %s",sybase_error(sybase));*/ +		RETURN_FALSE; +	} else { +		RETURN_TRUE; +	} +} + + +static void php3_sybase_get_column_content(sybase_link *sybase_ptr,int offset,pval *result, int column_type) +{ +	if (dbdatlen(sybase_ptr->link,offset) == 0) { +		var_reset(result); +		return; +	} + +	switch (column_type) +	{ +		case SYBINT2: +		case SYBINT4: {	 +			result->value.lval = (long) anyintcol(offset); +			result->type = IS_LONG; +			break; +		} +		case SYBCHAR: +		case SYBTEXT: { +			int length; +			char *data = charcol(offset); + +			length=dbdatlen(sybase_ptr->link,offset); +			while (length>0 && charcol(offset)[length-1] == ' ') { /* nuke trailing whitespace */ +				length--; +			} +			result->value.str.val = estrndup(data,length); +			result->value.str.len = length; +			result->type = IS_STRING; +			break; +		} +		/*case SYBFLT8:*/ +		case SYBREAL: { +			result->value.dval = (double) floatcol(offset); +			result->type = IS_DOUBLE; +			break; +		} +		default: { +			if (dbwillconvert(coltype(offset),SYBCHAR)) { +				char *res_buf; +				int res_length = dbdatlen(sybase_ptr->link,offset); +				register char *p; +			 +				switch (coltype(offset)) { +					case SYBBINARY: +					case SYBVARBINARY: +					case SYBCHAR: +					case SYBVARCHAR: +					case SYBTEXT: +					case SYBIMAGE: +						break; +					default: +						/* take no chances, no telling how big the result would really be */ +						res_length += 20; +						break; +				} + +				res_buf = (char *) emalloc(res_length+1); +				dbconvert(NULL,coltype(offset),dbdata(sybase_ptr->link,offset), res_length,SYBCHAR,res_buf,-1); +		 +				/* get rid of trailing spaces */ +				p = res_buf + res_length; +				while (*p == ' ') { +					p--; +					res_length--; +				} +				*(++p) = 0; /* put a trailing NULL */ +		 +				result->value.str.len = res_length; +				result->value.str.val = res_buf; +				result->type = IS_STRING; +			} else { +				php3_error(E_WARNING,"Sybase:  column %d has unknown data type (%d)", offset, coltype(offset)); +				var_reset(result); +			} +		} +	} +} + + +void php3_sybase_query(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *query,*sybase_link_index; +	int id,type,retvalue; +	sybase_link *sybase_ptr; +	sybase_result *result; +	int num_fields; +	int blocks_initialized=1; +	int i,j; +	int *column_types; + +	switch(ARG_COUNT(ht)) { +		case 1: +			if (getParameters(ht, 1, &query)==FAILURE) { +				RETURN_FALSE; +			} +			id = php3_sybase_module.default_link; +			break; +		case 2: +			if (getParameters(ht, 2, &query, &sybase_link_index)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(sybase_link_index); +			id = sybase_link_index->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	sybase_ptr = (sybase_link *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_link && type!=php3_sybase_module.le_plink) { +		php3_error(E_WARNING,"%d is not a Sybase link index",id); +		RETURN_FALSE; +	} +	 +	convert_to_string(query); +	if (dbcmd(sybase_ptr->link,query->value.str.val)==FAIL) { +		/*php3_error(E_WARNING,"Sybase:  Unable to set query");*/ +		RETURN_FALSE; +	} +	if (dbsqlexec(sybase_ptr->link)==FAIL || dbresults(sybase_ptr->link)==FAIL) { +		/*php3_error(E_WARNING,"Sybase:  Query failed");*/ +		RETURN_FALSE; +	} +	 +	/* The following is more or less the equivalent of mysql_store_result(). +	 * fetch all rows from the server into the row buffer, thus: +	 * 1)  Being able to fire up another query without explicitly reading all rows +	 * 2)  Having numrows accessible +	 */ +	 +	retvalue=dbnextrow(sybase_ptr->link); +	 +	if (retvalue==FAIL) { +		RETURN_FALSE; +	} + +	num_fields = dbnumcols(sybase_ptr->link); +	if (num_fields<=0) { +		RETURN_TRUE; +	} +	 +	column_types = (int *) emalloc(sizeof(int) * num_fields); +	for (i=0; i<num_fields; i++) { +		column_types[i] = coltype(i+1); +	} +	 +	result = (sybase_result *) emalloc(sizeof(sybase_result)); +	result->data = (pval **) emalloc(sizeof(pval *)*SYBASE_ROWS_BLOCK); +	result->sybase_ptr = sybase_ptr; +	result->cur_field=result->cur_row=result->num_rows=0; +	result->num_fields = num_fields; + +	i=0; +	while (retvalue!=FAIL && retvalue!=NO_MORE_ROWS) { +		result->num_rows++; +		if (result->num_rows > blocks_initialized*SYBASE_ROWS_BLOCK) { +			result->data = (pval **) erealloc(result->data,sizeof(pval *)*SYBASE_ROWS_BLOCK*(++blocks_initialized)); +		} +		result->data[i] = (pval *) emalloc(sizeof(pval)*num_fields); +		for (j=1; j<=num_fields; j++) { +			php3_sybase_get_column_content(sybase_ptr, j, &result->data[i][j-1], column_types[j-1]); +			if (!php3_sybase_module.compatability_mode) { +				convert_to_string(&result->data[i][j-1]); +			} +		} +		retvalue=dbnextrow(sybase_ptr->link); +		dbclrbuf(sybase_ptr->link,DBLASTROW(sybase_ptr->link)-1);  +		i++; +	} +	result->num_rows = DBCOUNT(sybase_ptr->link); +	 +	result->fields = (sybase_field *) emalloc(sizeof(sybase_field)*num_fields); +	j=0; +	for (i=0; i<num_fields; i++) { +		char *fname = dbcolname(sybase_ptr->link,i+1); +		char computed_buf[16]; +		 +		if (*fname) { +			result->fields[i].name = estrdup(fname); +		} else { +			if (j>0) { +				snprintf(computed_buf,16,"computed%d",j); +			} else { +				strcpy(computed_buf,"computed"); +			} +			result->fields[i].name = estrdup(computed_buf); +			j++; +		} +		result->fields[i].max_length = dbcollen(sybase_ptr->link,i+1); +		result->fields[i].column_source = estrdup(dbcolsource(sybase_ptr->link,i+1)); +		if (!result->fields[i].column_source) { +			result->fields[i].column_source = empty_string; +		} +		result->fields[i].type = column_types[i]; +		/* set numeric flag */ +		switch (column_types[i]) { +			case SYBINT2: +			case SYBINT4: +			case SYBFLT8: +			case SYBREAL: +				result->fields[i].numeric = 1; +				break; +			case SYBCHAR: +			case SYBTEXT: +			default: +				result->fields[i].numeric = 0; +				break; +		} +	} +	efree(column_types); +	return_value->value.lval = php3_list_insert(result,php3_sybase_module.le_result); +	return_value->type = IS_LONG; +} + +                         +void php3_sybase_free_result(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybase_result_index; +	sybase_result *result; +	int type; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybase_result_index); +	if (sybase_result_index->value.lval==0) { +		RETURN_FALSE; +	} +	result = (sybase_result *) php3_list_find(sybase_result_index->value.lval,&type); +	 +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",sybase_result_index->value.lval); +		RETURN_FALSE; +	} +	php3_list_delete(sybase_result_index->value.lval); +	RETURN_TRUE; +} + + +void php3_sybase_get_last_message(INTERNAL_FUNCTION_PARAMETERS) +{ +	RETURN_STRING(php3_sybase_module.server_message,1); +} + + +void php3_sybase_num_rows(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *result_index; +	int type,id; +	sybase_result *result; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(result_index); +	id = result_index->value.lval; +	 +	result = (sybase_result *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	}	 +	 +	return_value->value.lval = result->num_rows; +	return_value->type = IS_LONG; +} + + +void php3_sybase_num_fields(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *result_index; +	int type,id; +	sybase_result *result; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(result_index); +	id = result_index->value.lval; +	 +	result = (sybase_result *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	}	 +	 +	return_value->value.lval = result->num_fields; +	return_value->type = IS_LONG; +} + + +void php3_sybase_fetch_row(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybase_result_index; +	int type,i,id; +	sybase_result *result; +	pval field_content; + +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybase_result_index); +	id = sybase_result_index->value.lval; +	 +	result = (sybase_result *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	if (result->cur_row >= result->num_rows) { +		RETURN_FALSE; +	} +	 +	array_init(return_value); +	for (i=0; i<result->num_fields; i++) { +		field_content = result->data[result->cur_row][i]; +		pval_copy_constructor(&field_content); +		_php3_hash_index_update(return_value->value.ht, i, (void *) &field_content, sizeof(pval),NULL); +	} +	result->cur_row++; +} + + +static void php3_sybase_fetch_hash(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybase_result_index; +	sybase_result *result; +	int type; +	int i; +	pval *pval_ptr,tmp; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybase_result_index); +	result = (sybase_result *) php3_list_find(sybase_result_index->value.lval,&type); +	 +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",sybase_result_index->value.lval); +		RETURN_FALSE; +	} +	 +	if (result->cur_row >= result->num_rows) { +		RETURN_FALSE; +	} +	 +	if (array_init(return_value)==FAILURE) { +		RETURN_FALSE; +	} +	 +	for (i=0; i<result->num_fields; i++) { +		tmp = result->data[result->cur_row][i]; +		pval_copy_constructor(&tmp); +		if (PG(magic_quotes_runtime) && tmp.type == IS_STRING) { +			tmp.value.str.val = _php3_addslashes(tmp.value.str.val,tmp.value.str.len,&tmp.value.str.len,1); +		} +		_php3_hash_index_update(return_value->value.ht, i, (void *) &tmp, sizeof(pval), (void **) &pval_ptr); +		_php3_hash_pointer_update(return_value->value.ht, result->fields[i].name, strlen(result->fields[i].name)+1, pval_ptr); +	} +	result->cur_row++; +} + + +void php3_sybase_fetch_object(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybase_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU); +	if (return_value->type==IS_ARRAY) { +		return_value->type=IS_OBJECT; +	} +} + + +void php3_sybase_fetch_array(INTERNAL_FUNCTION_PARAMETERS) +{ +	php3_sybase_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU); +} + +void php3_sybase_data_seek(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybase_result_index,*offset; +	int type,id; +	sybase_result *result; + +	if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &sybase_result_index, &offset)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybase_result_index); +	id = sybase_result_index->value.lval; +	 +	result = (sybase_result *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} + +	convert_to_long(offset); +	if (offset->value.lval<0 || offset->value.lval>=result->num_rows) { +		php3_error(E_WARNING,"Sybase:  Bad row offset"); +		RETURN_FALSE; +	} +	 +	result->cur_row = offset->value.lval; +	RETURN_TRUE; +} + + +static char *php3_sybase_get_field_name(int type) +{ +	switch (type) { +		case SYBBINARY: +		case SYBVARBINARY: +			return "blob"; +			break; +		case SYBCHAR: +		case SYBVARCHAR: +		case SYBTEXT: +			return "string"; +		case SYBDATETIME: +		case SYBDATETIME4: +		case SYBDATETIMN: +			return "datetime"; +			break; +		case SYBDECIMAL: +		case SYBFLT8: +		case SYBFLTN: +		case SYBREAL: +		case SYBNUMERIC: +			return "real"; +			break; +		case SYBINT1: +		case SYBINT2: +		case SYBINT4: +		case SYBINTN: +			return "int"; +			break; +		case SYBMONEY: +		case SYBMONEY4: +		case SYBMONEYN: +			return "money"; +			break; +		case SYBBIT: +			return "bit"; +			break; +		case SYBIMAGE: +			return "image"; +			break; +		default: +			return "unknown"; +			break; +	} +} + + +void php3_sybase_fetch_field(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybase_result_index,*offset; +	int type,id,field_offset; +	sybase_result *result; + +	switch (ARG_COUNT(ht)) { +		case 1: +			if (getParameters(ht, 1, &sybase_result_index)==FAILURE) { +				RETURN_FALSE; +			} +			field_offset=-1; +			break; +		case 2: +			if (getParameters(ht, 2, &sybase_result_index, &offset)==FAILURE) { +				RETURN_FALSE; +			} +			convert_to_long(offset); +			field_offset = offset->value.lval; +			break; +		default: +			WRONG_PARAM_COUNT; +			break; +	} +	 +	convert_to_long(sybase_result_index); +	id = sybase_result_index->value.lval; +	 +	result = (sybase_result *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	if (field_offset==-1) { +		field_offset = result->cur_field; +		result->cur_field++; +	} +	 +	if (field_offset<0 || field_offset >= result->num_fields) { +		if (ARG_COUNT(ht)==2) { /* field specified explicitly */ +			php3_error(E_WARNING,"Sybase:  Bad column offset"); +		} +		RETURN_FALSE; +	} + +	if (object_init(return_value)==FAILURE) { +		RETURN_FALSE; +	} +	add_property_string(return_value, "name",result->fields[field_offset].name, 1); +	add_property_long(return_value, "max_length",result->fields[field_offset].max_length); +	add_property_string(return_value, "column_source",result->fields[field_offset].column_source, 1); +	add_property_long(return_value, "numeric", result->fields[field_offset].numeric); +	add_property_string(return_value, "type", php3_sybase_get_field_name(result->fields[field_offset].type), 1); +} + +void php3_sybase_field_seek(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *sybase_result_index,*offset; +	int type,id,field_offset; +	sybase_result *result; + +	if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &sybase_result_index, &offset)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	 +	convert_to_long(sybase_result_index); +	id = sybase_result_index->value.lval; +	 +	result = (sybase_result *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	convert_to_long(offset); +	field_offset = offset->value.lval; +	 +	if (field_offset<0 || field_offset >= result->num_fields) { +		php3_error(E_WARNING,"Sybase:  Bad column offset"); +		RETURN_FALSE; +	} + +	result->cur_field = field_offset; +	RETURN_TRUE; +} + + +void php3_sybase_result(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *row, *field, *sybase_result_index; +	int id,type,field_offset=0; +	sybase_result *result; +	 + +	if (ARG_COUNT(ht)!=3 || getParameters(ht, 3, &sybase_result_index, &row, &field)==FAILURE) { +		WRONG_PARAM_COUNT; +	} + +	convert_to_long(sybase_result_index); +	id = sybase_result_index->value.lval; +	 +	result = (sybase_result *) php3_list_find(id,&type); +	if (type!=php3_sybase_module.le_result) { +		php3_error(E_WARNING,"%d is not a Sybase result index",id); +		RETURN_FALSE; +	} +	 +	convert_to_long(row); +	if (row->value.lval<0 || row->value.lval>=result->num_rows) { +		php3_error(E_WARNING,"Sybase:  Bad row offset (%d)",row->value.lval); +		RETURN_FALSE; +	} + +	switch(field->type) { +		case IS_STRING: { +			int i; + +			for (i=0; i<result->num_fields; i++) { +				if (!strcasecmp(result->fields[i].name,field->value.str.val)) { +					field_offset = i; +					break; +				} +			} +			if (i>=result->num_fields) { /* no match found */ +				php3_error(E_WARNING,"Sybase:  %s field not found in result",field->value.str.val); +				RETURN_FALSE; +			} +			break; +		} +		default: +			convert_to_long(field); +			field_offset = field->value.lval; +			if (field_offset<0 || field_offset>=result->num_fields) { +				php3_error(E_WARNING,"Sybase:  Bad column offset specified"); +				RETURN_FALSE; +			} +			break; +	} + +	*return_value = result->data[row->value.lval][field_offset]; +	pval_copy_constructor(return_value); +} + + +void php3_info_sybase(void) +{ +	char maxp[16],maxl[16]; +	 +	if (php3_sybase_module.max_persistent==-1) { +		strcpy(maxp,"Unlimited"); +	} else { +		snprintf(maxp,15,"%ld",php3_sybase_module.max_persistent); +		maxp[15]=0; +	} +	if (php3_sybase_module.max_links==-1) { +		strcpy(maxl,"Unlimited"); +	} else { +		snprintf(maxl,15,"%ld",php3_sybase_module.max_links); +		maxl[15]=0; +	} +	php3_printf("<table cellpadding=5>" +				"<tr><td>Allow persistent links:</td><td>%s</td></tr>\n" +				"<tr><td>Persistent links:</td><td>%d/%s</td></tr>\n" +				"<tr><td>Total links:</td><td>%d/%s</td></tr>\n" +				"<tr><td>Application name:</td><td>%s</td></tr>\n" +				"<tr><td valign=\"top\" width=\"20%%\">Client API information:</td><td><pre>%s</pre></td></tr>\n" +				"</table>\n", +				(php3_sybase_module.allow_persistent?"Yes":"No"), +				php3_sybase_module.num_persistent,maxp, +				php3_sybase_module.num_links,maxl, +				php3_sybase_module.appname, +				dbversion()); +} + + +void php3_sybase_min_error_severity(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *severity; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &severity)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	convert_to_long(severity); +	php3_sybase_module.min_error_severity = severity->value.lval; +} + + +void php3_sybase_min_message_severity(INTERNAL_FUNCTION_PARAMETERS) +{ +	pval *severity; +	 +	if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &severity)==FAILURE) { +		WRONG_PARAM_COUNT; +	} +	convert_to_long(severity); +	php3_sybase_module.min_message_severity = severity->value.lval; +} + +#endif  | 
