#include <stdio.h>
#include "corpus.c"
#include "wordlist.c"

char samphead[1024], sampname[1024];

main(int argc, char **argv)
{
  int roles,r,no_roles;
  char *role;
  int i,len,j;

  if(argc!=2)
  {
    printf("Usage: spotname filename\n");
    exit(1);
  }
  strcpy(samphead,argv[1]);

  sprintf(sampname,"%s.wor",samphead);
  read_sample(sampname);

  roles=read_wlist("roles.lst");
  no_roles=get_wlist_size(roles);

  for(i=0;i<sample_size;i++)
  {
    if(len=is_uc_series(i))
    {
      if(strcmp(sample[i+len],",")==0)
      {
        for(r=0;r<no_roles;r++)
        {
          if(strcmp(sample[i+len+1],get_wlist_entry(roles,r))==0)
          {
            mark_name(i,i+len-1,get_wlist_info(roles,r));
            i+=len;
            break;
          }
        }
      }
    }
  }

  sprintf(sampname,"%s.out",samphead);
  write_sample(sampname);
}