More functions from original library

[guile-assimp.git] / src / low-level / cimport.scm

diff --git a/src/low-level/cimport.scm b/src/low-level/cimport.scm
index b0d71e7e252e4c7fe896df4aeb8206416f131c04..7f0f2592b8e32d6f6c535864ae18c78e3d4da705 100644 (file)
--- a/src/low-level/cimport.scm
+++ b/src/low-level/cimport.scm
@@ -19,16 +19,28 @@
   #:use-module (assimp low-level)
   #:use-module (system foreign)
   #:export (aiImportFile
+           aiReleaseImport
+           aiGetPredefinedLogStream
+           aiAttachLogStream
+           aiDetachAllLogStreams
            aiTransformVecByMatrix4
-           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))))
+           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)