/////////////////////////////////////////////////////////////////////////////
// Name:        utils.cpp
// Purpose:
// Author:      Robert Roebling
// Id:          $Id$
// Copyright:   (c) 1998 Robert Roebling, Julian Smart and Markus Holzem
// Licence:           wxWindows licence
/////////////////////////////////////////////////////////////////////////////


//#ifdef __GNUG__
//#pragma implementation "utils.h"
//#endif

#include "wx/utils.h"
#include "wx/string.h"

#include "wx/intl.h"
#include "wx/log.h"

#include <stdarg.h>
#include <dirent.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>
#include <sys/wait.h>
#include <pwd.h>
#include <errno.h>
#include <netdb.h>
#include <signal.h>

#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xresource.h>

#include "glib.h"
#include "gdk/gdk.h"
#include "gtk/gtk.h"
#include "gdk/gdkx.h"

#ifdef __SVR4__
  #include <sys/systeminfo.h>
#endif

#ifdef __SOLARIS__
// somehow missing from sys/wait.h but in the system's docs
extern "C"
{
   pid_t wait4(pid_t pid, int *statusp, int options, struct rusage
               *rusage);
}
#endif

//------------------------------------------------------------------------
// misc.
//------------------------------------------------------------------------

void wxBell(void)
{
    gdk_beep();
}

void wxSleep(int nSecs)
{
    sleep(nSecs);
}

int wxKill(long pid, int sig)
{
    return kill(pid, sig);
}

void wxDisplaySize( int *width, int *height )
{
    if (width) *width = gdk_screen_width();
    if (height) *height = gdk_screen_height();
}

void wxGetMousePosition( int* x, int* y )
{
    Window       dumw;
    int          dumi;
    unsigned int dumu;
    
    XQueryPointer( GDK_DISPLAY(),GDK_ROOT_WINDOW(),
                   &dumw,&dumw,x,y,&dumi,&dumi,&dumu );
}

bool wxColourDisplay(void)
{
    return TRUE;
}

int wxDisplayDepth(void)
{
    return gdk_window_get_visual( (GdkWindow*) &gdk_root_parent )->depth;
}

//------------------------------------------------------------------------
// user and home routines
//------------------------------------------------------------------------

const char* wxGetHomeDir( wxString *home  )
{
    *home = wxGetUserHome( wxString() );
    if (home->IsNull()) *home = "/";
    return *home;
}

char *wxGetUserHome( const wxString &user )
{
    struct passwd *who = (struct passwd *) NULL;

    if (user.IsNull() || (user== ""))
    {
        register char *ptr;

        if ((ptr = getenv("HOME")) != NULL)
	{
            return ptr;
	}
        if ((ptr = getenv("USER")) != NULL || (ptr = getenv("LOGNAME")) != NULL) 
	{
            who = getpwnam(ptr);
        }
        // We now make sure the the user exists!
        if (who == NULL)
	{
            who = getpwuid(getuid());
	}
    }
    else
    {
      who = getpwnam (user);
    }

    return who ? who->pw_dir : (char*)NULL;
}

//------------------------------------------------------------------------
// id routines
//------------------------------------------------------------------------

bool wxGetHostName(char *buf, int sz)
{
    *buf = '\0';
#if defined(__SVR4__) && !defined(__sgi)
    //KB: does this return the fully qualified host.domain name?
    return (sysinfo(SI_HOSTNAME, buf, sz) != -1);
#else /* BSD Sockets */
    char name[255], domain[255];
    //struct hostent *h;
    // Get hostname
    if (gethostname(name, sizeof(name)/sizeof(char)-1) == -1)
        return FALSE;
    if (getdomainname(domain, sizeof(domain)/sizeof(char)-1) == -1)
        return FALSE;
    // Get official full name of host
    // doesn't return the full qualified name, replaced by following
    // code (KB)
    // strncpy(buf, (h=gethostbyname(name))!=NULL ? h->h_name : name, sz-1);
    if((unsigned)sz > strlen(name)+strlen(domain)+1)
    {
        strcpy(buf, name);
        if(strcmp(domain,"(none)") == 0) // standalone machine
        {
            strcat(buf,".");
            strcat(buf,domain);
        }
    }
    else
        return FALSE;
    return TRUE;
#endif
}

bool wxGetUserId(char *buf, int sz)
{
    struct passwd *who;

    *buf = '\0';
    if ((who = getpwuid(getuid ())) != NULL) {
        strncpy (buf, who->pw_name, sz-1);
        return TRUE;
    }
    return FALSE;
}

bool wxGetUserName(char *buf, int sz)
{
    struct passwd *who;
    char *comma;

    *buf = '\0';
    if ((who = getpwuid (getuid ())) != NULL) {
       comma = strchr(who->pw_gecos,'c');
       if(comma) *comma = '\0'; // cut off non-name comment fields
       strncpy (buf, who->pw_gecos, sz - 1);
        return TRUE;
    }
    return FALSE;
}

//------------------------------------------------------------------------
// error and debug output routines
//------------------------------------------------------------------------

