source: neercs/trunk/src/main.c @ 3914 Tweet

/*
 *  neercs        console-based window manager
 *  Copyright (c) 2006 Sam Hocevar <sam@zoy.org>
 *                2008 Jean-Yves Lamoureux <jylam@lnxscene.org>
 *                2008 Pascal Terjan <pterjan@linuxfr.org>
 *                All Rights Reserved
 *
 *  $Id: main.c 3914 2009-11-17 15:36:37Z jylam $
 *
 *  This program is free software. It comes without any warranty, to
 *  the extent permitted by applicable law. You can redistribute it
 *  and/or modify it under the terms of the Do What The Fuck You Want
 *  To Public License, Version 2, as published by Sam Hocevar. See
 *  http://sam.zoy.org/wtfpl/COPYING for more details.
 */

#include "config.h"

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <signal.h>
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <sys/time.h>
#include <time.h>
#include <pwd.h>


#if !defined HAVE_GETOPT_LONG
#   include "mygetopt.h"
#elif defined HAVE_GETOPT_H
#   include <getopt.h>
#endif
#if defined HAVE_GETOPT_LONG
#   define mygetopt getopt_long
#   define myoptind optind
#   define myoptarg optarg
#   define myoption option
#endif
#include <errno.h>
#include <caca.h>
#include <caca.h>

#include "neercs.h"


void version(void)
{
    printf("%s\n", PACKAGE_STRING);
    printf("Copyright (C) 2006, 2008 Sam Hocevar <sam@zoy.org>\n");
    printf("                         Jean-Yves Lamoureux <jylam@lnxscene.org>\n\n");
    printf("This is free software.  You may redistribute copies of it under the\n");
    printf("terms of the Do What The Fuck You Want To Public License, Version 2\n");
    printf("<http://sam.zoy.org/wtfpl/>.\n");
    printf("There is NO WARRANTY, to the extent permitted by law.\n");
    printf("\n");
    printf("For more informations, visit http://libcaca.zoy.org/wiki/neercs\n");
}

void usage(int argc, char **argv)
{
    printf("%s\n", PACKAGE_STRING);
    printf("Usage : %s [command1] [command2] ... [commandN]\n", argv[0]);
    printf("Example : %s zsh top \n\n", argv[0]);
    printf("Options :\n");
    printf("\t--config\t-c <file>\t\tuse given config file\n");
    printf("\t--pid\t\t-P [pid]\t\tgrab process\n");
    printf("\t\t\t-r [session]\t\treattach to a detached neercs\n");
    printf("\t\t\t-R [session]\t\treattach if possible, otherwise start a new session\n");
    printf("\t\t\t-S <name>\t\tname this session <name> instead of <pid>\n");
    printf("\t--version\t-v \t\t\tdisplay version and exit\n");
    printf("\t--help\t\t-h \t\t\tthis help\n");
}

