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

extern const char *__progname;

#include "seq.h"
#include "format.h"
#include "msgarg.h"
#include "folder.h"
#include "system.h"
#include "context.h"
#include "message.h"
#include "profile.h"

static int nargs;
static char **argstr;
static ARG *args;
static FOLDER *curfolder;
static FOLDER *msgfolder;
static FORMAT *fmt;
static const char *progtag = "ls";

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

 for (ac--,av++;ac;ac--,av++)
  { if ((ac > 1) && !strcmp(*av,"-prog"))
     { progtag = av[1];
       ac --;
       av ++;
       continue;
     }
    break;
  }
 nargs = 0;
 args = malloc(ac*sizeof(ARG));
 argstr = malloc(ac*sizeof(char *));
 errs = 0;
 for (;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 printline(const char *s, void *cookie __attribute__((__unused__)))
{
 printf("%s\n",s);
}

static void process_it(MESSAGE *m)
{
 format_run(fmt,m,printline,printline,0,FOPT_END);
}

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]);
    if (message_open(m,O_RDONLY|O_SHLOCK,0) < 0)
     { fprintf(stderr,"%s: can't open %d in +%s: %s\n",__progname,vec[i],folder_name(msgfolder),strerror(errno));
     }
    else
     { process_it(m);
       message_close(m);
     }
    message_free(m);
  }
}

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

 system_lock(SYS_SHARED|SYS_WAIT|SYS_FAILEXIT);
 fmt = format_program(system_get_profile(),progtag,"\
mn3' '$<<im?#c??\"+ \"?|\"  \"?.$+hs(Date)hdps+0<??\"(no date)\"?|\
s+hdY4'0'$<<isxs+hdMhd$Msxs+hdD2'0'$<<i\" \"$+sxs+hdh2'0'$<<i\":\"$+sx\
s+hdm2'0'$<<i\":\"$+sxhds2'0'$<<i$+$+$+$+$+?.\" \"$+$+hs(From)s+ha#1>??\
s-\"(MULTIPLE)\"?|haa?.$+\": \"hs(Subject)$+$+\
",EXT_WIDTH,EXT_END);
 s = context_lookup("folder");
 if (s)
  { folder_lookup(s,&curfolder,0);
    free(s);
  }
 else
  { curfolder = 0;
  }
 for (a=0;a<nargs;a++) if (args[a].type != AT_NOMSG) break;
 if (a >= nargs)
  { for (a=0;a<nargs;a++)
     { args[a].type = AT_RANGE;
       args[a].u.range.first = MA_LIMIT;
       args[a].u.range.last = MA_LIMIT;
     }
  }
 if (nargs == 0)
  { args = malloc(sizeof(ARG));
    args->folder = 0;
    args->type = AT_RANGE;
    args->u.range.first = MA_LIMIT;
    args->u.range.last = MA_LIMIT;
    nargs = 1;
  }
 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)
     { 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);
}