#!/usr/bin/perl

if (@ARGV != 1) {
  die "Use via codeorg-messages.sh";
};

($js_locale) = @ARGV;

$message_count = 0;

while (<STDIN>) {
  if (/^ *"(.*?)": *(".*"),? *$/) {
    $message_count++;
    print "Blockly.Msg.$1 = $2;\n";
  }
}

if (!$message_count) {
  print "No strings for $js_locale";
}