int main(int argc, char **argv)
{
    struct screen_list *screen_list = NULL;
    int i, args;
    long long unsigned int last_key_time = 0;
    int mainret = -1;
#define NEERCS_RECV_BUFSIZE 128*1024
    char * buf = NULL;
    
    screen_list = create_screen_list();
    screen_list->default_shell = getenv("SHELL");

    args = argc -1;
    if(screen_list->default_shell == NULL  && args <= 0)
    {
        fprintf(stderr, "Environment variable SHELL not set and no arguments given. kthxbye.\n");
        goto end;
    }

    if(handle_command_line(argc, argv, screen_list) < 0)
        goto end;

    /* Read global configuration first */
    read_configuration_file("/etc/neercsrc", screen_list);

    /* Then local one  */
    if(screen_list->user_path)
    {
        read_configuration_file(screen_list->user_path, screen_list);
        free(screen_list->user_path);
    }

    if(screen_list->attach)
    {
        if(screen_list->nb_to_grab || screen_list->to_start)
        {
            fprintf(stderr, "-R can not be associated with commands or pids!\n");
            goto end;
        }

        attach(screen_list);

        if(screen_list->forceattach && !screen_list->attach)
            goto end;
    }

    /* Build default session name */
    if(!screen_list->session_name)
    {
        char mypid[32]; /* FIXME Compute the length of PID_MAX ? */
        snprintf(mypid, 31, "%d", getpid());
        mypid[31]= '\0';
        screen_list->session_name = strdup(mypid);
        if(!screen_list->session_name)
        {
            fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__, __LINE__);
            goto end;
        }
    }
    if(!screen_list->socket_path[SOCK_CLIENT])
        screen_list->socket_path[SOCK_CLIENT] =
            build_socket_path(screen_list->socket_dir, screen_list->session_name, SOCK_CLIENT);

    if(!screen_list->socket_path[SOCK_SERVER])
        screen_list->socket_path[SOCK_SERVER] =
            build_socket_path(screen_list->socket_dir, screen_list->session_name, SOCK_SERVER);

    /* Fork the server if needed */
    if(!screen_list->attach)
    {
        debug("Spawning a new server");
        if(start_server(screen_list))
            goto end;
    }

    last_key_time = get_us();

    for(;;)
    {
        caca_event_t ev;
        int ret = 0;
        ssize_t n;
        if(!screen_list) goto end;
        if(!buf)
            buf = malloc(NEERCS_RECV_BUFSIZE);
        if(!buf)
        {
            debug("Failed to allocate memory");
            goto end;
        }
        if(screen_list->socket[SOCK_CLIENT] && (n = read(screen_list->socket[SOCK_CLIENT], buf, NEERCS_RECV_BUFSIZE-1)) > 0)
        {
            buf[n] = 0;
            debug("Received from server: %s", buf);
            if(!strncmp("DETACH", buf, 6))
            {
                ret = 1;
                break;
            }
            else if(!strncmp("UPDATE ", buf, 7))
            {
                int x, y;
                ssize_t l2 = 0, lb = 0;
                char * buf2;
                size_t l = 0;
                /* FIXME check the length before calling atoi*/
                x = atoi(buf+8);
                y = atoi(buf+19);
                /* 0 means we have valid data but incomplete, so read the rest */
                while(l == 0)
                {
                    buf2 = realloc(buf, l2 + NEERCS_RECV_BUFSIZE);
                    if(!buf2)
                    {
                        debug("Failed to allocate memory");
                        goto end;
                    }
                    buf = buf2;
                    fcntl(screen_list->socket[SOCK_CLIENT], F_SETFL, 0);
                    lb = read(screen_list->socket[SOCK_CLIENT], buf+l2, NEERCS_RECV_BUFSIZE-1);
                    if(lb < 0)
                    {
                        debug("Failed to read the end of the refresh message (%s)", strerror(errno));
                        l = -1;
                    }
                    else
                    {
                        l2 += lb;
#if defined HAVE_CACA_DIRTY_RECTANGLES
                        l = caca_import_area_from_memory(screen_list->cv, x, y, buf, l2, "caca");
#else
                        l = caca_import_memory(screen_list->cv, buf, l2, "caca");
#endif
                    }
                }
                fcntl(screen_list->socket[SOCK_CLIENT], F_SETFL, O_NONBLOCK);
            }
            else if(!strncmp("REFRESH ", buf, 8))
            {
                int dt, x, y;
                /* FIXME check the length before calling atoi*/
                x = atoi(buf+8);
                y = atoi(buf+19);
                caca_gotoxy(screen_list->cv, x, y);
                caca_refresh_display(screen_list->dp);
                dt = caca_get_display_time(screen_list->dp);
                debug("refreshtime=%dms (limit %d, requested %d)", dt/1000, screen_list->delay, screen_list->requested_delay);
                /* Adjust refresh delay so that the server do not compute useless things */
                if(dt > 2*1000*screen_list->delay && screen_list->delay <= 100)
                {
                    screen_list->delay*=2;
                    send_delay(screen_list);
                }
                else if(dt < screen_list->delay*1000*1.2 &&
                        screen_list->delay >= 3*screen_list->requested_delay/2)
                {
                    screen_list->delay=2*screen_list->delay/3;
                    send_delay(screen_list);
                }
            }
            else if(!strncmp("CURSOR ", buf, 7))
            {
                caca_set_cursor(screen_list->dp, atoi(buf+7));
            }
            else if(!strncmp("TITLE ", buf, 6))
            {
                caca_set_display_title(screen_list->dp, buf+6);
                caca_refresh_display(screen_list->dp);
            }
            else
            {
                debug("Unknown message received from server: %s", buf);
            }
        }
        
        if(ret)
            break;

        ret = caca_get_event(screen_list->dp,
                             CACA_EVENT_KEY_PRESS
                             |CACA_EVENT_RESIZE
                             |CACA_EVENT_QUIT,
                             &ev, 10000);
        if(ret)
            ret = send_event(ev, screen_list);

        if(ret)
            break;
    }

    /* Clean up */
    mainret = 0;
