unsigned char calcuate_xor_from_file(const std::string &fname)
{
posix_file_t fp = INVALID_FILE;
uint32_t fsizelow, fsizehigh, bytertd, pos;
unsigned char ret = 0;
unsigned char* data = NULL;
posix_fopen(fname.c_str(), GENERIC_READ, OPEN_EXISTING, fp);
if (fp == INVALID_FILE) {
goto exit;
}
posix_fsize(fp, fsizelow, fsizehigh);
if (!fsizelow && !fsizehigh) {
goto exit;
}
posix_fseek(fp, 0, 0);
data = (unsigned char*)malloc(fsizelow);
posix_fread(fp, data, fsizelow, bytertd);
pos = 0;
while (pos < fsizelow) {
ret ^= data[pos ++];
}
exit:
if (fp != INVALID_FILE) {
posix_fclose(fp);
}
if (data) {
free(data);
}
return ret;
}
bool hero_map::map_from_file_fp(posix_file_t fp, uint32_t file_offset, uint32_t valid_bytes)
{
uint32_t bytertd, fsizelow, fsizehigh, rdpos;
uint8_t* fdata = NULL;
bool fok = false;
posix_fsize(fp, fsizelow, fsizehigh);
if (fsizelow < file_offset + HEROS_FILE_PREFIX_BYTES) {
goto exit;
}
if (valid_bytes) {
fdata = (uint8_t*)malloc(valid_bytes - HEROS_FILE_PREFIX_BYTES);
} else {
fdata = (uint8_t*)malloc(fsizelow - file_offset - HEROS_FILE_PREFIX_BYTES);
}
if (!fdata) {
goto exit;
}
posix_fseek(fp, file_offset + HEROS_FILE_PREFIX_BYTES, 0);
if (valid_bytes) {
posix_fread(fp, fdata, valid_bytes - HEROS_FILE_PREFIX_BYTES, bytertd);
} else {
posix_fread(fp, fdata, fsizelow - file_offset - HEROS_FILE_PREFIX_BYTES, bytertd);
}
rdpos = 0;
// realloc map memory in hero_map
realloc_hero_map(HEROS_MAX_HEROS);
while (rdpos + HEROS_BYTES_PER_HERO <= bytertd) {
hero h(fdata + rdpos);
if (h.valid()) {
add(h);
}
rdpos += HEROS_BYTES_PER_HERO;
}
fok = true;
exit:
if (fdata) {
free(fdata);
}
return fok;
}
bool hero_map::map_from_file(const std::string& fname)
{
posix_file_t fp = INVALID_FILE;
uint32_t bytertd, fsizelow, fsizehigh, rdpos;
uint8_t* fdata = NULL;
bool fok = false;
posix_fopen(fname.c_str(), GENERIC_READ, OPEN_EXISTING, fp);
if (fp == INVALID_FILE) {
goto exit;
}
posix_fsize(fp, fsizelow, fsizehigh);
if (fsizelow < HEROS_FILE_PREFIX_BYTES) {
goto exit;
}
fdata = (uint8_t*)malloc(fsizelow);
if (!fdata) {
goto exit;
}
posix_fseek(fp, HEROS_FILE_PREFIX_BYTES, 0);
posix_fread(fp, fdata, fsizelow - HEROS_FILE_PREFIX_BYTES, bytertd);
rdpos = 0;
// realloc map memory in hero_map
realloc_hero_map(HEROS_MAX_HEROS);
while (rdpos + HEROS_BYTES_PER_HERO <= bytertd) {
hero h(fdata + rdpos);
if (h.valid()) {
add(h);
}
rdpos += HEROS_BYTES_PER_HERO;
}
fok = true;
exit:
if (fp != INVALID_FILE) {
posix_fclose(fp);
}
if (fdata) {
free(fdata);
}
return fok;
}
bool wml_checksum_from_file(const std::string &fname, uint32_t* nfiles, uint32_t* sum_size, uint32_t* modified)
{
posix_file_t fp = INVALID_FILE;
uint32_t fsizelow, fsizehigh, bytertd, tmp;
bool ok = false;
posix_fopen(fname.c_str(), GENERIC_READ, OPEN_EXISTING, fp);
if (fp == INVALID_FILE) {
goto exit;
}
posix_fsize(fp, fsizelow, fsizehigh);
if (fsizelow <= 16) {
goto exit;
}
posix_fseek(fp, 0, 0);
posix_fread(fp, &tmp, 4, bytertd);
// 判断是不是XWML
if (tmp != mmioFOURCC('X', 'W', 'M', 'L')) {
goto exit;
}
posix_fread(fp, &tmp, 4, bytertd);
if (nfiles) {
*nfiles = tmp;
}
posix_fread(fp, &tmp, 4, bytertd);
if (sum_size) {
*sum_size = tmp;
}
posix_fread(fp, &tmp, 4, bytertd);
if (modified) {
*modified = tmp;
}
ok = true;
exit:
if (fp != INVALID_FILE) {
posix_fclose(fp);
}
return ok;
}
terrain_builder::building_rule* wml_building_rules_from_file(const std::string& fname, uint32_t* rules_size_ptr)
{
posix_file_t fp = INVALID_FILE;
uint32_t datalen, max_str_len, rules_size, fsizelow, fsizehigh, bytertd, idx, len, size, size1, idx1, size2, idx2;
uint8_t* data = NULL, *strbuf = NULL, *variations = NULL;
uint8_t* rdpos;
terrain_builder::building_rule * rules = NULL;
map_location loc;
tmp_pair tmppair;
posix_print("<xwml.cpp>::wml_config_from_file------fname: %s\n", fname.c_str());
if (rules_size_ptr) {
*rules_size_ptr = 0;
}
posix_fopen(fname.c_str(), GENERIC_READ, OPEN_EXISTING, fp);
if (fp == INVALID_FILE) {
posix_print("------<xwml.cpp>::wml_building_rules_from_file, cannot create %s for read\n", fname.c_str());
return NULL;
}
posix_fsize(fp, fsizelow, fsizehigh);
if (fsizelow <= 16 + sizeof(max_str_len) + sizeof(rules_size)) {
posix_fclose(fp);
return NULL;
}
posix_fseek(fp, 16, 0);
posix_fread(fp, &max_str_len, sizeof(max_str_len), bytertd);
posix_fread(fp, &rules_size, sizeof(rules_size), bytertd);
datalen = fsizelow - 16 - sizeof(max_str_len) - sizeof(rules_size);
data = (uint8_t *)malloc(datalen);
strbuf = (uint8_t *)malloc(max_str_len + 1);
variations = (uint8_t *)malloc(max_str_len + 1);
// 剩下数据读出sram
posix_fread(fp, data, datalen, bytertd);
posix_print("max_str_len: %u, fsizelow: %u, datalen: %u\n", max_str_len, fsizelow, datalen);
rdpos = data;
// allocate memory for rules pointer array
if (rules_size) {
// rules = (terrain_builder::building_rule**)malloc(rules_size * sizeof(terrain_builder::building_rule**));
rules = new terrain_builder::building_rule[rules_size];
} else {
rules = NULL;
}
uint32_t rule_index = 0;
/*
uint32_t previous, current, start, stop = SDL_GetTicks();
*/
while (rdpos < data + datalen) {
int x, y;
/*
start = stop;
posix_print("#%04u, (", rule_index);
*/
// building_ruleset::iterator
// terrain_builder::building_rule& pbr = *rules.insert(terrain_builder::building_rule());
// rules.push_back(terrain_builder::building_rule());
// terrain_builder::building_rule& pbr = rules.back();
// rules[rule_index] = new terrain_builder::building_rule;
terrain_builder::building_rule& pbr = rules[rule_index];
/*
previous = SDL_GetTicks();
posix_print("%u", previous - start);
*/
// precedence
memcpy(&pbr.precedence, rdpos, sizeof(int));
rdpos = rdpos + sizeof(int);
// *map_location location_constraints;
memcpy(&x, rdpos, sizeof(int));
memcpy(&y, rdpos + sizeof(int), sizeof(int));
rdpos = rdpos + 2 * sizeof(int);
pbr.location_constraints = map_location(x, y);
// *int probability
memcpy(&pbr.probability, rdpos, sizeof(int));
rdpos = rdpos + sizeof(int);
// local
pbr.local = false;
// size of constraints
memcpy(&size, rdpos, sizeof(int));
rdpos = rdpos + sizeof(int);
/*
current = SDL_GetTicks();
posix_print(" + %u", current - previous);
previous = current;
*/
for (idx = 0; idx < size; idx ++) {
// terrain_constraint
memcpy(&tmppair, rdpos, 8);
rdpos = rdpos + 8;
loc = map_location(tmppair.first, tmppair.second);
// pbr.constraints[loc] = terrain_builder::terrain_constraint(loc);
// constraint = pbr.constraints.find(loc);
pbr.constraints.push_back(terrain_builder::terrain_constraint(loc));
terrain_builder::terrain_constraint& constraint = pbr.constraints.back();
//
// t_mach
//
t_translation::t_match& match = constraint.terrain_types_match;
// memcpy(&x, rdpos, sizeof(int));
// memcpy(&y, rdpos, sizeof(int));
// rdpos = rdpos + 2 * sizeof(int);
// size of terrain in t_mach
// constraints[loc].terrain_types_match = t_translation::t_terrain(x, y);
memcpy(&size1, rdpos, sizeof(uint32_t));
rdpos = rdpos + sizeof(uint32_t);
for (idx1 = 0; idx1 < size1; idx1 ++) {
memcpy(&tmppair, rdpos, 8);
match.terrain.push_back(t_translation::t_terrain(tmppair.first, tmppair.second));
rdpos = rdpos + 8;
}
for (idx1 = 0; idx1 < size1; idx1 ++) {
memcpy(&tmppair, rdpos, 8);
match.mask.push_back(t_translation::t_terrain(tmppair.first, tmppair.second));
rdpos = rdpos + 8;
}
for (idx1 = 0; idx1 < size1; idx1 ++) {
memcpy(&tmppair, rdpos, 8);
match.masked_terrain.push_back(t_translation::t_terrain(tmppair.first, tmppair.second));
rdpos = rdpos + 8;
}
memcpy(&tmppair, rdpos, 8);
match.has_wildcard = tmppair.first? true: false;
match.is_empty = tmppair.second? true: false;
rdpos = rdpos + 8;
// size of flags in set_flag
memcpy(&size1, rdpos, sizeof(uint32_t));
rdpos = rdpos + sizeof(uint32_t);
for (idx1 = 0; idx1 < size1; idx1 ++) {
memcpy(&len, rdpos, sizeof(uint32_t));
memcpy(strbuf, rdpos + sizeof(uint32_t), len);
strbuf[len] = 0;
constraint.set_flag.push_back((char*)strbuf);
rdpos = rdpos + sizeof(uint32_t) + len;
}
// size of flags in no_flag
memcpy(&size1, rdpos, sizeof(uint32_t));
rdpos = rdpos + sizeof(uint32_t);
for (idx1 = 0; idx1 < size1; idx1 ++) {
memcpy(&len, rdpos, sizeof(uint32_t));
memcpy(strbuf, rdpos + sizeof(uint32_t), len);
strbuf[len] = 0;
constraint.no_flag.push_back((char*)strbuf);
rdpos = rdpos + sizeof(uint32_t) + len;
}
// size of flags in has_flag
memcpy(&size1, rdpos, sizeof(uint32_t));
rdpos = rdpos + sizeof(uint32_t);
for (idx1 = 0; idx1 < size1; idx1 ++) {
memcpy(&len, rdpos, sizeof(uint32_t));
memcpy(strbuf, rdpos + sizeof(uint32_t), len);
strbuf[len] = 0;
constraint.has_flag.push_back((char*)strbuf);
rdpos = rdpos + sizeof(uint32_t) + len;
}
// size of rule_image in rule_imagelist
memcpy(&size1, rdpos, sizeof(uint32_t));
rdpos = rdpos + sizeof(uint32_t);
for (idx1 = 0; idx1 < size1; idx1 ++) {
// struct terrain_builder::rule_image& ri = constraint->second.images[idx1];
// rule_image
int layer, center_x, center_y;
bool global_image;
memcpy(&layer, rdpos, sizeof(int));
memcpy(&x, rdpos + 4, sizeof(int));
memcpy(&y, rdpos + 8, sizeof(int));
memcpy(&len, rdpos + 12, sizeof(int));
global_image = len? true: false;
memcpy(¢er_x, rdpos + 16, sizeof(int));
memcpy(¢er_y, rdpos + 20, sizeof(int));
rdpos = rdpos + 24;
constraint.images.push_back(terrain_builder::rule_image(layer, x, y, global_image, center_x, center_y));
// size of rule_image in rule_imagelist
memcpy(&size2, rdpos, sizeof(uint32_t));
rdpos = rdpos + sizeof(uint32_t);
for (idx2 = 0; idx2 < size2; idx2 ++) {
bool random_start;
memcpy(&len, rdpos, sizeof(uint32_t));
memcpy(strbuf, rdpos + sizeof(uint32_t), len);
strbuf[len] = 0;
rdpos = rdpos + sizeof(uint32_t) + len;
// Adds the main (default) variant of the image, if present
memcpy(&len, rdpos, sizeof(uint32_t));
memcpy(variations, rdpos + sizeof(uint32_t), len);
variations[len] = 0;
rdpos = rdpos + sizeof(uint32_t) + len;
memcpy(&len, rdpos, sizeof(int));
random_start = len? true: false;
rdpos = rdpos + sizeof(int);
constraint.images.back().variants.push_back(terrain_builder::rule_image_variant((char*)strbuf, (char*)variations, random_start));
}
}
/*
current = SDL_GetTicks();
posix_print(" + %u", current - previous);
previous = current;
*/
}
/*
stop = SDL_GetTicks();
posix_print("), expend %u ms\n", stop - start);
*/
rule_index ++;
}
if (fp != INVALID_FILE) {
posix_fclose(fp);
}
if (data) {
free(data);
}
if (strbuf) {
free(strbuf);
}
if (variations) {
free(variations);
}
if (rules_size_ptr) {
*rules_size_ptr = rule_index;
}
posix_print("------<xwml.cpp>::wml_building_rules_from_file, restore %u rules, return\n", rule_index);
return rules;
}
void wml_config_from_file(const std::string &fname, config &cfg, uint32_t* nfiles, uint32_t* sum_size, uint32_t* modified)
{
posix_file_t fp = INVALID_FILE;
uint32_t datalen, fsizelow, fsizehigh, max_str_len, bytertd, tdcnt, idx, len;
uint8_t *data = NULL, *namebuf = NULL, *valbuf = NULL;
char tdname[MAXLEN_TEXTDOMAIN + 1];
std::vector<std::string> tdomain;
posix_print("<xwml.cpp>::wml_config_from_file------fname: %s\n", fname.c_str());
cfg.clear(); // 首先清空,以下是增加方式
posix_fopen(fname.c_str(), GENERIC_READ, OPEN_EXISTING, fp);
if (fp == INVALID_FILE) {
posix_print("------<xwml.cpp>::wml_config_from_file, cannot create %s for read\n", fname.c_str());
goto exit;
}
posix_fsize(fp, fsizelow, fsizehigh);
if (fsizelow <= 16) {
goto exit;
}
posix_fseek(fp, 0, 0);
posix_fread(fp, &len, 4, bytertd);
// 判断是不是XWML
if (len != mmioFOURCC('X', 'W', 'M', 'L')) {
goto exit;
}
posix_fread(fp, &len, 4, bytertd);
if (nfiles) {
*nfiles = len;
}
posix_fread(fp, &len, 4, bytertd);
if (sum_size) {
*sum_size = len;
}
posix_fread(fp, &len, 4, bytertd);
if (modified) {
*modified = len;
}
posix_fread(fp, &max_str_len, sizeof(max_str_len), bytertd);
// 读出po
posix_fread(fp, &tdcnt, sizeof(tdcnt), bytertd);
datalen = fsizelow - 16 - sizeof(max_str_len) - sizeof(tdcnt);
for (idx = 0; idx < tdcnt; idx ++) {
posix_fread(fp, &len, sizeof(uint32_t), bytertd);
posix_fread(fp, tdname, len, bytertd);
tdname[len] = 0;
tdomain.push_back(tdname);
datalen -= sizeof(uint32_t) + len;
t_string::add_textdomain(tdomain.back(), get_intl_dir());
}
data = (uint8_t *)malloc(datalen);
namebuf = (uint8_t *)malloc(max_str_len + 1 + 1024);
valbuf = (uint8_t *)malloc(max_str_len + 1 + 1024);
// 剩下数据读出sram
posix_fread(fp, data, datalen, bytertd);
wml_config_from_data(data, datalen, namebuf, valbuf, tdomain, cfg);
exit:
if (fp != INVALID_FILE) {
posix_fclose(fp);
}
if (data) {
free(data);
}
if (namebuf) {
free(namebuf);
}
if (valbuf) {
free(valbuf);
}
return;
}
