common: select style by class name from sass css

[sheet.git] / tools / mkjson

diff --git a/tools/mkjson b/tools/mkjson
index dace34afce91d2f6ca610c2d82b10bd6d039f65b..3b1bfa9317cce5f17308fb44cc733fa7e26adb91 100755 (executable)
--- a/tools/mkjson
+++ b/tools/mkjson
@@ -1,13 +1,22 @@
 #!/usr/bin/env perl
 use 5.012;
 use warnings;
 #!/usr/bin/env perl
 use 5.012;
 use warnings;

-use JSON;

 use re '/msx';
 use re '/msx';

+use JSON;
+
+our $VERSION = '1.00';
+
+our %get;
+while (@ARGV) {
+       $ARGV[0] =~ s/^--// or last;  # --flag
+       my ($name, $val) = split /=/, shift, 2 or last;  # set until empty
+       $get{$name} = $val // 1;
+}
+my $file = shift or die "Usage: $0 [--options] <input>\n";

 
 

-my %opt;

 my $jsonify = JSON->new->utf8->canonical;
 my $jsonify = JSON->new->utf8->canonical;

-$jsonify->pretty if $opt{pretty};
+$jsonify->pretty if $get{pretty};

 
 

-my $data = do "./$ARGV[0]" or die $@;
+my $data = do "./$file" or die $@;

 print $jsonify->encode($data)
        =~ s{\[ \K\n ([^][]+) (?=\])}{$1 =~ s/(?:\A|\n) \s*//gr}reg;
 print $jsonify->encode($data)
        =~ s{\[ \K\n ([^][]+) (?=\])}{$1 =~ s/(?:\A|\n) \s*//gr}reg;