File: try_unix.adb

package info (click to toggle)
libtexttools 2.1.0-30
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 932 kB
  • sloc: ada: 11,394; ansic: 529; makefile: 106; sed: 78; sh: 12
file content (11 lines) | stat: -rw-r--r-- 162 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
 
with Os;

procedure Try_Unix is

   -- CGetUNIX
   S1 : constant String := Os.UNIX ("echo hello");
   pragma Assert (S1 = "hello");

begin
   null;
end Try_Unix;