end:
    if(buf)
        free(buf);
    if(screen_list)
    {
        free_screen_list(screen_list);
    }

    return mainret;
}

void free_screen_list(struct screen_list *screen_list)
{
    int i;
    struct option *option;

    if(screen_list->dp)
        caca_free_display(screen_list->dp);

    if(screen_list->cv)
        caca_free_canvas(screen_list->cv);
    
    for(i = 0; i < screen_list->count; i++)
    {
        destroy_screen(screen_list->screen[i]);
    }

    if(screen_list->socket_path[SOCK_SERVER])
        free(screen_list->socket_path[SOCK_SERVER]);
    
    if(screen_list->socket_path[SOCK_CLIENT])
    {
        unlink(screen_list->socket_path[SOCK_CLIENT]);
        free(screen_list->socket_path[SOCK_CLIENT]);
    }
    
    if(screen_list->socket[SOCK_CLIENT])
        close(screen_list->socket[SOCK_CLIENT]);
    
    if(screen_list->socket[SOCK_SERVER])
        close(screen_list->socket[SOCK_SERVER]);

    if(screen_list->screen)
        free(screen_list->screen);

    option = screen_list->config;
    
    while(option)
    {
        struct option *kromeugnon = option;
        option = option->next;
        if(kromeugnon->key)   free(kromeugnon->key);
        if(kromeugnon->value) free(kromeugnon->value);
        free(kromeugnon);
    }
    
    for(i=0; i<screen_list->recurrent_list->count; i++)
    {
        remove_recurrent(screen_list->recurrent_list, i);
        i = 0;
    }

    if(screen_list->recurrent_list->recurrent)
        free(screen_list->recurrent_list->recurrent);
    if(screen_list->recurrent_list)
        free(screen_list->recurrent_list);
    
    if(screen_list->session_name)
        free(screen_list->session_name);

    if(screen_list->title)
        free(screen_list->title);
    
    free(screen_list);
}

struct screen_list *create_screen_list(void)
{

    struct screen_list *screen_list = NULL;
    struct passwd *user_info;
    char *user_dir = NULL;

    /* Create screen list */
    screen_list = (struct screen_list*)     malloc(sizeof(struct screen_list));
    if(!screen_list)
    {
        fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__, __LINE__);
        return NULL;
    }
    screen_list->screen = (struct screen**) malloc(sizeof(sizeof(struct screen*)));
    if(!screen_list->screen)
    {
        fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__, __LINE__);
        free(screen_list);
        return NULL;
    }

    screen_list->count = 0;
    screen_list->mini = 1;
    screen_list->help = 0;
    screen_list->status = 1;
    screen_list->title = NULL;
    screen_list->window_list = 0;
    screen_list->wm_type = WM_VSPLIT;
    screen_list->in_bell = 0;
    screen_list->changed = 0;
    screen_list->requested_delay = 0;
    screen_list->delay = 1000/60; /* Don't refresh more than 60 times per second */
    screen_list->pty = screen_list->prevpty = 0;
    screen_list->dont_update_coords = 0;
    screen_list->screensaver_timeout = (60) * 1000000;
    screen_list->screensaver_data = NULL;
    screen_list->in_screensaver = 0;
    screen_list->locked = 0;
    screen_list->lock_offset = 0;
    screen_list->lock_on_detach = 0;    
    screen_list->attached = 1;
    screen_list->socket[SOCK_SERVER] = 0;
    screen_list->socket[SOCK_CLIENT] = 0;
    screen_list->socket_dir    = NULL;
    screen_list->socket_path[SOCK_SERVER] = NULL;
    screen_list->socket_path[SOCK_CLIENT] = NULL;
    screen_list->session_name  = NULL;
    screen_list->default_shell = NULL;
    screen_list->user_path     = NULL;
    screen_list->autolock_timeout = -1;
    screen_list->to_grab = NULL;
    screen_list->to_start = NULL;
    screen_list->nb_to_grab = 0;
    screen_list->attach = 0;
    screen_list->forceattach = 0;
    
    screen_list->force_refresh = 0;
    screen_list->cube.in_switch = 0;
    screen_list->cube.first=0;
    screen_list->cube.second=0;


    screen_list->recurrent_list = NULL;
    screen_list->cv = NULL;
    screen_list->dp = NULL;

    memset(screen_list->lockmsg, 0, 1024);
    memset(screen_list->lockpass, 0, 1024);



    /* Build local config file path */
    user_dir = getenv("HOME");
    if(!user_dir)
    {
        user_info = getpwuid(getuid());
        if(user_info)
        {
            user_dir = user_info->pw_dir;
        }
    }
    if(user_dir)
    {
        screen_list->user_path = malloc(strlen(user_dir) + strlen("/.neercsrc") + 1);
        sprintf(screen_list->user_path, "%s/%s", user_dir, ".neercsrc");
    }


    screen_list->recurrent_list = (struct recurrent_list*) malloc(sizeof(struct recurrent_list));
    screen_list->recurrent_list->recurrent = (struct recurrent**) malloc(sizeof(struct recurrent*));
    if(!screen_list->recurrent_list->recurrent)
    {
        fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__, __LINE__);
        free(screen_list);
        free(screen_list->screen);
        return NULL;
    }
    screen_list->recurrent_list->count = 0;



    return screen_list;
}



