#include <stdio.h>
#include <string.h>

main(argc,argv)
int argc;
int *argv[];
{
   FILE *fp;
   char name[30];
   char title[120];
   char categ[60];
   char nextline[141];
   int  pos;
   int  pos1;
   int  pos2;
   int  doc_found;
   int  noname;
   int  nodesc;
   int  nocateg;
   int  i;

   argv++; /* This skips the zeroth argument */
   argc--;

   for (i=0; i<argc; i++) {
      fp = fopen((char *)argv[i],"r");
      doc_found=0;
      noname=1;
      nodesc=1;
      nocateg=1;
      name[0] = '\0';
      title[0] = '\0';
      while(fgetline(fp,nextline,140) != EOF) {

         if ( doc_found && ((pos=sindex(nextline,";-")) != -1)) break;

         if ((pos=sindex(nextline,";+")) != -1)
            doc_found=1;

         else if (doc_found) {
            if (noname && ((pos=sindex(nextline,"NAME")) != -1)) {
               fgetline(fp,nextline,140);
               pos1 = sindex(nextline,";");
               if (pos1 != -1) {
                  strcpy(name,&nextline[pos1+1]);
                  trim(name);
                  noname=0;
                  }
               }
            if (nodesc && ((pos=sindex(nextline,"PURPOSE")) != -1)) {
               fgetline(fp,nextline,140);
               pos1 = sindex(nextline,";");
               if (pos1 != -1) {
                  pos1++;
                  for ( ; pos1 < strlen(nextline); pos1++)
                     if ( (nextline[pos1] != ' ') && (nextline[pos1] != '\t') ) break;
                  if (pos1 != strlen(nextline)) {
                     strcpy(title,&nextline[pos1]);
                     nodesc=0;
                     }
                  }
               }
            if (nocateg && ((pos=sindex(nextline,"CATEGORY")) != -1)) {
               fgetline(fp,nextline,140);
               pos1 = sindex(nextline,";");
               if (pos1 != -1) {
                  if (sindex(nextline,"CALLING") == -1) {
                     strcpy(categ,&nextline[pos1+1]);
                     trim(categ);
                     if (strlen(categ) != 0)
   	                  nocateg=0;
                     }
                  }
               break;
               }
            }

         }
      fclose(fp);

      if (noname) strcpy(name,(char *)argv[i]);
      if (nodesc) strcpy(title,"NO DESCRIPTION FOUND.");
      if (nocateg) strcpy(categ,"NoCategory");

      printf("%s:%s:%s\n",name,categ,title);

      }

   exit(0);
}

trim(str)
char *str;
{
   int i,j;
   int first=1;

   j=0;
   for (i=0,j=0; i<=strlen(str); i++) {
      if (first) {
         if ( (str[i] != ';') && (str[i] != ' ') && (str[i] != '\t') ) {
            str[j]=str[i];
            j++;
            first=0;
            }
         }
      else {
         str[j]=str[i];
         j++;
         }
      }
   for (i=strlen(str)-1; i>=0; i--) {
      if (str[i] != ' ') break;
      }
   str[i+1]='\0';
}