aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/s-crtl.ads
diff options
context:
space:
mode:
authorDoug Rupp <rupp@adacore.com>2005-02-10 14:49:15 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2005-02-10 14:49:15 +0100
commit70ad376e2f4f6cc950fb543f87e96e42d40c72d9 (patch)
tree5dc2dd33c332df90154ebf5f0909edf17dcd72d9 /gcc/ada/s-crtl.ads
parentedc7394cad7cf7e7a656a91b23694150dc84dae3 (diff)
downloadgcc-70ad376e2f4f6cc950fb543f87e96e42d40c72d9.zip
gcc-70ad376e2f4f6cc950fb543f87e96e42d40c72d9.tar.gz
gcc-70ad376e2f4f6cc950fb543f87e96e42d40c72d9.tar.bz2
gnatchop.adb (dup, [...]): Reference via System.CRTL.
2005-02-09 Doug Rupp <rupp@adacore.com> * gnatchop.adb (dup, dup2), g-dirope.adb (closedir, opendir, rmdir): Reference via System.CRTL. * gnatlbr.adb (mkdir), mlib-tgt-vms-ia64.adb (popen, plose): Import with decc$ prefix. * s-crtl.ads (closdir, dup, dup2, opendir, rmdir): Import. From-SVN: r94807
Diffstat (limited to 'gcc/ada/s-crtl.ads')
-rw-r--r--gcc/ada/s-crtl.ads20
1 files changed, 19 insertions, 1 deletions
diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads
index 9fef16b..42bdf02 100644
--- a/gcc/ada/s-crtl.ads
+++ b/gcc/ada/s-crtl.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -41,6 +41,9 @@ pragma Preelaborate (CRTL);
subtype chars is System.Address;
-- Pointer to null-terminated array of characters
+ subtype DIRs is System.Address;
+ -- Corresponds to the C type DIR*
+
subtype FILEs is System.Address;
-- Corresponds to the C type FILE*
@@ -59,6 +62,15 @@ pragma Preelaborate (CRTL);
procedure clearerr (stream : FILEs);
pragma Import (C, clearerr, "clearerr");
+ function closedir (directory : DIRs) return Integer;
+ pragma Import (C, closedir, "closedir");
+
+ function dup (handle : int) return int;
+ pragma Import (C, dup, "dup");
+
+ function dup2 (from, to : int) return int;
+ pragma Import (C, dup2, "dup2");
+
function fclose (stream : FILEs) return int;
pragma Import (C, fclose, "fclose");
@@ -124,6 +136,9 @@ pragma Preelaborate (CRTL);
procedure mktemp (template : chars);
pragma Import (C, mktemp, "mktemp");
+ function opendir (file_name : String) return DIRs;
+ pragma Import (C, opendir, "opendir");
+
function read (fd : int; buffer : chars; nbytes : int) return int;
pragma Import (C, read, "read");
@@ -134,6 +149,9 @@ pragma Preelaborate (CRTL);
procedure rewind (stream : FILEs);
pragma Import (C, rewind, "rewind");
+ procedure rmdir (dir_name : String);
+ pragma Import (C, rmdir, "rmdir");
+
function setvbuf
(stream : FILEs;
buffer : chars;