int handle_command_line(int argc, char *argv[], struct screen_list *screen_list)
{
    int s = 0, i;
    for(;;)
    {
        int option_index = 0;
        int pidopt;
        static struct myoption long_options[] =
            {
                { "config",      1, NULL, 'c' },
#if defined USE_GRAB
                { "pid",         0, NULL, 'P' },
#endif
                { "help",        0, NULL, 'h' },
                { "version",     0, NULL, 'v' },
                { NULL, 0, NULL, 0 },
            };
#if defined USE_GRAB
        int c = mygetopt(argc, argv, "c:S:R::r::P::hv", long_options, &option_index);
#else
        int c = mygetopt(argc, argv, "c:S:R::r::hv", long_options, &option_index);
#endif
        if(c == -1)
            break;

        switch(c)
        {
        case 'c': /* --config */
            if(screen_list->user_path)
                free(screen_list->user_path);
            screen_list->user_path = strdup(myoptarg);
            s+=2;
            break;
        case 'S':
            if(!screen_list->session_name)
                screen_list->session_name = strdup(myoptarg);
            s+=2;
            break;
        case 'P': /* --pid */
            if(myoptarg)
            {
                pidopt = atoi(myoptarg);
                if(pidopt <= 0)
                {
                    fprintf(stderr, "Invalid pid %d\n", pidopt);
                    if(screen_list->to_grab)
                        free(screen_list->to_grab);
                    return -1;
                }
            }
            else
                pidopt = select_process(screen_list);
            if(pidopt <= 0)
            {
                s+=1;
                break;
            }
            if(!screen_list->to_grab)
            {
                /* At most argc-1-s times -P <pid> + final 0 */
                screen_list->to_grab = (int *)malloc(((argc-1-s)/2+1)*sizeof(int));
                if(!screen_list->to_grab)
                {
                    fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__, __LINE__);
                    return -1;
                }
            }
            screen_list->to_grab[screen_list->nb_to_grab++] = pidopt;
            screen_list->to_grab[screen_list->nb_to_grab] = 0;
            s+=2;
            break;
        case 'r':
            screen_list->forceattach = 1;
        case 'R':
            if(screen_list->attach)
            {
                fprintf(stderr, "Attaching can only be requested once\n");
                return -1;
            }
            if(myoptarg)
            {
                if(screen_list->session_name)
                    free(screen_list->session_name);
                screen_list->session_name = strdup(myoptarg);
                s+=1;
            }
            screen_list->attach = 1;
            s+=1;
            break;
        case 'h': /* --help */
            usage(argc, argv);
            return -1;
            break;
        case 'v': /* --version */
            version();
            return -1;
            break;
        case -2:
            return -1;
        default:
            fprintf(stderr, "Unknown argument #%d\n", myoptind);
            return -1;
            break;
        }
    }
    if(s >= 0 && s < argc - 1)
    {
        screen_list->to_start = (char**)malloc((argc-s)*sizeof(char*));
        if(!screen_list->to_start)
        {
            fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__, __LINE__);
            return -1;
        }
        for(i=0; i<(argc-1) - s; i++)
        {
            screen_list->to_start[i] = strdup(argv[i+s+1]);
        }
        screen_list->to_start[argc-1-s] = NULL;
    }
    return s;
}