Skip to content

spawn-processes: fix typo s/interal/internal/ #34

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

spawn-processes: fix typo s/interal/internal/ #34

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
fde86da
spawn-processes: fix typo s/interal/internal/
coopht Mar 18, 2024
5f4f76f
build: fix tests compilation
coopht Mar 27, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Makefile
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,7 +19,7 @@ endif

all:
gprbuild $(GPRBUILD_FLAGS) -P gnat/spawn.gpr
gprbuild $(GPRBUILD_FLAGS) -P gnat/tests/spawn_tests.gpr -XSPAWN_LIBRARY_TYPE=static
gprbuild $(GPRBUILD_FLAGS) -aP gnat -P gnat/tests/spawn_tests.gpr -XSPAWN_LIBRARY_TYPE=static

check:
export LD_LIBRARY_PATH=.libs/spawn/relocatable; \
Expand Down
34 changes: 17 additions & 17 deletions source/spawn/spawn-processes.adb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ package body Spawn.Processes is

procedure Close_Standard_Error (Self : in out Process'Class) is
begin
Self.Interal.Close_Standard_Error;
Self.Internal.Close_Standard_Error;
end Close_Standard_Error;

--------------------------
Expand All @@ -23,7 +23,7 @@ package body Spawn.Processes is

procedure Close_Standard_Input (Self : in out Process'Class) is
begin
Self.Interal.Close_Standard_Input;
Self.Internal.Close_Standard_Input;
end Close_Standard_Input;

---------------------------
Expand All @@ -32,7 +32,7 @@ package body Spawn.Processes is

procedure Close_Standard_Output (Self : in out Process'Class) is
begin
Self.Interal.Close_Standard_Output;
Self.Internal.Close_Standard_Output;
end Close_Standard_Output;

------------------
Expand All @@ -42,7 +42,7 @@ package body Spawn.Processes is
procedure Kill_Process (Self : in out Process'Class) is
begin
if Self.Status = Running then
Self.Interal.Kill_Process;
Self.Internal.Kill_Process;
end if;
end Kill_Process;

Expand All @@ -62,7 +62,7 @@ package body Spawn.Processes is
return;
end if;

Self.Interal.Read_Standard_Error (Data, Last, Success);
Self.Internal.Read_Standard_Error (Data, Last, Success);
end Read_Standard_Error;

--------------------------
Expand All @@ -81,7 +81,7 @@ package body Spawn.Processes is
return;
end if;

Self.Interal.Read_Standard_Output (Data, Last, Success);
Self.Internal.Read_Standard_Output (Data, Last, Success);
end Read_Standard_Output;

-------------------
Expand All @@ -92,7 +92,7 @@ package body Spawn.Processes is
(Self : in out Process'Class;
Arguments : Spawn.String_Vectors.UTF_8_String_Vector) is
begin
Self.Interal.Set_Arguments (Arguments);
Self.Internal.Set_Arguments (Arguments);
end Set_Arguments;

---------------------
Expand All @@ -103,7 +103,7 @@ package body Spawn.Processes is
(Self : in out Process'Class;
Environment : Spawn.Environments.Process_Environment) is
begin
Self.Interal.Set_Environment (Environment);
Self.Internal.Set_Environment (Environment);
end Set_Environment;

------------------
Expand All @@ -114,7 +114,7 @@ package body Spawn.Processes is
(Self : in out Process'Class;
Listener : Spawn.Process_Listeners.Process_Listener_Access) is
begin
Self.Interal.Set_Listener (Listener);
Self.Internal.Set_Listener (Listener);
end Set_Listener;

-----------------
Expand All @@ -125,7 +125,7 @@ package body Spawn.Processes is
(Self : in out Process'Class;
Program : UTF_8_String) is
begin
Self.Interal.Set_Program (Program);
Self.Internal.Set_Program (Program);
end Set_Program;

----------------------------
Expand All @@ -134,7 +134,7 @@ package body Spawn.Processes is

procedure Set_Standard_Error_PTY (Self : in out Process'Class) is
begin
Self.Interal.Set_Standard_Error_PTY;
Self.Internal.Set_Standard_Error_PTY;
end Set_Standard_Error_PTY;

----------------------------
Expand All @@ -143,7 +143,7 @@ package body Spawn.Processes is

procedure Set_Standard_Input_PTY (Self : in out Process'Class) is
begin
Self.Interal.Set_Standard_Input_PTY;
Self.Internal.Set_Standard_Input_PTY;
end Set_Standard_Input_PTY;

-----------------------------
Expand All @@ -152,7 +152,7 @@ package body Spawn.Processes is

procedure Set_Standard_Output_PTY (Self : in out Process'Class) is
begin
Self.Interal.Set_Standard_Output_PTY;
Self.Internal.Set_Standard_Output_PTY;
end Set_Standard_Output_PTY;

---------------------------
Expand All @@ -162,7 +162,7 @@ package body Spawn.Processes is
procedure Set_Working_Directory
(Self : in out Process'Class; Directory : UTF_8_String) is
begin
Self.Interal.Set_Working_Directory (Directory);
Self.Internal.Set_Working_Directory (Directory);
end Set_Working_Directory;

-----------
Expand All @@ -171,7 +171,7 @@ package body Spawn.Processes is

procedure Start (Self : in out Process'Class) is
begin
Self.Interal.Start;
Self.Internal.Start;
end Start;

-----------------------
Expand All @@ -180,7 +180,7 @@ package body Spawn.Processes is

procedure Terminate_Process (Self : in out Process'Class) is
begin
Self.Interal.Terminate_Process;
Self.Internal.Terminate_Process;
end Terminate_Process;

--------------------------
Expand All @@ -199,7 +199,7 @@ package body Spawn.Processes is
return;
end if;

Self.Interal.Write_Standard_Input (Data, Last, Success);
Self.Internal.Write_Standard_Input (Data, Last, Success);
end Write_Standard_Input;

end Spawn.Processes;
20 changes: 10 additions & 10 deletions source/spawn/spawn-processes.ads
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -204,38 +204,38 @@ package Spawn.Processes is
private

type Process is tagged limited record
Interal : Spawn.Internal.Process;
Internal : Spawn.Internal.Process;
end record;

function Arguments (Self : Process'Class)
return Spawn.String_Vectors.UTF_8_String_Vector is
(Self.Interal.Arguments);
(Self.Internal.Arguments);

function Environment (Self : Process'Class)
return Spawn.Environments.Process_Environment is
(Self.Interal.Environment);
(Self.Internal.Environment);

function Working_Directory (Self : Process'Class) return UTF_8_String is
(Self.Interal.Working_Directory);
(Self.Internal.Working_Directory);

function Program (Self : Process'Class) return UTF_8_String is
(Self.Interal.Program);
(Self.Internal.Program);

function Status (Self : Process'Class) return Process_Status is
(Self.Interal.Status);
(Self.Internal.Status);

function Exit_Status (Self : Process'Class) return Process_Exit_Status is
(Self.Interal.Exit_Status);
(Self.Internal.Exit_Status);
-- Return the exit status of last process that finishes.

function Exit_Code (Self : Process'Class) return Process_Exit_Code is
(Self.Interal.Exit_Code);
(Self.Internal.Exit_Code);

function Listener (Self : Process'Class)
return Spawn.Process_Listeners.Process_Listener_Access is
(Self.Interal.Listener);
(Self.Internal.Listener);

function Identifier (Self : Process'Class) return String is
(Spawn.Internal.Identifier (Self.Interal));
(Spawn.Internal.Identifier (Self.Internal));

end Spawn.Processes;