Mercurial > hg > batmud > misc

comparison materials/parsematerial.pl @ 334:0a62974ff1f3 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use modern [] style array definitions instead of array() in PHP output.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 31 Dec 2015 06:33:23 +0200
parents c12fd8e5c1b0
children
comparison
equal deleted inserted replaced
333:02b421843a90 334:0a62974ff1f3
688 ### 688 ###
689 ### Dump PHP array format data 689 ### Dump PHP array format data
690 ### 690 ###
691 elsif ($opt_mode eq "-php") 691 elsif ($opt_mode eq "-php")
692 { 692 {
693 print "<?\n". 693 print "<?php\n".
694 "\$matTransNames = array(". 694 "\$matTransNames = [".
695 join(",", map { "\"".$$_{"l"}."\"" } @fieldInfo). 695 join(",", map { "\"".$$_{"l"}."\"" } @fieldInfo).
696 ");\n\n". 696 "];\n\n".
697 "\$matTransTable = array(\n"; 697 "\$matTransTable = [\n";
698 foreach my $i (sort { $a <=> $b } keys %$transTable) 698 foreach my $i (sort { $a <=> $b } keys %$transTable)
699 { 699 {
700 print " array("; 700 print " [";
701 foreach my $j (sort { $$transTable{$i}{$a} <=> $$transTable{$i}{$b} } keys %{$$transTable{$i}}) 701 foreach my $j (sort { $$transTable{$i}{$a} <=> $$transTable{$i}{$b} } keys %{$$transTable{$i}})
702 { 702 {
703 print $$transTable{$i}{$j}; 703 print $$transTable{$i}{$j};
704 $j =~ s/very /v./; 704 $j =~ s/very /v./;
705 $j =~ s/incredibly /incr./; 705 $j =~ s/incredibly /incr./;
706 print " => \"".$j."\"," 706 print " => \"".$j."\","
707 } 707 }
708 print "),\n"; 708 print "],\n";
709 } 709 }
710 print ");\n\n". 710 print "];\n\n".
711 "\$matDataTable = array(\n"; 711 "\$matDataTable = [\n";
712 foreach my $name (sort { $a cmp $b } keys %$data) 712 foreach my $name (sort { $a cmp $b } keys %$data)
713 { 713 {
714 print " \"$name\" => array("; 714 print " \"$name\" => [";
715 for (my $qn = 1; $qn < scalar(@fieldInfo); $qn++) 715 for (my $qn = 1; $qn < scalar(@fieldInfo); $qn++)
716 { 716 {
717 my $i = $fieldInfo[$qn]{"i"}; 717 my $i = $fieldInfo[$qn]{"i"};
718 if (ref($$data{$name}{$i}) eq "ARRAY") 718 if (ref($$data{$name}{$i}) eq "ARRAY")
719 { 719 {
720 print "array(".join(",", @{$$data{$name}{$i}})."),"; 720 print "[".join(",", @{$$data{$name}{$i}})."],";
721 } 721 }
722 else 722 else
723 { 723 {
724 print $$data{$name}{$i}.", "; 724 print $$data{$name}{$i}.", ";
725 } 725 }
726 } 726 }
727 print "),\n"; 727 print "],\n";
728 } 728 }
729 print ");\n?>\n"; 729 print "];\n?>\n";
730 } 730 }