module "/pliant/language/context.pli"
module "/pliant/language/unsafe.pli"

public
 gvar uInt32 SDL_INIT_VIDEO := 00000020h

 function SDL_Init flags -> z
  arg uInt32 flags
  arg Int z
  external "libSDL.so" "SDL_Init"

 function SDL_Quit
  external "libSDL.so" "SDL_Quit"

 function exit_ status
  arg Int status
  external "libc.so.6" "exit"

 function exit status
  arg Int status
  SDL_Quit
  exit_ status

 function atexit func
  arg Address func
  external "libc.so.6" "atexit"


submodule "/pliant/SDL/SDL_Error.pli"
submodule "/pliant/SDL/SDL_rwops.pli"
submodule "/pliant/SDL/SDL_video.pli"
submodule "/pliant/SDL/SDL_events.pli"
submodule "/pliant/SDL/SDL_keyboard.pli"
submodule "/pliant/SDL/SDL_keysym.pli"
submodule "/pliant/SDL/SDL_timer.pli"