shithub: bin.rc

ref: 3c724f5a03ba3846bce90e0fbc11e4f4e5b5e09a
dir: /bin/cin/

View raw version 
#!/bin/rc
rfork e
nl='
'
while(line=`$nl{read}){
	cmd=$line
	if(~ $#cmd 0) cmd='\r'
	switch($cmd){
	case '\r'
		ci /env/code
	case '\t'
		time ci /env/code
	case '\prof'
		ci -p /env/code
	case '\p'
		cat /env/code
	case '\c'
		>/env/code
	case *
		echo $line >>/env/code
	}
}