#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>
#include <errno.h>
#include <time.h>
#include <sys/select.h>
#include <sys/inotify.h>

#define ARRAY_SIZE(x) (sizeof(x) / sizeof((x)[0]))

//#include <linux/input.h> // this does not compile

// from <linux/input.h>

struct input_event {
	struct timeval time;
	__u16 type;
	__u16 code;
	__s32 value;
};

#define EVIOCGVERSION		_IOR('E', 0x01, int)			/* get driver version */
#define EVIOCGID		_IOR('E', 0x02, struct input_id)	/* get device ID */
#define EVIOCGKEYCODE		_IOR('E', 0x04, int[2])			/* get keycode */
#define EVIOCSKEYCODE		_IOW('E', 0x04, int[2])			/* set keycode */

#define EVIOCGNAME(len)		_IOC(_IOC_READ, 'E', 0x06, len)		/* get device name */
#define EVIOCGPHYS(len)		_IOC(_IOC_READ, 'E', 0x07, len)		/* get physical location */
#define EVIOCGUNIQ(len)		_IOC(_IOC_READ, 'E', 0x08, len)		/* get unique identifier */

#define EVIOCGKEY(len)		_IOC(_IOC_READ, 'E', 0x18, len)		/* get global keystate */
#define EVIOCGLED(len)		_IOC(_IOC_READ, 'E', 0x19, len)		/* get all LEDs */
#define EVIOCGSND(len)		_IOC(_IOC_READ, 'E', 0x1a, len)		/* get all sounds status */
#define EVIOCGSW(len)		_IOC(_IOC_READ, 'E', 0x1b, len)		/* get all switch states */

#define EVIOCGBIT(ev,len)	_IOC(_IOC_READ, 'E', 0x20 + ev, len)	/* get event bits */
#define EVIOCGABS(abs)		_IOR('E', 0x40 + abs, struct input_absinfo)		/* get abs value/limits */
#define EVIOCSABS(abs)		_IOW('E', 0xc0 + abs, struct input_absinfo)		/* set abs value/limits */

#define EVIOCSFF		_IOC(_IOC_WRITE, 'E', 0x80, sizeof(struct ff_effect))	/* send a force effect to a force feedback device */
#define EVIOCRMFF		_IOW('E', 0x81, int)			/* Erase a force effect */
#define EVIOCGEFFECTS		_IOR('E', 0x84, int)			/* Report number of effects playable at the same time */

#define EVIOCGRAB		_IOW('E', 0x90, int)			/* Grab/Release device */

/*
 * Event types
 */

#define EV_SYN			0x00
#define EV_KEY			0x01
#define EV_REL			0x02
#define EV_ABS			0x03
#define EV_MSC			0x04
#define EV_SW			0x05
#define EV_LED			0x11
#define EV_SND			0x12
#define EV_REP			0x14
#define EV_FF			0x15
#define EV_PWR			0x16
#define EV_FF_STATUS		0x17
#define EV_MAX			0x1f

#define KEY_POWER		116
#define KEY_SLEEP		142
#define SW_0		0x00

// end <linux/input.h>

struct notify_entry {
    int id;
    int (*handler)(struct notify_entry *entry, struct inotify_event *event);
    const char *filename;
};

int charging_state_notify_handler(struct notify_entry *entry, struct inotify_event *event)
{
    static int state = -1;
    int last_state;
    char buf[40];
    int read_len;
    int fd;

    last_state = state;
    fd = open(entry->filename, O_RDONLY);
    read_len = read(fd, buf, sizeof(buf));
    if(read_len > 0) {
        //printf("charging_state_notify_handler: \"%s\"\n", buf);
        state = !(strncmp(buf, "Unknown", 7) == 0 
                  || strncmp(buf, "Discharging", 11) == 0);
    }
    close(fd);
    //printf("charging_state_notify_handler: %d -> %d\n", last_state, state);
    return state > last_state;
}

