shithub: riscv

ref: 1a55b8d1f0253b4d39b1972978b469a352f0f94b
dir: /sys/src/9/port/mkfilelist/

View raw version 
#!/bin/rc

rfork e
switch($#*){
case 1
	RE=`{echo *.c | sed 's/ /|/g; s/.*/^(&)$/'}
	if(~ $RE '^(*.c)$')
		LIST=`{builtin cd $1; ls *.c }
	if not
		LIST=`{builtin cd $1; ls *.c | grep -v ''$RE''}
	echo $LIST | sed 's/\.c//g; s/ +/|/g'
case *
	exit 'usage'
}
exit ''