Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
 
3 
rfork e
4 
switch($#*){
5 
case 1
6 
	RE=`{echo *.c | sed 's/ /|/g; s/.*/^(&)$/'}
7 
	if(~ $RE '^(*.c)$')
8 
		LIST=`{builtin cd $1; ls *.c }
9 
	if not
10 
		LIST=`{builtin cd $1; ls *.c | grep -v ''$RE''}
11 
	echo $LIST | sed 's/\.c//g; s/ +/|/g'
12 
case *
13 
	exit 'usage'
14 
}
15 
exit ''