feat: defined functions from the C ABI <incomplete>

core.lisp

@@ -1 +1,25 @@
 (in-package :monastery)
+
+(defcfun ("mdict_init" %mdict_init) :pointer
+  (dictionary_path :string))
+
+(defcfun ("mdict_lookup" %mdict_lookup) :void
+  (dict :pointer)
+  (word :string)
+  (result (:pointer :string)))
+
+(defcfun ("mdict_locate" %mdict_locate) :void
+  (dict :pointer)
+  (word :string)
+  (result (:pointer :string))
+  (encoding mdict-encoding))
+
+(defcfun ("mdict_parse_definition" %mdict_parse_definition) :void
+  (dict :pointer)
+  (word :string)
+  (record_start :unsigned-long)
+  (result (:pointer :string)))
+
+(defcfun ("mdict_keylist" %mdict_keylist) (:pointer simple-key-item)
+  (dict :pointer)
+  (len (:pointer :uint64)))

types.lisp

@@ -11,3 +11,4 @@
 
 (defctype s-data '(:struct sized-data))
 (defctype mdict-encoding mdict-encoding-t)
+(defctype simple-key-item :pointer)