From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on ip-172-31-74-118.ec2.internal X-Spam-Level: X-Spam-Status: No, score=-0.3 required=3.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.5-pre1 Path: eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail From: =?UTF-8?B?U3TDqXBoYW5lIFJpdmnDqHJl?= Newsgroups: comp.lang.ada Subject: Re: Is it possible to redirect text output to a String or Unbounded_String? Date: Thu, 10 Jun 2021 16:42:39 +0200 Organization: La Maison Message-ID: References: <331aa8fb-271a-4a3a-b95e-d10733cbc404n@googlegroups.com> Reply-To: stef@genesix.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Date: Thu, 10 Jun 2021 14:42:39 -0000 (UTC) Injection-Info: reader02.eternal-september.org; posting-host="a33febe2e919066037bcf17db485eeb0"; logging-data="2700"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18eoQiQ10TmkcYyzXvJWHQDJLxQzH1QJRs=" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.10.0 Cancel-Lock: sha1:lA57ijcI2pNWRuYWPuUiBk0YKGo= In-Reply-To: <331aa8fb-271a-4a3a-b95e-d10733cbc404n@googlegroups.com> Content-Language: fr Autocrypt: addr=stef@genesix.org; keydata= xsFNBF0SLdYBEAC2vNiEXrwEbtLmIf92tON00ECRsQL/VIf40iujfddE7T5wQMIxNFmYm26m 1m54ludBEJgjfHv8GNJrBQIN6fKTrxtLTlY43H/WEy3z4DOXbOK2sU0CIkG3u1wtAi/9jdJK GpnHPgPxhU1Q7SVlQCsOMUpEGN8ZUiF6IkAIOY+DLRgHW1qh8xfYSIiDUJIcZ4cn0Ccf/7QN rTmGHXe3AU7DxsooDm4+Wf29tlujA6F6kbwGqrqFfUmTImpNTvafr15pK3zZHoCpJiR4Y1jM mHCj20cQ2l+BsL5L4T+ErKg9Wd2eAOthPw7oJ6V5Lb/ZyGdCLUjOx081S/Km3xpACNGXoKMx OgMGwJiOulN2FsRRWN2hMIZBQmwL2q79WTI4ITq39ibewARkZmfbq/tdIPMedoVBRvEnSZ8y TD0at42/62sjJx3tds2J7JhFMBrLHMWqawKOFVbioc4vXz/rbH23SpV5qWHZ4AiPRP+IMFnB o8ZLPkQXR0S7ajUNTvlYp0e+62X0kW9VOOObnLC4UqGxSZYeJ3ca4+vpeut6s2SX7Pu6D9wo xSPVMuSJf3NT0AoCJyDktULrix6jdjTR/HfCIK2fpricDafdDj7oXLQWa8cPoh+q7SSLLMA6 46ZmzqAvKpBXTwYGM5wlT8Owwtq+JzjMtTLyLrD/fwWEJFFF5wARAQABzSVTdMOpcGhhbmUg Uml2acOocmUgPHN0ZWZAZ2VuZXNpeC5vcmc+wsGrBBMBCAA+FiEE2UmcilPuBGK9hWmqb9Sw H8cda1sFAl0SLdYCGyMFCQlmAYAFCwkIBwIGFQgJCgsCBBYCAwECHgECF4AAIQkQb9SwH8cd a1sWIQTZSZyKU+4EYr2Faapv1LAfxx1rW9cCD/wPhVGORb5xrB18OfSRXvaD+nY7FhNSPFnz IGSzFQFbyNUxnN6X1LxDXGd08pw/LgGsU72YguwyphJ4k6LmaYS9uhJ72i6GOCR705SlOMDn JlsOH7vkngWuuSRDG/sUgPkvO7LwkHBOLTASCF9qt1+toJpXg19/PxRQCW11z8ZOMFnS2yUe o+cXQATvxEfm2evOJWXd6Xoqxw634OjBxmMuC4ZrcGsGBS330fk1LU7HVdoF5gjRUymas0da lE5fKFjJsZUMZ64TKWZcPNbfM4QIjgGUwc5vWLKE2TEnAilpBxeiw7VRkg4UXpqpBOGlkdjJ CvobIyKYBgzNd7BA7htijEH91dFeTkYVanVDGiNBEaHOPGxdtd9pQ/B1SJiU8n7bJsU9B5KG jcduw9wYWwNsPx4mFRTSgNl/MTEqzhJF8cMkF9Fx1icj3Ch9SNCMZmdFYtjcW6BpGq6vbOAj hybweOJYwJryJ3KUFa+WpnHX7WXTQ6TZlQ5e7nwo+8L7cKgX+9GFdT7nCZXS+B5ygFAEsxN+ lbUIPFNuwf90k0BObswbenfbV4lrQiN1TTaBk2Vbz+2GeMdMCQeYqTDvc5/WgTaws6VUACnm BNaBgt3crDCTl76e479s1mxpmWkCo3aV/VEc/xlKwURXC/4gLL7+XjtzguxDprSymUlQq0st jc7BTQRdEi3WARAAr1FX3+useKJ3tLzKswp7OzAHQF/e/qWss2HQ0wiixE57DXKr6qTcAUpe kavihLgGza2cljiGm/2L/vqk4Gfr1HcYRQmY4u7uiqX75lXudYMdGccf+85WEw+YPk0cfSgV hWoVYY/d7H1Y16rEXw5s5Hc9S73Htv9R8/gBTUqtjoVw34IQ+cI9nakKMXXqX1yFPO+2L5pD 9Yic+7Mu69OBehz+zUCl7N8Pn+3vbWw+em7CAmQ1reZCsVYoxQQFpKRjVQ+6RiGqEy79ceNr hfEFc8rmXnjSmg41KptjJLWdyzQytddsG8hvfqnWk9AhftP4Cj6M9MOonEO3dKskUqoUK2o4 bwHP/Ooo70KDzG/f29sSDLi6YE7n4CaRvfo72HyK8fbwHvpXnqJL8RHPKvaSCr3mU/IVTQpl VtfXoiVZL6v2sQAisbmYC/JtPiNNEelDvlcp4gYTefvOqjxFCD4WKr9kWn8XwjnqgUbcFv/3 rl0Mi9pyadiO1Etr4eJvIhYbdNXhrmXm7icJ7OE5+q+1uCH+8JWRlYM9F49peHv1oWtjBuBS CxczpXraWOk5lrzI2rdxKZwFlO515ULKtixiu2CJ3xDWps3zwLScw9wxE6QQUT88aYSeAqbj 1w+s+vGHBMEitC7dxk5aGQDkXwNjzve4rRgSWq7ME1ZyteoqY/0AEQEAAcLBkwQYAQgAJhYh BNlJnIpT7gRivYVpqm/UsB/HHWtbBQJdEi3WAhsMBQkJZgGAACEJEG/UsB/HHWtbFiEE2Umc ilPuBGK9hWmqb9SwH8cda1shDA/+PxaAM1PgWec8Pdg4+U/FEfku3z9aZN4es2ofMA4IGSqi tLM2pwnrkM6tbyGIaLzK4/LaxnsUPy4FV5GEiel23zgZel+KvuqyXz4EpRg0hGQJbKAocD0U KumEP3UiHXE2x/2U5/fy0IrdBz0XVWByhaJCQqoqjZUVHIY2E7osgYVB9bGH1frHL05jqffd vw2FSuH5RCs6NmpdgMt3VoNe981MQ3WJ+HRLG5QViNZRMc26c45l1kH9iwjexz+CVH8lTBcR z4HQzz40CmOOT2yXN1GgTtAuYuNhkZpBJbGFwZzTbOUddRJ+xQyhIjYztPwRCicEWN4ULz2h hZQuU8JR0mwSl4nGblWBCgVQGIkJ68KY8HEm1BkIZm3wzvtd+BCw6tngAphewKkk4ITyBHcx /AWocJv/r0rpbifsUSPzIV9vJG/2ZBBp19aKicjdh0LhPmWUXg9nFyFKxiw62r2dmpNlK2SN yidj34sEgsTeIHdD1fpA2z0QtStCVW1Y3djxt4R6ln5sLo4j2XNGHCFOUoTd9gltjFYmlqQE zGbpfztpHPy/kHc2lz13afFREj12/RcOkkk9i2K2SA69YsgDdMm4vwSPuEFLziKt9mXwAobP GRCA0uF8Rbj4zoVWJlpGQQqCaSNSpNmXsU3FoyF7fE589eCYGnNVIPU940Dq9CE= Xref: reader02.eternal-september.org comp.lang.ada:62164 List-Id: Le 10/06/2021 à 04:17, Jerry a écrit : > Is it possible to redirect text output to a String or Unbounded_String rather than to a file? Hi Jerry, I'm not shure to yunderstand your need... If your goal is to redirect (catch) the text output of a command system to an Ada variable... Page 33 in : https://stef.genesix.org/pub/ada/aide/sow%20-%20v20%20Ada%20Library%20User%20Manual%20v28.pdf 7.9 Shell_Execute • Description Executes shell command. Return the exit code if passed from the executed com-mand. Without Output parameter, the command console output is displayed by default but can be redirected. If Output is used, then the executed command output is return in this parameter. code is in v20.sys.ad* in https://stef.genesix.org/pub/ada/aide/v20-0.3.zip Notes : VString is Unbounded_String package GE renames GNAT.Expect; package GOL renames GNAT.OS_Lib; Body (abstract) procedure Shell_Execute_Output (Command : String; Result : out Integer; Output : out VString) is Arguments : GOL.Argument_List_Access; Command_Exit_Code : aliased Integer; -- Must reside in memory (pointer) begin if Command /= "" then Arguments := GOL.Argument_String_To_List (Command); Output := To_VString (GE.Get_Command_Output (Command => Arguments (Arguments'First).all, Arguments => Arguments (Arguments'First + 1 .. Arguments'Last), Input => "", Status => Command_Exit_Code'Access)); GOL.Free (Arguments); else Output := +""; end if; Result := Command_Exit_Code; end Shell_Execute_Output; procedure Shell_Execute_Output (Command : VString; Result : out Integer; Output : out VString) is begin Shell_Execute_Output (To_String (Command), Result, Output); end Shell_Execute_Output; -- Be Seeing You Number Six