1 files changed, 82 insertions, 0 deletions
diff --git a/protocols/mRadio/i_variables.inc b/protocols/mRadio/i_variables.inc
new file mode 100644
index 0000000000..fead4afad8
--- /dev/null
+++ b/protocols/mRadio/i_variables.inc
@@ -0,0 +1,82 @@
+{Variables support}
+const
+  numvars = 8;
+type
+  tvar = packed record
+    name :PWideChar;
+    help :PAnsiChar;
+  end;
+const
+  vars:array [0..numvars-1] of tvar = (
+   (name:'radio_name'   ;help:'Station Name'),
+   (name:'radio_url'    ;help:'Station/playlist URL'),
+   (name:'radio_active' ;help:'Currently played URL'),
+   (name:'radio_genre'  ;help:'Genre'),
+   (name:'radio_bitrate';help:'Bitrate'),
+   (name:'radio_title'  ;help:'Current stream title'),
+   (name:'radio_codec'  ;help:'Currently used decoder'),
+   (name:'radio_status' ;help:'Current status'));
+// contact,protocol,host,port,file/path
+
+function GetField(ai:PARGUMENTSINFO):pWideChar; cdecl;
+var
+  i:integer;
+  res:PWideChar;
+begin
+  res:=nil;
+  if ActiveContact<>0 then
+  begin
+    i:=0;
+    repeat
+      if lstrcmpiw(PWideChar(ai^.argv^),vars[i].name)=0 then
+        break;
+      inc(i);
+    until i=numvars;
+    case i of
+      0: res:=DBReadUnicode(ActiveContact,strCList  ,optMyHandle);
+      1: res:=DBReadUnicode(ActiveContact,PluginName,optStationURL);
+      2: StrDupW(res,ActiveURLw);
+      3: res:=DBReadUnicode(ActiveContact,PluginName,optGenre);
+      4: res:=DBReadUnicode(ActiveContact,PluginName,optBitrate);
+      5: res:=MakeMessage;
+      6: res:=DBReadUnicode(0,PluginName,optActiveCodec);
+      7: StrDupW(res,TranslateW(GetStatusText(CallService(MS_RADIO_COMMAND,MRC_STATUS,RD_STATUS_GET))));
+    end;
+  end;
+  if res=nil then
+  begin
+    mGetMem(res,2);
+    res^:=#0;
+  end;
+  result:=res;
+end;
+
+function FreeField(szReturn:PWideChar):int; cdecl;
+begin
+  mFreeMem(szReturn);
+  result:=1;
+end;
+
+procedure RegisterVariables;
+const
+  Prefix:PAnsiChar = 'Radio'#9;
+var
+  rt:TTOKENREGISTER;
+  i:integer;
+  s:array [0..127] of AnsiChar;
+  p:pAnsiChar;
+begin
+  rt.cbSize          :=SizeOf(rt);
+  rt.memType         :=TR_MEM_OWNER;
+  rt.szService       :=@GetField;
+  rt.szCleanupService:=@FreeField;
+  rt.flags:=TRF_FIELD or TRF_CLEANUP or TRF_PARSEFUNC or TRF_CLEANUPFUNC or TRF_UNICODE;
+  p:=StrCopyE(s,Prefix);
+  rt.szHelpText:=@s;
+  for i:=0 to numvars-1 do
+  begin
+    rt.szTokenString.w:=vars[i].name;
+    StrCopy(p,vars[i].help);
+    CallService(MS_VARS_REGISTERTOKEN,0,lparam(@rt));
+  end;
+end;