#! /bin/env tclsh

proc send {chan msg} {
    puts $chan [format %04x%s [string length $msg] $msg]
    flush $chan
    set response [read $chan 4]
    if {[string equal $response OKAY]} {
        return $response
    } else {
        return -code error [list $response $msg]
    }
}

proc main {argc argv} {
    set hostname localhost
    #set hostname 127.0.0.1
    set port 5037
    set chan [socket $hostname $port]
    send $chan host:transport-any
    
    send $chan {shell:sh -c 'su -c "dd bs=8192 if=/dev/block/mmcblk0p27"'}
    set chan2 [open mmcblk0.img wb]
    while {![eof $chan]} {
        set data [read $chan 8192]
        if {$data ne {}} {
            puts [list [info cmdcount] {writing some more}]
            puts -nonewline $chan2 $data 
        }
    }
    close $chan
}

main $argc $argv