From 487aa2841d7792382b59dc8b2ad382dfdbab138b Mon Sep 17 00:00:00 2001 Message-Id: <487aa2841d7792382b59dc8b2ad382dfdbab138b.1714925814.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 19 Dec 2004 18:18:05 +0000 Subject: [PATCH] New functions Organization: Straylight/Edgeware From: espen --- glib/genums.lisp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/glib/genums.lisp b/glib/genums.lisp index 4fb3c10..02fbe76 100644 --- a/glib/genums.lisp +++ b/glib/genums.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: genums.lisp,v 1.4 2004-11-06 21:39:58 espen Exp $ +;; $Id: genums.lisp,v 1.5 2004-12-19 18:18:05 espen Exp $ (in-package "GLIB") @@ -118,7 +118,14 @@ (defbinding %enum-class-values () pointer (defun query-enum-values (type) (%query-enum-or-flags-values #'%enum-class-values '%enum-value type)) +(defun enum-int (enum type) + (funcall (to-alien-function type) enum)) +(defun int-enum (int type) + (funcall (from-alien-function type) int)) + +(defun enum-mapping (type) + (rest (type-expand-to 'enum type))) ;;;; Generic flags type -- [mdw]