package-zearch-temp/UOS/examples/consoleplay.pas

program consoleplay;


///WARNING : if FPC version < 2.7.1 => Do not forget to uncoment {$DEFINE consoleapp} in uos_define.inc !

{$mode objfpc}{$H+}
 {$DEFINE UseCThreads}

uses 
 {$IFDEF UNIX}
cthreads, 
cwstring,   {$ENDIF}
Classes, 
SysUtils, 
CustApp, 
uos_flat;

type 

  { TUOSConsole }

  TuosConsole = class(TCustomApplication)
    private 
      procedure ConsolePlay;
    protected 
      procedure doRun;
      override;
    public 

      constructor Create(TheOwner: TComponent);
      override;
  end;

var 
  res: integer;
  ordir, opath, SoundFilename, PA_FileName, PC_FileName, SF_FileName, MP_FileName: string;
  PlayerIndex1, InputIndex1, OutputIndex1: integer;

  { TuosConsole }

procedure TuosConsole.ConsolePlay;
begin
  ordir := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));

 {$IFDEF Windows}
     {$if defined(cpu64)}
  PA_FileName := ordir + 'lib\Windows\64bit\LibPortaudio-64.dll';
  SF_FileName := ordir + 'lib\Windows\64bit\LibSndFile-64.dll';
     {$else}
  PA_FileName := ordir + 'lib\Windows\32bit\LibPortaudio-32.dll';
  SF_FileName := ordir + 'lib\Windows\32bit\LibSndFile-32.dll';
     {$endif}
  SoundFilename := ordir + 'sound\test.ogg';
 {$ENDIF}

 {$if defined(CPUAMD64) and defined(linux) }
  SF_FileName := ordir + 'lib/Linux/64bit/LibSndFile-64.so';
  PA_FileName := ordir + 'lib/Linux/64bit/LibPortaudio-64.so';
  // MP_FileName := ordir + 'lib/Linux/64bit/LibMpg123-64.so';
  SoundFilename := ordir + 'sound/test.ogg';
 {$ENDIF}

 {$if defined(CPUAMD64) and defined(openbsd) }
  SF_FileName := ordir + 'lib/OpenBSD/64bit/LibSndFile-64.so';
  PA_FileName := ordir + 'lib/OpenBSD/64bit/LibPortaudio-64.so';
  // MP_FileName := ordir + 'lib/OpenBSD/64bit/LibMpg123-64.so';
  SoundFilename := ordir + 'sound/test.ogg';
 {$ENDIF}

 {$if defined(cpu86) and defined(linux)}
  PA_FileName := ordir + 'lib/Linux/32bit/LibPortaudio-32.so';
  SF_FileName := ordir + 'lib/Linux/32bit/LibSndFile-32.so';
  SoundFilename := ordir + 'sound/test.ogg';
 {$ENDIF}

 {$if defined(linux) and defined(cpuaarch64)}
  PA_FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libportaudio_aarch64.so';
  SF_FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libsndfile_aarch64.so';
  SoundFilename := ordir + 'sound/test.ogg';
 {$ENDIF}

 {$if defined(linux) and defined(cpuarm)}
  PA_FileName := ordir + 'lib/Linux/arm_raspberrypi/libportaudio-arm.so';
  SF_FileName := ordir + 'lib/Linux/arm_raspberrypi/libsndfile-arm.so';
  SoundFilename := ordir + 'sound/test.ogg';
  {$ENDIF}

 {$IFDEF freebsd}
    {$if defined(cpu64)}
  PA_FileName := ordir + 'lib/FreeBSD/64bit/libportaudio-64.so';
  SF_FileName := ordir + 'lib/FreeBSD/64bit/libsndfile-64.so';
    {$else}
  PA_FileName := ordir + 'lib/FreeBSD/32bit/libportaudio-32.so';
  SF_FileName := ordir + 'lib/FreeBSD/32bit/libsndfile-32.so';
    {$endif}
  SoundFilename := ordir + 'sound/test.ogg';
 {$ENDIF}

 {$IFDEF Darwin}
  {$IFDEF CPU32}
  opath := ordir;
  opath := copy(opath, 1, Pos('/UOS', opath) - 1);
  PA_FileName := opath + '/lib/Mac/32bit/LibPortaudio-32.dylib';
  SF_FileName := opath + '/lib/Mac/32bit/LibSndFile-32.dylib';
  SoundFilename := ordir + '/sound/test.ogg';
    {$ENDIF}

  {$IFDEF CPU64}
  opath := ordir;
  opath := copy(opath, 1, Pos('/UOS', opath) - 1);
  PA_FileName := opath + '/lib/Mac/64bit/LibPortaudio-64.dylib';
  SF_FileName := opath + '/lib/Mac/64bit/LibSndFile-64.dylib';
  SoundFilename := ordir + '/sound/test.ogg';
    {$ENDIF}
 {$ENDIF}
 
 {$if defined(CPUAMD64) and defined(linux) }
     // For Linux amd64, check libsndfile.so
  if (SF_FileName <> 'system') and  (SF_FileName <> '') then
  if uos_TestLoadLibrary(PChar(SF_FileName)) = false then
   SF_FileName := SF_FileName + '.2';
{$endif}

  // Load the libraries

   // function uos_loadlib(PortAudioFileName, SndFileFileName, Mpg123FileName, Mp4ffFileName, FaadFileName,  opusfilefilename, libxmpfilename: PChar) : LongInt;

  res := uos_LoadLib(PChar(PA_FileName), PChar(SF_FileName), Nil, Nil, Nil, Nil, nil);
  writeln;

  if res = 0 then
    writeln('Libraries are loaded.')
  else
    writeln('Libraries did not load.');

  if res = 0 then
    begin
      writeln();

     // writeln('Libraries version: '+ uos_GetInfoLibraries());

      //// Create the player.
      //// PlayerIndex : from 0 to what your computer can do !
      //// If PlayerIndex exists already, it will be overwriten...

      PlayerIndex1 := 0;

      if uos_CreatePlayer(PlayerIndex1) then
        begin

          //// add a Input from audio-file with default parameters
          //////////// PlayerIndex : Index of a existing Player
          ////////// FileName : filename of audio file
          //  result : -1 nothing created, otherwise Input Index in array

          InputIndex1 := uos_AddFromFile(PlayerIndex1, PChar((SoundFilename)), -1, -1, -1);
    
          writeln('InputIndex1 = ' + IntToStr(InputIndex1));

          if InputIndex1 > -1 then
            begin
              //// add a Output into device with default parameters
              //////////// PlayerIndex : Index of a existing Player
              //  result : -1 nothing created, otherwise Output Index in array

       {$if defined(cpuarm) or defined(cpuaarch64)}
              // need a lower latency
              OutputIndex1 := uos_AddIntoDevOut(PlayerIndex1, -1, 0.3, -1, -1, -1, -1, -1) ;
       {$else}
              //OutputIndex1 := uos_AddIntoDevOut(PlayerIndex1);
              OutputIndex1 := uos_AddIntoDevOut(PlayerIndex1, -1, -1, -1, -1, -1, -1, -1);
       {$endif}
              writeln('OutputIndex1 = ' + IntToStr(OutputIndex1));

              //   uos_AddIntoFile(PlayerIndex1,pchar('/home/fred/mytest.ogg'), -1, -1, -1, -1, 3);

              if OutputIndex1 > -1 then
                begin

                  /////// everything is ready, here we are, lets play it...

                  uos_Play(PlayerIndex1);

                  sleep(1000);
                  writeln;
                  writeln('Title: ' + uos_InputGetTagTitle(PlayerIndex1, InputIndex1));
                  sleep(1500);
                  writeln();
                  writeln('Artist: ' + uos_InputGetTagArtist(PlayerIndex1, InputIndex1));
                  writeln;
                  sleep(2000);

                end;
            end;
        end;
    end;

end;

procedure TuosConsole.doRun;
begin
  ConsolePlay;
  //   writeln('Press a key to exit...');
  //   readln;
  writeln('Ciao...');
  uos_free();
  // Do not forget this !
  Terminate;
end;

constructor TuosConsole.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException := True;
end;

var 
  Application: TUOSConsole;
begin
  Application       := TUOSConsole.Create(Nil);
  Application.Title := 'Console Player';
  Application.Run;
  Application.Free;
end.