#include <stdio.h>
#include <errno.h>
#include <stdlib.h>
#include <strings.h>

extern const char *__progname;

#include "seq.h"
#include "msgarg.h"
#include "folder.h"
#include "system.h"
#include "context.h"

static int nargs;
static char **argstr;
static ARG *args;
static FOLDER *curfolder;
static FOLDER *msgfolder;

static void crack_arglist(int ac, char **av)
{
 char *arg;
 int errs;

 nargs = 0;
 args = malloc((ac-1)*sizeof(ARG));
 argstr = malloc((ac-1)*sizeof(char *));
 errs = 0;
 for (ac--,av++;ac;ac--,av++)
  { arg = *av;
    if (! msgarg_parse(arg,args+nargs,0))
     { fprintf(stderr,"%s: invalid argument `%s'\n",__progname,arg);
       errs ++;
     }
    else
     { argstr[nargs] = arg;
       nargs ++;
     }
  }
 if (errs) exit(1);
}

static void do_messages(int *vec, int nv, void *cookie __attribute__((__unused__)))
{
 MESSAGE *m;
 int i;

 for (i=0;i<nv;i++)
  { m = message_make(msgfolder,vec[i]);
    printf("%s\n",message_path(m));
    message_free(m);
  }
}

static void process_args(void)
{
 int a;
 char *s;

 system_lock(SYS_SHARED|SYS_WAIT|SYS_FAILEXIT);
 s = context_lookup("folder");
 if (s)
  { folder_lookup(s,&curfolder,0);
    free(s);
  }
 else
  { curfolder = 0;
  }
 if (nargs == 0)
  { printf("%s\n",system_folder_dir());
    return;
  }
 for (a=0;a<nargs;a++)
  { if (args[a].folder)
     { folder_lookup(args[a].folder,&msgfolder,0);
     }
    else
     { msgfolder = curfolder;
     }
    if (args[a].type == AT_NOMSG)
     { printf("%s\n",folder_path(msgfolder));
       curfolder = msgfolder;
       continue;
     }
    if (! msgfolder)
     { fprintf(stderr,"%s: %s: no current folder - must specify a folder\n",argstr[a],__progname);
       continue;
     }
    if (folder_lock(msgfolder,FOLDER_WAIT|FOLDER_SHARED) < 0)
     { fprintf(stderr,"%s: %s: can't lock +%s: %s\n",__progname,argstr[a],folder_name(msgfolder),strerror(errno));
       continue;
     }
    msgarg_handle(args+a,msgfolder,do_messages,0);
    folder_unlock(msgfolder);
  }
}

int main(int, char **);
int main(int ac, char **av)
{
 crack_arglist(ac,av);
 process_args();
 exit(0);
}