Handle UTF16 and UTF32 strings properly when binding to an SQLite table

Author: quinnj

src/SQLite.jl

@@ -126,8 +126,13 @@ bind!(stmt::Stmt,i::Int,val::Int32)          = (sqlite3_bind_int(stmt.handle,i,v
 bind!(stmt::Stmt,i::Int,val::Int64)          = (sqlite3_bind_int64(stmt.handle,i,val); return nothing)
 bind!(stmt::Stmt,i::Int,val::NullType)       = (sqlite3_bind_null(stmt.handle,i); return nothing)
 bind!(stmt::Stmt,i::Int,val::AbstractString) = (sqlite3_bind_text(stmt.handle,i,val); return nothing)
-bind!(stmt::Stmt,i::Int,val::PointerString)  = (sqlite3_bind_text(stmt.handle,i,val.ptr,val.len); return nothing)
+bind!(stmt::Stmt,i::Int,val::PointerString{UInt8})   = (sqlite3_bind_text(stmt.handle,i,val.ptr,val.len); return nothing)
+bind!(stmt::Stmt,i::Int,val::PointerString{UInt16})  = (sqlite3_bind_text16(stmt.handle,i,val.ptr,val.len*2); return nothing)
 bind!(stmt::Stmt,i::Int,val::UTF16String)    = (sqlite3_bind_text16(stmt.handle,i,val); return nothing)
+function bind!(stmt::Stmt,i::Int,val::PointerString{UInt32})
+    A = UTF32String(pointer_to_array(val.ptr, val.len+1, false))
+    return bind!(stmt, i, convert(UTF8String,A))
+end
 # We may want to track the new ByteVec type proposed at https://github.com/JuliaLang/julia/pull/8964
 # as the "official" bytes type instead of Vector{UInt8}
 "bind a byte vector as an SQLite BLOB"

src/api.jl

@@ -98,17 +98,23 @@ function sqlite3_bind_text(stmt::Ptr{Void},col::Int,value::AbstractString)
         Cint, (Ptr{Void},Cint,Ptr{UInt8},Cint,Ptr{Void}),
         stmt,col,value,sizeof(value),C_NULL)
 end
-function sqlite3_bind_text(stmt::Ptr{Void},col::Int,ptr::Ptr,len::Int)
+function sqlite3_bind_text(stmt::Ptr{Void},col::Int,ptr::Ptr{UInt8},len::Int)
     return ccall( (:sqlite3_bind_text, sqlite3_lib),
         Cint, (Ptr{Void},Cint,Ptr{UInt8},Cint,Ptr{Void}),
         stmt,col,ptr,len,C_NULL)
 end
 # SQLITE_API int sqlite3_bind_text16(sqlite3_stmt*, int, const void*, int, void(*)(void*));
 function sqlite3_bind_text16(stmt::Ptr{Void},col::Int,value::UTF16String)
-    return ccall( (:sqlite3_bind_text, sqlite3_lib),
+    return ccall( (:sqlite3_bind_text16, sqlite3_lib),
         Cint, (Ptr{Void},Cint,Ptr{UInt16},Cint,Ptr{Void}),
         stmt,col,value,sizeof(value),C_NULL)
 end
+function sqlite3_bind_text16(stmt::Ptr{Void},col::Int,ptr::Ptr{UInt16},len::Int)
+    return ccall( (:sqlite3_bind_text16, sqlite3_lib),
+        Cint, (Ptr{Void},Cint,Ptr{UInt16},Cint,Ptr{Void}),
+        stmt,col,ptr,len,C_NULL)
+end
+
 # SQLITE_API int sqlite3_bind_blob(sqlite3_stmt*, int, const void*, int n, void(*)(void*));
 function sqlite3_bind_blob(stmt::Ptr{Void},col::Int,value)
     return ccall( (:sqlite3_bind_blob, sqlite3_lib),