/*
	Test program for the imap server.
	It reads a file and send one line at a time, waiting for
	the answer.
*/
#include <stdio.h>
#include <stdlib.h>
#include <tlmplib.h>
#include <tlmpnet.h>

static char *chat_fgets (char *buf, int len, FILE *fin)
{
	char *ret = NULL;
	while (fgets(buf,len,fin)!=NULL){
		if (buf[0] != '\n'){
			ret = buf;
			break;
		}
	}
	return ret;
}

<mod>
int main (int argc, char *argv[])
{
	<glocal>
	</glocal>
	int ret = <call tlmpprogram>(argc, argv);
	<f usage>
		fprintf (stderr,"imapchat file server port\n");
	</f>
	<f onearg>
		return -1;
	</f>
	<f main>
		if (argc != 3){
			usage();
		}else{
			<glocal>
				FILE *fin;
				int step;
			</glocal>
			glocal.fin = fopen (argv[0],"r");
			glocal.step = 1;
			if (glocal.fin == NULL){
				fprintf (stderr,"Can't open file %s\n",argv[0]);
			}else{
				<call tcpconnect>(argv[1],argv[2],100);
				<f init>
					char line[1000];
					if (chat_fgets(line,sizeof(line)-1,glocal.fin)!=NULL){
						printf ("SENDING: %d %s",glocal.step,line);
						sendf ("%d %s",glocal.step,line);
					}else{
						end = true;
					}
				</f>
				<f oneline>
					printf ("SERVER: %s\n",line);
					int step = atoi(line);
					if (step == glocal.step){
						char buf[1000];
						if (chat_fgets(buf,sizeof(buf)-1,glocal.fin)!=NULL){
							glocal.step++;
							printf ("SENDING: %d %s",glocal.step,buf);
							sendf ("%d %s",glocal.step,buf);
						}else{
							end = true;
						}
					}
				</f>
				</call>
			}
		}
		return 0;
	</f>
	</call>
	return ret;
}
</mod>