setup-io.pm

# Really we should be able to write $PROCESS::IN := ...

INIT {
    Q:PIR {
        .local pmc IO
        IO = get_hll_global 'IO'

        $P0 = getstdin
        $P0.'encoding'('utf8')
        $P0 = IO.'new'('PIO'=>$P0)
        set_hll_global ['PROCESS'], '$IN', $P0

        $P0 = getstdout
        $P0.'encoding'('utf8')
        $P0 = IO.'new'('PIO'=>$P0)
        set_hll_global ['PROCESS'], '$OUT', $P0

        $P0 = getstderr
        $P0.'encoding'('utf8')
        $P0 = IO.'new'('PIO'=>$P0)
        set_hll_global ['PROCESS'], '$ERR', $P0

        ##  set up $*OS, $*OSVER $*EXECUTABLE_NAME
        .include 'sysinfo.pasm'
        .local string info
        info = sysinfo .SYSINFO_PARROT_OS_VERSION
        $P0 = new ['Str']
        $P0 = info
        set_hll_global ['PROCESS'], '$OSVER', $P0
        ##  do the OS last so that the PID workaround can use info
        info = sysinfo .SYSINFO_PARROT_OS
        $P0 = new ['Str']
        $P0 = info
        set_hll_global ['PROCESS'], '$OS', $P0

        ##  Set up $*PID.  Parrot doesn't give us the PID for now.
        ##  idea: http://irclog.perlgeek.de/parrot/2010-04-19#i_2242900
        ##  Well, this file *is* in the cheats directory... :-)
        .local pmc library
        .local string getpid_func
        null library
        getpid_func = 'getpid'
        if info != 'MSWin32' goto setup_io_non_MSWin32
        ##  Do it differently on Windows
        library = loadlib 'kernel32'
        getpid_func = 'GetCurrentProcessId'
      setup_io_non_MSWin32:
        $P0 = dlfunc library, getpid_func, 'i'
        $I0 = $P0()
        $P0 = box $I0
        set_hll_global ['PROCESS'], '$PID', $P0
        ##  Parrot request: http://trac.parrot.org/parrot/ticket/1564 
    }
}