mkfilelist 266 B

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