From 5b9975d77ccbac87af6798e22b53b651f08a1295 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Mon, 27 Apr 2020 16:42:28 +0200 Subject: [PATCH] Remove Windows-specific implementation module for Database.SQL._SQLite, which was identical to the platform-independent one --- .../OS-Windows/Database/SQL/_SQLite.icl | 75 ------------------- 1 file changed, 75 deletions(-) delete mode 100644 src/libraries/OS-Windows/Database/SQL/_SQLite.icl diff --git a/src/libraries/OS-Windows/Database/SQL/_SQLite.icl b/src/libraries/OS-Windows/Database/SQL/_SQLite.icl deleted file mode 100644 index e2153747..00000000 --- a/src/libraries/OS-Windows/Database/SQL/_SQLite.icl +++ /dev/null @@ -1,75 +0,0 @@ -implementation module Database.SQL._SQLite -import System._Pointer - -sqlite3_open :: !{#Char} -> (!Int,!Pointer) -sqlite3_open a0 = code { - ccall sqlite3_open "s:Ip" -} -sqlite3_close :: !Pointer -> Int -sqlite3_close a0 = code { - ccall sqlite3_close "p:I" -} -sqlite3_errcode :: !Pointer -> Int -sqlite3_errcode a0 = code { - ccall sqlite3_errcode "p:I" -} -sqlite3_errmsg :: !Pointer -> Pointer -sqlite3_errmsg a0 = code { - ccall sqlite3_errmsg "p:p" -} -sqlite3_prepare :: !Pointer !{#Char} !Int -> (!Int,!Pointer,!Pointer) -sqlite3_prepare a0 a1 a2 = code { - ccall sqlite3_prepare "psI:Ipp" -} -sqlite3_bind_null :: !Pointer !Int -> Int -sqlite3_bind_null a0 a1 = code { - ccall sqlite3_bind_null "pI:I" -} -sqlite3_bind_text :: !Pointer !Int !{#Char} !Int !Pointer -> Int -sqlite3_bind_text a0 a1 a2 a3 a4 = code { - ccall sqlite3_bind_text "pIsIp:I" -} -sqlite3_bind_blob :: !Pointer !Int !{#Char} !Int !Pointer -> Int -sqlite3_bind_blob a0 a1 a2 a3 a4 = code { - ccall sqlite3_bind_blob "pIsIp:I" -} -sqlite3_bind_int64 :: !Pointer !Int !Int -> Int -sqlite3_bind_int64 a0 a1 a2 = code { - ccall sqlite3_bind_int64 "pII:I" -} -sqlite3_bind_double :: !Pointer !Int !Real -> Int -sqlite3_bind_double a0 a1 a2 = code { - ccall sqlite3_bind_double "pIr:I" -} -sqlite3_step :: !Pointer -> Int -sqlite3_step a0 = code { - ccall sqlite3_step "p:I" -} -sqlite3_finalize :: !Pointer -> Int -sqlite3_finalize a0 = code { - ccall sqlite3_finalize "p:I" -} -sqlite3_column_count :: !Pointer -> Int -sqlite3_column_count a0 = code { - ccall sqlite3_column_count "p:I" -} -sqlite3_column_type :: !Pointer !Int -> Int -sqlite3_column_type a0 a1 = code { - ccall sqlite3_column_type "pI:I" -} -sqlite3_column_int :: !Pointer !Int -> Int -sqlite3_column_int a0 a1 = code { - ccall sqlite3_column_int "pI:I" -} -sqlite3_column_text :: !Pointer !Int -> Pointer -sqlite3_column_text a0 a1 = code { - ccall sqlite3_column_text "pI:p" -} -sqlite3_last_insert_rowid :: !Pointer -> Int -sqlite3_last_insert_rowid a0 = code { - ccall sqlite3_last_insert_rowid "p:I" -} -sqlite3_changes :: !Pointer -> Int -sqlite3_changes a0 = code { - ccall sqlite3_changes "p:I" -} -- GitLab