gst/videofilter/make_filter

   1 #!/usr/bin/perl
   2 #
   3
   4 if(scalar(@ARGV) < 1){
   5         print "$0 Objectname\n";
   6         print "  creates gstobjectname.{c,h} implementing GstObjectname,\n";
   7         print "  subclassing GstVideofilter.\n";
   8         exit(0);
   9 }
  10
  11 $Template = $ARGV[0];
  12 ($TEMPLATE = $Template) =~ tr/a-z/A-Z/;
  13 ($template = $Template) =~ tr/A-Z/a-z/;
  14
  15 open IN, "gstvideotemplate.c";
  16 open OUT, ">gst$template.c";
  17
  18 @lines = <IN>;
  19 map { s/Videotemplate/$Template/g;
  20         s/videotemplate/$template/g;
  21         s/VIDEOTEMPLATE/$TEMPLATE/g;
  22 } @lines;
  23
  24 print OUT @lines;
  25
  26 close IN;
  27 close OUT;
  28
  29 open IN, "gstvideotemplate.h";
  30 open OUT, ">gst$template.h";
  31
  32 @lines = <IN>;
  33 map { s/Videotemplate/$Template/g;
  34         s/videotemplate/$template/g;
  35         s/VIDEOTEMPLATE/$TEMPLATE/g;
  36 } @lines;
  37
  38 print OUT @lines;
  39
  40 close IN;
  41 close OUT;
  42