florist-3.15p FSU implementation of POSIX.5 (Ada binding)

Florist is the FSU open-source implementaton
of IEEE Standard 1003.5b-1996, the POSIX Ada
binding, including real-time extensions. This
software provides access to the UNIX operating
system services for application programs
written in the Ada programming language.

14 files changed, 263 insertions, 0 deletions

diff --git a/devel/florist/patches/patch-c-posix.c b/devel/florist/patches/patch-c-posix.c
new file mode 100644
index 00000000000..ee944c6c943
--- /dev/null
+++ b/devel/florist/patches/patch-c-posix.c
@@ -0,0 +1,34 @@
+$NetBSD: patch-c-posix.c,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- c-posix.c.orig	2002-10-24 02:03:51.000000000 -0600
++++ c-posix.c
+@@ -571,7 +571,7 @@ typedef struct siginfo {
+ #endif
+   GT2(si_signo, int)
+   GT2(si_code, int)
+-  GT2(si_value, union sigval)
++  GT2(si_sigval, union sigval)
+   GT3
+ 
+ /* sigevent must precede aiocb
+@@ -2788,7 +2788,11 @@ void create_limits() {
+ #endif
+ 
+ #ifdef SEM_VALUE_MAX
++#if SEM_VALUE_MAX > INT_MAX
++  gmaxnn("Semaphores_Value",INT_MAX);
++#else
+   gmaxnn("Semaphores_Value",SEM_VALUE_MAX);
++#endif
+ #else
+ #ifdef _POSIX_SEM_VALUE_MAX
+   gmaxn("Semaphores_Value",_POSIX_SEM_VALUE_MAX);
+@@ -6344,7 +6348,7 @@ void create_c() {
+   g_struct_msghdr();
+   gcmnt("local socket address");
+   { struct sockaddr_un DUMMY;
+-    ifprintf(fp,"   subtype sun_path_string is
++    ifprintf(fp,"   subtype sun_path_string is \
+       POSIX_String (1 .. %d);\n", sizeof (DUMMY.sun_path));
+   }
+   g_struct_sockaddr_un();
diff --git a/devel/florist/patches/patch-configure.in b/devel/florist/patches/patch-configure.in
new file mode 100644
index 00000000000..c9c1d390748
--- /dev/null
+++ b/devel/florist/patches/patch-configure.in
@@ -0,0 +1,25 @@
+$NetBSD: patch-configure.in,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- configure.in.orig	Tue Jun  3 03:55:13 2003
++++ configure.in	Tue Jun  3 03:58:10 2003
+@@ -104,6 +104,10 @@
+     echo "Using Configuration for" ${UNAME_SYSTEM} ${UNAME_RELEASE};
+     cp ./configs/pconfig.LynxOS ./pconfig.h.in;
+     ;;
++ NetBSD)
++    echo "Using Configuration for" ${UNAME_SYSTEM} ${UNAME_RELEASE};
++    cp ./configs/pconfig.NetBSD ./pconfig.h.in;
++    ;;
+  *)
+    echo "No Configuration for ${UNAME_SYSTEM}. Using default.";
+    cp ./configs/pconfig.Default ./pconfig.h.in;
+@@ -177,7 +181,8 @@
+   AC_POSIX_LIB(pthreads, pthread_self,,
+   AC_POSIX_LIB(cma, pthread_self,,
+   AC_POSIX_LIB(:libcma.a, pthread_self,,
+-  AC_POSIX_LIB(thread, pthread_self))))))
++  AC_POSIX_LIB(thread, pthread_self,,
++  AC_POSIX_LIB(c_r, pthread_self)))))))
+ fi
+ 
+ AC_POSIX_LIB(aio, aio_read)
diff --git a/devel/florist/patches/patch-posix-implementation.gpb b/devel/florist/patches/patch-posix-implementation.gpb
new file mode 100644
index 00000000000..6d511ec8d3c
--- /dev/null
+++ b/devel/florist/patches/patch-posix-implementation.gpb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-implementation.gpb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- posix-implementation.gpb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-implementation.gpb
+@@ -50,6 +50,8 @@ with Ada.Exceptions,
+      Unchecked_Conversion;
+ package body POSIX.Implementation is
+ 
++   pragma Warnings (Off);
++
+    use POSIX.C;
+ 
+    package SIM renames System.Interrupt_Management;
diff --git a/devel/florist/patches/patch-posix-io.adb b/devel/florist/patches/patch-posix-io.adb
new file mode 100644
index 00000000000..ffa0993e443
--- /dev/null
+++ b/devel/florist/patches/patch-posix-io.adb
@@ -0,0 +1,12 @@
+$NetBSD: patch-posix-io.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- posix-io.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-io.adb
+@@ -631,6 +631,7 @@ package body POSIX.IO is
+       To   : in Boolean := True) is
+       Flags : Bits;
+       Result : int;
++      pragma Warnings (Off, Result);
+    begin
+       Begin_Critical_Section;
+       Flags := To_Bits (fcntl (int (File), F_GETFD));
diff --git a/devel/florist/patches/patch-posix-message_queues.adb b/devel/florist/patches/patch-posix-message_queues.adb
new file mode 100644
index 00000000000..6a64a50120e
--- /dev/null
+++ b/devel/florist/patches/patch-posix-message_queues.adb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-message_queues.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- posix-message_queues.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-message_queues.adb
+@@ -350,7 +350,7 @@ package body POSIX.Message_Queues is
+             size_t ((Message'Size + char'Size - 1) / char'Size),
+             unsigned (Priority));
+          Check_NNeg_And_Restore_Signals
+-           (int (Result), Masked_Signals, Old_Mask'Unchecked_Access);
++           (Result, Masked_Signals, Old_Mask'Unchecked_Access);
+       end Send;
+ 
+       ---------------
diff --git a/devel/florist/patches/patch-posix-permissions.adb b/devel/florist/patches/patch-posix-permissions.adb
new file mode 100644
index 00000000000..8b3e746b9b4
--- /dev/null
+++ b/devel/florist/patches/patch-posix-permissions.adb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-permissions.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- posix-permissions.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-permissions.adb
+@@ -105,7 +105,7 @@ package body POSIX.Permissions is
+    procedure Set_Allowed_Process_Permissions
+      (Permissions : in Permission_Set;
+       Old_Perms   : out Permission_Set) is
+-      Mask : mode_t :=
++      Mask : constant mode_t :=
+         not (Form_C_Permission (Permissions) and File_Access_Permission_Bits);
+    begin
+       Cached_Umask := Mask;
diff --git a/devel/florist/patches/patch-posix-process_environment.adb b/devel/florist/patches/patch-posix-process_environment.adb
new file mode 100644
index 00000000000..36759836740
--- /dev/null
+++ b/devel/florist/patches/patch-posix-process_environment.adb
@@ -0,0 +1,32 @@
+$NetBSD: patch-posix-process_environment.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- posix-process_environment.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-process_environment.adb
+@@ -443,7 +443,7 @@ package body POSIX.Process_Environment i
+    procedure Copy_Environment
+      (Source : in Environment;
+       Target : in out Environment) is
+-      T_Source : POSIX_String_List := To_POSIX_String_List (Source);
++      T_Source : constant POSIX_String_List := To_POSIX_String_List (Source);
+       T_Target : POSIX_String_List;
+       procedure Copy_One (Str : POSIX_String; Done : in out Boolean);
+       procedure Copy_One (Str : POSIX_String; Done : in out Boolean) is
+@@ -490,7 +490,8 @@ package body POSIX.Process_Environment i
+        Undefined : POSIX.POSIX_String := "")
+       return POSIX.POSIX_String is
+       c_name : POSIX_String := Name & NUL;
+-      Result : char_ptr := Getenv (c_name (c_name'First)'Unchecked_Access);
++      Result : constant char_ptr :=
++         Getenv (c_name (c_name'First)'Unchecked_Access);
+    begin
+       Validate (Name);
+       if Result = null then return Undefined; end if;
+@@ -568,7 +569,7 @@ package body POSIX.Process_Environment i
+          while P.all /= null loop
+             --  .... concise but inefficient
+             declare
+-               S : POSIX_String := Form_POSIX_String (P.all);
++               S : constant POSIX_String := Form_POSIX_String (P.all);
+                J : constant Integer := Split_Point (S);
+             begin
+                Append (Strings, S (1 .. J - 1));
diff --git a/devel/florist/patches/patch-posix-process_identification.gpb b/devel/florist/patches/patch-posix-process_identification.gpb
new file mode 100644
index 00000000000..a1a026fc894
--- /dev/null
+++ b/devel/florist/patches/patch-posix-process_identification.gpb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-process_identification.gpb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $
+
+--- posix-process_identification.gpb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-process_identification.gpb
+@@ -213,7 +213,7 @@ package body POSIX.Process_Identificatio
+       Name_Ptr : char_ptr;
+    begin
+       Name_Ptr := getlogin;
+-      if (Name_Ptr = null) then Raise_POSIX_Error; end if;
++      if Name_Ptr = null then Raise_POSIX_Error; end if;
+       return Form_POSIX_String (Name_Ptr);
+    end Get_Login_Name;
+ 
diff --git a/devel/florist/patches/patch-posix-process_primitives.gpb b/devel/florist/patches/patch-posix-process_primitives.gpb
new file mode 100644
index 00000000000..81fb92434af
--- /dev/null
+++ b/devel/florist/patches/patch-posix-process_primitives.gpb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-process_primitives.gpb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $
+
+--- posix-process_primitives.gpb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-process_primitives.gpb
+@@ -49,6 +49,8 @@ with POSIX,
+      Unchecked_Deallocation;
+ package body POSIX.Process_Primitives is
+ 
++   pragma Warnings (Off);
++
+    use POSIX.C,
+        POSIX.Implementation,
+        POSIX.Process_Identification,
diff --git a/devel/florist/patches/patch-posix-process_scheduling.adb b/devel/florist/patches/patch-posix-process_scheduling.adb
new file mode 100644
index 00000000000..70b82156422
--- /dev/null
+++ b/devel/florist/patches/patch-posix-process_scheduling.adb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-process_scheduling.adb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $
+
+--- posix-process_scheduling.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-process_scheduling.adb
+@@ -104,7 +104,7 @@ package body POSIX.Process_Scheduling is
+    begin
+       Check (sched_getparam
+         (To_pid_t (Process), Params.Param'Unchecked_Access));
+-      return Scheduling_Parameters (Params);
++      return Params;
+    end Get_Scheduling_Parameters;
+ 
+    -----------------------------
diff --git a/devel/florist/patches/patch-posix-process_times.adb b/devel/florist/patches/patch-posix-process_times.adb
new file mode 100644
index 00000000000..94573fbbd3d
--- /dev/null
+++ b/devel/florist/patches/patch-posix-process_times.adb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-process_times.adb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $
+
+--- posix-process_times.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-process_times.adb
+@@ -64,7 +64,7 @@ package body POSIX.Process_Times is
+       t : Process_Times;
+    begin
+       t.Elapsed_Real_Time := times (t.tms'Unchecked_Access);
+-      return Process_Times (t);
++      return t;
+    end Get_Process_Times;
+ 
+    ----------------------------
diff --git a/devel/florist/patches/patch-posix-signals.adb b/devel/florist/patches/patch-posix-signals.adb
new file mode 100644
index 00000000000..fc57a18aa49
--- /dev/null
+++ b/devel/florist/patches/patch-posix-signals.adb
@@ -0,0 +1,36 @@
+$NetBSD: patch-posix-signals.adb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $
+
+--- posix-signals.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-signals.adb
+@@ -236,13 +236,6 @@ package body POSIX.Signals is
+    --  Global Data --
+    ------------------
+ 
+-   Last_Unblocker : array (Signal) of Task_ID :=
+-     (others => Null_Task);
+-   pragma Volatile_Components (Last_Unblocker);
+-   --  Holds the ID of the last Task which Unblocked this Interrupt.
+-   --  It contains Null_Task if no tasks have ever requested the
+-   --  Unblocking operation or the Interrupt is currently Blocked.
+-
+    type Signal_Bit_Vector is array (Signal) of Boolean;
+ 
+    --  Reserved_Signal is the union of the following sets of
+@@ -941,7 +934,7 @@ package body POSIX.Signals is
+ 
+    function Get_Data (Info : Signal_Info) return Signal_Data is
+    begin
+-      return To_Signal_Data (Info.si_value);
++      return To_Signal_Data (Info.si_sigval);
+    end Get_Data;
+ 
+    ----------------
+@@ -952,7 +945,7 @@ package body POSIX.Signals is
+      (Info : in out Signal_Info;
+       Data : in Signal_Data) is
+    begin
+-      Info.si_value := To_sigval (Data);
++      Info.si_sigval := To_sigval (Data);
+    end Set_Data;
+ 
+    -----------------------
diff --git a/devel/florist/patches/patch-posix-supplement_to_ada_io.adb b/devel/florist/patches/patch-posix-supplement_to_ada_io.adb
new file mode 100644
index 00000000000..bf199db0db9
--- /dev/null
+++ b/devel/florist/patches/patch-posix-supplement_to_ada_io.adb
@@ -0,0 +1,20 @@
+$NetBSD: patch-posix-supplement_to_ada_io.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $
+
+--- posix-supplement_to_ada_io.adb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-supplement_to_ada_io.adb
+@@ -113,6 +113,7 @@ package body POSIX.Supplement_to_Ada_IO 
+ 
+       F   : System_File_Type;
+       Ret : int;
++      pragma Warnings (Off, Ret);
+ 
+    begin
+       F := To_SFT (File);
+@@ -126,6 +127,7 @@ package body POSIX.Supplement_to_Ada_IO 
+ 
+       F   : System_File_Type;
+       Ret : int;
++      pragma Warnings (Off, Ret);
+ 
+    begin
+       F := To_SFT (File);
diff --git a/devel/florist/patches/patch-posix-unsafe_process_primitives.gpb b/devel/florist/patches/patch-posix-unsafe_process_primitives.gpb
new file mode 100644
index 00000000000..48fb0316988
--- /dev/null
+++ b/devel/florist/patches/patch-posix-unsafe_process_primitives.gpb
@@ -0,0 +1,13 @@
+$NetBSD: patch-posix-unsafe_process_primitives.gpb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $
+
+--- posix-unsafe_process_primitives.gpb.orig	2002-10-24 02:03:52.000000000 -0600
++++ posix-unsafe_process_primitives.gpb
+@@ -47,6 +47,8 @@ with POSIX.C,
+      Unchecked_Conversion;
+ package body POSIX.Unsafe_Process_Primitives is
+ 
++   pragma Warnings (Off);
++
+    use POSIX.C,
+        POSIX.Implementation;
+