/* $OpenXM: OpenXM/src/util/oxgreph.c,v 1.1 2006/03/04 07:48:12 takayama Exp $ */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>

#define mymalloc(n)  malloc(n)

/* 
   It greps files and outputs an html file to browse the files.
   Keyword should be given in euc or utf-8 depending on the coding system of the files. 
   It does not add meta section  of html file.
*/
main(int argc, char *argv[]) {
  int i,m,pid,n, cpos,start;
  char *com;
  char workf[256];
#define SSIZE 1024
  char s[SSIZE];
  char ss[SSIZE*2];
  FILE *fp;
  m = 256;
  pid = getpid();
  for (i=1; i<argc; i++) {
	m += strlen(argv[i])+1;
  }
  com = (char *)mymalloc(m);
  sprintf(com,"grep ");
  for (i=1; i<argc; i++) {
	sprintf(&(com[strlen(com)]),"%s ",argv[i]);
  }
  sprintf(workf,"/tmp/tmp-oxgreph-%d.txt",pid);
  sprintf(&(com[strlen(com)]),">%s",workf);
  system(com);

  printf("<ol>\n");
  fp = fopen(workf,"r");
  if (fp == NULL) {
	fprintf(stderr,"Open error of the workfile.\n"); exit(1);
  }
  while (fgets(s,SSIZE-1,fp)) {
	cpos = -1; n = strlen(s);
	for (i=0; i< n; i++) {
	  if (s[i] == ':') {
		cpos = i; break;
	  }
	}
	if (cpos >= 0) {
	  s[cpos] = 0; start = 0;
	  for (i=cpos+1; i<n; i++) {
        if (s[i] == 0x1b) {
		  i++;
		  while (s[i] != 0x1b) i++;
        }
		if (s[i] == '<') { start=1; }
		if ((s[i] == '>') && start) { start=0; s[i] = ' '; }
		if (start) s[i] = 0;
		if (s[i] == '\n') s[i] = ' ';
	  }
	  printf("<li><a href=\"%s\">%s</a> <pre>%s </pre>\n",s,s,&(s[cpos+1]));
	}
  }
  printf("</ol>\n");
  sprintf(com,"rm -f %s",workf);
  system(com);
}