Use uname to get info

在 Unix-like 的系統可以使用 uname 來取得一些系統資料。下面是使用 uname -s 來取得目前的 OS 資訊。

proc getKernelName {} {
    set mychannel [open "|/usr/bin/uname -s"]
    set name [chan gets $mychannel]
    chan close $mychannel

    return $name
}

如果在 Linux 上，會得到的回傳值是 Linux。

我把其它的部份也寫成函式，結果就是下面的 tcl module：
uname-tcl