/*----------------------------------------------------------------------*/
/* rtflik.c Tagger stedsnavn som står etter = se og jfr                 */
/*          Enkelt og banalt; må ryddes opp i korrektur.                */
/*          Det skaper visse problemer at se og jfr av og til benyttes  */
/*          til andre henvisninger (særlig jfr sagregisteret og         */
/*          se <henv>) men dette skaper kryssende tagger som avsløres   */
/*          i A/E.                                                      */
/*                                                                      */
/* Ver. 1.0 1997-05-21 Øyvind Eide/Dokumentasjonsprosjektet             */
/*                                                                      */
/*----------------------------------------------------------------------*/

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

void main(argc, argv)
int argc;
char **argv;
{
	FILE *innfil, *utfil;
	char tegn, streng[1000], lik;
	int i, teller;
	printf("Innfil: %s  utfil: %s  OK?", argv[1], argv[2]);
	tegn= getchar();
	if (tegn == 'J' || tegn == 'j')
	{
		innfil= fopen(argv[1], "r");
		utfil= fopen(argv[2], "w");
		teller= 0;
		printf("\n\n=: %5d", teller);
		tegn= getc(innfil);
		while (tegn != EOF)
		{
			if (tegn == ' ')
			{
				putc(tegn, utfil);
				tegn= getc(innfil);
				if (tegn == '=')
				{
					streng[0]= tegn;
					tegn= getc(innfil);
					if (tegn == ' ')
					{
						printf("\b\b\b\b\b%5d", ++teller);
						lik= 0;
						putc(streng[0], utfil);
						putc(tegn, utfil);
						tegn= getc(innfil);
						i=0;
						if (tegn == '?') lik= 1;
						while (lik == 0 && tegn != ' ' && tegn != '.' && tegn != ',' && tegn != EOF)
						{
							streng[i++]= tegn;
							tegn= getc(innfil);
						}
						streng[i]= 0;
						if (lik == 0) fprintf(utfil, "<snavn>%s</snavn>", &streng[0]);
					}
					else putc(streng[0], utfil);
				}
				else if (tegn == 's' || tegn == 'j')
				{
					streng[0]= tegn;
					for(i=1; i<3; i++) streng[i]= getc(innfil);
					streng[3]= 0;
					tegn= getc(innfil);
					if (streng[0] == 's' && streng[1] == 'e' && streng[2] == ' ')
					{
						fprintf(utfil, "%s", &streng[0]);
						i=0;
						while (tegn != ' ' && tegn != '.' && tegn != ',' && tegn != EOF)
						{
							streng[i++]= tegn;
							tegn= getc(innfil);
						}
						streng[i]= 0;
						fprintf(utfil, "<snavn>%s</snavn>", &streng[0]);
					}
					else if (streng[0] == 'j' && streng[1] == 'f' && streng[2] == 'r')
					{
						streng[3]= tegn;
						streng[4]= 0;
						tegn= getc(innfil);
						fprintf(utfil, "%s", &streng[0]);
						i=0;
						while (tegn != ' ' && tegn != '.' && tegn != ',' && tegn != EOF)
						{
							streng[i++]= tegn;
							tegn= getc(innfil);
						}
						streng[i]= 0;
						fprintf(utfil, "<snavn>%s</snavn>", &streng[0]);
					}
					else fprintf(utfil, "%s", &streng[0]);
				}
			}
			putc(tegn, utfil);
			tegn= getc(innfil);
		}
	}
}