// testAlphabetTuple.cc
// Kevin Karplus
// created 26 April 1995

// ABSTRACT
//	Contains a crude test for  AlphabetTuple and BaseTuple classes

#include "AlphabetTuple.h"
#include "Alphabet/Alph.h"
#include <iostream>

int main()
{
    AlphabetTuple DNA(&Alph::ExtDNA());
    BaseTuple bdna(DNA);
    
    
    AlphabetTuple RNA_pair(&Alph::RNA(), &Alph::RNA());
    BaseTuple brna2(RNA_pair);

    AlphabetTuple RNA_triple(&Alph::RNA(), &Alph::RNA(), &Alph::RNA());
    BaseTuple brna3(RNA_triple);
    
    for(;;)
    {
    	cout << "Type an alphabet-tuple command:" << flush;
    	AlphabetTuple *at=read_AlphabetTuple_command(cin);
        
	if (!at)
		break;
	
	cout << "\n AlphabetTuple is " << *at 
		<< " with " << at->num_normal() << " letters.\n" << flush;    
	
	if (at->num_normal() <=100)
	{   cout << "Letters are \n"; 
	    for (int i=0; i< at->num_normal(); i++)
	    {	cout << " ";
	    	at->print_unindex(cout, i);
	    }
	    cout  << "\n\n" << flush;
	}
	
	BaseTuple btn(*at);
	cout << "Type a " << at->num_alphabets() 
	    << "-tuple of letters from those alphabets:" << flush;
	cin >> btn;
	cout << "BaseTuple is " << btn << "\n";
	
	delete at;
    }
    
    
    cout << "\n\nNothing blew up in the test, but not much was tested.\n";
}

// control information for gnuemacs to simplify compilation 
// Local Variables: 
// compile-command: "rsh apache '(cd dna/src/AlphabetTuple; gnumake -k test)'"
// End: