Changeset 8110 in project

Timestamp:

02/03/08 15:03:11 (12 years ago)

Author:

hans

Message:

renamed dfb-surface-* to dfbs-*

File:

• directfb/trunk/directfb.scm (modified) (9 diffs)

directfb/trunk/directfb.scm

@@ -1 +1 @@
 ;;; directfb.egg - A wrapper for the DirectFB graphics library
 ;;;
-;;; Copyright (c) 2007  Hans Bulfone <jsb@nil.at>
+;;; Copyright (c) 2007, 2008  Hans Bulfone <jsb@nil.at>
 ;;; All rights reserved.
 ;;;
@@ -77 +77 @@
   DFSCL_NORMAL DFSCL_FULLSCREEN DFSCL_EXCLUSIVE)
 
-(define-foreign-bitfield (dfb-surface-capabilities int) (strip-prefix: DSCAPS_)
+(define-foreign-bitfield (dfbs-capabilities int) (strip-prefix: DSCAPS_)
   DSCAPS_PRIMARY DSCAPS_SYSTEMONLY DSCAPS_VIDEOONLY DSCAPS_DOUBLE
   DSCAPS_SUBSURFACE DSCAPS_INTERLACED DSCAPS_SEPARATED DSCAPS_STATIC_ALLOC
   DSCAPS_TRIPLE DSCAPS_PREMULTIPLIED DSCAPS_DEPTH DSCAPS_ALL DSCAPS_FLIPPING)
 
-(define-foreign-bitfield (dfb-surface-flip-flags int) (strip-prefix: DSFLIP_)
+(define-foreign-bitfield (dfbs-flip-flags int) (strip-prefix: DSFLIP_)
   DSFLIP_WAIT DSFLIP_BLIT DSFLIP_ONSYNC DSFLIP_PIPELINE)
 
@@ -110 +110 @@
   DFFA_NOCHARMAP DFFA_FIXEDCLIP)
 
-(define-foreign-enum (dfb-surface-pixelformat int)
+(define-foreign-enum (dfbs-pixelformat int)
   DSPF_UNKNOWN DSPF_ARGB1555 DSPF_RGB16 DSPF_RGB24 DSPF_RGB32 DSPF_ARGB
   DSPF_A8 DSPF_YUY2 DSPF_RGB332 DSPF_UYVY DSPF_I420 DSPF_YV12 DSPF_LUT8
@@ -301 +301 @@
   (int fract-width flag: DFDESC_FRACT_WIDTH))
 
-(define-dfb-struct (dfb-surface-description DFBSurfaceDescription)
+(define-dfb-struct (dfbs-description DFBSurfaceDescription)
   (flags-slot: flags)
   (export: #t)
-  (dfb-surface-capabilities caps flag: DSDESC_CAPS)
+  (dfbs-capabilities caps flag: DSDESC_CAPS)
   (int width flag: DSDESC_WIDTH)
   (int height flag: DSDESC_HEIGHT)
-  (dfb-surface-pixelformat pixelformat flag: DSDESC_PIXELFORMAT)
+  (dfbs-pixelformat pixelformat flag: DSDESC_PIXELFORMAT)
   (unsigned-long resource-id flag: DSDESC_RESOURCE_ID))
 
@@ -350 +350 @@
 (define (dfb-create-surface dfb . dsc)
   (let-location ((surf c-pointer))
-    (let ((dsc (if (null? (cdr dsc)) (car dsc) (apply make-dfb-surface-description dsc))))
-      ($dfb$ IDirectFB dfb CreateSurface ((dfb-surface-description dsc) (c-pointer #$surf))))
+    (let ((dsc (if (null? (cdr dsc)) (car dsc) (apply make-dfbs-description dsc))))
+      ($dfb$ IDirectFB dfb CreateSurface ((dfbs-description dsc) (c-pointer #$surf))))
     (make-dfbs-interface surf)))
 
@@ -428 +428 @@
 
 (define (dfbs-get-capabilities surf)
-  ($dfb$o IDirectFBSurface surf GetCapabilities ((dfb-surface-capabilities $out$))))
+  ($dfb$o IDirectFBSurface surf GetCapabilities ((dfbs-capabilities $out$))))
 
 (define (dfbs-get-position surf)
@@ -442 +442 @@
 
 (define (dfbs-get-pixel-format surf)
-  ($dfb$o IDirectFBSurface surf GetPixelFormat ((dfb-surface-pixelformat $out$))))
+  ($dfb$o IDirectFBSurface surf GetPixelFormat ((dfbs-pixelformat $out$))))
 
 (define (dfbs-get-acceleration-mask surf source)
@@ -453 +453 @@
 (define (dfbs-flip surf region flags)
   ($dfb$ IDirectFBSurface surf Flip
-         ((dfb-region region) (dfb-surface-flip-flags flags))))
+         ((dfb-region region) (dfbs-flip-flags flags))))
 
 (define (dfbs-set-field surf field)
@@ -654 +654 @@
 
 (define (dfbip-get-surface-description ip)
-  (let ((dsc (make-dfb-surface-description)))
+  (let ((dsc (make-dfbs-description)))
     ($dfb$ IDirectFBImageProvider ip GetSurfaceDescription
-           ((dfb-surface-description dsc)))
+           ((dfbs-description dsc)))
     dsc))