X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Flow-level%2Fcimport.scm;h=7f0f2592b8e32d6f6c535864ae18c78e3d4da705;hb=21dab003aaf4e3d42bf5a7c2fe8a64e1fcec6192;hp=9bc0c99afcb038b355869bf02617fc004d049797;hpb=3232da94d35e82b13b04e703fe68c5f1f3232838;p=guile-assimp.git

diff --git a/src/low-level/cimport.scm b/src/low-level/cimport.scm
index 9bc0c99..7f0f259 100644
--- a/src/low-level/cimport.scm
+++ b/src/low-level/cimport.scm
@@ -19,14 +19,28 @@
   #:use-module (assimp low-level)
   #:use-module (system foreign)
   #:export (aiImportFile
-	    aiMultiplyMatrix4))
-
-(define libassimp (dynamic-link "libassimp"))
-
-(define-syntax define-assimp-function
-  (syntax-rules (->)
-    ((_ (name arg-type ...) -> return-type)
-     (define-foreign-function ((libassimp name) arg-type ...) -> return-type))))
+	    aiReleaseImport
+	    aiGetPredefinedLogStream
+	    aiAttachLogStream
+	    aiDetachAllLogStreams
+	    aiTransformVecByMatrix4
+	    aiMultiplyMatrix3
+	    aiMultiplyMatrix4
+	    aiIdentityMatrix3
+	    aiIdentityMatrix4
+	    aiTransposeMatrix3
+	    aiTransposeMatrix4))
 
 (define-assimp-function (aiImportFile '* unsigned-int) -> '*)
+(define-assimp-function (aiReleaseImport '*) -> void)
+(define-assimp-function (aiGetPredefinedLogStream unsigned-int '*) -> (list '* '* '*))
+(define-assimp-function (aiAttachLogStream '*) -> void)
+(define-assimp-function (aiDetachAllLogStreams) -> void)
+
+(define-assimp-function (aiTransformVecByMatrix4 '* '*) -> void)
+(define-assimp-function (aiMultiplyMatrix3 '* '*) -> void)
 (define-assimp-function (aiMultiplyMatrix4 '* '*) -> void)
+(define-assimp-function (aiIdentityMatrix3 '*) -> void)
+(define-assimp-function (aiIdentityMatrix4 '*) -> void)
+(define-assimp-function (aiTransposeMatrix3 '*) -> void)
+(define-assimp-function (aiTransposeMatrix4 '*) -> void)