Adjust documentation and parameters name of Open_Pipe

Change-Id: Ifca6a3a96bc003d08c8ed5c0aceb074ed6081c1b

Author: Nikokrock

src/os/gnatcoll-os-fs-open_pipe__linux.adb

@@ -25,8 +25,8 @@ with GNATCOLL.OS.Libc;
 
 separate (GNATCOLL.OS.FS)
 procedure Open_Pipe
-  (Pipe_Input  : out File_Descriptor;
-   Pipe_Output : out File_Descriptor)
+  (Pipe_Read  : out File_Descriptor;
+   Pipe_Write : out File_Descriptor)
 is
    package Libc renames GNATCOLL.OS.Libc;
 
@@ -42,7 +42,7 @@ begin
       raise OS_Error with "cannot open pipe";
    end if;
 
-   Pipe_Input := Result.Input;
-   Pipe_Output := Result.Output;
+   Pipe_Read := Result.Input;
+   Pipe_Write := Result.Output;
 
 end Open_Pipe;

src/os/gnatcoll-os-fs-open_pipe__unix.adb

@@ -26,8 +26,8 @@ with GNAT.Task_Lock;
 
 separate (GNATCOLL.OS.FS)
 procedure Open_Pipe
-  (Pipe_Input  : out File_Descriptor;
-   Pipe_Output : out File_Descriptor)
+  (Pipe_Read  : out File_Descriptor;
+   Pipe_Write : out File_Descriptor)
 is
    package Libc renames GNATCOLL.OS.Libc;
 
@@ -46,12 +46,12 @@ begin
       raise OS_Error with "cannot open pipe";
    end if;
 
-   Pipe_Input := Result.Input;
-   Pipe_Output := Result.Output;
+   Pipe_Read := Result.Input;
+   Pipe_Write := Result.Output;
 
    begin
-      Set_Close_On_Exec (Pipe_Input, True);
-      Set_Close_On_Exec (Pipe_Output, True);
+      Set_Close_On_Exec (Pipe_Read, True);
+      Set_Close_On_Exec (Pipe_Write, True);
    exception
       when OS_Error =>
          GNAT.Task_Lock.Unlock;

src/os/gnatcoll-os-fs-open_pipe__win32.adb

@@ -26,8 +26,8 @@ with GNATCOLL.OS.Win32.Files;
 
 separate (GNATCOLL.OS.FS)
 procedure Open_Pipe
-  (Pipe_Input  : out File_Descriptor;
-   Pipe_Output : out File_Descriptor)
+  (Pipe_Read  : out File_Descriptor;
+   Pipe_Write : out File_Descriptor)
 is
    package Win32 renames GNATCOLL.OS.Win32;
 
@@ -46,7 +46,7 @@ begin
       raise OS_Error with "cannot open pipe";
    end if;
 
-   Pipe_Input := Win32.Files.OpenOSFHandle (Read_Pipe);
-   Pipe_Output := Win32.Files.OpenOSFHandle (Write_Pipe);
+   Pipe_Read := Win32.Files.OpenOSFHandle (Read_Pipe);
+   Pipe_Write := Win32.Files.OpenOSFHandle (Write_Pipe);
 
 end Open_Pipe;

src/os/gnatcoll-os-fs.adb

@@ -61,8 +61,8 @@ package body GNATCOLL.OS.FS is
    ---------------
 
    procedure Open_Pipe
-      (Pipe_Input  : out File_Descriptor;
-       Pipe_Output : out File_Descriptor) is separate;
+      (Pipe_Read  : out File_Descriptor;
+       Pipe_Write : out File_Descriptor) is separate;
 
    ----------
    -- Read --

src/os/gnatcoll-os-fs.ads

@@ -64,10 +64,10 @@ package GNATCOLL.OS.FS is
    --  inherited by a child process)
 
    procedure Open_Pipe
-      (Pipe_Input  : out File_Descriptor;
-       Pipe_Output : out File_Descriptor);
-   --  Open a pipe. Data can be written on Pipe_Input and then read on
-   --  Pipe_Output. OS_Error can be raised in case of error. Note that the pipe
+      (Pipe_Read  : out File_Descriptor;
+       Pipe_Write : out File_Descriptor);
+   --  Open a pipe. Data can be written on Pipe_Write and then read on
+   --  Pipe_Read. OS_Error can be raised in case of error. Note that the pipe
    --  is opened with "close on exec" mode.
 
    procedure Set_Close_On_Exec