Ticket #2032: 0001-Added-Parrot_get_effective_user_id.patch

include/parrot/platform_interface.h

@@ -392 +392 @@
 PARROT_EXPORT
 UINTVAL Parrot_get_user_id(void);
 
+PARROT_EXPORT
+UINTVAL Parrot_get_effective_user_id(void);
+
 /*
  * system memory
  */

src/dynpmc/os.pmc

@@ -343 +343 @@
 
 /*
 
+=item C<get_effective_user_id()>
+
+Returns the ID numver of the effective user. This is also platform dependent.
+
+=cut
+
+*/
+
+    METHOD get_effective_user_id() {
+        const UINTVAL euid = Parrot_get_effective_user_id();
+        RETURN(INTVAL euid);
+    }
+
+/*
+
 =item C<can_execute(STRING *filename)>
 
 =item C<can_read(STRING *filename)>

src/platform/generic/uid.c

@@ -44 +44 @@
 
 /*
 
+=item C<UINTVAK Parrot_get_effective_user_id(void)>
+
+Get effective user id
+
+=cut
+
+*/
+
+UINTVAL
+Parrot_get_effective_user_id(void) 
+{
+    return (UINTVAL)geteuid();
+}
+
+/*
+
 =back
 
 =cut

src/platform/win32/uid.c

@@ -45 +45 @@
 
 /*
 
+=item C<UINTVAK Parrot_get_effective_user_id(void)>
+
+Get effective user id
+
+=cut
+
+*/
+
+UINTVAL
+Parrot_get_effective_user_id(void) 
+{
+    /* TODO */
+    return (UINTVAL)0;
+}
+
+/*
+
 =back
 
 =cut

t/dynpmc/os.t

@@ -5 +5 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 34;
+use Parrot::Test tests => 35;
 use Parrot::Config;
 use Cwd;
 use File::Spec;
@@ -643 +643 @@
 }
 
 use English '$UID';
+use English '$EUID';
 
 # Test chroot
 SKIP: {
@@ -688 +689 @@
 CODE
 
 SKIP: {
+    skip 'no effective user ids on Win32', 1 if ($MSWin32 || $cygwin);
+    pir_output_is( <<'CODE', $EUID, 'Test get_effective_user_id' );
+    .sub main :main
+        $P0 = loadlib 'os'
+        $P1 = new ['OS']
+
+        $I0 = $P1."get_effective_user_id"()
+        print $I0
+
+        end
+    .end
+CODE
+}
+
+SKIP: {
     skip 'no file modes on Win32', 3 if ($MSWin32 || $cygwin);
 
     open my $fa, ">", "test_f_a";