/**

 * $Id$

 *

 * GUI helper functions that aren't specific to any particular implementation.

 *

 * Copyright (c) 2009 Nathan Keynes.

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 */

#include <ctype.h>

#include <unistd.h>

#include <wordexp.h>

#include <glib/gstrfuncs.h>

#include <glib/gutils.h>

#include "gui.h"

#include "config.h"

static gchar *gui_paths[CONFIG_KEY_MAX];

/**

 * Test if we need to escape a path to prevent substitution mangling. 

 * @return TRUE if the input value contains any character that doesn't

 * match [a-zA-Z0-9._@%/] (this will escape slightly more than it needs to,

 * but is safe)

 */

static gboolean path_needs_escaping( const gchar *value )

{

   const gchar *p = value;

   while( *p ) {

       if( !isalnum(*p) && *p != '.' && *p != '_' &&

               *p != '@' && *p != '%' && *p != '/' ) {

           return TRUE;

       }

       p++;

   }

   return FALSE;

}

gchar *get_escaped_path( const gchar *value )

{

    if( value != NULL && path_needs_escaping(value) ) {

        /* Escape with "", and backslash the remaining characters:

         *   \ " $ `

         */

        char buf[strlen(value)*2+3];  

        const char *s = value;

        char *p = buf;

        *p++ = '\"';

        while( *s ) {

            if( *s == '\\' || *s == '"' || *s == '$' || *s == '`' ) {

                *p++ = '\\';

            }

            *p++ = *s++;

        }

        *p++ = '\"';

        *p = '\0';

        return g_strdup(buf);

    } else {

        return g_strdup(value);

    }

}

gchar *get_expanded_path( const gchar *input )

{

    wordexp_t we;

    if( input == NULL ) {

        return NULL;

    }

    memset(&we,0,sizeof(we));

    int result = wordexp(input, &we, WRDE_NOCMD);

    if( result != 0 || we.we_wordc == 0 ) {

        /* On failure, return the original input unchanged */

        return g_strdup(input);

    } else {

        /* On success, concatenate all 'words' together into a single 

         * space-separated string

         */

        int length = we.we_wordc, i;

        gchar *result, *p;

        for( i=0; i<we.we_wordc; i++ ) {

            length += strlen(we.we_wordv[i]);

        }

        p = result = g_malloc(length);

        for( i=0; i<we.we_wordc; i++ ) {

            if( i != 0 )

                *p++ = ' ';

            strcpy( p, we.we_wordv[i] );

            p += strlen(p);

        }

        wordfree(&we);

        return result;

    }        

}

gchar *get_absolute_path( const gchar *in_path )

{

    char tmp[PATH_MAX];

    if( in_path == NULL ) {

        return NULL;

    }

    if( in_path[0] == '/' || in_path[0] == 0 ) {

        return g_strdup(in_path);

    } else {

        getcwd(tmp, sizeof(tmp));

        return g_strdup_printf("%s%c%s", tmp, G_DIR_SEPARATOR, in_path);

    }

}

gchar *get_filename_at( const gchar *at, const gchar *filename )

{

    char tmp[PATH_MAX];

    char *p = strrchr( at, '/' );

    if( p == NULL ) {

        /* No path at all, so just return filename */

        return g_strdup(filename);

    } else {

        int off = p-at;

        return g_strdup_printf("%.*s%c%s", off, at, G_DIR_SEPARATOR, filename );

    }

}

const gchar *get_gui_path( int key )

{

    if( gui_paths[key] == NULL ) {

        gui_paths[key] = lxdream_get_global_config_path_value(key);

        /* If no path defined, go with the current working directory */

        if( gui_paths[key] == NULL ) {

            gui_paths[key] = get_absolute_path(".");

        }

    }

    return gui_paths[key];

}

void set_gui_path( int key, const gchar *path )

{

    g_free(gui_paths[key]);

    gui_paths[key] = g_strdup(path);

}

void reset_gui_paths()

{

    int i;

    for( i=0; i < CONFIG_KEY_MAX; i++ ) {

        g_free(gui_paths[i]);

        gui_paths[i] = NULL;

    }

}