Re: DOS Command in OA

["David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>]

KdoMFueSys Wilhelmshaven <mfuesys.admin@nwn.de> wrote in message
news:37A80902.1454720B@nwn.de...
> Hallo,
> we've implemented a screen_io package in order to ease basic in- and
> output based upon ESC-Seqeunces using ANSI.SYS as it was described
> formerly in this group.
> What we are trying now, is to change the screen's text-resolution from
> 80x25 to 80x50, e.g. with dos command
> mode co80 50.
> What we are trying is to invoke this call from within our ada-code.
>
> Our question is:
> Is there any possible solution, to invoke DOS-Commands from within
> Object-Ada-Code?
> And if not, is there any possibility to change screen's text-resolution
> from 80x25 to 80x25?
>
> We are using WIN95 and Aonix Object Ada 7.1.

At the end of this message is the source code for a library-level procedure
that will execute a shell command from within an Ada program.
------------------
with Interfaces.C;
function Execute_Shell_Command (The_Command_String : String)
      return Interfaces.C.Int is
   package C renames Interfaces.C;
   function System (S : C.Char_Array) return C.Int;
   pragma Import (C, System, "system");
begin
   return System (C.To_C (The_Command_String));
end Execute_Shell_Command;