[seed] Add os.getenv

[Robert Carr <racarr src gnome org>]

commit 7d4e47ecb5d5ff687166e4ae76989e3a846037be
Author: Robert Carr <racarr mireia (none)>
Date:   Mon Apr 13 21:10:26 2009 -0400

    Add os.getenv
---
 modules/os/os.c |   30 +++++++++++++++++++++++++++---
 1 files changed, 27 insertions(+), 3 deletions(-)

diff --git a/modules/os/os.c b/modules/os/os.c
index 782a2c5..0c4d096 100644
--- a/modules/os/os.c
+++ b/modules/os/os.c
@@ -3,6 +3,7 @@
 #include <unistd.h>
 #include <stdio.h>
 #include <errno.h>
+#include <stdlib.h>
 
 SeedObject os_namespace;
 
@@ -238,7 +239,7 @@ seed_os_getpgid (SeedContext ctx,
   pid_t pid;
   if (argument_count != 1)
     {
-      EXPECTED_EXCEPTION("os.getpgid", "no arguments");
+      EXPECTED_EXCEPTION("os.getpgid", "1 argument");
     }
   pid = (pid_t) seed_value_to_long (ctx, arguments[0], exception);
   
@@ -287,12 +288,34 @@ seed_os_getppid (SeedContext ctx,
 {
   if (argument_count != 0)
     {
-      EXPECTED_EXCEPTION("os.getpid", "no arguments");
+      EXPECTED_EXCEPTION("os.getppid", "no arguments");
     }
   
   return seed_value_from_long (ctx, (glong) getppid(), exception);
 }
 
+SeedValue
+seed_os_getenv (SeedContext ctx,
+		SeedObject function,
+		SeedObject this_object,
+		size_t argument_count,
+		const SeedValue arguments[], 
+		SeedException * exception)
+{
+  SeedValue ret;
+  gchar *name, *value;
+  if (argument_count != 1)
+    {
+      EXPECTED_EXCEPTION("os.getenv", "1 arguments");
+    }
+  name = seed_value_to_string (ctx, arguments[0], exception);
+  value = getenv (name);
+  ret = seed_value_from_string (ctx, value, exception);
+  g_free (name);
+  
+  return ret;
+}
+
 seed_static_function os_funcs[] = {
   {"chdir", seed_os_chdir, 0},
   {"fchdir", seed_os_fchdir, 0},
@@ -306,7 +329,8 @@ seed_static_function os_funcs[] = {
   {"getpgid", seed_os_getpgid, 0},
   {"getpgrp", seed_os_getpgrp, 0},
   {"getpid", seed_os_getpid, 0},
-  {"getppid", seed_os_getppid, 0}
+  {"getppid", seed_os_getuid, 0},
+  {"getenv", seed_os_getenv, 0}
 };
 
 SeedObject