js-merge-helper.pl

   1 #!/bin/env perl -w
   2 use strict;
   3
   4 sub escape_c_string {
   5         shift;
   6         s/\t|\r|\n/ /g;     # convert spacings to whitespaces
   7         s/[^\/]\/\*.*?\*\///g;   # remove comments (careful: hinttags look like comment!)
   8         s/ {2,}/ /g;        # strip whitespaces
   9         s/(^|\(|\)|;|,|:|\}|\{|=|\+|\-|\*|\&|\||\<|\>|!) +/$1/g;
  10         s/ +($|\(|\)|;|,|:|\}|\{|=|\+|\-|\*|\&|\||\<|\>|!)/$1/g;
  11         s/\\/\\\\/g;        # escape backslashes
  12         s/\"/\\\"/g;        # escape quotes
  13         return $_
  14 }
  15
  16 if (scalar @ARGV < 1) {
  17         print "usage: js-merge-helper.pl jsfile ... \n";
  18         exit 1;
  19 }
  20
  21 my ($jsfile, $define, $js);
  22
  23 while (@ARGV) {
  24
  25         $jsfile = shift @ARGV;
  26         my @fn = split /\//, $jsfile;
  27         my $fn = pop @fn;
  28         $fn =~ /^(.*)\.js$/;
  29
  30         $define = "JS_".uc($1);
  31         $define =~ s/\-/_/;
  32
  33         open(JSFILE, $jsfile) or die "Failed to open file: $!";
  34         $_ = do { local $/; <JSFILE> };
  35         close(JSFILE);
  36
  37         $js = escape_c_string($_);
  38
  39         print "#define $define ";
  40         printf "\"%s\"\n", $js;
  41
  42 }
  43
  44 exit;