The status_code parameter is a standard status code listed in Appendix A,
"Status Codes."
None.
Return Value:
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure powersta Is
package SYSBYTE_IO is new INTEGER_IO (System.Byte);
line_status
: IM_LINE_STATUS;
battery_status : IM_BATTERY_STATUS;
backup_status
: IM_BACKUP_STATUS;
fuel_gauge
: System.Byte;
status
: System.Word;
in_char
: Character := ' ';
begin
loop
exit when in_char = 'q';
Put_Line("Checking power");
New_Line;
im_power_status(line_status, battery_status, backup_status,
fuel_gauge, status);
if im_isgood (status) then
Put_Line("Line Status: ");
case line_status is
when IM_ACline_NOT_CONNECTED =>
Put_Line("Not connected");
when IM_ACline_CONNECTED =>
Put_Line("Connected");
when IM_UNKNOWN_ACline =>
Put_Line("Unknown");
when others =>
Put_Line("Invalid");
end case;
New_Line;
Put_Line("Battery Status: ");
case battery_status is
when IM_HIGH_BAT =>
Put_Line("Charge high");
when IM_LOW_BAT =>
Put_Line("Charge low");
when IM_CRITICAL_BAT =>
Put_Line("Charge critical");
when IM_CHARGING_BAT =>
Put_Line("Charging battery");
3
im_power_status
3-81