Page MenuHomeDevCentral
Files F23912993

D3910.diff
No OneTemporary
Actions

D3910.diff
View Options

diff --git a/fbsql.c b/fbsql.c
--- a/fbsql.c
+++ b/fbsql.c
@@ -73,11 +73,11 @@
/* sql connect */
/*******************************************************************/
-int fbsql_connect(Tcl_Interp *interp, int sql_number, int argc, char **argv) {
- char *host = NULL;
- char *user = NULL;
- char *passwd = NULL;
- char *db = NULL;
+int fbsql_connect(Tcl_Interp *interp, int sql_number, int argc, const char **argv) {
+ const char *host = NULL;
+ const char *user = NULL;
+ const char *passwd = NULL;
+ const char *db = NULL;
unsigned int port = 0;
/* check not already connected? */
@@ -120,8 +120,8 @@
/* sql general commands */
/*******************************************************************/
-int fbsql_selectdb(Tcl_Interp *interp, int sql_number, int argc, char **argv) {
- char *database = NULL;
+int fbsql_selectdb(Tcl_Interp *interp, int sql_number, int argc, const char **argv) {
+ const char *database = NULL;
/* check a database name argument has been specified */
if (argc <= 0 || argv[0] == NULL) {
@@ -145,7 +145,7 @@
}
}
-int fbsql_numrows(Tcl_Interp *interp, int sql_number, int argc, char **argv) {
+int fbsql_numrows(Tcl_Interp *interp, int sql_number, int argc, const char **argv) {
Tcl_Obj *obj_result;
/* set result object pointer */
@@ -196,8 +196,8 @@
/* sql query command(s) */
/*******************************************************************/
-int fbsql_query(Tcl_Interp *interp, int sql_number, int argc, char **argv) {
- char *query = NULL;
+int fbsql_query(Tcl_Interp *interp, int sql_number, int argc, const char **argv) {
+ const char *query;
int i, length, field_count;
MYSQL_RES *result;
MYSQL_ROW row;
@@ -296,8 +296,8 @@
/* sql query command(s) - non standard enhancements for FastBase */
/*******************************************************************/
-int fbsql_startquery(Tcl_Interp *interp, int sql_number, int argc, char **argv) {
- char *query = NULL;
+int fbsql_startquery(Tcl_Interp *interp, int sql_number, int argc, const char **argv) {
+ const char *query = NULL;
int i;
int sql_huge = 0;
#if UTF_ENCODING
@@ -390,7 +390,7 @@
return TCL_OK;
}
-int fbsql_fetchrow(Tcl_Interp *interp, int sql_number, int argc, char **argv) {
+int fbsql_fetchrow(Tcl_Interp *interp, int sql_number, int argc, const char **argv) {
int i, field_type, length;
MYSQL_ROW row;
MYSQL_FIELD *field;
@@ -530,7 +530,7 @@
}
}
-int fbsql_endquery(Tcl_Interp *interp, int sql_number, int argc, char **argv) {
+int fbsql_endquery(Tcl_Interp *interp, int sql_number, int argc, const char **argv) {
/* check we are connected? */
if (!connection[sql_number].CONNECTED) {
Tcl_SetResult(interp, "Not connected to a server.", TCL_STATIC);
@@ -552,7 +552,7 @@
/* tcl sql command */
/*******************************************************************/
-int SqlCmd (ClientData sql_word, Tcl_Interp *interp, int argc, char **argv) {
+int SqlCmd (ClientData sql_word, Tcl_Interp *interp, int argc, const char **argv) {
int sql_number = (int)sql_word;
/* any command specified */
@@ -611,7 +611,7 @@
ClientData clientData; /* Main window associated with interpreter. */
Tcl_Interp *interp; /* Current interpreter. */
int argc; /* Number of arguments. */
-char **argv; /* Argument strings. */
+const char **argv; /* Argument strings. */
{
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",

File Metadata

Mime Type
text/plain
Expires
Sun, Feb 8, 21:42 (21 h, 4 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3435916
Default Alt Text
D3910.diff (3 KB)

Event Timeline

Nasqueron DevCentral · If it had been much bigger the moon would have had a core of ice. · Powered by Phabricator