// need to add:
// = and # mode tests
// precision
// : and @
// 'X'

// specifier, result, args
mixed make_arg(int x, int trail) {
#define BEFORE_INTS 0
#define INTS_HI 2
#define INTS_LO 6
#define BEFORE_STRS (INTS_HI * INTS_LO)
#define STRS_HI 1
#define STRS_LO 1
#define BEFORE_FLOS (BEFORE_STRS + STRS_HI * STRS_LO)
#define FLOS_HI 1
#define FLOS_LO 1
#define BEFORE_CHRS (BEFORE_FLOS + FLOS_HI * FLOS_LO)
#define CHRS_HI 1
#define CHRS_LO 1
#define BEFORE_LPCS (BEFORE_CHRS + CHRS_HI * CHRS_LO)
#define LPCS_HI 1
#define LPCS_LO 9
#define TOTAL (BEFORE_LPCS + LPCS_HI * LPCS_LO)

    mixed ret;
    string lpad = " ", rpad = " ", mpad;
    int tmp;


    switch (x % TOTAL) {
    case BEFORE_INTS..BEFORE_INTS + INTS_HI * INTS_LO - 1:
	switch (x % INTS_LO) {
	case 0: ret = ({ "i", "5", 5 }); break;
	case 1: ret = ({ "d", "345", 345 }); break;
	case 2: ret = ({ "o", "111", 73 }); break;
	case 3: ret = ({ "x", "a9", 169 }); break;
	case 4: ret = ({ "X", "A9", 169 }); break;
	case 5: ret = ({ "i", "-345", -345 }); break;
	}
	switch (x / INTS_LO) {
	case 0:
	    break;
	case 1:
	    if (ret[0][0] != 'i' && ret[0][0] != 'd')
		break;
	    ret[0] = "+" + ret[0];
	    if (ret[1][0] != '-') ret[1] = "+" + ret[1];
	    lpad = "+";
	    break;
	}
	break;
    case BEFORE_STRS..BEFORE_STRS + STRS_HI * STRS_LO - 1:
	x -= BEFORE_STRS;
	switch (x % STRS_LO) {
	case 0: ret = ({ "s", "foo", "foo" }); break;
	}
	switch (x / STRS_LO) {
	case 0:
	    break;
	}
	break;
    case BEFORE_FLOS..BEFORE_FLOS + FLOS_HI * FLOS_LO - 1:
	x -= BEFORE_FLOS;
	switch (x % FLOS_LO) {
	case 0: ret = ({ "f", "1.234000", 1.234 }); break;
	}
	switch (x / FLOS_LO) {
	case 0:
	    break;
	}
	break;
    case BEFORE_CHRS..BEFORE_CHRS + CHRS_HI * CHRS_LO - 1:
	x -= BEFORE_CHRS;
	switch (x % CHRS_LO) {
	case 0: ret = ({ "c", "a", 97 }); break;
	}
	switch (x / CHRS_LO) {
	case 0:
	    break;
	}
	break;
    case BEFORE_LPCS..BEFORE_LPCS + LPCS_HI * LPCS_LO - 1:
	x -= BEFORE_LPCS;
	switch (x % LPCS_LO) {
	case 0: ret = ({ "O", "1", 1 }); break;
	case 1: ret = ({ "O", "1.500000", 1.5 }); break;
	case 2: ret = ({ "O", "\"foo\"", "foo" }); break;
	case 3: ret = ({ "O", "({ })", ({}) }); break;
	case 4: ret = ({ "O", "({ /* sizeof() == 2 */\n  1,\n  2\n})", ({ 1, 2 }) }); break;
	case 5: ret = ({ "O", "(: make_arg, 5 :)", (: make_arg, 5 :) }); break;
	case 6: ret = ({ "O", "(: <code>($1) :)", (: $1 :) }); break;
	case 7: ret = ({ "O", "(: sprintf :)", (: sprintf :) }); break;
	case 8: ret = ({ "O", "([ /* sizeof() == 1 */\n  1 : 2,\n])", ([ 1 : 2 ]) }); break;
	}
	switch (x / LPCS_LO) {
	case 0:
	    break;
	}
    }

    tmp = random(20);
    if (random(5)) {
	mpad = "xyzzy";
	switch (x / TOTAL) {
	case 0:
	    break;
	case 1:
	    ret[0] = "'xyzzy'" + tmp + ret[0];
	    if (strlen(ret[1]) < tmp) {
		ret[1] = mpad[0..((tmp - strlen(ret[1])) % strlen(mpad))-1]
		    + ret[1];
		while (strlen(ret[1]) + strlen(mpad) <= tmp)
		    ret[1] = mpad + ret[1];
	    }
	    break;
	case 2:
	    {
		int n, ll, rr;
		ret[0] = "|'xyzzy'" + tmp + ret[0];
		if ((n = strlen(ret[1])) < tmp) {
		    ll = (tmp - n + 1)/2;
		    if (ll % strlen(mpad))
			ret[1] = mpad[0..(ll % strlen(mpad))-1] + ret[1];
		    ll = ll/strlen(mpad);
		    while (ll--)
			ret[1] = mpad + ret[1];
		    if (trail) {
			rr = (tmp - n)/2;
			n = (rr % strlen(mpad));
			rr = rr/strlen(mpad);
			while (rr--)
			    ret[1] += mpad;
			if (n)
			    ret[1] += mpad[0..n-1];
		    }
		}
	    }
	    break;
	case 3:
	    ret[0] = "-'xyzzy'" + tmp + ret[0];
	    if (strlen(ret[1]) < tmp) {
		int n = ((tmp - strlen(ret[1])) % strlen(mpad));
		while (strlen(ret[1]) + strlen(mpad) <= tmp)
		    ret[1] += mpad;
		if (n)
		    ret[1] += mpad[0..n-1];
	    }
	    break;
	case 4:
	    ret[0] = "-*" + tmp + ret[0];
	    ret = ret[0..1] + ({ tmp }) + ret[2..];
	    while (strlen(ret[1]) < tmp)
		ret[1] += rpad;
	    break;
	default:
	    return 0;
	}
    } else
	switch (x / TOTAL) {
	case 0:
	    break;
	case 1:
	    ret[0] = tmp + ret[0];
	    while (strlen(ret[1]) < tmp)
		ret[1] = lpad + ret[1];
	    break;
	case 2:
	    {
		int n, ll, rr;
		ret[0] = "|" + tmp + ret[0];
		if ((n = strlen(ret[1])) < tmp) {
		    ll = (tmp - n + 1)/2;
		    rr = (tmp - n)/2;
		    while (ll--)
			ret[1] = lpad + ret[1];
		    if (trail)
			while (rr--)
			    ret[1] += rpad;
		}
	    }
	    break;
	case 3:
	    ret[0] = "-" + tmp + ret[0];
	    while (strlen(ret[1]) < tmp)
		ret[1] += lpad;
	    break;
	case 4:
	    ret[0] = "-*" + tmp + ret[0];
	    ret = ret[0..1] + ({ tmp }) + ret[2..];
	    while (strlen(ret[1]) < tmp)
		ret[1] += lpad;
	    break;
	default:
	    return 0;
	}
    ret[0] = "%" + ret[0];
    return ret;
}

void do_tests() {
    int x;
    mixed *mx;
    string format, shouldbe;
    string hmm;
    
    while (1) {
	if (!(mx = make_arg(x++, 1))) break;
	
	format = "$" + mx[0] + "^";
	shouldbe = "$" + mx[1] + "^";
	ASSERT2(sprintf(format, mx[2..]...) == shouldbe, shouldbe);
    }

    hmm = sprintf("xxx%#-20.5s\n", "This\nis\na\ntest\nof\nsprintf\ntable\nmode\n");
    ASSERT2(hmm == "xxxThisa   of  tabl\n   is  testsprimode\n", hmm);
    hmm = sprintf("xxx%#-'y'20.5s\n", "This\nis\na\ntest\nof\nsprintf\ntable\nmode\n");
    ASSERT2(hmm == "xxxThisayyyofyytablyyyy\n   isyytestsprimodeyyyy\n", hmm);
    
    hmm = sprintf("%#-20s\n", "a\nb\nc\nd\ne\nf\ng\nh\ni\nj\nk\nl\no\n");
    ASSERT2(hmm == "a   d   g   j   o\nb   e   h   k   \nc   f   i   l   \n", hmm);
}