diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-05-21 11:06:33 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-05-21 11:06:33 +0000 |
commit | 5badd8c3d51e09ba9ac127b875de9d7785185bc0 (patch) | |
tree | 5b9eab886b94f1fca0f94ae60e84eb23aab47a0d | |
parent | 24c144e5714f4291d4496ae06503a2a7431ddab9 (diff) | |
download | gamma-5badd8c3d51e09ba9ac127b875de9d7785185bc0.tar.gz gamma-5badd8c3d51e09ba9ac127b875de9d7785185bc0.tar.bz2 |
Renamed sql-query-internal to sql-query
-rw-r--r-- | src/gsql_conn.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/gsql_conn.c b/src/gsql_conn.c index a61f8f6..23d831b 100644 --- a/src/gsql_conn.c +++ b/src/gsql_conn.c @@ -88,16 +88,16 @@ scm_is_sql_connect (SCM scm) { return SCM_NIMP (scm) && SCM_CAR (scm) == sql_connect_tag; } /* Interface */ -SCM_DEFINE (sql_connect_internal, "sql-connect-internal", 5, 1, 0, +SCM_DEFINE (sql_connect, "sql-connect", 5, 1, 0, (SCM IFACE, SCM HOST, SCM PORT, SCM DB, SCM USER, SCM PASS), "Connect to a database.") -#define FUNC_NAME s_sql_connect_internal +#define FUNC_NAME s_sql_connect { SCM smob; char *hostname; int port; char *dbname; char *user; @@ -161,16 +161,16 @@ SCM_DEFINE (sql_connect_close, "sql-connect-close", 1, 0, 0, conn = (struct sql_connect *)SCM_CDR(CONN); sql_iftab[conn->iface].close(conn); return SCM_UNSPECIFIED; } #undef FUNC_NAME -SCM_DEFINE (sql_query_internal, "sql-query-internal", 2, 0, 0, +SCM_DEFINE (sql_query, "sql-query", 2, 0, 0, (SCM CONN, SCM QUERY), "Run an SQL query") -#define FUNC_NAME s_sql_query_internal +#define FUNC_NAME s_sql_query { struct sql_connect *conn; void *ptr; char *query; SCM_ASSERT(scm_is_sql_connect(CONN), CONN, SCM_ARG1, FUNC_NAME); @@ -198,8 +198,12 @@ gsql_conn_init() { sql_connect_tag = scm_make_smob_type ("sql_connect", sizeof (struct sql_connect)); scm_set_smob_mark (sql_connect_tag, sql_connect_mark); scm_set_smob_free (sql_connect_tag, sql_connect_free); scm_set_smob_print (sql_connect_tag, sql_connect_print); -#include <gsql_conn.x> +#ifndef SCM_MAGIC_SNARFER +# include <gsql_conn.x> +#endif } + + |