#include <u.h>
#include <libc.h>
#include <bio.h>

#include "modem.h"

int
initfaxmodem(Modem *m)
{
	m->fax = 1;
	m->phase = 'A';
	m->valid = 0;

	return Eok;
}

static int
parameters(long a[], char *s)
{
	char *p;
	int i;

	i = 0;
	if((p = strchr(s, ':')) == 0)
		return 0;
	p++;
	while(s = strchr(p, ',')){
		a[i++] = strtol(p, 0, 10);
		p = s+1;
	}
	if(p)
		a[i++] = strtol(p, 0, 10);

	return i;
}

int
fcon(Modem *m)
{
	verbose("fcon: %s", m->response);
	if(m->fax == 0 || m->phase != 'A')
		return Rrerror;
	m->phase = 'B';
	return Rcontinue;
}

int
ftsi(Modem *m)
{
	char *p, *q;

	verbose("ftsi: %s", m->response);
	if((p = strchr(m->response, '"')) == 0 || (q = strrchr(p+1, '"')) == 0)
		return Rrerror;
	while(*++p == ' ')
		;
	*q = 0;
	if((m->valid &  Vftsi) == 0){
		strncpy(m->ftsi, p, sizeof(m->ftsi)-1);
		m->valid |= Vftsi;
	}
	return Rcontinue;
}

int
fdcs(Modem *m)
{
	verbose("fdcs: %s", m->response);
	parameters(m->fdcs, m->response);
	m->valid |= Vfdcs;
	return Rcontinue;
}

int
fcfr(Modem *m)
{
	verbose("fcfr: %s", m->response);
	if(m->fax == 0)
		return Rrerror;
	/* ???? */
	return Rcontinue;
}

int
fpts(Modem *m)
{
	verbose("fpts: %s", m->response);
	if(m->fax == 0)
		return Rrerror;
	parameters(m->fpts, m->response);
	m->valid |= Vfpts;
	return Rcontinue;
}

int
fet(Modem *m)
{
	char *p;

	verbose("fet: %s", m->response);
	if(m->fax == 0 || (p = strchr(m->response, ':')) == 0)
		return Rrerror;
	m->fet = strtol(p+1, 0, 10);
	m->valid |= Vfet;
	return Rcontinue;
}

int
fhng(Modem *m)
{
	char *p;

	verbose("fhng: %s", m->response);
	if(m->fax == 0 || (p = strchr(m->response, ':')) == 0)
		return Rrerror;
	m->fhng = strtol(p+1, 0, 10);
	m->valid |= Vfhng;
	return Rhangup;
}