/***************************************************************************
 *
 * $Header: /usr/local/cvsroot/utils/ytree/profile.c,v 1.9 2004/12/30 18:55:32 werner Exp $
 *
 * Profile support
 *
 ***************************************************************************/


#include "ytree.h"



#define NO_SECTION	0
#define GLOBAL_SECTION	1
#define VIEWER_SECTION	2
#define MENU_SECTION 3
#define FILEMAP_SECTION 4
#define FILECMD_SECTION 5
#define DIRMAP_SECTION 6
#define DIRCMD_SECTION 7


typedef struct
{
  char *name;
  char *def;
  char *envvar;
  char *value;
} Profile;


typedef struct _viewer {
  char *ext;
  char *cmd;
  struct _viewer *next;
} Viewer;

typedef struct _dirmenu {
  int chkey;
  int chremap;
  char *cmd;
  struct _dirmenu *next;
} Dirmenu;

typedef struct _filemenu {
  int chkey;
  int chremap;
  char *cmd;
  struct _filemenu *next;
} Filemenu;

static Viewer viewer;
static Dirmenu dirmenu;
static Filemenu filemenu;

/* MUSS sortiert sein! */
static Profile profile[] = { 
  { "ARCEXPAND",    DEFAULT_ARCEXPAND,    NULL,     NULL },
  { "ARCLIST",      DEFAULT_ARCLIST,      NULL,     NULL },
  { "BUNZIP",       DEFAULT_BUNZIP,       NULL,     NULL },
  { "CAT",          DEFAULT_CAT,          NULL,     NULL },
  { "DIR1",         DEFAULT_DIR1,         NULL,     NULL },
  { "DIR2",         DEFAULT_DIR2,         NULL,     NULL },
  { "EDITOR",       DEFAULT_EDITOR,       "EDITOR", NULL },
  { "FILE1",        DEFAULT_FILE1,        NULL,     NULL },
  { "FILE2",        DEFAULT_FILE2,        NULL,     NULL },
  { "FILEMODE",     DEFAULT_FILEMODE,     NULL,     NULL },
  { "GNUUNZIP",     DEFAULT_GNUUNZIP,     NULL,     NULL },
  { "HEXDUMP",      DEFAULT_HEXDUMP,      NULL,     NULL },
  { "HEXEDITOFFSET",DEFAULT_HEXEDITOFFSET,NULL,     NULL },
  { "INITIALDIR",   DEFAULT_INITIALDIR,   NULL,     NULL },
  { "LHAEXPAND",    DEFAULT_LHAEXPAND,    NULL,     NULL },
  { "LHALIST",      DEFAULT_LHALIST,      NULL,     NULL },
  { "MANROFF",      DEFAULT_MANROFF,      NULL,     NULL },
  { "MELT",         DEFAULT_MELT,         NULL,     NULL },
  { "NOSMALLWINDOW",DEFAULT_NOSMALLWINDOW,NULL,     NULL },
  { "NUMBERSEP",    DEFAULT_NUMBERSEP,    NULL,     NULL },
  { "PAGER",        DEFAULT_PAGER,        "PAGER",  NULL },
  { "RAREXPAND",    DEFAULT_RAREXPAND,    NULL,     NULL },
  { "RARLIST",      DEFAULT_RARLIST,      NULL,     NULL },
  { "RPMEXPAND",    DEFAULT_RPMEXPAND,    NULL,     NULL },
  { "RPMLIST",      DEFAULT_RPMLIST,      NULL,     NULL },
  { "SEARCHCOMMAND",DEFAULT_SEARCHCOMMAND,NULL,     NULL },
  { "TAPEDEV",      DEFAULT_TAPEDEV,      "TAPE",   NULL },
  { "TAREXPAND",    DEFAULT_TAREXPAND,    NULL,     NULL },
  { "TARLIST",      DEFAULT_TARLIST,      NULL,     NULL },
  { "TREEDEPTH",    DEFAULT_TREEDEPTH,    NULL,     NULL },
  { "UNCOMPRESS",   DEFAULT_UNCOMPRESS,   NULL,     NULL },
  { "USERVIEW",     "",                   NULL,     NULL },
  { "ZIPEXPAND",    DEFAULT_ZIPEXPAND,    NULL,     NULL },
  { "ZIPLIST",      DEFAULT_ZIPLIST,      NULL,     NULL },
  { "ZOOEXPAND",    DEFAULT_ZOOEXPAND,    NULL,     NULL },
  { "ZOOLIST",      DEFAULT_ZOOLIST,      NULL,     NULL }
};

#define PROFILE_ENTRIES (sizeof(profile) / sizeof(profile[0]))


static int Compare(const void *s1, const void *s2);

static int ChCode(const char *s);

