File: clean-ch.sh

package info (click to toggle)
euslisp 9.31%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 55,448 kB
  • sloc: ansic: 41,610; lisp: 3,339; makefile: 286; sh: 238; asm: 138; python: 53
file content (19 lines) | stat: -rwxr-xr-x 218 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/bin/sh
#

find . -name '*.l' -print |
while read f
do
  d=`dirname $f`
  c=`basename $f .l`.c
  h=`basename $f .l`.h
  if [ -f $d/$c ]
  then
    rm -f $d/$c
  fi
  if [ -f $d/$h ]
  then
    rm -f $d/$h
  fi
done