[svn:parrot] r42401 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue Nov 10 16:29:04 2009
New Revision: 42401
URL: https://trac.parrot.org/parrot/changeset/42401

Log:
[distutils] add getenv/setenv OS utilities

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Tue Nov 10 12:11:42 2009	(r42400)
+++ trunk/runtime/parrot/library/distutils.pir	Tue Nov 10 16:29:04 2009	(r42401)
@@ -1934,6 +1934,28 @@
     $P0.'chdir'(dirname)
 .end
 
+=item getenv
+
+=cut
+
+.sub 'getenv'
+    .param string name
+    new $P0, 'Env'
+    $S0 = $P0[name]
+    .return ($S0)
+.end
+
+=item setenv
+
+=cut
+
+.sub 'setenv'
+    .param string name
+    .param string value
+    new $P0, 'Env'
+    $P0[name] = value
+.end
+
 =back
 
 =head2 SEE ALSO