5 print "$0 Objectname\n";
6 print " creates gstobjectname.{c,h} implementing GstObjectname,\n";
7 print " subclassing GstVideofilter.\n";
12 ($TEMPLATE = $Template) =~ tr/a-z/A-Z/;
13 ($template = $Template) =~ tr/A-Z/a-z/;
15 open IN, "gstvideotemplate.c";
16 open OUT, ">gst$template.c";
19 map { s/Videotemplate/$Template/g;
20 s/videotemplate/$template/g;
21 s/VIDEOTEMPLATE/$TEMPLATE/g;
22 # remember to break up the Id: in the line below
23 s/\$I[d]: (.*)\$/$1/g;
31 open IN, "gstvideotemplate.h";
32 open OUT, ">gst$template.h";
35 map { s/Videotemplate/$Template/g;
36 s/videotemplate/$template/g;
37 s/VIDEOTEMPLATE/$TEMPLATE/g;