From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bffac9eb5dce1b18
X-Google-Attributes: gid103376,public
From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
Subject: Re: DOS Command in OA
Date: 1999/08/04
Message-ID: <KcVp3.404$9f1.41774@typ12.nn.bcandid.com>#1/1
X-Deja-AN: 508731054
Content-Transfer-Encoding: 7bit
References: <37A80902.1454720B@nwn.de>
X-Priority: 3
Content-Type: text/plain; charset="iso-8859-1"
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
X-Trace: typ12.nn.bcandid.com 933765034 216.180.14.91 (Wed,
 04 Aug 1999 07:10:34 EDT)
X-MSMail-Priority: Normal
MIME-Version: 1.0
NNTP-Posting-Date: Wed, 04 Aug 1999 07:10:34 EDT
Newsgroups: comp.lang.ada
Date: 1999-08-04T00:00:00+00:00
List-Id: <comp.lang.ada>


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;