summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org.ua>2002-05-21 11:06:33 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2002-05-21 11:06:33 (GMT)
commit5badd8c3d51e09ba9ac127b875de9d7785185bc0 (patch) (side-by-side diff)
tree5b9eab886b94f1fca0f94ae60e84eb23aab47a0d
parent24c144e5714f4291d4496ae06503a2a7431ddab9 (diff)
downloadgamma-5badd8c3d51e09ba9ac127b875de9d7785185bc0.tar.gz
gamma-5badd8c3d51e09ba9ac127b875de9d7785185bc0.tar.bz2
Renamed sql-query-internal to sql-query
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--src/gsql_conn.c14
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
}
+
+

Return to:

Send suggestions and report system problems to the System administrator.