1 files changed, 183 insertions, 0 deletions
diff --git a/plugins/Watrack/wat_api.pas b/plugins/Watrack/wat_api.pas
new file mode 100644
index 0000000000..52fd0f2650
--- /dev/null
+++ b/plugins/Watrack/wat_api.pas
@@ -0,0 +1,183 @@
+unit wat_api;
+
+interface
+
+uses windows;
+
+{$Include m_music.inc}
+
+function GenreName(idx:cardinal):pWideChar;
+
+implementation
+
+uses common;
+
+const
+  MAX_MUSIC_GENRES = 148;
+
+Genres:array [0..MAX_MUSIC_GENRES-1] of PWideChar = (
+{0} 'Blues',
+{1} 'Classic Rock',
+{2} 'Country',
+{3} 'Dance',
+{4} 'Disco',
+{5} 'Funk',
+{6} 'Grunge',
+{7} 'Hip-Hop',
+{8} 'Jazz',
+{9} 'Metal',
+{10} 'New Age',
+{11} 'Oldies',
+{12} 'Other',
+{13} 'Pop',
+{14} 'R&B',
+{15} 'Rap',
+{16} 'Reggae',
+{17} 'Rock',
+{18} 'Techno',
+{19} 'Industrial',
+{20} 'Alternative',
+{21} 'Ska',
+{22} 'Death Metal',
+{23} 'Pranks',
+{24} 'Soundtrack',
+{25} 'Euro-Techno',
+{26} 'Ambient',
+{27} 'Trip-Hop',
+{28} 'Vocal',
+{29} 'Jazz+Funk',
+{30} 'Fusion',
+{31} 'Trance',
+{32} 'Classical',
+{33} 'Instrumental',
+{34} 'Acid',
+{35} 'House',
+{36} 'Game',
+{37} 'Sound Clip',
+{38} 'Gospel',
+{39} 'Noise',
+{40} 'AlternRock',
+{41} 'Bass',
+{42} 'Soul',
+{43} 'Punk',
+{44} 'Space',
+{45} 'Meditative',
+{46} 'Instrumental Pop',
+{47} 'Instrumental Rock',
+{48} 'Ethnic',
+{49} 'Gothic',
+{50} 'Darkwave',
+{51} 'Techno-Industrial',
+{52} 'Electronic',
+{53} 'Pop-Folk',
+{54} 'Eurodance',
+{55} 'Dream',
+{56} 'Southern Rock',
+{57} 'Comedy',
+{58} 'Cult',
+{59} 'Gangsta',
+{60} 'Top 40',
+{61} 'Christian Rap',
+{62} 'Pop/Funk',
+{63} 'Jungle',
+{64} 'Native American',
+{65} 'Cabaret',
+{66} 'New Wave',
+{67} 'Psychadelic',
+{68} 'Rave',
+{69} 'Showtunes',
+{70} 'Trailer',
+{71} 'Lo-Fi',
+{72} 'Tribal',
+{73} 'Acid Punk',
+{74} 'Acid Jazz',
+{75} 'Polka',
+{76} 'Retro',
+{77} 'Musical',
+{78} 'Rock & Roll',
+{79} 'Hard Rock',
+{80} 'Folk',
+{81} 'Folk-Rock',
+{82} 'National Folk',
+{83} 'Swing',
+{84} 'Fast Fusion',
+{85} 'Bebob',
+{86} 'Latin',
+{87} 'Revival',
+{88} 'Celtic',
+{89} 'Bluegrass',
+{90} 'Avantgarde',
+{91} 'Gothic Rock',
+{92} 'Progressive Rock',
+{93} 'Psychedelic Rock',
+{94} 'Symphonic Rock',
+{95} 'Slow Rock',
+{96} 'Big Band',
+{97} 'Chorus',
+{98} 'Easy Listening',
+{99} 'Acoustic',
+{100} 'Humour',
+{101} 'Speech',
+{102} 'Chanson',
+{103} 'Opera',
+{104} 'Chamber Music',
+{105} 'Sonata',
+{106} 'Symphony',
+{107} 'Booty Brass',
+{108} 'Primus',
+{109} 'Porn Groove',
+{110} 'Satire',
+{111} 'Slow Jam',
+{112} 'Club',
+{113} 'Tango',
+{114} 'Samba',
+{115} 'Folklore',
+{116} 'Ballad',
+{117} 'Poweer Ballad',
+{118} 'Rhytmic Soul',
+{119} 'Freestyle',
+{120} 'Duet',
+{121} 'Punk Rock',
+{122} 'Drum Solo',
+{123} 'A Capela',
+{124} 'Euro-House',
+{125} 'Dance Hall',
+{126} 'Goa',
+{127} 'Drum & Bass',
+{128} 'Club-House',
+{129} 'Hardcore',
+{130} 'Terror',
+{131} 'Indie',
+{132} 'BritPop',
+{133} 'Negerpunk',
+{134} 'Polsk Punk',
+{135} 'Beat',
+{136} 'Christian Gangsta Rap',
+{137} 'Heavy Metal',
+{138} 'Black Metal',
+{139} 'Crossover',
+{140} 'Contemporary Christian',
+{141} 'Christian Rock',
+{142} 'Merengue',
+{143} 'Salsa',
+{144} 'Trash Metal',
+{145} 'Anime',
+{146} 'JPop',
+{147} 'Synthpop');
+
+function GenreName(idx:cardinal):pWideChar;
+begin
+  if idx<MAX_MUSIC_GENRES then
+  begin
+    StrDupW(result,Genres[idx]);
+{
+    mGetMem(result,64*SizeOf(WideChar));
+    LoadStringW(hInstance,idx,result,64);
+}
+//  result:=Genres[idx];
+  end
+  else
+    result:=nil;
+end;
+
+end.