mRadio moved to protocols

in fpc.cfg added pathes for protocols folder

git-svn-id: http://svn.miranda-ng.org/main/trunk@1859 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 433 deletions

diff --git a/plugins/mRadio/i_cc.inc b/plugins/mRadio/i_cc.inc
deleted file mode 100644
index deb993ec0c..0000000000
--- a/plugins/mRadio/i_cc.inc
+++ /dev/null
@@ -1,433 +0,0 @@
-{}

-

-function GetStatusText(status:integer;toCList:boolean=false):PWideChar;

-begin

-  case status of

-    RD_STATUS_PAUSED : result:='paused';

-    RD_STATUS_STOPPED: if toCList then result:=nil else result:='stopped';

-    RD_STATUS_CONNECT: result:='connecting';

-    RD_STATUS_ABORT  : result:='aborting';

-    RD_STATUS_PLAYING: if toCList then result:=nil else result:='playing';

-  else

-    result:=nil;

-  end;

-end;

-

-procedure ConstructMsg(artist,title:PWideChar;status:integer=-1);

-var

-  buf:PWideChar;

-  tstrlen,astrlen,statuslen:integer;

-  sstatus:PWideChar;

-  p:pWideChar;

-begin

-  astrlen:=StrLenW(artist);

-  

-  tstrlen:=0;

-  // if need to remove duplicate

