Re: redirecting the standard output

["martin.m.dowie" <martin.m.dowie@ntlworld.com>]

yes, the other 'trick' I had to do was get the std_in/std_out constants the right
way round (which managed to throw me for an hour!) ;-)

Smark wrote:

> So the trick was to use VxWorks' "open" and "ioGlobalStdSet" rather than
> Ada.Text_Io's "Open" and "Set_Output" ... interesting.
>
> Mark
>
> "Martin Dowie" <martin.dowie@gecm.com> wrote in message
> news:3ad59c42$1@pull.gecm.com...
> > Cheers Graham! That's done the trick!
> >
> > And in return to the community here is the Ada equivilant we will
> > be using (feel free to add your own comments :-)
> >
> >
> > -- vxworks.ads
> > --------------
> > with Interfaces.C;
> >
> > package VxWorks is
> >
> >   subtype A_Status is Interfaces.C.Int;
> >
> >   use type A_Status;
> >
> >   Ok    : constant A_Status :=  0;
> >   Error : constant A_Status := -1;
> >
> > end VxWorks;
> >
> > -- vxworks-iolib.ads
> > --------------------
> > with Interfaces.C;
> > with Interfaces.C.Strings;
> >
> > package VxWorks.ioLib is
> >
> >    O_RDONLY : constant := 16#0000#;
> >    O_WRONLY : constant := 16#0001#;
> >    O_RDWR   : constant := 16#0002#;
> >    O_CREAT  : constant := 16#0200#;
> >
> >    subtype A_File is Interfaces.C.Int;
> >
> >    function Open (Name  : Interfaces.C.Strings.Chars_Ptr;
> >                   Flags : Interfaces.C.Int;
> >     Mode  : Interfaces.C.Int) return A_File;
> >
> >    function Close (File : A_File) return A_Status;
> >
> >    STD_IN  : constant A_File := 0;
> >    STD_OUT : constant A_File := 1;
> >    STD_ERR : constant A_File := 2;
> >
> >    function ioGlobalStdGet (StdFd : A_File) return A_File;
> >
> >    procedure ioGlobalStdSet (StdFd : A_File;
> >                              NewFd : A_File);
> >
> >    function ioTaskStdGet (TaskId : Interfaces.C.Int := 0;
> >      StdFd : A_File) return A_File;
> >
> >    procedure ioTaskStdSet (TaskId : Interfaces.C.Int := 0;
> >       StdFd : A_File;
> >                            NewFd : A_File);
> >
> > private
> >
> >    pragma Import (C, Open,           "open");
> >    pragma Import (C, Close,          "close");
> >    pragma Import (C, ioGlobalStdGet, "ioGlobalStdGet");
> >    pragma Import (C, ioGlobalStdSet, "ioGlobalStdSet");
> >    pragma Import (C, ioTaskStdGet,   "ioTaskStdGet");
> >    pragma Import (C, ioTaskStdSet,   "ioTaskStdSet");
> >
> > end VxWorks.ioLib;