From mboxrd@z Thu Jan  1 00:00:00 1970
Subject: Re: [9fans] 'find'
Content-Type: text/plain; charset=US-ASCII; format=flowed
Mime-Version: 1.0 (Apple Message framework v552)
From: Kenji Arisawa <arisawa@ar.aichi-u.ac.jp>
To: 9fans@cse.psu.edu
Content-Transfer-Encoding: 7bit
In-Reply-To: <73b6c42894bc770bc171ccc36e6bfe6a@vitanuova.com>
Message-Id: <6DC90E82-AD4F-11D7-8A64-000393A941BC@ar.aichi-u.ac.jp>
Date: Thu,  3 Jul 2003 21:11:08 +0900
Topicbox-Message-UUID: e69c4720-eacb-11e9-9e20-41e7f4b1d025

Hello,

I have "repeat".

usage example:
du | repeat -X 'ls -l $2'

Kenji Arisawa


#!/bin/rc
# coded by Kenar
# Kenar: arisawa@aichi-u.ac.jp
#
usage='
repeat: repeat commands in the argument reading data from input.
usage: repeat [-X] ''COMMANDLINE''
option: "-X" enables COMMANDLINE to be executed.
  If this option is absent, COMMANDLINE is only echoed.
'
xopt=0
br=0
while (~  $1 -* ){
	switch($1){
	case	-X
		xopt=1
	case	-FS
		fs=$2
	case	-*
		echo $usage
		exit usage
	}
	shift
}
if(! ~ $#* 1) {
	echo $usage
	exit usage
}

cmd=$"*
# Read fields from stdin
while(*=`{read}){
	# echo TEST $#* $*
	switch($xopt){
	case 1
		eval $cmd
	case 0
		eval echo $cmd
	}
}