unit log;
{$ifdef fpc}
 {$mode delphi}
{$endif}

interface

const libname='liblog.so';

      ANDROID_LOG_UNKNOWN=0;
      ANDROID_LOG_DEFAULT=1;
      ANDROID_LOG_VERBOSE=2;
      ANDROID_LOG_DEBUG=3;
      ANDROID_LOG_INFO=4;
      ANDROID_LOG_WARN=5;
      ANDROID_LOG_ERROR=6;
      ANDROID_LOG_FATAL=7;
      ANDROID_LOG_SILENT=8;

type android_LogPriority=integer;

function __android_log_write(prio:longint;tag,text:pchar):longint; cdecl; external libname name '__android_log_write';
function LOGI(prio:longint;tag,text:pchar):longint; cdecl; varargs; external libname name '__android_log_print';

procedure LOGW(Text: pchar);
//function __android_log_print(prio:longint;tag,print:pchar;params:array of pchar):longint; cdecl; external libname name '__android_log_print';
  
implementation

procedure LOGW(Text: pchar);
begin
   __android_log_write(ANDROID_LOG_FATAL,'crap',text);
end;

end.