struct notify_entry watched_files[] = {
    {
        .filename = "/sys/android_power/charging_state",
        .handler = charging_state_notify_handler
    }
};

int call_notify_handler(struct inotify_event *event)
{
    unsigned int start, i;
    start = event->wd - watched_files[0].id;
    if(start >= ARRAY_SIZE(watched_files))
        start = 0;
    //printf("%d: %08x \"%s\"\n", event->wd, event->mask, event->len ? event->name : "");
    for(i = start; i < ARRAY_SIZE(watched_files); i++) {
        if(event->wd == watched_files[i].id) {
            if(watched_files[i].handler) {
                return watched_files[i].handler(&watched_files[i], event);
            }
            return 1;
        }
    }
    for(i = 0; i < start; i++) {
        if(event->wd == watched_files[i].id) {
            if(watched_files[i].handler) {
                return watched_files[i].handler(&watched_files[i], event);
            }
            return 1;
        }
    }
    return 0;
}

int handle_inotify_event(int nfd)
{
    int res;
    int wake_up = 0;
    struct inotify_event *event;
    char event_buf[512];
    int event_pos = 0;

    res = read(nfd, event_buf, sizeof(event_buf));
    if(res < (int)sizeof(*event)) {
        if(errno == EINTR)
            return 0;
        fprintf(stderr, "could not get event, %s\n", strerror(errno));
        return 0;
    }
    printf("got %d bytes of event information\n", res);
    while(res >= (int)sizeof(*event)) {
        int event_size;
        event = (struct inotify_event *)(event_buf + event_pos);
        wake_up |= call_notify_handler(event);
        event_size = sizeof(*event) + event->len;
        res -= event_size;
        event_pos += event_size;
    }
    return wake_up;
}

