/* Autoconf patching by David Hedbor, neotron@lysator.liu.se */#include "tintin.h"#include <ctype.h>char *get_arg_stop_spaces();char *get_arg_in_quotes();void fix_vars();void convert();int is_abrev();char tintin_char, dc, dop,sc[5],so[5];char highlight_type[80];main (){	FILE *fin, *fout;	FILE *fopen();        char ifilename[80], ofilename[80], strng[1024], arg1[1024];	char arg2[1024],comm[80], *sptr;        dop=DEFAULT_OPEN;	dc=DEFAULT_CLOSE;        sprintf(so,"%c",dop);	sprintf(sc,"%c",dc);		printf("default highlight type: (bold, reverse, blink, italic, faint, or 1 through 8)\n");        read (0,strng,80);        sscanf(strng,"%s\n",highlight_type);        printf("Source coms file name:\n");        read(0,ifilename,80); 	sptr=ifilename;        sscanf(ifilename,"%s\n",strng);	fin=fopen(strng,"r");        printf("Destination coms file name: (do not use the same name)\n");        read(0,ofilename,80);	sscanf(ofilename,"%s\n",strng);	fout=fopen(strng,"w");        while(fgets(strng,1024,fin)) {          printf("%s",strng);	  sptr=strng;          while(*sptr) {            if (*sptr=='&')               *sptr='%';            sptr++;          }          sscanf(strng,"%c%s ",&tintin_char,comm);          if (is_abrev(comm,"nop"))            fprintf(fout,"%s\n",strng);          else {            sptr=(strng+strlen(comm)+2);            if (*sptr!='"') {               sptr=get_arg_stop_spaces(sptr,arg1);            }            else {               sptr=get_arg_in_quotes(sptr,arg1);            }             if (*sptr!='"') {               strcpy(arg2,sptr);               *(arg2+strlen(arg2)-1)='\0';            }            else {               strcpy(arg2,sptr+1);               *(arg2+strlen(arg2)-1)='\0';	       if (*(arg2+strlen(arg2)-1)=='"') {	         *(arg2+strlen(arg2)-1)='\0';	       }	    }            if (is_abrev(comm,"antisubstitute")) {               fprintf(fout,"%c%s %c%s%c\n",tintin_char,comm,dop,arg1,dc);            }            else if(is_abrev(comm,"highlight")) {              strcpy(arg2,arg1);              strcpy(arg1,highlight_type);              fprintf(fout,"%c%s %c%s%c %c%s%c\n",tintin_char,comm,dop,arg1,dc,dop,arg2,dc);            }            else {              convert(arg2);                 fprintf(fout,"%c%s %c%s%c %c%s%c\n",tintin_char,comm,dop,arg1,dc,dop,arg2,dc);            }          }          }        close(fin);        close(fout);}int is_abrev(s1, s2)     char *s1;     char *s2;{  return !strncmp(s1,s2,strlen(s1));}char *get_arg_stop_spaces(line, arg)     char *line;     char *arg;{     	while(*line!=' ' && *line!='\0' && *line!='\n')          *arg++= *line++;        *arg='\0';        line++;        return line;}char *get_arg_in_quotes(line, arg)     char *line;     char *arg;{        int nest=0;        line++;        while(!(nest==0 && *line=='"') && *line) {		if (*line=='{')                  nest++;                if (*line=='}')                  nest--;                if (*line=='\\' && *(line+1)=='"')		  line++;	        *arg++= *line++;        }   	*arg='\0';        line+=2;        return line;}void fix_vars(arg2)     char *arg2;{  int nest;  char result[1024], *ptr,*arg, temp[1024];  strcpy(temp,arg2);  ptr=result;  arg=temp;  nest=0;  while (*arg) {    if (*arg=='{') {      nest++;      arg++;    }    else if (*arg=='}') {      nest--;      arg++;    }    else if ((*arg=='%' || *arg=='$') && nest==0) {      *ptr++= *arg;      *ptr++= *arg++;    }    else if ((*arg=='%' || *arg=='$') && nest>1) {      *ptr++='\\';      *ptr++= *arg++;    }    else        *ptr++= *arg++;  }  *ptr='\0';  strcpy(arg2,result);}void convert(targ)     char *targ;{ 	char *ptr, result[1024], *ptr2, strng[1024], comm[1024], arg2[1024];        char line[1024], temp[1024], *arg;	int nest=0;        char t_char;        ptr=strng;        arg=targ;	*result='\0';	while (*arg) {          ptr=strng;	  while (*arg==' ')            arg++;          while (!(*arg==';' && nest==0) && *arg!='\0') {             if(*arg=='{') {	      nest++;	      *ptr++= *arg++;	    }	    else if (*arg=='}') {	      nest--;	      *ptr++= *arg++;	    }	    else *ptr++= *arg++;          } 	  *ptr='\0';	  sscanf(strng,"%c%s ",&t_char,comm);	  if (t_char!=tintin_char) {            strcpy(comm,"{");	    strcat(comm,strng);	    fix_vars(comm);            strcat(result,comm);	  }          else {	   if (is_abrev(comm, "nop")) {	     strcat(result,strng);           }	   else if(isdigit(*comm) || is_abrev(comm,"system") || is_abrev("un", comm)) {             sprintf(temp, "%c%s ",t_char, comm);             strcat(result,temp);             ptr2=strng+strlen(comm)+2;             fix_vars(ptr2);             if (*(ptr2)!='"')	       strcpy(arg2,ptr2);             else 	       ptr2=get_arg_in_quotes(ptr2,arg2);                          strcat(result, " ");             strcat(result, so);	     strcat(result, arg2);             strcat(result, sc);           }           else {	    strcpy(line,strng);	    fix_vars(line);	    sprintf(temp, "%c%s ", t_char, comm);	    strcat(result,temp);	    ptr2=line+strlen(comm)+2;            if (*ptr2!='"')	      ptr2=get_arg_stop_spaces(ptr2,arg2);            else 	      ptr2=get_arg_in_quotes(ptr2,arg2);            if(is_abrev(comm,"highlight")) {	      strcat(result, so);              strcat(result, highlight_type);              strcat(result, sc);	      strcat(result, " ");	      strcat(result, so);	      strcat(result, arg2);	      strcat(result, sc);            }	    else if (is_abrev(comm,"antisubstitute")) {	      strcat(result, so);	      strcat(result, arg2);	      strcat(result, sc);	    }	    else {	      if(*arg2) {	        strcat(result, so);	        strcat(result, arg2);	        strcat(result, sc);	        strcat(result, " ");	      } 	      if(*ptr2=='"')	        get_arg_in_quotes(ptr2,arg2);	      else	        strcpy(arg2,ptr2);	      if(*arg2) {	        strcat(result, so);	        strcat(result, arg2);	        strcat(result, sc);	      }	     }	    }         }         if (*arg==';') {	   strcat(result,";");	   arg++;         }       }       strcpy(targ, result);}