#!/bin/rc args = '#chan' if(~ $#* 0) { aux/usage exit usage } winid = `{ cd /dev/wsys f | grep 'label$' | eval x g '$1^''$''' | sed 's#.*/([0-9]+)/label.*#\1#' } if(~ $#winid 0) exit 'no window' cat /dev/wsys/$winid/text