/*-
 * SPDX-License-Identifier: BSD-2-Clause
 *
 * Copyright (c) 1999 Mitsuru IWASAKI <iwasaki@FreeBSD.org>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *      $Id: acpiconf.c,v 1.5 2000/08/08 14:12:19 iwasaki Exp $
 */

#include <sys/param.h>

#include <err.h>
#include <fcntl.h>
#include <stdio.h>
#include <sys/ioctl.h>
#include <sysexits.h>
#include <unistd.h>

#include <dev/acpica/acpiio.h>

#include <contrib/dev/acpica/include/acpi.h>

#define ACPIDEV         "/dev/acpi"

static int      acpifd;

static void
acpi_init(void)
{
        acpifd = open(ACPIDEV, O_RDWR);
        if (acpifd == -1)
                acpifd = open(ACPIDEV, O_RDONLY);
        if (acpifd == -1)
                err(EX_OSFILE, ACPIDEV);
}

/* Prepare to sleep and then wait for the signal that sleeping can occur. */
static void
acpi_sleep(int sleep_type)
{
        int ret;
  
        /* Notify OS that we want to sleep.  devd(8) gets this notify. */
        ret = ioctl(acpifd, ACPIIO_REQSLPSTATE, &sleep_type);
        if (ret != 0)
                err(EX_IOERR, "request sleep type (%d) failed", sleep_type);
}

/* Ack or abort a pending suspend request. */
static void
acpi_sleep_ack(int err_val)
{
        int ret;

        ret = ioctl(acpifd, ACPIIO_ACKSLPSTATE, &err_val);
        if (ret != 0)
                err(EX_IOERR, "ack sleep type failed");
}

/* should be a acpi define, but doesn't appear to be */
#define UNKNOWN_CAP 0xffffffff
#define UNKNOWN_VOLTAGE 0xffffffff

static int
acpi_battinfo(int num)
{
        union acpi_battery_ioctl_arg battio;
        const char *pwr_units;
        int hours, min, amp;
        uint32_t volt;

        if (num < 0 || num > 64)
                errx(EX_USAGE, "invalid battery %d", num);

        /* Print battery design information. */
        battio.unit = num;
        if (ioctl(acpifd, ACPIIO_BATT_GET_BIX, &battio) == -1)
                err(EX_IOERR, "get battery info (%d) failed", num);
        amp = battio.bix.units;
        pwr_units = amp ? "mA" : "mW";
        if (battio.bix.dcap == UNKNOWN_CAP)
                printf("Design capacity:\tunknown\n");
        else
                printf("Design capacity:\t%d %sh\n", battio.bix.dcap,
                    pwr_units);
        if (battio.bix.lfcap == UNKNOWN_CAP)
                printf("Last full capacity:\tunknown\n");
        else
                printf("Last full capacity:\t%d %sh\n", battio.bix.lfcap,
                    pwr_units);
        printf("Technology:\t\t%s\n", battio.bix.btech == 0 ?
            "primary (non-rechargeable)" : "secondary (rechargeable)");
        if (ACPI_BIX_REV_MIN_CHECK(battio.bix.rev, ACPI_BIX_REV_1)) {
                printf("Battery Swappable Capability:\t");
                if (battio.bix.scap == ACPI_BIX_SCAP_NO)
                        printf("Non-swappable\n");
                else if (battio.bix.scap == ACPI_BIX_SCAP_COLD)
                        printf("cold swap\n");
                else if (battio.bix.scap == ACPI_BIX_SCAP_HOT)
                        printf("hot swap\n");
                else
                        printf("unknown\n");
        }
        if (battio.bix.dvol == UNKNOWN_CAP)
                printf("Design voltage:\t\tunknown\n");
        else
                printf("Design voltage:\t\t%d mV\n", battio.bix.dvol);
        printf("Capacity (warn):\t%d %sh\n", battio.bix.wcap, pwr_units);
        printf("Capacity (low):\t\t%d %sh\n", battio.bix.lcap, pwr_units);
        if (ACPI_BIX_REV_MIN_CHECK(battio.bix.rev, ACPI_BIX_REV_0)) {
                if (battio.bix.cycles != ACPI_BATT_UNKNOWN)
                        printf("Cycle Count:\t\t%d\n", battio.bix.cycles);
                printf("Measurement Accuracy:\t%d%%\n",
                    battio.bix.accuracy / 1000);
                if (battio.bix.stmax != ACPI_BATT_UNKNOWN)
                        printf("Max Sampling Time:\t%d ms\n",
                            battio.bix.stmax);
                if (battio.bix.stmin != ACPI_BATT_UNKNOWN)
                        printf("Min Sampling Time:\t%d ms\n",
                            battio.bix.stmin);
                printf("Max Average Interval:\t%d ms\n",
                    battio.bix.aimax);
                printf("Min Average Interval:\t%d ms\n",
                    battio.bix.aimin);
        }
        printf("Low/warn granularity:\t%d %sh\n", battio.bix.gra1, pwr_units);
        printf("Warn/full granularity:\t%d %sh\n", battio.bix.gra2, pwr_units);
        printf("Model number:\t\t%s\n", battio.bix.model);
        printf("Serial number:\t\t%s\n", battio.bix.serial);
        printf("Type:\t\t\t%s\n", battio.bix.type);
        printf("OEM info:\t\t%s\n", battio.bix.oeminfo);

        /* Fetch battery voltage information. */
        volt = UNKNOWN_VOLTAGE;
        battio.unit = num;
        if (ioctl(acpifd, ACPIIO_BATT_GET_BST, &battio) == -1)
                err(EX_IOERR, "get battery status (%d) failed", num);
        if (battio.bst.state != ACPI_BATT_STAT_NOT_PRESENT)
                volt = battio.bst.volt;

        /* Print current battery state information. */
        battio.unit = num;
        if (ioctl(acpifd, ACPIIO_BATT_GET_BATTINFO, &battio) == -1)
                err(EX_IOERR, "get battery user info (%d) failed", num);
        if (battio.battinfo.state != ACPI_BATT_STAT_NOT_PRESENT) {
                const char *state;
                switch (battio.battinfo.state & ACPI_BATT_STAT_BST_MASK) {
                case 0:
                        state = "high";
                        break;
                case ACPI_BATT_STAT_DISCHARG:
                        state = "discharging";
                        break;
                case ACPI_BATT_STAT_CHARGING:
                        state = "charging";
                        break;
                case ACPI_BATT_STAT_CRITICAL:
                        state = "critical";
                        break;
                case ACPI_BATT_STAT_DISCHARG | ACPI_BATT_STAT_CRITICAL:
                        state = "critical discharging";
                        break;
                case ACPI_BATT_STAT_CHARGING | ACPI_BATT_STAT_CRITICAL:
                        state = "critical charging";
                        break;
                default:
                        state = "invalid";
                }
                printf("State:\t\t\t%s\n", state);
                if (battio.battinfo.cap == -1)
                        printf("Remaining capacity:\tunknown\n");
                else
                        printf("Remaining capacity:\t%d%%\n",
                            battio.battinfo.cap);
                if (battio.battinfo.min == -1)
                        printf("Remaining time:\t\tunknown\n");
                else {
                        hours = battio.battinfo.min / 60;
                        min = battio.battinfo.min % 60;
                        printf("Remaining time:\t\t%d:%02d\n", hours, min);
                }
                if (battio.battinfo.rate == -1)
                        printf("Present rate:\t\tunknown\n");
                else if (amp && volt != UNKNOWN_VOLTAGE) {
                        printf("Present rate:\t\t%d mA (%d mW)\n",
                            battio.battinfo.rate,
                            battio.battinfo.rate * volt / 1000);
                } else
                        printf("Present rate:\t\t%d %s\n",
                            battio.battinfo.rate, pwr_units);
        } else
                printf("State:\t\t\tnot present\n");

        /* Print battery voltage information. */
        if (volt == UNKNOWN_VOLTAGE)
                printf("Present voltage:\tunknown\n");
        else
                printf("Present voltage:\t%d mV\n", volt);

        return (0);
}

