sig
type power_state =
[ `powerstate_Charged
| `powerstate_Charging
| `powerstate_No_Battery
| `powerstate_On_Battery
| `powerstate_Unknown ]
external get_power_info : unit -> Sdlpower.power_state * int * int
= "caml_SDL_GetPowerInfo"
end