A lot of functionality added

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

diff --git a/src/low-level/cimport.scm b/src/low-level/cimport.scm
index b0d71e7e252e4c7fe896df4aeb8206416f131c04..023dc7a44f42456c97e1d1cf5fa795b8365bc0bd 100644 (file)
--- a/src/low-level/cimport.scm
+++ b/src/low-level/cimport.scm
@@ -20,15 +20,18 @@
   #:use-module (system foreign)
   #:export (aiImportFile
            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 (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)