#include <midiseq/mididata.hpp>
#include <midiseq/midiout.hpp>
#include <sgi_stl/list>

void testNotes(void);
void testFile(void);

int PASCAL WinMain(HINSTANCE /*hInstance*/,HINSTANCE /*hPrevInstance*/,LPSTR /*lpszCmdLine*/,int /*nCmdShow*/)
{
  testFile();
	return 0;
}

void testFile(void)
{
  Block<String> deviceNames;
  MIDIOutputDevice::getDeviceNames(deviceNames);
	for(int index=0;index<deviceNames.size();index++)
	{
	  ::OutputDebugString(deviceNames[index]+String("\n"));
	}

//	String musicFileName("D:\\WORK\\SCENE\\MEDIA\\BMP\\E1M2.MID");
//  String musicFileName("D:\\WORK\\GUITAR\\MIDI\\DIANA.MID");   // OK
//  String musicFileName("D:\\WORK\\GUITAR\\MIDI\\JESU_1.MID");   // OK
//  String musicFileName("D:\\WORK\\GUITAR\\MIDI\\paco.MID");   // OK
//    String musicFileName("D:\\WORK\\GUITAR\\MIDI\\tremfals.mid");
//    String musicFileName("D:\\WORK\\GUITAR\\MIDI\\tientos.mid");
//    String musicFileName("D:\\WORK\\GUITAR\\MIDI\\malagn_1.mid");
//    String musicFileName("D:\\WORK\\GUITAR\\MIDI\\follow.mid");
//    String musicFileName("D:\\WORK\\GUITAR\\MIDI\\kashmir.mid");
    String musicFileName("D:\\WORK\\GUITAR\\MIDI\\2112.mid");

//  String musicFileName("D:\\WORK\\GUITAR\\MIDI\\zapatead.mid");
//	String musicFileName("C:\\WINNT\\MEDIA\\PASSPORT.MID");
//  String musicFileName("d:\\WORK\\GUITAR\\MIDI\\BUMBLEBEE.MID");   // OK
//	String musicFileName("C:\\WINNT\\MEDIA\\CANYON.MID");

	MidiData midiData(musicFileName);
	midiData.play();
	while(midiData.isInPlay());
	midiData.stop();
  ::MessageBox(::GetFocus(),(LPSTR)musicFileName,(LPSTR)"End Play",MB_OK);
  return;
}