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