src/HOL/Mirabelle/lib/scripts/mirabelle.pl
changeset 41361 d1e4a20911cb
parent 38898 a243f8883e8e
child 42033 60350051ef93
equal deleted inserted replaced
41360:7e82d621adc6 41361:d1e4a20911cb
    80     my ($name, $settings_str) = ($1, $2 || "");
    80     my ($name, $settings_str) = ($1, $2 || "");
    81     $name =~ s/^([a-z])/\U$1/;
    81     $name =~ s/^([a-z])/\U$1/;
    82     print SETUP_FILE "setup {* Mirabelle_$name.invoke [";
    82     print SETUP_FILE "setup {* Mirabelle_$name.invoke [";
    83     my $sep = "";
    83     my $sep = "";
    84     foreach (split(/,/, $settings_str)) {
    84     foreach (split(/,/, $settings_str)) {
    85       if (m/\s*(.*)\s*=\s*(.*)\s*/) {
    85       if (m/\s*([^=]*)\s*=\s*(.*)\s*/) {
    86         print SETUP_FILE "$sep(\"$1\", \"$2\")";
    86         print SETUP_FILE "$sep(\"$1\", \"$2\")";
    87         $sep = ", ";
    87         $sep = ", ";
    88       }
    88       }
    89       elsif (m/\s*(.*)\s*/) {
    89       elsif (m/\s*(.*)\s*/) {
    90 	print SETUP_FILE "$sep(\"$1\", \"\")";
    90 	print SETUP_FILE "$sep(\"$1\", \"\")";