DEFINITION MODULE FOR "C" SQLite;
(* Minimal first SQLite binding: open an in-memory database, execute SQL,
   and close it.  The full binding stays in m2SQLITE for later porting. *)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
  SQLiteOk,
  sqlite3_open,
  sqlite3_exec,
  sqlite3_close;

CONST
  SQLiteOk = 0;

PROCEDURE sqlite3_open (filename : ARRAY OF CHAR;
                        VAR db : ADDRESS) : INTEGER;
PROCEDURE sqlite3_exec (db : ADDRESS;
                        sql : ARRAY OF CHAR;
                        callback, arg, errmsg : ADDRESS) : INTEGER;
PROCEDURE sqlite3_close (db : ADDRESS) : INTEGER;

END SQLite.