Implement $*OS, $*OSVER and a hugely cheating and lying $*PID.

rakudo · Feb 10, 2010 · 3a94b96 · 3a94b96
1 parent c36e0f4
commit 3a94b96
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/src/cheats/setup-io.pm b/src/cheats/setup-io.pm
@@ -11,5 +11,22 @@ INIT {
         set_hll_global ['PROCESS'], "$OUT", $P0
         $P0 = find_lex '$ERR'
         set_hll_global ['PROCESS'], '$ERR', $P0
+
+        ##  Parrot doesn't give us the PID for now. Well, this file *is*
+        ##  in the cheats directory... :-)
+        $P0 = box 0
+        set_hll_global ['PROCESS'], '$PID', $P0
+
+        ##  set up $*OS, $*OSVER $*EXECUTABLE_NAME
+        .include 'sysinfo.pasm'
+        .local string info
+        info = sysinfo .SYSINFO_PARROT_OS
+        $P0 = new ['Str']
+        $P0 = info
+        set_hll_global ['PROCESS'], '$OS', $P0
+        info = sysinfo .SYSINFO_PARROT_OS_VERSION
+        $P0 = new ['Str']
+        $P0 = info
+        set_hll_global ['PROCESS'], '$OSVER', $P0
     }
 }