void wxDebugMsg( const char *format, ... )
{
  va_list ap;
  va_start( ap, format );
  vfprintf( stderr, format, ap );
  fflush( stderr );
  va_end(ap);
}

void wxError( const wxString &msg, const wxString &title )
{
  fprintf( stderr, "Error " );
  if (!title.IsNull()) fprintf( stderr, "%s ", WXSTRINGCAST(title) );
  if (!msg.IsNull()) fprintf( stderr, ": %s", WXSTRINGCAST(msg) );
  fprintf( stderr, ".\n" );
}

void wxFatalError( const wxString &msg, const wxString &title )
{
  fprintf( stderr, "Error " );
  if (!title.IsNull()) fprintf( stderr, "%s ", WXSTRINGCAST(title) );
  if (!msg.IsNull()) fprintf( stderr, ": %s", WXSTRINGCAST(msg) );
  fprintf( stderr, ".\n" );
  exit(3); // the same exit code as for abort()
}

//------------------------------------------------------------------------
// directory routines
//------------------------------------------------------------------------

bool wxDirExists( const wxString& dir )
{
    char buf[500];
    strcpy( buf, WXSTRINGCAST(dir) );
    struct stat sbuf;
    return ((stat(buf, &sbuf) != -1) && S_ISDIR(sbuf.st_mode) ? TRUE : FALSE);
}

//------------------------------------------------------------------------
// subprocess routines
//------------------------------------------------------------------------

struct wxEndProcessData
{
  gint pid, tag;
  wxProcess *process;
};

static void GTK_EndProcessDetector(gpointer data, gint source,
                                   GdkInputCondition WXUNUSED(condition) )
{
  wxEndProcessData *proc_data = (wxEndProcessData *)data;
  int pid;

  pid = (proc_data->pid > 0) ? proc_data->pid : -(proc_data->pid);

  /* wait4 is not part of any standard, use at own risk
   * not sure what wait4 does, but wait3 seems to be closest, whats a digit ;-)
   * --- offer@sgi.com */
#if !defined(__sgi)
  wait4(proc_data->pid, NULL, 0, NULL);
#else
  wait3((int *) NULL, 0, (rusage *) NULL);
#endif

  close(source);
  gdk_input_remove(proc_data->tag);

  if (proc_data->process)
    proc_data->process->OnTerminate(proc_data->pid);

  if (proc_data->pid > 0)
    delete proc_data;
  else
    proc_data->pid = 0;
}

long wxExecute( char **argv, bool sync, wxProcess *process )
{
    wxEndProcessData *data = new wxEndProcessData;
    int end_proc_detect[2];

    wxCHECK_MSG( *argv, 0, "can't exec empty command" );

    /* Create pipes */
    if (pipe(end_proc_detect) == -1) {
      wxLogSysError(_("Pipe creation failed"));
      return 0;
    }

    /* fork the process */
#if defined(sun) || defined(__ultrix) || defined(__bsdi__)
    pid_t pid = vfork();
#else
    pid_t pid = fork();
#endif
    if (pid == -1) {
        // error
        wxLogSysError(_("Fork failed"));
        return 0;
    }
    else if (pid == 0) {
        // we're in child
        close(end_proc_detect[0]); // close reading side
	// These three lines close the open file descriptors to
	// to avoid any input/output which might block the process
	// or irritate the user. If one wants proper IO for the sub-
	// process, the "right thing to do" is to start an xterm executing
	// it.
	close(STDIN_FILENO);
	close(STDOUT_FILENO);
	close(STDERR_FILENO);

#ifdef _AIX
        execvp ((const char *)*argv, (const char **)argv);
#else
        execvp (*argv, argv);
#endif
        // there is no return after successful exec()
        wxLogSysError(_("Can't execute '%s'"), *argv);

        _exit(-1);
    }
    else {
      // we're in parent
      close(end_proc_detect[1]); // close writing side
      data->tag = gdk_input_add(end_proc_detect[0], GDK_INPUT_READ,
                                GTK_EndProcessDetector, (gpointer)data);
      data->pid = pid;
      if (!sync) {
        data->process = process;
      }
      else {
        data->process = (wxProcess *) NULL;
        data->pid = -(data->pid);

        while (data->pid != 0)
          wxYield();

        delete data;
      }

      // @@@ our return value indicates success even if execvp() in the child
      //     failed!
      return pid;
    }
}

long wxExecute( const wxString& command, bool sync, wxProcess *process )
{
    static const char *IFS = " \t\n";

    wxCHECK_MSG( !command.IsEmpty(), 0, "can't exec empty command" );

    int argc = 0;
    char *argv[127];
    char *tmp = new char[command.Len() + 1];
    strcpy(tmp, command);

    argv[argc++] = strtok(tmp, IFS);
    while ((argv[argc++] = strtok((char *) NULL, IFS)) != NULL)
        /* loop */ ;

    long lRc = wxExecute(argv, sync, process);
    
    delete [] tmp;

    return lRc;
}