Subversion Repositories planix.SVN

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