Changeset 8110 in project


Ignore:
Timestamp:
02/03/08 15:03:11 (12 years ago)
Author:
hans
Message:

renamed dfb-surface-* to dfbs-*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • directfb/trunk/directfb.scm

    r7960 r8110  
    11;;; directfb.egg - A wrapper for the DirectFB graphics library
    22;;;
    3 ;;; Copyright (c) 2007  Hans Bulfone <jsb@nil.at>
     3;;; Copyright (c) 2007, 2008  Hans Bulfone <jsb@nil.at>
    44;;; All rights reserved.
    55;;;
     
    7777  DFSCL_NORMAL DFSCL_FULLSCREEN DFSCL_EXCLUSIVE)
    7878
    79 (define-foreign-bitfield (dfb-surface-capabilities int) (strip-prefix: DSCAPS_)
     79(define-foreign-bitfield (dfbs-capabilities int) (strip-prefix: DSCAPS_)
    8080  DSCAPS_PRIMARY DSCAPS_SYSTEMONLY DSCAPS_VIDEOONLY DSCAPS_DOUBLE
    8181  DSCAPS_SUBSURFACE DSCAPS_INTERLACED DSCAPS_SEPARATED DSCAPS_STATIC_ALLOC
    8282  DSCAPS_TRIPLE DSCAPS_PREMULTIPLIED DSCAPS_DEPTH DSCAPS_ALL DSCAPS_FLIPPING)
    8383
    84 (define-foreign-bitfield (dfb-surface-flip-flags int) (strip-prefix: DSFLIP_)
     84(define-foreign-bitfield (dfbs-flip-flags int) (strip-prefix: DSFLIP_)
    8585  DSFLIP_WAIT DSFLIP_BLIT DSFLIP_ONSYNC DSFLIP_PIPELINE)
    8686
     
    110110  DFFA_NOCHARMAP DFFA_FIXEDCLIP)
    111111
    112 (define-foreign-enum (dfb-surface-pixelformat int)
     112(define-foreign-enum (dfbs-pixelformat int)
    113113  DSPF_UNKNOWN DSPF_ARGB1555 DSPF_RGB16 DSPF_RGB24 DSPF_RGB32 DSPF_ARGB
    114114  DSPF_A8 DSPF_YUY2 DSPF_RGB332 DSPF_UYVY DSPF_I420 DSPF_YV12 DSPF_LUT8
     
    301301  (int fract-width flag: DFDESC_FRACT_WIDTH))
    302302
    303 (define-dfb-struct (dfb-surface-description DFBSurfaceDescription)
     303(define-dfb-struct (dfbs-description DFBSurfaceDescription)
    304304  (flags-slot: flags)
    305305  (export: #t)
    306   (dfb-surface-capabilities caps flag: DSDESC_CAPS)
     306  (dfbs-capabilities caps flag: DSDESC_CAPS)
    307307  (int width flag: DSDESC_WIDTH)
    308308  (int height flag: DSDESC_HEIGHT)
    309   (dfb-surface-pixelformat pixelformat flag: DSDESC_PIXELFORMAT)
     309  (dfbs-pixelformat pixelformat flag: DSDESC_PIXELFORMAT)
    310310  (unsigned-long resource-id flag: DSDESC_RESOURCE_ID))
    311311
     
    350350(define (dfb-create-surface dfb . dsc)
    351351  (let-location ((surf c-pointer))
    352     (let ((dsc (if (null? (cdr dsc)) (car dsc) (apply make-dfb-surface-description dsc))))
    353       ($dfb$ IDirectFB dfb CreateSurface ((dfb-surface-description dsc) (c-pointer #$surf))))
     352    (let ((dsc (if (null? (cdr dsc)) (car dsc) (apply make-dfbs-description dsc))))
     353      ($dfb$ IDirectFB dfb CreateSurface ((dfbs-description dsc) (c-pointer #$surf))))
    354354    (make-dfbs-interface surf)))
    355355
     
    428428
    429429(define (dfbs-get-capabilities surf)
    430   ($dfb$o IDirectFBSurface surf GetCapabilities ((dfb-surface-capabilities $out$))))
     430  ($dfb$o IDirectFBSurface surf GetCapabilities ((dfbs-capabilities $out$))))
    431431
    432432(define (dfbs-get-position surf)
     
    442442
    443443(define (dfbs-get-pixel-format surf)
    444   ($dfb$o IDirectFBSurface surf GetPixelFormat ((dfb-surface-pixelformat $out$))))
     444  ($dfb$o IDirectFBSurface surf GetPixelFormat ((dfbs-pixelformat $out$))))
    445445
    446446(define (dfbs-get-acceleration-mask surf source)
     
    453453(define (dfbs-flip surf region flags)
    454454  ($dfb$ IDirectFBSurface surf Flip
    455          ((dfb-region region) (dfb-surface-flip-flags flags))))
     455         ((dfb-region region) (dfbs-flip-flags flags))))
    456456
    457457(define (dfbs-set-field surf field)
     
    654654
    655655(define (dfbip-get-surface-description ip)
    656   (let ((dsc (make-dfb-surface-description)))
     656  (let ((dsc (make-dfbs-description)))
    657657    ($dfb$ IDirectFBImageProvider ip GetSurfaceDescription
    658            ((dfb-surface-description dsc)))
     658           ((dfbs-description dsc)))
    659659    dsc))
    660660
Note: See TracChangeset for help on using the changeset viewer.