UPD: Use DebugLn instead WriteLn (issue #361)

src/platform/unix/linux/uudev.pas

@@ -172,7 +172,7 @@ const
 
 procedure Print(const sMessage: String);
 begin
-  WriteLn('UDev: ', sMessage);
+  DCDebug('UDev: ', sMessage);
 end;
 
 procedure Load;

src/platform/unix/linux/uudisks2.pas

@@ -42,7 +42,7 @@ var
 implementation
 
 uses
-  DynLibs, DCOSUtils, uGio2, uGObject2, uGlib2;
+  DynLibs, LazLogger, DCOSUtils, uGio2, uGObject2, uGlib2;
 
 type
   PUDisksBlock = Pointer;
@@ -67,7 +67,7 @@ var
 
 procedure Print(const sMessage: String);
 begin
-  WriteLn('UDisks2: ', sMessage);
+  DebugLn('UDisks2: ', sMessage);
 end;
 
 procedure PrintError(var AError: PGError);

src/platform/unix/mime/umimeactions.pas

@@ -550,7 +550,7 @@ begin
     on E: Exception do
     begin
       Result:= nil;
-      WriteLn('GetDesktopEntry: ', E.Message);
+      DCDebug('GetDesktopEntry: ', E.Message);
     end;
   end;
 end;

src/platform/unix/ugio.pas

@@ -46,7 +46,7 @@ var
 implementation
 
 uses
-  StrUtils, DCStrUtils, DCClassesUtf8, uGlib2, uGObject2;
+  StrUtils, LazLogger, DCStrUtils, DCClassesUtf8, uGlib2, uGObject2;
 
 function GioOpen(const Uri: String): Boolean;
 var
@@ -267,7 +267,7 @@ begin
     on E: Exception do
     begin
       HasGio:= False;
-      WriteLn(E.Message);
+      DebugLn(E.Message);
     end;
   end;
 end;

src/platform/unix/ugvolume.pas

@@ -46,7 +46,7 @@ function EnumerateVolumes(DrivesList: TDrivesList): Boolean;
 implementation
 
 uses
-  typinfo, fgl, uGLib2, uGio2, uGObject2, uShowMsg;
+  typinfo, fgl, LazLogger, uGLib2, uGio2, uGObject2, uShowMsg;
 
 type
   TGVolumeObserverList = specialize TFPGList<TGVolumeNotify>;
@@ -57,7 +57,7 @@ var
 
 procedure Print(const Message: String);
 begin
-  WriteLn('GVolumeMonitor: ', Message);
+  DebugLn('GVolumeMonitor: ', Message);
 end;
 
 function ReadString(Volume: PGVolume; const Kind: Pgchar): String;

src/platform/unix/ukde.pas

@@ -36,7 +36,7 @@ var
 implementation
 
 uses
-  uDCUtils, uGlobs, uOSUtils, uTrash;
+  LazLogger, uDCUtils, uGlobs, uOSUtils, uTrash;
 
 var
   KdeVersion: String;
@@ -55,7 +55,7 @@ begin
     on E: Exception do
     begin
       Result:= False;
-      WriteLn('FileTrash: ', E.Message);
+      DebugLn('FileTrash: ', E.Message);
     end;
   end;
 end;

src/platform/unix/umyunix.pas

@@ -166,7 +166,7 @@ implementation
 
 uses
   URIParser, Unix, Process, LazUTF8, DCOSUtils, DCClassesUtf8, DCStrUtils,
-  DCUnix, uDCUtils, uOSUtils
+  LazLogger, DCUnix, uDCUtils, uOSUtils
 {$IF (NOT DEFINED(FPC_USE_LIBC)) or (DEFINED(BSD) AND NOT DEFINED(DARWIN))}
   , SysCall
 {$ENDIF}
@@ -470,7 +470,7 @@ begin
       if Result then
       begin
         Drive^.Path:= MountPath;
-        WriteLn(Drive^.DeviceId, ' -> ', MountPath);
+        DebugLn(Drive^.DeviceId, ' -> ', MountPath);
       end
     end;
     if not Result and HavePMount and Drive^.IsMediaRemovable then
@@ -584,14 +584,14 @@ begin
 
       { The child does the actual exec, and then exits }
       if FpExecLP(Command, Args) = -1 then
-        Writeln(Format('Execute error %d: %s', [fpgeterrno, SysErrorMessage(fpgeterrno)]));
+        DebugLn('Execute error %d: %s', [fpgeterrno, SysErrorMessage(fpgeterrno)]);
 
       { If the FpExecLP fails, we return an exitvalue of 127, to let it be known }
       fpExit(127);
     end
   else if pid = -1 then         { Fork failed }
     begin
-      WriteLn('Fork failed: ' + Command, LineEnding, SysErrorMessage(fpgeterrno));
+      DebugLn('Fork failed: ' + Command, LineEnding, SysErrorMessage(fpgeterrno));
     end
   else if pid > 0 then          { Parent }
     begin

src/platform/unix/urabbitvcs.pas

@@ -70,7 +70,7 @@ var
 implementation
 
 uses
-  BaseUnix, Unix, DBus,
+  BaseUnix, Unix, DBus, LazLogger,
   DCUnix, DCClassesUtf8, uGlobs, uGlobsPaths, uMyUnix, uPython
 {$IF DEFINED(RabbitVCS)}
   , fpjson, jsonparser, jsonscanner
@@ -95,7 +95,7 @@ procedure Initialize(Self: TObject); forward;
 
 procedure Print(const sMessage: String);
 begin
-  WriteLn('RabbitVCS: ', sMessage);
+  DebugLn('RabbitVCS: ', sMessage);
 end;
 
 function CheckError(const sMessage: String; pError: PDBusError): Boolean;

src/platform/unix/uxdg.pas

@@ -69,7 +69,7 @@ function GetDesktopPath(const DesktopName: String): String;
 implementation
 
 uses
-  BaseUnix, DCStrUtils, DCOSUtils, uSysFolders;
+  BaseUnix, LazLogger, DCStrUtils, DCOSUtils, uSysFolders;
 
 function GetUserCacheDir: String;
 begin
@@ -122,7 +122,7 @@ begin
         if not mbDirectoryExists(Result) then
         begin
           Result:= GetUserCacheDir;
-          WriteLn('WARNING: XDG_RUNTIME_DIR not set, defaulting to ', Result);
+          DebugLn('WARNING: XDG_RUNTIME_DIR not set, defaulting to ', Result);
         end;
       end;
     end;

src/platform/uosforms.pas

@@ -1060,7 +1060,7 @@ end;
 {$IF DEFINED(UNIX)}
 procedure handle_sigterm(signal: longint); cdecl;
 begin
-  WriteLn('SIGTERM');
+  DCDebug('SIGTERM');
   frmMain.Close;
 end;