Changeset 26976 in project


Ignore:
Timestamp:
07/03/12 13:28:42 (9 years ago)
Author:
megane
Message:

sdl: return -> C_return

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sdl/trunk/sdl.scm

    r26905 r26976  
    833833(define sdl-version-major
    834834  (foreign-lambda* unsigned-byte ((SDL_version v))
    835                    "return(v->major);"))
     835                   "C_return(v->major);"))
    836836
    837837(define sdl-version-minor
    838838  (foreign-lambda* unsigned-byte ((SDL_version v))
    839                    "return(v->minor);"))
     839                   "C_return(v->minor);"))
    840840
    841841(define sdl-version-patch
    842842  (foreign-lambda* unsigned-byte ((SDL_version v))
    843                    "return(v->patch);"))
     843                   "C_return(v->patch);"))
    844844
    845845;; Returns #t if the first argument is at least what the rest of the
     
    856856(define sdl-compiled-version
    857857  (foreign-lambda* SDL_version ()
    858                    "SDL_version v; SDL_VERSION(&v); return(&v);"))
     858                   "SDL_version v; SDL_VERSION(&v); C_return(&v);"))
    859859
    860860(define sdl-linked-version
     
    893893  -sdl-unbox-rect)
    894894
    895 (define sdl-rect-x (foreign-lambda* short ((SDL_Rect c)) "return(c->x);"))
    896 (define sdl-rect-y (foreign-lambda* short ((SDL_Rect c)) "return(c->y);"))
    897 (define sdl-rect-w (foreign-lambda* unsigned-short ((SDL_Rect c)) "return(c->w);"))
    898 (define sdl-rect-h (foreign-lambda* unsigned-short ((SDL_Rect c)) "return(c->h);"))
     895(define sdl-rect-x (foreign-lambda* short ((SDL_Rect c)) "C_return(c->x);"))
     896(define sdl-rect-y (foreign-lambda* short ((SDL_Rect c)) "C_return(c->y);"))
     897(define sdl-rect-w (foreign-lambda* unsigned-short ((SDL_Rect c)) "C_return(c->w);"))
     898(define sdl-rect-h (foreign-lambda* unsigned-short ((SDL_Rect c)) "C_return(c->h);"))
    899899
    900900(define sdl-rect-x-set! (foreign-lambda* void ((SDL_Rect c) (short x)) "c->x = x;"))
     
    917917(define sdl-pixel-format-bytes-per-pixel
    918918  (foreign-lambda* unsigned-byte ((SDL_PixelFormat pf))
    919                    "return(pf->BytesPerPixel);"))
     919                   "C_return(pf->BytesPerPixel);"))
    920920
    921921(define sdl-pixel-format-rmask
    922922  (foreign-lambda* unsigned-byte ((SDL_PixelFormat pf))
    923                    "return(pf->Rmask);"))
     923                   "C_return(pf->Rmask);"))
    924924(define sdl-pixel-format-gmask
    925925  (foreign-lambda* unsigned-byte ((SDL_PixelFormat pf))
    926                    "return(pf->Gmask);"))
     926                   "C_return(pf->Gmask);"))
    927927(define sdl-pixel-format-bmask
    928928  (foreign-lambda* unsigned-byte ((SDL_PixelFormat pf))
    929                    "return(pf->Bmask);"))
     929                   "C_return(pf->Bmask);"))
    930930(define sdl-pixel-format-amask
    931931  (foreign-lambda* unsigned-byte ((SDL_PixelFormat pf))
    932                    "return(pf->Amask);"))
     932                   "C_return(pf->Amask);"))
    933933
    934934;---------------------------------------------------------------------------
     
    948948(define (sdl-surface-flags s)
    949949  ((foreign-lambda* unsigned-integer ((SDL_Surface s))
    950                     "return(s->flags);") s))
     950                    "C_return(s->flags);") s))
    951951
    952952(define (sdl-surface-pixel-format s)
    953953  ((foreign-lambda* SDL_PixelFormat ((SDL_Surface s))
    954                     "return(s->format);") s))
     954                    "C_return(s->format);") s))
    955955
    956956(define (sdl-surface-width s)
    957957  ((foreign-lambda* integer ((SDL_Surface s))
    958                     "return(s->w);") s))
     958                    "C_return(s->w);") s))
    959959
    960960(define (sdl-surface-height s)
    961961  ((foreign-lambda* integer ((SDL_Surface s))
    962                     "return(s->h);") s))
     962                    "C_return(s->h);") s))
    963963
    964964(define (sdl-surface-pitch s)
    965965  ((foreign-lambda* unsigned-short ((SDL_Surface s))
    966                     "return(s->pitch);") s))
     966                    "C_return(s->pitch);") s))
    967967
    968968(define (sdl-surface-pixels s)
    969969  ((foreign-lambda* (c-pointer byte) ((SDL_Surface s))
    970                     "return(s->pixels);") s))
     970                    "C_return(s->pixels);") s))
    971971
    972972;; Computes the number of bytes of storage pointed to by
     
    10061006(define sdl-video-info-hw-available
    10071007  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1008                    "return(vi->hw_available);"))
     1008                   "C_return(vi->hw_available);"))
    10091009(define sdl-video-info-wm-available
    10101010  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1011                    "return(vi->wm_available);"))
     1011                   "C_return(vi->wm_available);"))
    10121012(define sdl-video-info-blit-hw
    10131013  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1014                    "return(vi->blit_hw);"))
     1014                   "C_return(vi->blit_hw);"))
    10151015(define sdl-video-info-blit-hw-cc
    10161016  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1017                    "return(vi->blit_hw_CC);"))
     1017                   "C_return(vi->blit_hw_CC);"))
    10181018(define sdl-video-info-blit-hw-a
    10191019  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1020                    "return(vi->blit_hw_A);"))
     1020                   "C_return(vi->blit_hw_A);"))
    10211021(define sdl-video-info-blit-sw
    10221022  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1023                    "return(vi->blit_sw);"))
     1023                   "C_return(vi->blit_sw);"))
    10241024(define sdl-video-info-blit-sw-cc
    10251025  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1026                    "return(vi->blit_sw_CC);"))
     1026                   "C_return(vi->blit_sw_CC);"))
    10271027(define sdl-video-info-blit-sw-a
    10281028  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1029                    "return(vi->blit_sw_A);"))
     1029                   "C_return(vi->blit_sw_A);"))
    10301030(define sdl-video-info-blit-fill
    10311031  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1032                    "return(vi->blit_fill);"))
     1032                   "C_return(vi->blit_fill);"))
    10331033(define sdl-video-info-video-mem
    10341034  (foreign-lambda* unsigned-integer ((SDL_VideoInfo vi))
    1035                    "return(vi->video_mem);"))
     1035                   "C_return(vi->video_mem);"))
    10361036(define sdl-video-info-vfmt
    10371037  (foreign-lambda* SDL_PixelFormat ((SDL_VideoInfo vi))
    1038                    "return(vi->vfmt);"))
     1038                   "C_return(vi->vfmt);"))
    10391039(define sdl-video-info-current-w
    10401040  (foreign-lambda* integer ((SDL_VideoInfo vi))
    1041                    "return(vi->current_w);"))
     1041                   "C_return(vi->current_w);"))
    10421042(define sdl-video-info-current-h
    10431043  (foreign-lambda* integer ((SDL_VideoInfo vi))
    1044                    "return(vi->current_h);"))
     1044                   "C_return(vi->current_h);"))
    10451045
    10461046(define sdl-get-video-info
    10471047  (foreign-lambda* SDL_VideoInfo ()
    1048                    "return(SDL_GetVideoInfo());"))
     1048                   "C_return(SDL_GetVideoInfo());"))
    10491049
    10501050
     
    11141114                    "char *t, *i;"
    11151115                    "SDL_WM_GetCaption(&t, &i);"
    1116                     "return(t);")))
     1116                    "C_return(t);")))
    11171117
    11181118(define (sdl-wm-get-caption-icon)
     
    11201120                    "char *t, *i;"
    11211121                    "SDL_WM_GetCaption(&t, &i);"
    1122                     "return(i);")))
     1122                    "C_return(i);")))
    11231123
    11241124(define (sdl-wm-get-caption)
     
    11521152      "struct timeval tv;"
    11531153      "gettimeofday(&tv, NULL);"
    1154       "return((double) tv.tv_sec + ((double) tv.tv_usec / 1000000.0));"))))
     1154      "C_return((double) tv.tv_sec + ((double) tv.tv_usec / 1000000.0));"))))
    11551155
    11561156(define-values (sdl-add-absolute-timer!
     
    11861186  -sdl-unbox-event)
    11871187
    1188 (define sdl-event-type (foreign-lambda* unsigned-byte ((SDL_Event e)) "return(e->type);"))
     1188(define sdl-event-type (foreign-lambda* unsigned-byte ((SDL_Event e)) "C_return(e->type);"))
    11891189(define sdl-event-type-set! (foreign-lambda* void ((SDL_Event e) (unsigned-byte t)) "e->type = t;"))
    11901190
     
    12071207                            `((,(r '=) ,(r 't) ,etype) ((,(r 'foreign-lambda*)
    12081208                                             ,kind ((SDL_Event e))
    1209                                              ,(strapp "return(e->"mem1"."name");")) e)))
     1209                                             ,(strapp "C_return(e->"mem1"."name");")) e)))
    12101210                          clause))
    12111211                 rest)
     
    13051305    (let ((peep-result ((foreign-lambda*
    13061306                         int ((SDL_Event eptr))
    1307                          "return(SDL_PeepEvents(eptr, 1, SDL_GETEVENT, SDL_ALLEVENTS));")
     1307                         "C_return(SDL_PeepEvents(eptr, 1, SDL_GETEVENT, SDL_ALLEVENTS));")
    13081308                        (if (null? e) #f (car e)))))
    13091309      (case peep-result
     
    13961396                        "SDL_Color *c = (SDL_Color *) cbuf;"
    13971397                        "unsigned int c2 = SDL_MapRGB(s->format, c->r, c->g, c->b);"
    1398                         "return(SDL_FillRect(s, r, c2));")
     1398                        "C_return(SDL_FillRect(s, r, c2));")
    13991399       s r (sdl-color-buffer c))
    14001400      ((foreign-lambda int "SDL_FillRect" SDL_Surface SDL_Rect unsigned-integer)
     
    14611461  c)
    14621462
    1463 (define sdl-color-r (foreign-lambda* unsigned-byte ((SDL_Color c)) "return(c->r);"))
    1464 (define sdl-color-g (foreign-lambda* unsigned-byte ((SDL_Color c)) "return(c->g);"))
    1465 (define sdl-color-b (foreign-lambda* unsigned-byte ((SDL_Color c)) "return(c->b);"))
     1463(define sdl-color-r (foreign-lambda* unsigned-byte ((SDL_Color c)) "C_return(c->r);"))
     1464(define sdl-color-g (foreign-lambda* unsigned-byte ((SDL_Color c)) "C_return(c->g);"))
     1465(define sdl-color-b (foreign-lambda* unsigned-byte ((SDL_Color c)) "C_return(c->b);"))
    14661466
    14671467;---------------------------------------------------------------------------
     
    15571557(define ttf-compiled-version
    15581558  (foreign-lambda* SDL_version ()
    1559                    "SDL_version v; SDL_TTF_VERSION(&v); return(&v);"))
     1559                   "SDL_version v; SDL_TTF_VERSION(&v); C_return(&v);"))
    15601560(define ttf-linked-version
    15611561  (foreign-lambda SDL_version "TTF_Linked_Version"))
     
    15931593                                        "int status = TTF_SizeText(font, text, &ww, &hh);"
    15941594                                        "if (status == 0) { rect->w = ww; rect->h = hh; }"
    1595                                         "return((status == 0));"))
     1595                                        "C_return((status == 0));"))
    15961596(define ttf-size-utf8! (foreign-lambda* bool ((TTF_Font font)
    15971597                                              (c-string text)
     
    16001600                                        "int status = TTF_SizeUTF8(font, text, &ww, &hh);"
    16011601                                        "if (status == 0) { rect->w = ww; rect->h = hh; }"
    1602                                         "return((status == 0));"))
     1602                                        "C_return((status == 0));"))
    16031603
    16041604(define ttf-render-text-solid (foreign-lambda* SDL_Surface ((TTF_Font font)
    16051605                                                            (c-string text)
    16061606                                                            (SDL_Color fg))
    1607                                                "return(TTF_RenderText_Solid(font,text,*fg));"))
     1607                                               "C_return(TTF_RenderText_Solid(font,text,*fg));"))
    16081608(define ttf-render-utf8-solid (foreign-lambda* SDL_Surface ((TTF_Font font)
    16091609                                                            (c-string text)
    16101610                                                            (SDL_Color fg))
    1611                                                "return(TTF_RenderUTF8_Solid(font,text,*fg));"))
     1611                                               "C_return(TTF_RenderUTF8_Solid(font,text,*fg));"))
    16121612(define ttf-render-glyph-solid (foreign-lambda* SDL_Surface ((TTF_Font font)
    16131613                                                             (unsigned-int ch)
    16141614                                                             (SDL_Color fg))
    1615                                                 "return(TTF_RenderGlyph_Solid(font,ch,*fg));"))
     1615                                                "C_return(TTF_RenderGlyph_Solid(font,ch,*fg));"))
    16161616
    16171617(define ttf-render-text-shaded
     
    16201620                                (SDL_Color fg)
    16211621                                (SDL_Color bg))
    1622                    "return(TTF_RenderText_Shaded(font,text,*fg,*bg));"))
     1622                   "C_return(TTF_RenderText_Shaded(font,text,*fg,*bg));"))
    16231623(define ttf-render-utf8-shaded
    16241624  (foreign-lambda* SDL_Surface ((TTF_Font font)
     
    16261626                                (SDL_Color fg)
    16271627                                (SDL_Color bg))
    1628                    "return(TTF_RenderUTF8_Shaded(font,text,*fg,*bg));"))
     1628                   "C_return(TTF_RenderUTF8_Shaded(font,text,*fg,*bg));"))
    16291629(define ttf-render-glyph-shaded
    16301630  (foreign-lambda* SDL_Surface ((TTF_Font font)
     
    16321632                                (SDL_Color fg)
    16331633                                (SDL_Color bg))
    1634                    "return(TTF_RenderGlyph_Shaded(font,ch,*fg, *bg));"))
     1634                   "C_return(TTF_RenderGlyph_Shaded(font,ch,*fg, *bg));"))
    16351635
    16361636(define ttf-render-text-blended (foreign-lambda* SDL_Surface ((TTF_Font font)
    16371637                                                              (c-string text)
    16381638                                                              (SDL_Color fg))
    1639                                                  "return(TTF_RenderText_Blended(font,text,*fg));"))
     1639                                                 "C_return(TTF_RenderText_Blended(font,text,*fg));"))
    16401640(define ttf-render-utf8-blended (foreign-lambda* SDL_Surface ((TTF_Font font)
    16411641                                                              (c-string text)
    16421642                                                              (SDL_Color fg))
    1643                                                  "return(TTF_RenderUTF8_Blended(font,text,*fg));"))
     1643                                                 "C_return(TTF_RenderUTF8_Blended(font,text,*fg));"))
    16441644(define ttf-render-glyph-blended (foreign-lambda* SDL_Surface ((TTF_Font font)
    16451645                                                              (unsigned-int ch)
    16461646                                                              (SDL_Color fg))
    1647                                                  "return(TTF_RenderGlyph_Blended(font,ch,*fg));"))
     1647                                                 "C_return(TTF_RenderGlyph_Blended(font,ch,*fg));"))
    16481648
    16491649;---------------------------------------------------------------------------
     
    17071707
    17081708(define sdl-ip-address-a
    1709   (foreign-lambda* unsigned-byte ((IPaddress a)) "return(((char *)&(a->host))[0]);"))
     1709  (foreign-lambda* unsigned-byte ((IPaddress a)) "C_return(((char *)&(a->host))[0]);"))
    17101710(define sdl-ip-address-b
    1711   (foreign-lambda* unsigned-byte ((IPaddress a)) "return(((char *)&(a->host))[1]);"))
     1711  (foreign-lambda* unsigned-byte ((IPaddress a)) "C_return(((char *)&(a->host))[1]);"))
    17121712(define sdl-ip-address-c
    1713   (foreign-lambda* unsigned-byte ((IPaddress a)) "return(((char *)&(a->host))[2]);"))
     1713  (foreign-lambda* unsigned-byte ((IPaddress a)) "C_return(((char *)&(a->host))[2]);"))
    17141714(define sdl-ip-address-d
    1715   (foreign-lambda* unsigned-byte ((IPaddress a)) "return(((char *)&(a->host))[3]);"))
     1715  (foreign-lambda* unsigned-byte ((IPaddress a)) "C_return(((char *)&(a->host))[3]);"))
    17161716
    17171717(define sdl-ip-address-port
    1718   (foreign-lambda* unsigned-short ((IPaddress a)) "return(ntohs(a->port));"))
     1718  (foreign-lambda* unsigned-short ((IPaddress a)) "C_return(ntohs(a->port));"))
    17191719
    17201720(define sdl-ip-address-port-set!
     
    17691769                          "if (result != NULL) {"
    17701770                          "  *ipa = *result;"
    1771                           "  return(1);"
     1771                          "  C_return(1);"
    17721772                          "} else {"
    1773                           "  return(0);"
     1773                          "  C_return(0);"
    17741774                          "}")
    17751775         sock ipa)
     
    18481848  (foreign-lambda* unsigned-short ((blob bv)
    18491849                                   (int offset))
    1850                    "return(SDLNet_Read16(&bv[offset]));"))
     1850                   "C_return(SDLNet_Read16(&bv[offset]));"))
    18511851
    18521852(define sdl-net-read-32
    18531853  (foreign-lambda* unsigned-integer ((blob bv)
    18541854                                     (int offset))
    1855                    "return(SDLNet_Read32(&bv[offset]));"))
     1855                   "C_return(SDLNet_Read32(&bv[offset]));"))
    18561856
    18571857)
Note: See TracChangeset for help on using the changeset viewer.