int ReadProfile( char *filename )
{
  int  l, result = -1;
  char buffer[1024], *n, *old;
  unsigned char *name, *value, *cptr;
  int section;
  Profile *p, key;
  Viewer *v, *new_v;
  Filemenu *m, *new_m;
  Dirmenu *d, *new_d;
  FILE *f;

  section = NO_SECTION;
  v = &viewer;
  m = &filemenu;
  d = &dirmenu;

  v->next = NULL;
  m->next = NULL;
  d->next = NULL;

  if( ( f = fopen( filename, "r" ) ) == NULL ) {
    ESCAPE;
  }

  while( fgets( buffer, sizeof( buffer ), f ) ) {
    if(*buffer == '#')
      continue;
    l = strlen( buffer );
    if( l > 2 ) {
      buffer[l-1] = '\0';
      /* trim whitspace */
      for( name = buffer; isspace(*name); name++ )
        ;
      for(cptr=name; !isspace(*cptr) && *cptr != '='; cptr++ )
        ;
      if(*cptr != '=')
        *cptr = '\0';
      if(*name == '[') {
        /* section */
	if( !strcmp(name, "[GLOBAL]") ) 
	  section = GLOBAL_SECTION;
	else if( !strcmp(name, "[VIEWER]") ) 
	  section = VIEWER_SECTION;
	else if( !strcmp(name, "[MENU]") )
	  section = MENU_SECTION;
	else if( !strcmp(name, "[FILEMAP]") )
	  section = FILEMAP_SECTION;
	else if( !strcmp(name, "[FILECMD]") )
	  section = FILECMD_SECTION;
	else if( !strcmp(name, "[DIRMAP]") )
	  section = DIRMAP_SECTION;
	else if( !strcmp(name, "[DIRCMD]") )
	  section = DIRCMD_SECTION;
	else
	  section = NO_SECTION;
	
	continue;
      }
	  

      if( section == GLOBAL_SECTION ) {
        value = strchr( buffer, '=' );
        if( *name && value ) {
          *value++ = '\0';
          key.name = name;
          if(( p = bsearch(&key, profile, PROFILE_ENTRIES, sizeof(*p), Compare))) {
	    p->value = Strdup( value );
          }
        }
      } else if( section == MENU_SECTION ) {
        value = strchr( buffer, '=' );
        if( *name && value ) {
          *value++ = '\0';
          if (!strcmp(name, "DIR1") || !strcmp(name, "DIR2") || 
              !strcmp(name, "FILE1") || !strcmp(name, "FILE2") ) { 
            key.name = name;
            if(( p = bsearch(&key, profile, PROFILE_ENTRIES, sizeof(*p), Compare))) {
              /* Space pad menu strings to length COLS, ignoring '(' and ')' characters */
              l = 0;
              for (cptr = value; *cptr; ++cptr) {
                if (*cptr != '(' && *cptr != ')') {
                  ++l;
                }
              }
              while (l++ < COLS - 1)
                *cptr++ = ' ';
              *cptr = '\0';
	      p->value = Strdup( value );
            }
          }
        } 
      } else if(section == FILEMAP_SECTION ) {
        value = strchr( buffer, '=' );
        if( *name && value ) {
	  *value++ = '\0';
          /* trim whitespace */
          while(*value && isspace(*value))
            value++;
	  n = Strtok_r(name, ",", &old);
	  /* maybe comma-separated list, eg.: k,K=x */
	  while(n) {
            /* Check for existing entry from FILECMD_SECTION */
            for(new_m = filemenu.next; new_m != NULL; new_m = new_m->next) {
              if (new_m->chkey == ChCode( n )) {
                new_m->chremap = ChCode( value );
                if (new_m->chremap == 0)
                  new_m->chremap = -1;   /* Don't beep if user cmd defined */
                break;
              }
            } 
	    if( new_m == NULL && ( new_m = malloc( sizeof(*new_m) ) ) ) {
	      new_m->chkey = ChCode( n );
              new_m->chremap = ChCode( value );
	      new_m->cmd = NULL;
	      new_m->next = NULL;
	      m->next = new_m;
	      m = new_m;
	    }
	    n = Strtok_r(NULL, ",", &old);
	  }
        }
      } else if(section == FILECMD_SECTION ) {
        value = strchr( buffer, '=' );
        if( *name && value ) {
	  *value++ = '\0';
          /* trim whitespace */
          while(*value && isspace(*value))
            value++;
	  /* may not be comma-separated list */
          /* Check for existing entry from FILEMAP_SECTION */
          for (new_m = filemenu.next; new_m != NULL; new_m = new_m->next) {
            if (new_m->chkey == ChCode( name )) {
	      new_m->cmd = Strdup( value );
              if (new_m->chremap == 0)
                new_m->chremap = -1;   /* Don't beep if user cmd defined */
              break;
            }
          } 
	  if( new_m == NULL && ( new_m = malloc( sizeof(*new_m) ) ) ) {
            new_m->chkey = ChCode( name );
	    new_m->chremap = new_m->chkey;
	    new_m->cmd = Strdup( value );
	    new_m->next = NULL;
	    m->next = new_m;
	    m = new_m;
	  }
        }
      } else if(section == DIRMAP_SECTION ) {
        value = strchr( buffer, '=' );
        if( *name && value ) {
	  *value++ = '\0';
          /* trim whitespace */
          while(*value && isspace(*value))
            value++;
	  n = Strtok_r(name, ",", &old);
	  /* maybe comma-separated list, eg.: k,K=x */
	  while(n) {
            /* Check for existing entry from DIRCMD_SECTION */
            for(new_d = dirmenu.next; new_d != NULL; new_d = new_d->next) {
              if (new_d->chkey == ChCode( n )) {
                new_d->chremap = ChCode( value );
                if (new_d->chremap == 0)
                  new_d->chremap = -1;   /* Don't beep if user cmd defined */
                break;
              }
            } 
	    if( new_d == NULL && ( new_d = malloc( sizeof(*new_d) ) ) ) {
	      new_d->chkey = ChCode( n );
              new_d->chremap = ChCode( value );
	      new_d->cmd = NULL;
	      new_d->next = NULL;
	      d->next = new_d;
	      d = new_d;
	    }
	    n = Strtok_r(NULL, ",", &old);
	  }
        }
      } else if(section == DIRCMD_SECTION ) {
        value = strchr( buffer, '=' );
        if( *name && value ) {
	  *value++ = '\0';
          /* trim whitespace */
          while(*value && isspace(*value))
            value++;
	  /* may not be comma-separated list */
          /* Check for existing entry from DIRMAP_SECTION */
          for(new_d = dirmenu.next; new_d != NULL; new_d = new_d->next) {
            if (new_d->chkey == ChCode( name )) {
	      new_d->cmd = Strdup( value );
              if (new_d->chremap == 0)
                new_d->chremap = -1;   /* Don't beep if user cmd defined */
              break;
            }
          } 
	  if ( new_d == NULL && ( new_d = malloc( sizeof(*new_d) ) ) ) {
            new_d->chkey = ChCode( name );
	    new_d->chremap = new_d->chkey;
	    new_d->cmd = Strdup( value );
	    new_d->next = NULL;
	    d->next = new_d;
	    d = new_d;
	  }
        }
      } else if ( section == VIEWER_SECTION ) {
        value = strchr( buffer, '=' );

        if( *name && value ) {
          
	  *value++ = '\0';
	  n = Strtok_r(name, ",", &old);
	  /* maybe comma-separated list, eg.: .jpeg,.gif=xv */
	  while(n) {
	    if(( new_v = malloc( sizeof(*new_v) ) ) ) {
	      new_v->ext = Strdup( n );
	      new_v->cmd = Strdup( value );
	      new_v->next = NULL;
	      if(new_v->ext == NULL || new_v->cmd == NULL) {
	        /* ignore entry */
	        if(new_v->ext)
	          free(new_v->ext);
	        if(new_v->cmd)
	          free(new_v->cmd);
	        free(new_v);
	      } else {
	        v->next = new_v;
	        v = new_v;
	      }
	    }
	    n = Strtok_r(NULL, ",", &old);
	  }
        }
      }
    }
  }
  result = 0;

FNC_XIT:

  if( f )
    fclose( f );
  
  return( result );
}



