summaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/item_db.pl33
-rwxr-xr-xtools/mob_db.pl24
2 files changed, 29 insertions, 28 deletions
diff --git a/tools/item_db.pl b/tools/item_db.pl
index 101ff3961..f19737f1e 100755
--- a/tools/item_db.pl
+++ b/tools/item_db.pl
@@ -43,29 +43,30 @@ while ($ligne=<STDIN>)
$ligne = $&;
if ($ligne =~ /^\/\//)
{
- printf("# %s\n", $ligne);
+ printf("# ");
+ $ligne = substr($ligne, 2);
+ }
+ if ($ligne =~ $line_format) {
+ @champ = ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22);
} else {
- if ($ligne =~ $line_format) {
- @champ = ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22);
- } else {
- @champ = ();
- }
- if ($#champ != $nb_columns - 1)
+ @champ = ();
+ }
+ if ($#champ != $nb_columns - 1)
+ {
+ # Can't parse, it's a real comment
+ printf ("%s\n", $ligne);
+ } else {
+ printf("REPLACE INTO `%s` VALUES (", $db);
+ for ($i=0; $i<$#champ; $i++)
{
- printf ("# WARNING BAD LINE : %d (%s)\n", $#champ, $ligne);
- printf STDERR ("Warning : can't parse %s\n", $ligne);
- } else {
- printf("REPLACE INTO `%s` VALUES (", $db);
- for ($i=0; $i<$#champ; $i++)
- {
- printField($champ[$i],",",$i);
- }
- printField($champ[$#champ],");\n",$#champ);
+ printField($champ[$i],",",$i);
}
+ printField($champ[$#champ],");\n",$#champ);
}
}
}
+
sub printField {
my ($str, $suffix, $idCol) = @_;
# Remove first { and last }
diff --git a/tools/mob_db.pl b/tools/mob_db.pl
index de4e1b15e..e6eb859c4 100755
--- a/tools/mob_db.pl
+++ b/tools/mob_db.pl
@@ -77,21 +77,21 @@ while ($ligne=<STDIN>)
$ligne = $&;
if ($ligne =~ /^\/\//)
{
- printf("# %s\n", $ligne);
+ printf("# ");
+ $ligne = substr($ligne, 2);
+ }
+ @champ = split (",",$ligne);
+ if ($#champ != $nb_columns - 1)
+ {
+ # Can't parse, it's a real comment
+ printf ("%s\n", $ligne);
} else {
- @champ = split (",(?![^{]*[})])",$ligne);
- if ($#champ != $nb_columns - 1)
+ printf("REPLACE INTO `%s` VALUES (", $db);
+ for ($i=0; $i<$#champ; $i++)
{
- printf ("# WARNING BAD LINE : %d (%s)\n", $#champ, $ligne);
- printf STDERR ("Warning : can't parse %s\n", $ligne);
- } else {
- printf("REPLACE INTO `%s` VALUES (", $db);
- for ($i=0; $i<$#champ; $i++)
- {
- printField($champ[$i],",",$i);
- }
- printField($champ[$#champ],");\n",$#champ);
+ printField($champ[$i],",",$i);
}
+ printField($champ[$#champ],");\n",$#champ);
}
}
}