- #!/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 ''
|