diff options
author | David Schleef <ds@schleef.org> | 2003-07-02 05:22:47 +0000 |
---|---|---|
committer | David Schleef <ds@schleef.org> | 2003-07-02 05:22:47 +0000 |
commit | 23e47de3324577cc2cb76a11f21ba80cceac14fc (patch) | |
tree | da290dfd0c0bbfc5bcc83b9949c14d7cf16720f0 /gst/videofilter/make_filter | |
parent | 7ec579da849ac9787dddee7a88f49a8b5c2c0e24 (diff) |
GstVideofilter abstract class for video filters
Original commit message from CVS:
GstVideofilter abstract class for video filters
Diffstat (limited to 'gst/videofilter/make_filter')
-rwxr-xr-x | gst/videofilter/make_filter | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/gst/videofilter/make_filter b/gst/videofilter/make_filter new file mode 100755 index 00000000..06bb1fed --- /dev/null +++ b/gst/videofilter/make_filter @@ -0,0 +1,42 @@ +#!/usr/bin/perl +# + +if(scalar(@ARGV) < 1){ + print "$0 Objectname\n"; + print " creates gstobjectname.{c,h} implementing GstObjectname,\n"; + print " subclassing GstVideofilter.\n"; + exit(0); +} + +$Template = $ARGV[0]; +($TEMPLATE = $Template) =~ tr/a-z/A-Z/; +($template = $Template) =~ tr/A-Z/a-z/; + +open IN, "gstvideotemplate.c"; +open OUT, ">gst$template.c"; + +@lines = <IN>; +map { s/Videotemplate/$Template/g; + s/videotemplate/$template/g; + s/VIDEOTEMPLATE/$TEMPLATE/g; +} @lines; + +print OUT @lines; + +close IN; +close OUT; + +open IN, "gstvideotemplate.h"; +open OUT, ">gst$template.h"; + +@lines = <IN>; +map { s/Videotemplate/$Template/g; + s/videotemplate/$template/g; + s/VIDEOTEMPLATE/$TEMPLATE/g; +} @lines; + +print OUT @lines; + +close IN; +close OUT; + |