diff options
Diffstat (limited to 'src')
-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 @@ -91,10 +91,10 @@ scm_is_sql_connect (SCM scm) /* 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; @@ -164,10 +164,10 @@ SCM_DEFINE (sql_connect_close, "sql-connect-close", 1, 0, 0, } #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; @@ -201,5 +201,9 @@ gsql_conn_init() 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 } + + |