3 # copies from gstreamer filter boilerplate
5 # changing file names and function references
9 # modified 23 aug 2001 apwingo@eos.ncsu.edu:
10 # conform better to gtk naming conventions (GstFoo->gst_foo in functions, etc)
14 echo "please specify the filter to copy FROM (e.g. Passthrough)"
20 echo "please specify the filter to copy TO (e.g. NewFilter)"
26 FROM_LC=`echo $FROM | tr [A-Z] [a-z]`
27 TO_LC=`echo $TO | tr [A-Z] [a-z]`
28 FROM_UC=`echo $FROM | tr [a-z] [A-Z]`
29 TO_UC=`echo $TO | tr [a-z] [A-Z]`
30 FROM_LC_UNDERSCORE=`echo $FROM | perl -n -p -e 's/([a-z])([A-Z])/$1_$2/g; tr/A-Z/a-z/'`
31 TO_LC_UNDERSCORE=`echo $TO | perl -n -p -e 's/([a-z])([A-Z])/$1_$2/g; tr/A-Z/a-z/'`
33 echo "Copying filter boilerplate $FROM to new filter $TO..."
37 echo "Filter directory $FROM_LC does not exist !"
43 echo "Filter directory $TO_LC already exists !"
51 for a in *$FROM_LC*; do mv $a `echo $a | sed s/$FROM_LC/$TO_LC/g`; done
53 perl -i -p -e "s/$FROM/$TO/g" *
54 perl -i -p -e "s/${FROM_LC_UNDERSCORE}_/${TO_LC_UNDERSCORE}_/g" *
55 perl -i -p -e "s/$FROM_LC/$TO_LC/g" *
56 perl -i -p -e "s/$FROM_UC/$TO_UC/g" *