Cleaned pod from SDL.pm

[sdlgit/SDL_perl.git] / src / SDL.xs

diff --git a/src/SDL.xs b/src/SDL.xs
index 13d20c6..bf9f64d 100644 (file)
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -243,14 +243,14 @@ MODULE = SDL_perl PACKAGE = SDL
 PROTOTYPES : DISABLE
 
 char *
-GetError ()
+geterror ()
        CODE:
                RETVAL = SDL_GetError();
        OUTPUT:
                RETVAL
 
 int
-Init ( flags )
+init ( flags )
        Uint32 flags
        CODE:
                INIT_NS_APPLICATION
@@ -264,7 +264,7 @@ Init ( flags )
                RETVAL
 
 int
-InitSubSystem ( flags )
+init_subsystem ( flags )
        Uint32 flags
        CODE:
                RETVAL = SDL_InitSubSystem(flags);
@@ -272,19 +272,19 @@ InitSubSystem ( flags )
                RETVAL
 
 void
-QuitSubSystem ( flags )
+quit_subsystem ( flags )
        Uint32 flags
        CODE:
                SDL_QuitSubSystem(flags);
 
 void
-Quit ()
+quit ()
        CODE:
                QUIT_NS_APPLICATION
                SDL_Quit();
 
 int
-WasInit ( flags )
+was_init ( flags )
        Uint32 flags
        CODE:
                RETVAL = SDL_WasInit(flags);
@@ -292,7 +292,7 @@ WasInit ( flags )
                RETVAL
 
 void
-Delay ( ms )
+delay ( ms )
        int ms
        CODE:
                SDL_Delay(ms);
@@ -1210,6 +1210,7 @@ ListModes ( format, flags )
                }
        OUTPUT:
                RETVAL
+=skip
 
 SDL_Palette *
 NewPalette ( number )
@@ -1221,6 +1222,7 @@ NewPalette ( number )
                RETVAL->ncolors = number;
        OUTPUT:
                RETVAL
+=cut
 
 int
 PaletteNColors ( palette, ... )
@@ -1322,22 +1324,6 @@ UpdateRects ( surface, ... )
 
 Comment out for now as it does not compile
 
-SDL_Color *
-PaletteColors ( palette, index, ... )
-       SDL_Palette *palette
-       int index
-       CODE:
-               if ( items > 2 ) {
-                       palette->colors[index].r = SvUV(ST(2)); 
-                       palette->colors[index].g = SvUV(ST(3)); 
-                       palette->colors[index].b = SvUV(ST(4)); 
-               }
-               RETVAL = (SDL_Color *)(palette->colors + index);
-       OUTPUT:
-               RETVAL
-
-
-
 int
 VideoModeOK ( width, height, bpp, flags )
        int width