static void
usage(const char* prog)
{
        printf("usage: %s [-h] [-i batt] [-k ack] [-s 1-4]\n", prog);
        exit(0);
}

int
main(int argc, char *argv[])
{
        char    *prog, *end;
        int     c, sleep_type, battery, ack;
        int     iflag = 0, kflag = 0, sflag = 0;

        prog = argv[0];
        if (argc < 2)
                usage(prog);
                /* NOTREACHED */

        sleep_type = -1;
        acpi_init();
        while ((c = getopt(argc, argv, "hi:k:s:")) != -1) {
                switch (c) {
                case 'i':
                        iflag = 1;
                        battery = strtol(optarg, &end, 10);
                        if ((size_t)(end - optarg) != strlen(optarg))
                            errx(EX_USAGE, "invalid battery");
                        break;
                case 'k':
                        kflag = 1;
                        ack = strtol(optarg, &end, 10);
                        if ((size_t)(end - optarg) != strlen(optarg))
                            errx(EX_USAGE, "invalid ack argument");
                        break;
                case 's':
                        sflag = 1;
                        if (optarg[0] == 'S')
                                optarg++;
                        sleep_type = strtol(optarg, &end, 10);
                        if ((size_t)(end - optarg) != strlen(optarg))
                            errx(EX_USAGE, "invalid sleep type");
                        if (sleep_type < 1 || sleep_type > 4)
                                errx(EX_USAGE, "invalid sleep type (%d)",
                                     sleep_type);
                        break;
                case 'h':
                default:
                        usage(prog);
                        /* NOTREACHED */
                }
        }
        argc -= optind;
        argv += optind;

        if (iflag != 0 && kflag != 0 && sflag != 0)
                        errx(EX_USAGE, "-i, -k and -s are mutually exclusive");

        if (iflag  != 0) {
                if (kflag != 0)
                        errx(EX_USAGE, "-i and -k are mutually exclusive");
                if (sflag != 0)
                        errx(EX_USAGE, "-i and -s are mutually exclusive");
                acpi_battinfo(battery);
        }

        if (kflag != 0) {
                if (sflag != 0)
                        errx(EX_USAGE, "-k and -s are mutually exclusive");
                acpi_sleep_ack(ack);
        }


        if (sflag != 0)
                acpi_sleep(sleep_type);

        close(acpifd);
        exit (0);
}