batmud/misc: materials/parsematerial.pl annotate

annotate materials/parsematerial.pl @ 318:c12fd8e5c1b0 misc

Simplify things regarding organ/organic, inorg/inorganic a bit, at the cost of some refactoring of variable handling.

author	Matti Hamalainen <ccr@tnsp.org>
date	Wed, 30 Dec 2015 14:14:36 +0200
parents	8c9b9156a235
children	0a62974ff1f3

rev	line source
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 #!/usr/bin/perl -w
132 d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	2 #
d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	3 # BatMUD material data parser and converter
d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	4 # Developed by Matti Hämäläinen (Ggr Pupunen) <ccr@tnsp.org>
272 ad9f04b11533 Bump copyright years. Matti Hamalainen <ccr@tnsp.org> parents: 268 diff changeset	5 # (C) Copyright 2006-2015 Tecnic Software productions (TNSP)
132 d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	6 #
d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	7 # Converts "raw" material data (output of 'cast identify at material')
d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	8 # from log(s) into various formats and intermediate data for additional
d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	9 # processing by other tools.
d74acad905a2 Updated. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	10 #
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11 use strict;
136 9a0e08516041 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 132 diff changeset	12 use warnings;
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	13 use Data::Dumper;
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	14
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	15
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	16 #
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	17 # Data translation table generated with csv2transtab.pl
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	18 #
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	19 my $transTable =
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	20 {
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	21 2 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	22 "very light" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	23 "light" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	24 "normal" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	25 "heavy" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	26 "very heavy" => 4,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	27 "incredibly heavy" => 5,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	28 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	29 3 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	30 "very fragile" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	31 "fragile" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	32 "normal" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	33 "sturdy" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	34 "very sturdy" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	35 "incredibly sturdy" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	36 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	37 4 => {
168 59bac2a71517 Reorder magical field. Matti Hamalainen <ccr@tnsp.org> parents: 159 diff changeset	38 "not magical" => 0,
59bac2a71517 Reorder magical field. Matti Hamalainen <ccr@tnsp.org> parents: 159 diff changeset	39 "weakly magical" => 1,
59bac2a71517 Reorder magical field. Matti Hamalainen <ccr@tnsp.org> parents: 159 diff changeset	40 "a bit magical" => 2,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	41 "magical" => 3,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	42 "notable magical" => 4,
168 59bac2a71517 Reorder magical field. Matti Hamalainen <ccr@tnsp.org> parents: 159 diff changeset	43 "very magical" => 5,
59bac2a71517 Reorder magical field. Matti Hamalainen <ccr@tnsp.org> parents: 159 diff changeset	44 "highly magical" => 6,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	45 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	46 5 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	47 "unburnable" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	48 "almost unburnable" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	49 "quite unburnable" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	50 "normal" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	51 "quite flammable" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	52 "very flammable" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	53 "highly flammable" => 6,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	54 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	55 6 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	56 "icy" => 0,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	57 "chilly" => 1,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	58 "drafty" => 2,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	59 "comfortable" => 3,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	60 "very warm" => 4,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	61 "excellent" => 5,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	62 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	63 7 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	64 "non toxic" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	65 "very low toxicity" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	66 "low toxicity" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	67 "mediocre toxicity" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	68 "toxic" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	69 "very toxic" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	70 "highly toxic" => 6,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	71 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	72 8 => {
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	73 "lousy" => 0,
159 b593faff9795 Reorder some attributes. Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	74 "poor" => 1,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	75 "weak" => 2,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	76 "insulator" => 3,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	77 "good" => 4,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	78 "great" => 5,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	79 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	80 9 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	81 "loose" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	82 "a bit loose" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	83 "quite solid" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	84 "solid" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	85 "very solid" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	86 "incredibly solid" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	87 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	88 10 => {
159 b593faff9795 Reorder some attributes. Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	89 "poor mentality" => 0,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	90 "low mentality" => 1,
159 b593faff9795 Reorder some attributes. Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	91 "some mentality" => 2,
b593faff9795 Reorder some attributes. Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	92 "mental" => 3,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	93 "high mentality" => 4,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	94 "great mentality" => 5,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	95 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	96 11 => {
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	97 "great reactivity" => 0,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	98 "high reactivity" => 1,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	99 "notable reactivity" => 2,
159 b593faff9795 Reorder some attributes. Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	100 "reactive" => 3,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	101 "low reactivity" => 4,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	102 "poor reactivity" => 5,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	103 "not reactive" => 6,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	104 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	105 12 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	106 "not used" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	107 "rarely used" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	108 "sometimes used" => 2,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	109 "quite much used" => 3,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	110 "frequently used" => 4,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	111 "most common" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	112 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	113 13 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	114 "not used" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	115 "rarely used" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	116 "sometimes used" => 2,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	117 "quite much used" => 3,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	118 "frequently used" => 4,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	119 "most common" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	120 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	121 14 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	122 "cheap" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	123 "low-priced" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	124 "average" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	125 "valuable" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	126 "very valuable" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	127 "highly valuable" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	128 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	129 15 => {
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	130 "very common" => 0,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	131 "quite common" => 1,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	132 "common" => 2,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	133 "average" => 3,
241 bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	134 "rare" => 4,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	135 "very rare" => 5,
bc07a75aee3e Updated. Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	136 "impossible" => 6,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	137 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	138 16 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	139 "Organ" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	140 "Cloth" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	141 "Paper" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	142 "Bone" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	143 "Metal" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	144 "Wood" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	145 "Stone" => 6,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	146 "Alloy" => 7,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	147 "Inorg" => 8,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	148 "Glass" => 9,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	149 "Gem" => 10,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	150 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	151 17 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	152 "No" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	153 "Yes" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	154 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	155 18 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	156 "Hit" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	157 "Protrusion" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	158 "Crag" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	159 "Lode" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	160 "Pocket" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	161 "Gloss" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	162 "Shard" => 6,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	163 "Deposit" => 7,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	164 "Mountain" => 8,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	165 "Nest" => 9,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	166 "Stack" => 10,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	167 "Mound" => 11,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	168 "Chunky" => 12,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	169 "Puddle" => 13,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	170 "Slab" => 14,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	171 "Network" => 15,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	172 "Pool" => 16,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	173 "Hill" => 17,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	174 "Mass" => 18,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	175 "Tangle" => 19,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	176 "Graveyard" => 20,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	177 "Lump" => 21,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	178 "Coil" => 22,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	179 "Abyss" => 23,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	180 "Pile" => 24,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	181 "Torrent" => 25,
247 8d394425c71e Add types from rift plasma. Matti Hamalainen <ccr@tnsp.org> parents: 241 diff changeset	182 "Conflagration" => 26,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	183 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	184 19 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	185 "heap" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	186 "stick" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	187 "pocket" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	188 "hunk" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	189 "shard" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	190 "string" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	191 "stone" => 6,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	192 "slice" => 7,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	193 "wisp" => 8,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	194 "wad" => 9,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	195 "clump" => 10,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	196 "carcass" => 11,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	197 "gob" => 12,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	198 "strip" => 13,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	199 "dough" => 14,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	200 "ball" => 15,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	201 "chunk" => 16,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	202 "load" => 17,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	203 "leaf" => 18,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	204 "salt" => 19,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	205 "pile" => 20,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	206 "isotope" => 21,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	207 "tusk" => 22,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	208 "clod" => 23,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	209 "lump" => 24,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	210 "lode" => 25,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	211 "piece" => 26,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	212 "flame" => 27,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	213 "stem" => 28,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	214 "sphere" => 29,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	215 "fragment" => 30,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	216 "mineral" => 31,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	217 "twig" => 32,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	218 "stalk" => 33,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	219 "crystal" => 34,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	220 "log" => 35,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	221 "reed" => 36,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	222 "nugget" => 37,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	223 "mix" => 38,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	224 "mic" => 39,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	225 "pulp" => 40,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	226 "block" => 41,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	227 "puddle" => 42,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	228 "sliver" => 43,
247 8d394425c71e Add types from rift plasma. Matti Hamalainen <ccr@tnsp.org> parents: 241 diff changeset	229 "bulge" => 44,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	230 },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	231 20 => {
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	232 "formed" => 0,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	233 "stick" => 1,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	234 "bundle" => 2,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	235 "ellipsoid" => 3,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	236 "pocket" => 4,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	237 "brick" => 5,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	238 "mold" => 6,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	239 "gene" => 7,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	240 "shard" => 8,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	241 "form" => 9,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	242 "wisp" => 10,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	243 "isometric" => 11,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	244 "cord" => 12,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	245 "billot" => 13,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	246 "bar" => 14,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	247 "bolt" => 15,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	248 "strip" => 16,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	249 "ball" => 17,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	250 "billit" => 18,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	251 "chunk" => 19,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	252 "octagon" => 20,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	253 "cube" => 21,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	254 "ingot" => 22,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	255 "chip" => 23,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	256 "casting" => 24,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	257 "dean" => 25,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	258 "piece" => 26,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	259 "flame" => 27,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	260 "billet" => 28,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	261 "crafted" => 29,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	262 "cut" => 30,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	263 "pelt" => 31,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	264 "strand" => 32,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	265 "crystal" => 33,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	266 "log" => 34,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	267 "reed" => 35,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	268 "tetragonal" => 36,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	269 "sheet" => 37,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	270 "strap" => 38,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	271 "reem" => 39,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	272 "length" => 40,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	273 "sculpted" => 41,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	274 "block" => 42,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	275 "hexagonal" => 43,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	276 "product" => 44,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	277 "shaped" => 45,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	278 "puddle" => 46,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	279 "fibres" => 47,
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	280 "slab" => 48,
247 8d394425c71e Add types from rift plasma. Matti Hamalainen <ccr@tnsp.org> parents: 241 diff changeset	281 "flare" => 49,
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	282 },
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	283 };
305 8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	284
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	285 my $transFixes =
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	286 {
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	287 16 => {
305 8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	288 "Organic" => 0,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	289 "Cloth" => 1,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	290 "Paper" => 2,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	291 "Bone" => 3,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	292 "Metal" => 4,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	293 "Wood" => 5,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	294 "Stone" => 6,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	295 "Alloy" => 7,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	296 "Inorganic" => 8,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	297 "Glass" => 9,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	298 "Gem" => 10,
8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	299 },
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	300 };
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	301
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	302
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	303 my $revTransTable = {};
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	304
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	305 my @fieldInfo = (
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	306 { "i" => 1, "f" => "name", "w" => 15, "l" => "Name", "s" => "Name" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	307 { "i" => 2, "f" => "weight", "w" => 10, "l" => "Weight", "s" => "Weight" },
254 58b3984db931 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 247 diff changeset	308
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	309 { "i" => 3, "f" => "sturdyness", "w" => 18, "l" => "Sturdyness", "s" => "Sturdyness" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	310 { "i" => 4, "f" => "magic", "w" => 15, "l" => "Magic", "s" => "Magic" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	311 { "i" => 5, "f" => "flammability", "w" => 18, "l" => "Flammability", "s" => "Flammability" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	312 { "i" => 6, "f" => "warmth", "w" => 11, "l" => "Warmth", "s" => "Warmth" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	313 { "i" => 7, "f" => "toxicity", "w" => 18, "l" => "Toxicity", "s" => "Toxicity" },
159 b593faff9795 Reorder some attributes. Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	314 { "i" => 8, "f" => "resistivity", "w" => 9, "l" => "Resistivity", "s" => "Resist" },
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	315 { "i" => 9, "f" => "malleability", "w" => 18, "l" => "Malleability", "s" => "Malleability" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	316 { "i" => 10, "f" => "mentality", "w" => 18, "l" => "Mentality", "s" => "Mentality" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	317 { "i" => 11, "f" => "reactivity", "w" => 18, "l" => "Reactivity", "s" => "Reactivity" },
254 58b3984db931 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 247 diff changeset	318
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	319 { "i" => 12, "f" => "weapon_rarity", "w" => 15, "l" => "Weapon rarity", "s" => "Weapon rarity" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	320 { "i" => 13, "f" => "armour_rarity", "w" => 15, "l" => "Armour rarity", "s" => "Armour rarity" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	321 { "i" => 14, "f" => "value", "w" => 15, "l" => "Value", "s" => "Value" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	322 { "i" => 15, "f" => "rarity", "w" => 12, "l" => "Rarity", "s" => "Rarity" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	323 { "i" => 16, "f" => "type", "w" => 6, "l" => "Type", "s" => "Type" },
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	324 { "i" => 17, "f" => "found_nature", "w" => 3, "l" => "Found in Nature", "s" => "FN?" },
266 37c071cbb0ed Increase lode_name field width. Matti Hamalainen <ccr@tnsp.org> parents: 265 diff changeset	325 { "i" => 18, "f" => "lode_name", "w" => 13, "l" => "Lode name", "s" => "Lode name" },
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	326 { "i" => 19, "f" => "raw_names", "w" => 35, "l" => "Raw names", "s" => "Raw names" },
295 89262bdba061 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 288 diff changeset	327 { "i" => 20, "f" => "refined_names", "w" => 35, "l" => "Refined names", "s" => "Refined names" },
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	328 );
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	329
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	330
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	331 sub ptranslate($$)
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	332 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	333 if (defined($$revTransTable{$_[0]}{$_[1]}))
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	334 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	335 return $$revTransTable{$_[0]}{$_[1]};
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	336 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	337 else
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	338 {
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	339 die("$0: Unknown REVERSE translation table type ".$_[0]." : ".$_[1]."\n");
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	340 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	341 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	342
277 40cfb180d576 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	343
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	344 sub pt($$)
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	345 {
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	346 return ptranslate($_[1], $_[0]{$_[1]})
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	347 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	348
277 40cfb180d576 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	349
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	350 sub pta($$)
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	351 {
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	352 return map { ptranslate($_[1], $_) } @{$_[0]{$_[1]}};
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	353 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	354
277 40cfb180d576 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	355
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	356 sub mtranslate($$)
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	357 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	358 if (defined($$transTable{$_[0]}{$_[1]}))
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	359 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	360 return $$transTable{$_[0]}{$_[1]};
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	361 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	362 else
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	363 {
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	364 die("$0: Unknown translation table type ".$_[0]." : ".$_[1]."\n");
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	365 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	366 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	367
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	368
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	369 ###
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	370 ### Check options
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	371 ###
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	372 my $opt_mode = "";
118 08373f9769d3 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 112 diff changeset	373 my $opt_strip = 1;
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	374
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	375 while (defined(my $arg = shift))
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	376 {
142 6ea807703d04 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 138 diff changeset	377 if ($arg eq "-csv") { $opt_mode = $arg; }
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	378 elsif ($arg eq "-tf") { $opt_mode = $arg; }
f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	379 elsif ($arg eq "-names") { $opt_mode = $arg; }
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	380 elsif ($arg eq "-perl") { $opt_mode = $arg; }
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	381 elsif ($arg eq "-php") { $opt_mode = $arg; }
142 6ea807703d04 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 138 diff changeset	382 elsif ($arg eq "-table") { $opt_mode = $arg; }
288 e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	383 elsif ($arg eq "-dumpfiles") { $opt_mode = $arg; $opt_strip = 0; }
118 08373f9769d3 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 112 diff changeset	384 elsif ($arg eq "-dump") { $opt_mode = $arg; $opt_strip = 0; }
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	385 else
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	386 {
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	387 die("Invalid option '$arg'\n");
f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	388 }
f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	389 }
f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	390
268 3a6d223a1c5b Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 267 diff changeset	391
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	392 ###
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	393 ### Parse input materials
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	394 ###
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	395 my $data = {};
142 6ea807703d04 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 138 diff changeset	396 my $name = "";
282 b72e0788d63e Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 281 diff changeset	397 my $nline = 0;
287 635da7cf43b6 Fixes. Matti Hamalainen <ccr@tnsp.org> parents: 282 diff changeset	398 while (defined(my $line = <STDIN>))
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	399 {
282 b72e0788d63e Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 281 diff changeset	400 $nline++;
287 635da7cf43b6 Fixes. Matti Hamalainen <ccr@tnsp.org> parents: 282 diff changeset	401 chomp($line);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	402 if ($line =~ /MATERIAL STATS $([a-z ]+)$\:/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	403 {
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	404 $name = $1;
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	405 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	406 elsif ($line =~ /^Weight $g\/l$\: $([a-z. ]+)$ Sturdyness\: *$([a-z. ]+)$/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	407 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	408 $$data{$name}{2} = mtranslate(2, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	409 $$data{$name}{3} = mtranslate(3, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	410 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	411 elsif ($line =~ /^Magic\: $([a-z. ]+)$ Flammability\: *$([a-z. ]+)$/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	412 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	413 $$data{$name}{4} = mtranslate(4, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	414 $$data{$name}{5} = mtranslate(5, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	415 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	416 elsif ($line =~ /^Warmth\: $([a-z. ]+ outfit)$ Toxicity\: *$([a-z. ]+)$/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	417 {
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	418 my ($tmp1, $tmp2) = ($1, $2);
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	419 $tmp1 =~ s/ +outfit$//;
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	420 $$data{$name}{6} = mtranslate(6, $tmp1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	421 $$data{$name}{7} = mtranslate(7, $tmp2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	422 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	423 elsif ($line =~ /^Warmth\: $([a-z. ]+)$ Toxicity\: *$([a-z. ]+)$/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	424 {
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	425 my ($tmp1, $tmp2) = ($1, $2);
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	426 $$data{$name}{6} = mtranslate(6, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	427 $$data{$name}{7} = mtranslate(7, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	428 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	429 elsif ($line =~ /^Resistivity\: $([a-z. ]+ insulator)$ Malleability\: *$([a-z. ]+)$?/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	430 {
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	431 my ($tmp1, $tmp2) = ($1, $2);
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	432 $tmp1 =~ s/ +insulator$//;
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	433 $$data{$name}{8} = mtranslate(8, $tmp1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	434 $$data{$name}{9} = mtranslate(9, $tmp2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	435 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	436 elsif ($line =~ /^Resistivity\: $([a-z. ]+)$ Malleability\: *$([a-z. ]+)$?/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	437 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	438 $$data{$name}{8} = mtranslate(8, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	439 $$data{$name}{9} = mtranslate(9, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	440 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	441 elsif ($line =~ /^Mentality\: $([a-z. ]+)$ Reactivity\: *$([a-z. ]+)$?/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	442 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	443 $$data{$name}{10} = mtranslate(10, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	444 $$data{$name}{11} = mtranslate(11, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	445 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	446 elsif ($line =~ /^Weapon rarity\: $([a-z. ]+)$ Armour rarity\: *$([a-z. ]+)$/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	447 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	448 $$data{$name}{12} = mtranslate(12, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	449 $$data{$name}{13} = mtranslate(13, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	450 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	451 elsif ($line =~ /^Value $gp\/kg$\: $([a-z -]+)$ Rarity\: *$([a-z. ]+)$/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	452 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	453 $$data{$name}{14} = mtranslate(14, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	454 $$data{$name}{15} = mtranslate(15, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	455 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	456 elsif ($line =~ /^Article\: ([a-z. ]+) Type: *([A-Za-z]+)/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	457 {
295 89262bdba061 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 288 diff changeset	458 my ($tmp1, $tmp2) = ($1, $2);
89262bdba061 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 288 diff changeset	459 $tmp1 =~ s/ *$//;
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	460
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	461 $$data{$name}{"article"} = $tmp1;
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	462 $$data{$name}{16} = mtranslate(16, $tmp2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	463 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	464 elsif ($line =~ /^Found nature\: (Yes\|No) Lode name\: *([A-Za-z]+)/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	465 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	466 $$data{$name}{17} = mtranslate(17, $1);
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	467 $$data{$name}{18} = mtranslate(18, $2);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	468 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	469 elsif ($line =~ /^Raw names\: *([a-z, ]+[a-z])/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	470 {
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	471 my $tmp = $1;
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	472 @{$$data{$name}{19}} = map { mtranslate(19, $_) } split(/, */, $tmp);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	473 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	474 elsif ($line =~ /^Refined names\: *([a-z, ]+[a-z])/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	475 {
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	476 my $tmp = $1;
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	477 @{$$data{$name}{20}} = map { mtranslate(20, $_) } split(/, */, $tmp);
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	478 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	479 elsif ($line =~ /^-+$\|^\s*$/)
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	480 {
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	481 # Ignore empty lines, and -*
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	482 }
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	483 else
2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	484 {
282 b72e0788d63e Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 281 diff changeset	485 print STDERR "Unparsed line #".$nline.": ".$line."\n";
281 2e8fefca6594 Clean up parsing. Matti Hamalainen <ccr@tnsp.org> parents: 278 diff changeset	486 }
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	487 }
81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	488
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	489 # Fix material types
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	490 foreach my $mid (keys %$transFixes)
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	491 {
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	492 $$transTable{$mid} = $$transFixes{$mid};
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	493 }
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	494
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	495 # Sort the entries by name
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	496 my @entries = sort { $a cmp $b } keys %$data;
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	497
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	498 # Sort materials by type
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	499 my %matByType = ();
259 acc3adbd65aa Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 258 diff changeset	500 foreach my $name (@entries)
acc3adbd65aa Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 258 diff changeset	501 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	502 push(@{$matByType{$$data{$name}{16}}}, lc($name));
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	503 }
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	504
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	505 # List of known types
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	506 my $matTypes = $$transTable{16};
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	507
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	508 # Create reverse translation table
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	509 foreach my $mid (keys %$transTable)
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	510 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	511 foreach my $mkey (keys %{$$transTable{$mid}})
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	512 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	513 $$revTransTable{$mid}{$$transTable{$mid}{$mkey}} = $mkey;
258 8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	514 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	515 }
8f3c5d3ea25a Add value translation helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 257 diff changeset	516
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	517
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	518 sub get_datastr($$)
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	519 {
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	520 my ($name, $i) = @_;
278 5e9f8b76d494 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 277 diff changeset	521 return $name if ($i == 1);
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	522 return join(", ", pta($$data{$name}, $i)) if (ref($$data{$name}{$i}) eq "ARRAY");
5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	523 return pt($$data{$name}, $i);
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	524 }
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	525
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	526
288 e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	527 sub print_material_long($$$)
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	528 {
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	529 my ($file, $mat, $name) = @_;
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	530
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	531 printf $file
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	532 "MATERIAL STATS (".$name."):\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	533 "-------------------------------------------------------------------------------\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	534 "Weight (g/l): %-17s Sturdyness: (%s)\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	535 "Magic: %-17s Flammability: (%s)\n",
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	536 "(".pt($mat, 2).")", pt($mat, 3),
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	537 "(".pt($mat, 4).")", pt($mat, 5);
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	538
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	539 printf $file
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	540 "Warmth: %-17s Toxicity: (%s)\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	541 "Resistivity: %-17s Malleability: (%s)\n",
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	542 "(".pt($mat, 6).")", pt($mat, 7),
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	543 "(".pt($mat, 8).")", pt($mat, 9);
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	544
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	545 printf $file
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	546 "Mentality: %-17s Reactivity: (%s)\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	547 "Weapon rarity: %-17s Armour rarity: (%s)\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	548 "Value (gp/kg): %-17s Rarity: (%s)\n",
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	549 "(".pt($mat, 10).")", pt($mat, 11),
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	550 "(".pt($mat, 12).")", pt($mat, 13),
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	551 "(".pt($mat, 14).")", pt($mat, 15);
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	552
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	553 printf $file
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	554 "Article: %-17s Type: %s\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	555 "Found nature: %-17s Lode name: %s\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	556 "Raw names: %s\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	557 "Refined names: %s\n",
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	558 $$mat{"article"}, pt($mat, 16),
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	559 pt($mat, 17), pt($mat, 18),
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	560 join(", ", pta($mat, 19)),
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	561 join(", ", pta($mat, 20));
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	562 }
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	563
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	564
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	565 ###
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	566 ### Output functionality begins here
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	567 ###
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	568
298 effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	569 ###
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	570 ### Print material names only, one per line
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	571 ###
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	572 if ($opt_mode eq "-names")
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	573 {
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	574 foreach my $name (@entries)
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	575 {
263 a3270c80e3c0 Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	576 print $name."\n";
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	577 }
f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	578 }
298 effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	579 ###
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	580 ### Print CSV format list
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	581 ###
264 09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	582 elsif ($opt_mode eq "-csv")
09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	583 {
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	584 foreach my $name (@entries)
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	585 {
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	586 print join(";", map { get_datastr($name, $$_{"i"}) } @fieldInfo)."\n";
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	587 }
112 f690940e9118 Improvements. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	588 }
298 effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	589 ###
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	590 ### Dump long-format material data to individual files
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	591 ###
288 e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	592 elsif ($opt_mode eq "-dumpfiles")
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	593 {
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	594 foreach my $name (@entries)
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	595 {
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	596 my $filename = $name.".mat";
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	597 $filename =~ s/[^a-z0-9]/_/g;
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	598 open(OUTFILE, ">", $filename) or die("Error opening file '".$filename."' ".$!."\n");
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	599 print_material_long(\*OUTFILE, $$data{$name}, $name);
288 e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	600 close(OUTFILE);
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	601 }
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	602 }
298 effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	603 ###
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	604 ### Dump long-format material data to stdout
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	605 ###
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	606 elsif ($opt_mode eq "-dump")
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	607 {
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	608 foreach my $name (@entries)
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	609 {
288 e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	610 print "\n".
e2f5b059e14d Factor long mode dump into a function. Add -dumpfiles option. Matti Hamalainen <ccr@tnsp.org> parents: 287 diff changeset	611 "-------------------------------------------------------------------------------\n";
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	612 print_material_long(\*STDOUT, $$data{$name}, $name);
118 08373f9769d3 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 112 diff changeset	613 }
08373f9769d3 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 112 diff changeset	614 }
298 effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	615 ###
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	616 ### Print TinyFugue script variables
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	617 ###
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	618 elsif ($opt_mode eq "-tf")
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	619 {
305 8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	620 print "/set gmat_names=".join(' ', map { my $tmp = $_; $tmp =~ s/ /_/g; $tmp } @entries)."\n";
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	621 print "/set gmat_ntypes=".join(' ', map(lc(ptranslate(16, $$data{$_}{16})), @entries))."\n";
c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	622 print "/set gmat_types=".join(' ', sort map(lc(ptranslate(16, $_)), values %$matTypes))."\n";
305 8c9b9156a235 Improve TF data output. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	623
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	624 foreach my $mkey (sort keys %$matTypes)
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	625 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	626 my $type = $$matTypes{$mkey};
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	627 print "/set gmat_type_".
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	628 lc(ptranslate(16, $type))."=".
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	629 join('\|', @{$matByType{$type}})."\n";
7 245e7fff4d4d Added option to output material data for GgrTF use. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	630 }
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	631 }
298 effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	632 ###
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	633 ### Print a nice ASCII table
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	634 ###
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	635 elsif ($opt_mode eq "-table")
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	636 {
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	637 my $str = join("",
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	638 map {
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	639 sprintf("%-".$$_{"w"}."s \| ", $$_{"s"})
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	640 } @fieldInfo);
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	641
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	642 print $str."\n";
142 6ea807703d04 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 138 diff changeset	643 $str =~ s/[^\|]/-/g;
6ea807703d04 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 138 diff changeset	644 $str =~ s/\\|/+/g;
264 09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	645 print $str."\n";
142 6ea807703d04 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 138 diff changeset	646
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	647 foreach my $name (@entries)
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	648 {
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	649 print join("", map {
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	650 sprintf("%-".$$_{"w"}."s \| ", get_datastr($name, $$_{"i"}));
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	651 } @fieldInfo)."\n";
0 81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	652 }
81f1abadda3e Renamed. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	653 }
298 effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	654 ###
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	655 ### Dump a Perl module with material data
effde12004ea Comments. Matti Hamalainen <ccr@tnsp.org> parents: 297 diff changeset	656 ###
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	657 elsif ($opt_mode eq "-perl")
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	658 {
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	659 $Data::Dumper::Indent = 0;
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	660 $Data::Dumper::Useqq = 1;
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	661 $Data::Dumper::Purity = 1;
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	662
264 09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	663 print
09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	664 "package Materials;\n".
09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	665 "require Exporter;\n".
09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	666 "\@ISA = qw(Exporter);\n".
09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	667 "\n".
09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	668 "\@EXPORT = qw(matTable transTable revTransTable matByType matTypes);\n".
09e3f16fbf63 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 263 diff changeset	669 "\n";
137 723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	670
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	671 my $dumper = Data::Dumper->new([$data], ["matTable"]);
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	672 print "our ".$dumper->Dump()."\n\n";
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	673
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	674 $dumper = Data::Dumper->new([\%$transTable], ["transTable"]);
137 723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	675 print "our ".$dumper->Dump()."\n\n";
723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	676
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	677 $dumper = Data::Dumper->new([\%$revTransTable], ["revTransTable"]);
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	678 print "our ".$dumper->Dump()."\n\n";
acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	679
137 723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	680 $dumper = Data::Dumper->new([\%matByType], ["matByType"]);
723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	681 print "our ".$dumper->Dump()."\n\n";
723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	682
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	683 $dumper = Data::Dumper->new([\%$matTypes], ["matTypes"]);
137 723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	684 print "our ".$dumper->Dump()."\n\n";
723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	685
723216311cd1 Updates. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	686 print "1;\n";
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	687 }
297 0620fe91a259 Change output PHP array variable names. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	688 ###
0620fe91a259 Change output PHP array variable names. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	689 ### Dump PHP array format data
0620fe91a259 Change output PHP array variable names. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	690 ###
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	691 elsif ($opt_mode eq "-php")
8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	692 {
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	693 print "<?\n".
297 0620fe91a259 Change output PHP array variable names. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	694 "\$matTransNames = array(".
261 57ded86f87b7 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 260 diff changeset	695 join(",", map { "\"".$$_{"l"}."\"" } @fieldInfo).
57ded86f87b7 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 260 diff changeset	696 ");\n\n".
297 0620fe91a259 Change output PHP array variable names. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	697 "\$matTransTable = array(\n";
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	698 foreach my $i (sort { $a <=> $b } keys %$transTable)
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	699 {
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	700 print " array(";
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	701 foreach my $j (sort { $$transTable{$i}{$a} <=> $$transTable{$i}{$b} } keys %{$$transTable{$i}})
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	702 {
318 c12fd8e5c1b0 Simplify things regarding organ/organic, inorg/inorganic a bit, Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	703 print $$transTable{$i}{$j};
261 57ded86f87b7 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 260 diff changeset	704 $j =~ s/very /v./;
57ded86f87b7 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 260 diff changeset	705 $j =~ s/incredibly /incr./;
57ded86f87b7 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 260 diff changeset	706 print " => \"".$j."\","
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	707 }
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	708 print "),\n";
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	709 }
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	710 print ");\n\n".
297 0620fe91a259 Change output PHP array variable names. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	711 "\$matDataTable = array(\n";
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	712 foreach my $name (sort { $a cmp $b } keys %$data)
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	713 {
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	714 print " \"$name\" => array(";
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	715 for (my $qn = 1; $qn < scalar(@fieldInfo); $qn++)
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	716 {
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	717 my $i = $fieldInfo[$qn]{"i"};
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	718 if (ref($$data{$name}{$i}) eq "ARRAY")
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	719 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	720 print "array(".join(",", @{$$data{$name}{$i}})."),";
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	721 }
265 acb168049adf Major rework of how the utility works internally. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	722 else
257 8ba1da42b219 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 254 diff changeset	723 {
304 5f5f45216218 Cleanup data structure usage. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	724 print $$data{$name}{$i}.", ";
129 56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	725 }
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	726 }
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	727 print "),\n";
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	728 }
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	729 print ");\n?>\n";
56b84ce195d9 Combined csv2phpsql.pl to parsematerial.pl Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	730 }

Mercurial > hg > batmud > misc

annotate materials/parsematerial.pl @ 318:c12fd8e5c1b0 misc