diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:14:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:14:25 +0000 |
| commit | 67ee0ba6b9c09038c1341d59da903dadab060e89 (patch) | |
| tree | f3be7ba4a1adc235e5c2e9db34a66941375fad70 /gcc/ada/g-expect.ads | |
| parent | 2754ce81f460d4f12967cef0a17559b1d3cd649c (diff) | |
| download | gcc-67ee0ba6b9c09038c1341d59da903dadab060e89.tar.gz | |
2007-04-20 Bob Duff <duff@adacore.com>
* g-expect-vms.adb:
(Send_Signal, Close): Raise Invalid_Process if the process id is invalid.
* g-expect.ads, g-expect.adb (Send): Avoid useless copy of the string.
(Send_Signal, Close): Raise Invalid_Process if the process id is
invalid.
(Pattern_Matcher_Access): Is now a general access type to be able to
use aliased string.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125361 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-expect.ads')
| -rw-r--r-- | gcc/ada/g-expect.ads | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads index 7cc1bad531f..7d9eced4d79 100644 --- a/gcc/ada/g-expect.ads +++ b/gcc/ada/g-expect.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2006, AdaCore -- +-- Copyright (C) 2000-2007, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -188,41 +188,39 @@ package GNAT.Expect is procedure Close (Descriptor : in out Process_Descriptor); -- Terminate the process and close the pipes to it. It implicitly -- does the 'wait' command required to clean up the process table. - -- This also frees the buffer associated with the process id. + -- This also frees the buffer associated with the process id. Raise + -- Invalid_Process if the process id is invalid. procedure Close (Descriptor : in out Process_Descriptor; Status : out Integer); - -- Same as above, but also returns the exit status of the process, - -- as set for example by the procedure GNAT.OS_Lib.OS_Exit. + -- Same as above, but also returns the exit status of the process, as set + -- for example by the procedure GNAT.OS_Lib.OS_Exit. procedure Send_Signal (Descriptor : Process_Descriptor; Signal : Integer); - -- Send a given signal to the process + -- Send a given signal to the process. Raise Invalid_Process if the process + -- id is invalid. procedure Interrupt (Descriptor : in out Process_Descriptor); -- Interrupt the process (the equivalent of Ctrl-C on unix and windows) -- and call close if the process dies. function Get_Input_Fd - (Descriptor : Process_Descriptor) - return GNAT.OS_Lib.File_Descriptor; + (Descriptor : Process_Descriptor) return GNAT.OS_Lib.File_Descriptor; -- Return the input file descriptor associated with Descriptor function Get_Output_Fd - (Descriptor : Process_Descriptor) - return GNAT.OS_Lib.File_Descriptor; + (Descriptor : Process_Descriptor) return GNAT.OS_Lib.File_Descriptor; -- Return the output file descriptor associated with Descriptor function Get_Error_Fd - (Descriptor : Process_Descriptor) - return GNAT.OS_Lib.File_Descriptor; + (Descriptor : Process_Descriptor) return GNAT.OS_Lib.File_Descriptor; -- Return the error output file descriptor associated with Descriptor function Get_Pid - (Descriptor : Process_Descriptor) - return Process_Id; + (Descriptor : Process_Descriptor) return Process_Id; -- Return the process id assocated with a given process descriptor function Get_Command_Output @@ -403,7 +401,7 @@ package GNAT.Expect is type Regexp_Array is array (Positive range <>) of GNAT.OS_Lib.String_Access; - type Pattern_Matcher_Access is access GNAT.Regpat.Pattern_Matcher; + type Pattern_Matcher_Access is access all GNAT.Regpat.Pattern_Matcher; type Compiled_Regexp_Array is array (Positive range <>) of Pattern_Matcher_Access; |