// I have no index...
static void create_tild_multi_layers(Entity *mod_description, int tild,
Entity **map, Entity *desc, int pos,
int width)
{
Entity *sp = yeGetByStrFast(desc, "start_pos");
int start_pos = yeGetInt(yeGetByIdx(sp, 0)) +
yeGetInt(yeGetByIdx(sp, 0)) * (width ? width : 8000);
if (start_pos == pos) {
yePushBack(yeCreateArrayAt(map[1], NULL, pos),
yeGetByStrFast(desc, "start_id"), NULL);
}
Y_BLOCK_ARRAY_FOREACH_PTR(YE_TO_ARRAY(mod_description)->values, tmp,
it, ArrayEntry) {
const char *char_str;
if (!tmp)
continue;
char_str = yeGetString(yeGetByStr(tmp->entity, "map-char"));
if (char_str[0] == tild) {
if (yeStringIndexChar(yeGetByStrFast(desc, "ground_char"), char_str) >= 0) {
yeCreateInt(it, yeCreateArrayAt(map[0], NULL, pos), NULL);
} else {
yeCreateInt(it, yeCreateArrayAt(map[2], NULL, pos), NULL);
}
return;
}
}
yeCreateInt(tild, yeCreateArrayAt(map[0], NULL, pos), NULL);
}
Entity *ywMapCreatePos(int posX, int posY, Entity *father, const char *str)
{
Entity *ret = yeCreateArray(father, str);
yeCreateInt(posX, ret, "x");
yeCreateInt(posY, ret, "y");
return ret;
}
/* this tests is actually usefull only with valgrind */
void testLifecycleFlow(void)
{
Entity *mainStruct = yeCreateArray(NULL, NULL);
Entity *subStruct1 = yeCreateArray(mainStruct, NULL);
Entity *subStruct2 = yeCreateArray(NULL, NULL);
Entity *test2 = yeCreateInt(1, subStruct2, NULL);
Entity *test3 = yeCreateFloat(1, subStruct2, NULL);
g_assert(test2);
g_assert(test3);
g_assert(mainStruct);
g_assert(subStruct1);
g_assert(subStruct2);
g_assert(yeLen(mainStruct) == 1);
g_assert(yeLen(subStruct2) == 2);
g_assert(!yePushBack(mainStruct, subStruct2, NULL));
g_assert(yeLen(mainStruct) == 2);
g_assert(mainStruct->refCount == 1);
g_assert(subStruct1->refCount == 1);
g_assert(test3->refCount == 1);
g_assert(test2->refCount == 1);
g_assert(subStruct2->refCount == 2);
YE_DESTROY(subStruct2);
g_assert(subStruct2);
g_assert(subStruct2->refCount == 1);
YE_DESTROY(mainStruct);
g_assert(mainStruct == NULL);
}
void testLifecycleSimple(void)
{
Entity *test1 = yeCreateArray(NULL, NULL);
Entity *test2 = yeCreateInt(1, NULL, NULL);
Entity *test3 = yeCreateFloat(1, NULL, NULL);
Entity *test4 = yeCreateString("test", NULL, NULL);
Entity *test5 = yeCreateFunction("funcName", 3, NULL, NULL, NULL);
g_assert(test1);
g_assert(test2);
g_assert(test3);
g_assert(test4);
g_assert(test5);
YE_DESTROY(test1);
YE_DESTROY(test2);
YE_DESTROY(test3);
YE_DESTROY(test4);
YE_DESTROY(test5);
g_assert(test1 == NULL);
g_assert(test2 == NULL);
g_assert(test3 == NULL);
g_assert(test4 == NULL);
g_assert(test5 == NULL);
}
static int shooterInit(YWidgetState *wid, YEvent *eve, Entity *arg)
{
Entity *tmp;
(void)wid;
(void)eve;
yeCreateInt(MAP_SIZE_W, arg, "width");
arg = yeCreateArray(arg, "map");
for (int i = 0; i < MAP_SIZE_W * MAP_SIZE_H; ++i) {
tmp = yeCreateArray(arg, NULL);
yeCreateInt(0, tmp, NULL);
}
ywinAddCallback(ywinCreateNativeCallback("shooterAction", shooterAction));
ywidBind(wid, "action", "shooterAction");
return NOTHANDLE;
}
static void create_tild(Entity *mod_description, int tild, Entity *map)
{
if (mod_description) {
Y_BLOCK_ARRAY_FOREACH_PTR(YE_TO_ARRAY(mod_description)->values, tmp,
it, ArrayEntry) {
const char *char_str;
if (!tmp)
continue;
char_str = yeGetString(yeGetByStr(tmp->entity, "map-char"));
if (char_str[0] == tild) {
yeCreateInt(it, yeCreateArray(map, NULL), NULL);
return;
}
}
}
yeCreateInt(tild, yeCreateArray(map, NULL), NULL);
}
void testLifeDeathRebirdAndAgain(void)
{
Entity *mainEnt = yeCreateArray(NULL, NULL);
Entity *map;
Entity *tmp;
yeCreateInt(100, mainEnt, "width");
map = yeCreateArray(mainEnt, "map");
g_assert(map);
for (int i = 0; i < 2000; ++i) {
tmp = yeCreateArray(map, NULL);
g_assert(tmp);
g_assert(yeCreateInt(0, tmp, NULL));
}
tmp = yeGet(map, 500);
g_assert(tmp);
yeCreateInt(1, tmp, "hr");
int good = 0;;
for (int j = 500; j < 1000; ++j) {
tmp = yeGet(map, j);
for (unsigned int i = 0; i < yeLen(tmp); ++i) {
Entity *curHero = yeGet(tmp, i);
if (yeGetInt(curHero) == 1) {
good = 1;
/* You can get it Noww !!!! */
g_assert(yeLen(tmp) == 2);
yeRemoveChild(tmp, curHero);
g_assert(yeLen(tmp) == 1);
break;
}
}
}
g_assert(good);
YE_DESTROY(mainEnt);
}
void *load_entity(int nb, void **args)
{
Entity *desc = args[0];
if (nb != 1) {
DPRINT_ERR("numbers of arguments incorect\n");
return NULL;
}
const char *file_name = yeGetString(yeGetByStrFast(desc, "map"));
int fd = open(file_name, O_RDONLY);
int width = 0, len = 0;
Entity *resources = ywMapGetResourcesFromEntity(desc);
char *name = nb > 2 ? args[2] : NULL;
Entity *father = nb > 1 ? args[1] : NULL;
int ret = 0;
Entity *entries;
if (fd < 1) {
DPRINT_ERR("error when opening '%s'\n", file_name);
goto error;
}
yeReCreateString("container", desc, "<type>");
yeCreateString("stacking", desc, "cnt-type");
entries = yeCreateArray(desc, "entries");
yeCreateArray(entries, NULL);
yeCreateArray(entries, NULL);
yeCreateArray(entries, NULL);
if (read_map(fd, entries, resources, file_name, &width, &len, desc))
goto error;
YE_ARRAY_FOREACH(entries, map) {
yeCreateString("map", map, "<type>");
yeCreateInt(width, map, "width");
yeCreateInt(len, map, "len");
yePushBack(map, resources, "resources");
}
void testMazeGenMod(void)
{
Entity *maze_info;
Entity *pos;
#define ymaze_create(maze_info, father, name) \
ysCall(ygGetTccManager(), "maze_create", maze_info, father, name)
GameConfig cfg;
g_assert(!ygInitGameConfig(&cfg, NULL, NONE));
g_assert(!ygInit(&cfg));
g_assert(ygLoadMod(TESTS_PATH"../modules/maze/"));
yuiRandInit();
pos = ywPosCreateInts(0, 0, NULL, NULL);
maze_info = yeCreateArray(NULL, NULL);
yeCreateInt(0, maze_info, "type");
yeCreateInt(25, maze_info, "width");
yeCreateInt(20, maze_info, "height");
yeCreateInt(4, maze_info, "nb_wall");
yeCreateInt(1, maze_info, "wall_elem");
/* maze = ymaze_create(maze_info, NULL, NULL); */
/* g_assert(maze); */
/* for (int i = 0; i < 20; ++i) { */
/* for (int j = 0; j < 25; ++j) { */
/* ywPosSet(pos, j, i); */
/* if (yeLen(ywMapGetCase(maze, pos))) */
/* printf("#"); */
/* else */
/* printf("."); */
/* } */
/* printf("\n"); */
/* } */
yeMultDestroy(maze_info, pos);
ygEnd();
ygCleanGameConfig(&cfg);
}
void testListMod(void)
{
yeInitMem();
GameConfig cfg;
Entity *gc = yeCreateArray(NULL, NULL);
Entity *e1 = yeCreateInt(0, gc, NULL);
Entity *e2 = yeCreateInt(0, gc, NULL);
Entity *e3 = yeCreateInt(0, gc, NULL);
Entity *l;
Entity *l2;
Entity *l3;
g_assert(!ygInitGameConfig(&cfg, NULL, NONE));
g_assert(!ygInit(&cfg));
ygLoadMod(TESTS_PATH"../modules/list/");
#define list_init_from_array(elem, father, name) ysCall(ygGetTccManager(), \
"list_init_from_array", \
elem, father, name)
#define list_elem(list) ysCall(ygGetTccManager(), "list_elem", list)
#define list_insert(list, elem) ysCall(ygGetTccManager(), "list_insert", \
list, elem)
#define list_next(list) ysCall(ygGetTccManager(), "list_next", list)
#define list_prev(list) ysCall(ygGetTccManager(), "list_prev", list)
#define list_head(list) ysCall(ygGetTccManager(), "list_head", list)
#define list_last(list) ysCall(ygGetTccManager(), "list_last", list)
#define list_pop(list) ysCall(ygGetTccManager(), "list_pop", list)
#define list_insert_before(list, elem) ysCall(ygGetTccManager(), \
"list_insert_before", \
list, elem)
#define list_roll(list) ysCall(ygGetTccManager(), "list_roll", list)
#define list_back_roll(list) ysCall(ygGetTccManager(), "list_back_roll", list)
#define list_to_array(list, father, name) ysCall(ygGetTccManager(),\
"list_to_array", \
list, father, name)
l = ysCall(ygGetTccManager(), "list_init", e1);
g_assert(l);
g_assert(list_elem(l) == e1);
g_assert(list_prev(l) == l);
g_assert(list_next(l) == l);
/* test insert */
g_assert(list_insert(l, e2) == l);
g_assert(list_elem(list_next(l)) == e2);
g_assert(list_elem(list_prev(l)) == e2);
g_assert(list_elem(list_next(list_next(l))) == e1);
g_assert(list_elem(list_next(list_prev(l))) == e1);
/* pop second elem */
l2 = list_pop(list_next(l));
g_assert(l2 == l);
g_assert(list_elem(l) == e1);
g_assert(list_prev(l) == l);
g_assert(list_next(l) == l);
/* insert l2 before l1 */
l2 = list_insert_before(l, e2);
g_assert(l2 != l);
g_assert(list_elem(l) == e1);
g_assert(list_elem(l2) == e2);
g_assert(list_elem(list_next(l)) == e2);
g_assert(list_elem(list_prev(l)) == e2);
g_assert(list_elem(list_next(list_next(l))) == e1);
g_assert(list_elem(list_next(list_prev(l))) == e1);
/* insert l3 before l1 */
/* l2 -> l3 -> l */
l3 = list_insert_before(l, e3);
g_assert(l3 == l2);
l3 = list_next(l2);
g_assert(list_head(l) == l2);
g_assert(l3 != l2);
g_assert(list_elem(l) == e1);
g_assert(list_elem(l2) == e2);
g_assert(list_elem(l3) == e3);
g_assert(list_elem(list_next(l)) == e2);
g_assert(list_elem(list_prev(l)) == e3);
g_assert(list_elem(list_next(l3)) == e1);
g_assert(list_elem(list_prev(l3)) == e2);
g_assert(list_elem(list_next(list_next(l))) == e3);
g_assert(list_elem(list_next(list_prev(l))) == e1);
l3 = list_pop(l3);
g_assert(l3 == l2);
g_assert(list_head(l) == l2);
g_assert(list_next(l2) == l);
g_assert(list_prev(l2) == l);
g_assert(list_next(l) == l2);
g_assert(list_prev(l) == l2);
l2 = list_pop(l2);
g_assert(list_head(l) == l);
g_assert(l == l2);
g_assert(list_next(l) == l2);
g_assert(list_prev(l) == l2);
g_assert(list_insert(l, e2) == l);
l2 = list_last(l);
g_assert(list_insert(l2, e2) == l);
l3 = list_last(l);
g_assert(l != l2);
g_assert(l2 != l3);
g_assert(l != l3);
g_assert(list_prev(l) == l3);
g_assert(list_next(l) == l2);
g_assert(list_next(l2) == l3);
g_assert(list_head(l) == l);
g_assert(l2 == list_roll(l3));
g_assert(l3 == list_roll(l3));
g_assert(l == list_roll(l3));
g_assert(l3 == list_back_roll(l3));
g_assert(l2 == list_back_roll(l3));
g_assert(l == list_back_roll(l3));
ysCall(ygGetTccManager(), "list_destroy", l);
l = list_init_from_array(gc, gc, "list :p");
g_assert(l);
g_assert(list_elem(l) == e1);
g_assert(list_elem(list_next(l)) == e2);
g_assert(list_elem(list_prev(l)) == e3);
g_assert(list_elem(list_next(list_next(l))) == e3);
g_assert(list_elem(list_next(list_prev(l))) == e1);
g_assert(yeGet(gc, "list :p") == l);
Entity *ar2 = list_to_array(l, gc, "ar2");
g_assert(ar2 && ar2 == yeGet(gc, "ar2"));
g_assert(yeGet(ar2, 0) == e1);
g_assert(yeGet(ar2, 1) == e2);
g_assert(yeGet(ar2, 2) == e3);
ysCall(ygGetTccManager(), "list_destroy", l);
ygCleanGameConfig(&cfg);
yeDestroy(gc);
ygEnd();
}
