#include <pads.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
SRCFILE("test.cc")

class Creator : public PadRcv {
	void	linereq(long,Attrib=0);
public:
	Pad	*pad;
		Creator();
const	char	*kbd(char*);
};

class Journal : public PadRcv {
	void	linereq(long,Attrib=0);
	void	create(long);
public:
	Pad	*pad;
	void	cycle();
		Journal();
};

class Test : public PadRcv {
	void	linereq(long,Attrib=0);
public:
	Pad	*pad;
		Test();
	void	err(long);
	void	lines(long);
	void	exit();
	void	cycle();
	void	tabs(long t)	{ pad->tabs((int)t); }
	void	remove(long k)  { pad->removeline(k); }
const	char	*kbd(char*);
const	char	*help(long);
	void	usercut();
};

void Test::usercut() {}

const char *Test::kbd(char *s){
	int i;
	if( !sscanf(s,"%d",&i) || i<=0 || i>=1000 )
		return strdup("out of range");
	linereq(i,SELECTLINE);
	return 0;
}

const char *Creator::kbd(char *s){
	int lo, hi;
	if( 2 == sscanf(s, "%d %d", &lo, &hi) )
		pad->createline(lo, hi );
	return 0;
}

char String[256];

char *StrCpy(char *d, const char *s){
	int i = 0;
	char *r = d;
	while (*d++ = *s++) {
		if(++i>=256)
			exit(1);
	}
	return r;
}

const char *Test::help(long l){
	trace("%ud.help(%d)",this,l);
	switch(l) {
	case HELP_OVERVIEW:	return "Openlook";
	case HELP_MENU:		return "Test Menu";
	case HELP_KEY:		return "Test Keyboard";
	case HELP_LMENU:	return "Test Line Menu";
	case HELP_LKEY:		return "Test Line Keyboard";
	}
	return 0;
}

void Test::exit() { ::exit(0); }

void Test::cycle(){
	static int i;
	time_t t;

	pad->alarm(i++/10);
	time(&t);
	pad->insert( 1, "%s", ctime(&t) );
}

Test::Test(){
	Menu m( strdup( "first 1" ), (Action) &Test::linereq, 1 );
	Menu sub;
	Menu subsub;
	pad = new Pad( (PadRcv*) this );
	pad->options(ACCEPT_KBD);
	pad->lines(1000);
	pad->insert(1001, "one thouseand and one");
	pad->banner( "%s=%s", "Banner", "Test" );
	pad->name( "%s=%s", "name", "test" );
	pad->options(DONT_CLOSE|NO_TILDE);
//	pad->makecurrent();
	subsub.sort( "B", (Action) &Test::linereq, 101 );
	subsub.sort( "A", (Action) &Test::linereq, 102 );
	subsub.sort( "D", (Action) &Test::linereq, 103 );
	subsub.sort( "C", (Action) &Test::linereq, 104 );
	sub.first( subsub.index( strdup( "subsub" ) ) );
	sub.last( "b", (Action) &Test::linereq, 110 );
	sub.last( "a", (Action) &Test::linereq, 120 );
	sub.last( "d", (Action) &Test::linereq, 130 );
	sub.last( "c", (Action) &Test::linereq, 140 );
	m.first( sub.index(strdup( "sub" )) );
	m.first( "cycle", (Action) &Test::cycle );
	m.first( "tabs=1", (Action) &Test::tabs, 1 );
	m.first( "tabs=3", (Action) &Test::tabs, 3 );
	m.last( "tabs=5", (Action) &Test::tabs, 5 );
	m.last( "tabs=7", (Action) &Test::tabs, 7 );
	m.last( "tabs=0", (Action) &Test::tabs, 0 );
	m.last( "tabs=128", (Action) &Test::tabs, 128 );
	m.last( "remove 100", (Action) &Test::remove, 100 );
//	m.last( NumericRange(1,10) );
	pad->menu(m.index());
	pad->alarm();
}

Creator::Creator(){
	pad = new Pad( (PadRcv*) this );
	pad->options(ACCEPT_KBD);
	pad->banner( "%s=%s", "Banner", "Creator" );
	pad->name( "%s=%s", "name", "creator" );
//	pad->makecurrent();
	for( long i = 1; i <= 100; i += 10 ){
		pad->createline(i);
		pad->createline(i+3, i+7);
	}
}

void Creator::linereq(long i, Attrib a){
	pad->insert(i, a, "line\t%d\t[]", i);
}

Journal::Journal(){
	pad = new Pad( (PadRcv*) this );
	pad->banner( "%s", "Journal" );
	pad->name( "%s", "Journal" );
//	pad->makecurrent();
	pad->alarm();
	Menu m;
	m.last("create one", (Action)&Journal::create, 1);
	m.last("create two", (Action)&Journal::create, 2);
	pad->menu(m);
}

void Journal::create(long i){
	static int t = 1;
	while(i--)
		pad->createline(t*2);
	++t;
}

void Journal::linereq(long i, Attrib a){
	pad->insert(i, a, "journal %d", i);
}

void Journal::cycle(){
	static int k;

	pad->createline(++k);
	if( k-20 >= 1 ) pad->removeline(k-20);
	pad->alarm(10);
}

void Test::linereq(long i, Attrib a){
	Menu m;

	switch( i%5 ){
	case 0:
		pad->insert( i, a, "line\t%d\t[]", i  );
		pad->banner( "banner=%d", i );
		break;
	case 1:
		m.last( "150", (Action)&Test::linereq, 150 );
		pad->insert( i, a|USERCUT, (PadRcv*) this, m, "line\t%d", i );
		pad->name( "name=%d", i );
		break;
	case 2:
		m.last("250", (Action)&Test::linereq, 250 );
		pad->insert( i, a|USERCUT, (PadRcv*) this, m, "line\t%d", i );
		break;
	case 3:
		m.last("exit?", (Action)&Test::exit, 0 );
		pad->insert( i, a|USERCUT, (PadRcv*) this, m, "line\t%d", i );
		break;
	case 4:
		pad->insert( i, a|USERCUT, "" );
		break;
	}
	
}

void PadsRemInit();

int main(int argc, char **argv){
	new long;
	if (argc == 2 && !strcmp(argv[1],"-R"))
		PadsRemInit();
	else
		PadsInit( argc, argv );
	extern const char *TapTo;
	TapTo = ".tapto";
	new Test;
	new Creator;
	new Journal;
	NewPadStats();
	NewHelp();
	PadsServe();
}