int powerd_main(int argc, char *argv[])
{
    int c;
    unsigned int i;
    int res;
    struct timeval tv;
    int eventfd;
    int notifyfd;
    int powerfd;
    int powerfd_is_sleep;
    int user_activity_fd;
    int acquire_partial_wake_lock_fd;
    int acquire_full_wake_lock_fd;
    int release_wake_lock_fd;
    char *eventdev = "/dev/input/event0";
    const char *android_sleepdev = "/sys/android_power/request_sleep";
    const char *android_autooff_dev = "/sys/android_power/auto_off_timeout";
    const char *android_user_activity_dev = "/sys/android_power/last_user_activity";
    const char *android_acquire_partial_wake_lock_dev = "/sys/android_power/acquire_partial_wake_lock";
    const char *android_acquire_full_wake_lock_dev = "/sys/android_power/acquire_full_wake_lock";
    const char *android_release_wake_lock_dev = "/sys/android_power/release_wake_lock";
    const char *powerdev = "/sys/power/state";
    const char suspendstring[] = "standby";
    const char wakelockstring[] = "powerd";
    fd_set rfds;
    struct input_event event;
    struct input_event light_event;
    struct input_event light_event2;
    int gotkey = 1;
    time_t idle_time = 5;
    const char *idle_time_string = "5";
    time_t lcd_light_time = 0;
    time_t key_light_time = 0;
    int verbose = 1;
    int event_sleep = 0;
    int got_power_key_down = 0;
    struct timeval power_key_down_time = { 0, 0 };

    light_event.type = EV_LED;
    light_event.code = 4; // bright lcd backlight
    light_event.value = 0; // light off -- sleep after timeout

    light_event2.type = EV_LED;
    light_event2.code = 8; // keyboard backlight
    light_event2.value = 0; // light off -- sleep after timeout

    do {
        c = getopt(argc, argv, "e:ni:vql:k:");
        if (c == EOF)
            break;
        switch (c) {
        case 'e':
            eventdev = optarg;
            break;
        case 'n':
            gotkey = 0;
            break;
        case 'i':
            idle_time = atoi(optarg);
            idle_time_string = optarg;
            break;
        case 'v':
            verbose = 2;
            break;
        case 'q':
            verbose = 0;
            break;
        case 'l':
            lcd_light_time = atoi(optarg);
            break;
        case 'k':
            key_light_time = atoi(optarg);
            break;
        case '?':
            fprintf(stderr, "%s: invalid option -%c\n",
                argv[0], optopt);
            exit(1);
        }
    } while (1);
    if(optind  != argc) {
        fprintf(stderr,"%s [-e eventdev]\n", argv[0]);
        return 1;
    }

    eventfd = open(eventdev, O_RDWR | O_NONBLOCK);
    if(eventfd < 0) {
        fprintf(stderr, "could not open %s, %s\n", eventdev, strerror(errno));
        return 1;
    }
    if(key_light_time >= lcd_light_time) {
        lcd_light_time = key_light_time + 1;
        fprintf(stderr,"lcd bright backlight time must be longer than keyboard backlight time.\n"
            "Setting lcd bright backlight time to %ld seconds\n", lcd_light_time);
    }

    user_activity_fd = open(android_user_activity_dev, O_RDWR);
    if(user_activity_fd >= 0) {
        int auto_off_fd = open(android_autooff_dev, O_RDWR);
        write(auto_off_fd, idle_time_string, strlen(idle_time_string));
        close(auto_off_fd);
    }

    powerfd = open(android_sleepdev, O_RDWR);
    if(powerfd >= 0) {
        powerfd_is_sleep = 1;
        if(verbose > 0)
            printf("Using android sleep dev: %s\n", android_sleepdev);
    }
    else {
        powerfd_is_sleep = 0;
        powerfd = open(powerdev, O_RDWR);
        if(powerfd >= 0) {
            if(verbose > 0)
                printf("Using linux power dev: %s\n", powerdev);
        }
    }
    if(powerfd < 0) {
        fprintf(stderr, "could not open %s, %s\n", powerdev, strerror(errno));
        return 1;
    }

    notifyfd = inotify_init();
    if(notifyfd < 0) {
        fprintf(stderr, "inotify_init failed, %s\n", strerror(errno));
        return 1;
    }
    fcntl(notifyfd, F_SETFL, O_NONBLOCK | fcntl(notifyfd, F_GETFL));
    for(i = 0; i < ARRAY_SIZE(watched_files); i++) {
        watched_files[i].id = inotify_add_watch(notifyfd, watched_files[i].filename, IN_MODIFY);
        printf("Watching %s, id %d\n", watched_files[i].filename, watched_files[i].id);
    }

    acquire_partial_wake_lock_fd = open(android_acquire_partial_wake_lock_dev, O_RDWR);
    acquire_full_wake_lock_fd = open(android_acquire_full_wake_lock_dev, O_RDWR);
    release_wake_lock_fd = open(android_release_wake_lock_dev, O_RDWR);

    if(user_activity_fd >= 0) {
        idle_time = 60*60*24; // driver handles real timeout
    }
    if(gotkey) {
        tv.tv_sec = idle_time;
        tv.tv_usec = 0;
    }
    else {
        tv.tv_sec = 0;
        tv.tv_usec = 500000;
    }
    
    while(1) {
        FD_ZERO(&rfds);
        //FD_SET(0, &rfds);
        FD_SET(eventfd, &rfds);
        FD_SET(notifyfd, &rfds);
        res = select(((notifyfd > eventfd) ? notifyfd : eventfd) + 1, &rfds, NULL, NULL, &tv);
        if(res < 0) {
            fprintf(stderr, "select failed, %s\n", strerror(errno));
            return 1;
        }
        if(res == 0) {
            if(light_event2.value == 1)
                goto light2_off;
            if(light_event.value == 1)
                goto light_off;
            if(user_activity_fd < 0) {
                if(gotkey && verbose > 0)
                    printf("Idle - sleep\n");
                if(!gotkey && verbose > 1)
                    printf("Reenter sleep\n");
                goto sleep;
            }
            else {
                tv.tv_sec = 60*60*24;
                tv.tv_usec = 0;
            }
        }
        if(res > 0) {
            //if(FD_ISSET(0, &rfds)) {
            //  printf("goto data on stdin quit\n");
            //  return 0;
            //}
            if(FD_ISSET(notifyfd, &rfds)) {
                write(acquire_partial_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
                if(handle_inotify_event(notifyfd) > 0) {
                    write(acquire_full_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
                }
                write(release_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
            }
            if(FD_ISSET(eventfd, &rfds)) {
                write(acquire_partial_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
                res = read(eventfd, &event, sizeof(event));
                if(res < (int)sizeof(event)) {
                    fprintf(stderr, "could not get event\n");
                    write(release_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
                    return 1;
                }
                if(event.type == EV_PWR && event.code == KEY_SLEEP) {
                    event_sleep = event.value;
                }
                if(event.type == EV_KEY || (event.type == EV_SW && event.code == SW_0 && event.value == 1)) {
                    gotkey = 1;
                    if(user_activity_fd >= 0) {
                        char buf[32];
                        int len;
                        len = sprintf(buf, "%ld%06lu000", event.time.tv_sec, event.time.tv_usec);
                        write(user_activity_fd, buf, len);
                    }
                    if(lcd_light_time | key_light_time) {
                        tv.tv_sec = key_light_time;
                        light_event.value = 1;
                        write(eventfd, &light_event, sizeof(light_event));
                        light_event2.value = 1;
                        write(eventfd, &light_event2, sizeof(light_event2));
                    }
                    else {
                        tv.tv_sec = idle_time;
                    }
                    tv.tv_usec = 0;
                    if(verbose > 1)
                        printf("got %s %s %d%s\n", event.type == EV_KEY ? "key" : "switch", event.value ? "down" : "up", event.code, event_sleep ? " from sleep" : "");
                    if(event.code == KEY_POWER) {
                        if(event.value == 0) {
                            int tmp_got_power_key_down = got_power_key_down;
                            got_power_key_down = 0;
                            if(tmp_got_power_key_down) {
                                // power key released
                                if(verbose > 0)
                                    printf("Power key released - sleep\n");
                                write(release_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
                                goto sleep;
                            }
                        }
                        else if(event_sleep == 0) {
                            got_power_key_down = 1;
                            power_key_down_time = event.time;
                        }
                    }
                }
                if(event.type == EV_SW && event.code == SW_0 && event.value == 0) {
                    if(verbose > 0)
                        printf("Flip closed - sleep\n");
                    power_key_down_time = event.time;
                    write(release_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
                    goto sleep;
                }
                write(release_wake_lock_fd, wakelockstring, sizeof(wakelockstring) - 1);
            }
        }
        if(0) {
light_off:
            light_event.value = 0;
            write(eventfd, &light_event, sizeof(light_event));
            tv.tv_sec = idle_time - lcd_light_time;
        }
        if(0) {
light2_off:
            light_event2.value = 0;
            write(eventfd, &light_event2, sizeof(light_event2));
            tv.tv_sec = lcd_light_time - key_light_time;
        }
        if(0) {
sleep:
            if(light_event.value == 1) {
                light_event.value = 0;
                write(eventfd, &light_event, sizeof(light_event));
                light_event2.value = 0;
                write(eventfd, &light_event2, sizeof(light_event2));
                tv.tv_sec = idle_time - lcd_light_time;
            }
            if(powerfd_is_sleep) {
                char buf[32];
                int len;
                len = sprintf(buf, "%ld%06lu000", power_key_down_time.tv_sec, power_key_down_time.tv_usec);
                write(powerfd, buf, len);
            }
            else
                write(powerfd, suspendstring, sizeof(suspendstring) - 1);
            gotkey = 0;
            tv.tv_sec = 0;
            tv.tv_usec = 500000;
        }
    }

    return 0;
}