char *GetProfileValue( char *name )
{
  Profile *p, key;
  char    *cptr;

  key.name = name;

  p = bsearch(&key, profile, PROFILE_ENTRIES, sizeof(*p), Compare);

  if(!p)
    return( "" );

  if( p->value )
    return( p->value );

  if( p->envvar && (cptr = getenv( p->envvar ) ) )
    return( cptr );

  return( p->def );
}

static int ChCode(const char *s)
{
  if (*s == '^' && *(s+1) != '^')
    return((int)((*(s+1)) & 0x1F));
  else
    return((int)(*s));
}
    
static int Compare(const void *s1, const void *s2)
{
  return( strcmp( ((Profile *)s1)->name, ((Profile *)s2)->name ) );
}

char *GetUserFileAction(int chkey, int *pchremap)
{
  Filemenu *m;

  for(m=filemenu.next; m; m=m->next) {
    if(chkey == m->chkey) {
      if (pchremap)
        *pchremap = m->chremap;
      return(m->cmd);
    }
  }
  if (pchremap)
    *pchremap = chkey;
  return(NULL);
}

char *GetUserDirAction(int chkey, int *pchremap)
{
  Dirmenu *d;

  for(d=dirmenu.next; d; d=d->next) {
    if(chkey == d->chkey) {
      if (pchremap)
        *pchremap = d->chremap;
      return(d->cmd);
    }
  }
  if (pchremap)
    *pchremap = chkey;
  return(NULL);
}

BOOL IsUserActionDefined(void)
{
  return((BOOL)(dirmenu.next != NULL || filemenu.next != NULL));
}


char *GetExtViewer(char *filename)
{
  Viewer *v;
  int l, x;

  l = strlen(filename);

  for(v=viewer.next; v; v=v->next) {
    x = strlen(v->ext);

    if(l > x) {
      if(!strcmp(&filename[l - x], v->ext)) {
        return(v->cmd);
      }
    }
  }
  return(NULL);
}