X-Git-Url: https://git.jsancho.org/?p=guile-assimp.git;a=blobdiff_plain;f=assimp%2Flow-level%2Ftypes.scm;fp=assimp%2Flow-level%2Ftypes.scm;h=0000000000000000000000000000000000000000;hp=20e22816aa83029a15b455b938657911a1d8e71e;hb=ceafd0037f102ffbb2b902b6ccb0b9701f3ae1ba;hpb=1dc327bbc4a576fdc5c160325d86b5b32754139b diff --git a/assimp/low-level/types.scm b/assimp/low-level/types.scm deleted file mode 100644 index 20e2281..0000000 --- a/assimp/low-level/types.scm +++ /dev/null @@ -1,38 +0,0 @@ -;;; guile-assimp, foreign interface to libassimp -;;; Copyright (C) 2014 by Javier Sancho Fernandez -;;; -;;; This program is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation, either version 3 of the License, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program. If not, see . - - -(define-module (assimp low-level types) - #:use-module (assimp low-level) - #:use-module (system foreign) - #:export (aiString-type - aiMatrix4x4-type - ai-default-log-stream)) - - -(define aiString-type - (list size_t (make-list 1024 int8))) - -(define aiMatrix4x4-type - (make-list 16 float)) - -(define-enumeration - ai-default-log-stream - (file #x1) - (stdout #x2) - (stderr #x4) - (debugger #x8) - (ai-dls-enforce-enum-size #x7fffffff))