shithub: scripts

ref: bc762e9c9294990c0d2480295637c792363dcc8c
dir: /bin/rc/D2X/

View raw version 
#!/bin/rc

decstr=`{cat '/mnt/acme/'^$winid^'/rdsel'}
hexstr=`{echo 'obase=16; ' $decstr | bc}
if(! ~ $hexstr *error*)
	echo -n $hexstr >'/mnt/acme/'^$winid^'/wrsel'
if not
	exit 'malformed decimal string'