-  if (title<>nil) and (title^<>#0) then

-  begin

-    if (astrlen=0) or (StrCmpW(artist,title)<>0) then

-      tstrlen:=StrLenW(title);

-  end;

-  if (astrlen>0) and (tstrlen>0) then

-    inc(tstrlen,3);

-

-  statuslen:=0;

-  if status>=0 then

-  begin

-    sstatus:=TranslateW(GetStatusText(status,true));

-    if sstatus<>nil then

-      statuslen:=StrLenW(sstatus)+3;

-  end

-  else

-    sstatus:=nil;

-

-  if (astrlen+tstrlen+statuslen)>0 then

-  begin

-    mGetMem(buf,(astrlen+tstrlen+statuslen+1)*SizeOf(WideChar));

-    p:=buf;

-    if astrlen>0 then

-      p:=StrCopyEW(p,artist);

-

-    if tstrlen>0 then

-    begin

-      if astrlen>0 then

-      begin

-        p^:=' '; inc(p);

-        p^:='-'; inc(p);

-        p^:=' '; inc(p);

-      end;

-      p:=StrCopyEW(p,title);

-    end;

-

-    if statuslen>0 then

-    begin

-      p^:=' '; inc(p);

-      p^:='('; inc(p);

-      p:=StrCopyEW(p,sstatus);

-      p^:=')'; inc(p);

-      p^:=#0;

-    end;

-

-    DBWriteUnicode(ActiveContact,strCList,optStatusMsg,buf);

-    mFreeMem(buf);

-  end

-  else

-    DBDeleteSetting(ActiveContact,strCList,optStatusMsg);

-end;

-

-{$IFDEF Debug}

-procedure log(a,b:lparam);

-var

-  f:thandle;

-  buf:array [0..31] of ansichar;

-  p:pansichar;

-begin

-  f:=Append(pansichar('mradio.log'));

-  p:=IntToStr(buf,a); BlockWrite(f,p^,StrLen(p));

-  p:=#13#10; BlockWrite(f,p^,StrLen(p));

-  p:=IntToStr(buf,b); BlockWrite(f,p^,StrLen(p));

-  p:=#13#10; BlockWrite(f,p^,StrLen(p));

-  p:=#13#10; BlockWrite(f,p^,StrLen(p));

-  CloseHandle(f);

-end;

-{$ENDIF}

-

-function ControlCenter(code:WPARAM;arg:LPARAM):int_ptr; cdecl;

-const

-  PlayStatus:int_ptr=RD_STATUS_NOSTATION;

-  doRecord:boolean=false;

-var

-  tmpbuf,buf1:array [0..MAX_PATH-1] of WideChar;

-  plFile:pWideChar;

-  plLocal:boolean;

-  artist,title:pWideChar;

-begin

-  result:=0;

-{$IFDEF Debug}

-  log(code,arg);

-{$ENDIF}

-  case code of

-    MRC_PLAY : begin

-      // play new station?

-      if arg<>0 then

-      begin

-        ActiveURLw:=DBReadUnicode(arg,PluginName,optStationURL);

-        // no URL for this contact

-        if (ActiveURLw=nil) or (ActiveURLw^=#0) then exit;

-

-        ActiveContact:=arg;

-        RemoteSong:=StrPosW(ActiveURLw,'://')<>nil;

-

-        if isPlaylist(ActiveURLw)<>0 then

-        begin

-

-          if RemoteSong then

-          begin

-            GetTempPathW(MAX_PATH,tmpbuf);

-            GetTempFileNameW(tmpbuf,'mr',GetCurrentTime,buf1);

-            if not GetFile(ActiveURLw,buf1,hNetLib) then

-            begin

-              exit;

-            end;

-            plFile:=@buf1;

-            plLocal:=false;

-          end

-          else

-          begin

-            plFile:=ActiveURLw;

-            plLocal:=true;

-          end;

-

-          plist:=CreatePlaylist(plFile);

-          if not plLocal then

-            DeleteFileW(plFile);

-

-          if plist<>nil then

-          begin

-            if plist.GetCount=0 then

-            begin

-              plist.Free;

-              plist:=nil;

-              ActiveContact:=0;

-              exit;

-            end;

-            plist.Shuffle:=doShuffle<>BST_UNCHECKED;

-

-            if not plist.Shuffle then

-            begin

-              if PlayFirst=BST_UNCHECKED then

-                plist.Track:=DBReadWord(ActiveContact,PluginName,optCurElement);

-            end;

-            

-            mFreeMem(ActiveURLw);

-            ActiveURLw:=plist.GetSong;

-          end;

-          RemoteSong:=StrPosW(ActiveURLw,'://')<>nil; // coz activeuRLw can be changed

-        end

-        else

-          plist:=nil;

-

-        if (ActiveURLw<>nil) and (ActiveURLw^<>#0) then

-        begin

-          if RemoteSong then

-          begin

-            if GetWorkOfflineStatus<>0 then

-            begin

-              BassError('Can''t connect to net. Please, clear ''Work offline'' option in Internet settings');

-              ControlCenter(MRC_STATUS,RD_STATUS_NOSTATION);

-              exit;

-            end;

-          end;

-          ControlCenter(MRC_STATUS,RD_STATUS_NEWSTATION);

-          if Assigned(plist) then

-            ControlCenter(MRC_STATUS,RD_STATUS_CONNECT);

-          CloseHandle(mir_forkthread(@OpenURL,ActiveURLw));

-        end;

-      end

-      // play current from start

-      else if chan<>0 then

-      begin

-        BASS_ChannelPlay(chan,true);

-        code:=MRC_STATUS;

-        arg :=RD_STATUS_PLAYING;

-      end

-      // play playlist entry?

-      else if Assigned(plist) and (ActiveURLw<>nil) and (ActiveURLw^<>#0) then

-      begin

-        CloseHandle(mir_forkthread(@OpenURL,ActiveURLw));

-      end;

-    end;

-

-    MRC_RECORD: begin

-      if arg=LPARAM(-1) then

-        result:=ord(doRecord)

-      else

-      begin

-        case arg of

-          1: doRecord:=true;  // force start

-          2: doRecord:=false; // force stop

-        else

-          doRecord:=not doRecord;

-        end;

-        result:=ord(doRecord);

-

-        code:=MRC_STATUS;

-        arg :=RD_STATUS_RECORD+(result shl 16);

-      end;

-    end;

-

-    MRC_PAUSE: begin

-      if chan<>0 then

-      begin

-        case ControlCenter(MRC_STATUS,RD_STATUS_GET) of

-          RD_STATUS_PLAYING: begin

-            BASS_ChannelPause(chan);

-            arg:=1;

-          end;

-          RD_STATUS_PAUSED: begin

-            BASS_ChannelPlay(chan,false);

-            arg:=0;

-          end;

-        end;

-        code:=MRC_STATUS;

-        arg :=RD_STATUS_PAUSED+(arg shl 16);

-      end

-      else

-      begin

-        ActiveContact:=LoadContact(PluginName,optLastStn);

-        if ActiveContact<>0 then

-          ControlCenter(MRC_PLAY,ActiveContact);

-      end;

-    end;

-

-    MRC_STOP: begin

-      ControlCenter(MRC_RECORD,2);

-

-      code:=MRC_STATUS;

-      // stop playlist track but not station

-      if Assigned(plist) and (arg=0) then

-      begin

-        if chan<>0 then

-          BASS_ChannelStop(chan);

-

-        arg:=RD_STATUS_STOPPED;

-      end

-      else // forced or "normal" stop

-      begin

-        if Assigned(plist) then

-        begin

-          DBWriteWord(ActiveContact,PluginName,optCurElement,plist.Track);

-          plist.Free;

-          plist:=nil;

-        end;

-        ControlCenter(MRC_STATUS,RD_STATUS_STOPPED);

-        // Save station for next autoplay

-        SaveContact(ActiveContact,PluginName,optLastStn);

-        StopStation;

-

-        arg:=RD_STATUS_NOSTATION;

-      end;

-    end;

-

-    MRC_MUTE: begin

-      CallService(MS_RADIO_MUTE,0,arg);

-      code:=MRC_STATUS;

-      arg :=RD_STATUS_MUTED;

-    end;

-

-    MRC_NEXT: begin

-      if Assigned(plist) then

-      begin

-        StopStation;

-        ActiveURLw:=plist.Next;

-        ControlCenter(MRC_PLAY,0);

-      end;

-    end;

-

-    MRC_PREV: begin

-      if Assigned(plist) then

-      begin

-        StopStation;

-        ActiveURLw:=plist.Previous;

-        ControlCenter(MRC_PLAY,0)

-      end;

-    end;

-

-    MRC_SEEK: begin

-      if not RemoteSong and (chan<>0) then

-      begin

-        if integer(arg)=-1 then // get position

-        begin

-          result:=trunc(BASS_ChannelBytes2Seconds(chan,BASS_ChannelGetPosition(chan,BASS_POS_BYTE)));

-          if result<0 then

-            result:=0;

-        end

-        else

-        begin

-          BASS_ChannelSetPosition(chan,BASS_ChannelSeconds2Bytes(chan,arg),BASS_POS_BYTE);

-

-          code:=MRC_STATUS;

-          arg :=RD_STATUS_POSITION+(arg shl 16);

-        end;

-      end;

-    end;

-  end;

-

-  if code=MRC_STATUS then

-  begin

-    if arg=RD_STATUS_GET then

-      result:=PlayStatus

-    else

-    begin

-

-      code:=(arg and $FFFF);

-      arg :=hiword(arg);

-      // this is just events

-      case code of

-        RD_STATUS_MUTED: begin

-        end;

-

-        RD_STATUS_RECORD: begin

-        end;

-

-        RD_STATUS_POSITION: begin

-        end;

-

-      else

-        // these statuses are for events and some tasks

-        artist:=nil;

-        title :=nil;

-        case code of

-          RD_STATUS_NOSTATION: begin

-            SetStatus(ActiveContact,ID_STATUS_OFFLINE);

-            ActiveContact:=0;

-

-            DBDeleteSetting(0,PluginName,optActiveURL);

-

-            PlayStatus:=RD_STATUS_NOSTATION;

-            // empty message

-          end;

-

-          RD_STATUS_STOPPED: begin

-            if ActiveContact<>0 then //!! fools proof

-              DBDeleteSetting(ActiveContact,strCList,optStatusMsg);

-

-            DBDeleteSetting(0,PluginName,optTitle);

-            DBDeleteSetting(0,PluginName,optArtist);

-

-            PlayStatus:=RD_STATUS_STOPPED;

-            // empty message

-          end;

-

-          RD_STATUS_ABORT: begin

-            PlayStatus:=RD_STATUS_ABORT;

-            // status as message

-          end;

-

-          RD_STATUS_CONNECT: begin

-            SetStatus(ActiveContact,ID_STATUS_AWAY);

-            PlayStatus:=RD_STATUS_CONNECT;

-            // status as message

-          end;

-

-          RD_STATUS_NEWSTATION: begin

-            arg:=ActiveContact;

-            PlayStatus:=RD_STATUS_PLAYING;

-          end;

-

-          RD_STATUS_NEWTRACK: begin

-            SetStatus(ActiveContact,ID_STATUS_ONLINE);

-            DBWriteUnicode(0,PluginName,optActiveURL,ActiveURLw);

-

-            DBWriteString(0,PluginName,optActiveCodec,GetMusicFormat);

-            arg :=lparam(ActiveURLw);

-

-            // for case when tags was in meta

-            artist:=DBReadUnicode(0,PluginName,optArtist);

-            title :=DBReadUnicode(0,PluginName,optTitle);

-            PlayStatus:=RD_STATUS_PLAYING;

-            // status as message

-          end;

-

-          RD_STATUS_NEWTAG: begin

-          // must be updated tags

-            artist:=DBReadUnicode(0,PluginName,optArtist);

-            title :=DBReadUnicode(0,PluginName,optTitle);

-

-            PlayStatus:=RD_STATUS_PLAYING; // maybe keep RD_STATUS_NEWTAG?

-          end;

-

-          RD_STATUS_PLAYING: begin

-            SetStatus(ActiveContact,ID_STATUS_ONLINE);

-            PlayStatus:=RD_STATUS_PLAYING;

-            // status as message

-          end;

-

-          RD_STATUS_PAUSED: begin

-            if arg=0 then

-            begin

-              PlayStatus:=RD_STATUS_PLAYING;

-              if StrPosW(ActiveURLw,'://')=nil then //local only

-              begin

-                artist:=DBReadUnicode(0,PluginName,optArtist);

-                title :=DBReadUnicode(0,PluginName,optTitle);

-              end;

-            end

-            else

-              PlayStatus:=RD_STATUS_PAUSED;

-            // status as message

-          end;

-        else

-          exit;

-        end;

-        ConstructMsg(artist,title,PlayStatus);

-        mFreeMem(artist);

-        mFreeMem(title);

-      end;

-      

-      NotifyEventHooks(hhRadioStatus,code,arg);

-    end;

-

-  end;

-end;