Cube  Check-in [7c2704b3d7]

	])
done

BUILDSYS_INIT

AC_PROG_CC
AC_PROG_CPP
AC_PROG_OBJCXX(clang++ g++)
AC_PROG_OBJCXXCPP

AC_CHECK_TOOL(OBJFW_CONFIG, objfw-config)
AS_IF([test x"$OBJFW_CONFIG" = x""], [
	AC_MSG_ERROR(You need ObjFW and objfw-config installed!)
])
OBJCXXFLAGS="$OBJCXXFLAGS $($OBJFW_CONFIG --cppflags --objcflags)"
LDFLAGS="$($OBJFW_CONFIG --ldflags --rpath)"
LIBS="$($OBJFW_CONFIG --libs) $LIBS"

AC_PATH_TOOL(AR, ar)
AC_PATH_TOOL(RANLIB, ranlib)

PKG_CHECK_MODULES(SDL, [
	sdl12_compat >= 1.2
	SDL_image >= 1.2

PROG = client

SRCS = client.mm		\
       clientextras.mm		\
       clientgame.mm		\
       clients2c.mm		\
       command.mm		\
       console.mm		\
       editing.mm		\
       entities.mm		\
       main.mm			\
       menus.mm			\
       monster.mm		\
       physics.mm		\
       rendercubes.mm		\
       renderextras.mm		\
       rendergl.mm		\
       rendermd2.mm		\
       renderparticles.mm	\
       rendertext.mm		\
       rndmap.mm		\
       savegamedemo.mm		\
       server.mm		\
       serverbrowser.mm		\
       serverms.mm		\
       serverutil.mm		\
       sound.mm			\
       tools.mm			\
       weapon.mm		\
       world.mm			\
       worldio.mm		\
       worldlight.mm		\
       worldocull.mm		\
       worldrender.mm

include ../buildsys.mk
include ../extra.mk

CPPFLAGS += -I../enet/include	\
	    ${SDL_CFLAGS}	\
	    ${GL_CFLAGS}	\
	    ${GLU_CFLAGS}	\
	    ${X11_CFLAGS}	\
	    ${ZLIB_CFLAGS}
LIBS += -L../enet -lenet	\
	${SDL_LIBS}		\
	${GL_LIBS}		\
	${GLU_LIBS}		\
	${X11_LIBS}		\
	${ZLIB_LIBS}		\
	-lm
LD = ${OBJCXX}

		return NULL;
	return newstring(word, p - word);
};

char *
lookup(char *n) // find value of ident referenced with $ in exp
{
	ident *ID = idents->access(n + 1);
	if (ID)
		switch (ID->type) {
		case ID_VAR:
			string t;
			itoa(t, *(ID->storage));
			return exchangestr(n, t);
		case ID_ALIAS:
			return exchangestr(n, ID->action);
		};
	conoutf("unknown alias lookup: %s", n + 1);
	return n;
};

int
execute(char *p, bool isdown) // all evaluation happens here, recursively

		       0; // more statements if this isn't the end of the string
		char *c = w[0];
		if (*c == '/')
			c++; // strip irc-style command prefix
		if (!*c)
			continue; // empty statement

		ident *ID = idents->access(c);
		if (!ID) {
			val = ATOI(c);
			if (!val && *c != '0')
				conoutf("unknown command: %s", c);
		} else
			switch (ID->type) {
			case ID_COMMAND:          // game defined commands
				switch (ID->narg) // use very ad-hoc function
				                  // signature, and just call it
				{
				case ARG_1INT:
					if (isdown)
						((void(__cdecl *)(int))ID->fun)(
						    ATOI(w[1]));
					break;
				case ARG_2INT:
					if (isdown)
						((void(__cdecl *)(
						    int, int))ID->fun)(
						    ATOI(w[1]), ATOI(w[2]));
					break;
				case ARG_3INT:
					if (isdown)
						((void(__cdecl *)(int, int,
						    int))ID->fun)(ATOI(w[1]),
						    ATOI(w[2]), ATOI(w[3]));
					break;
				case ARG_4INT:
					if (isdown)
						((void(__cdecl *)(int, int, int,
						    int))ID->fun)(ATOI(w[1]),
						    ATOI(w[2]), ATOI(w[3]),
						    ATOI(w[4]));
					break;
				case ARG_NONE:
					if (isdown)
						((void(__cdecl *)())ID->fun)();
					break;
				case ARG_1STR:
					if (isdown)
						((void(__cdecl *)(
						    char *))ID->fun)(w[1]);
					break;
				case ARG_2STR:
					if (isdown)
						((void(__cdecl *)(
						    char *, char *))ID->fun)(
						    w[1], w[2]);
					break;
				case ARG_3STR:
					if (isdown)
						((void(__cdecl *)(char *,
						    char *, char *))ID->fun)(
						    w[1], w[2], w[3]);
					break;
				case ARG_5STR:
					if (isdown)
						((void(__cdecl *)(char *,
						    char *, char *, char *,
						    char *))ID->fun)(w[1], w[2],
						    w[3], w[4], w[5]);
					break;
				case ARG_DOWN:
					((void(__cdecl *)(bool))ID->fun)(
					    isdown);
					break;
				case ARG_DWN1:
					((void(__cdecl *)(bool,
					    char *))ID->fun)(isdown, w[1]);
					break;
				case ARG_1EXP:
					if (isdown)
						val = ((int(__cdecl *)(
						    int))ID->fun)(
						    execute(w[1]));
					break;
				case ARG_2EXP:
					if (isdown)
						val = ((int(__cdecl *)(int,
						    int))ID->fun)(execute(w[1]),
						    execute(w[2]));
					break;
				case ARG_1EST:
					if (isdown)
						val = ((int(__cdecl *)(
						    char *))ID->fun)(w[1]);
					break;
				case ARG_2EST:
					if (isdown)
						val = ((int(__cdecl *)(
						    char *, char *))ID->fun)(
						    w[1], w[2]);
					break;
				case ARG_VARI:
					if (isdown) {
						string r; // limit, remove
						r[0] = 0;
						for (int i = 1; i < numargs;
						     i++) {
							strcat_s(r,
							    w[i]); // make
							           // string-list
							           // out of all
							           // arguments
							if (i == numargs - 1)
								break;
							strcat_s(r, " ");
						};
						((void(__cdecl *)(
						    char *))ID->fun)(r);
						break;
					}
				};
				break;

			case ID_VAR: // game defined variabled
				if (isdown) {
					if (!w[1][0])
						conoutf("%s = %d", c,
						    *ID->storage); // var with
						                   // no value
						                   // just
						                   // prints its
						                   // current
						                   // value
					else {
						if (ID->min > ID->max) {
							conoutf("variable is "
							        "read-only");
						} else {
							int i1 = ATOI(w[1]);
							if (i1 < ID->min ||
							    i1 > ID->max) {
								i1 =
								    i1 < ID->min
								        ? ID->min
								        : ID->max; // clamp to valid range
								conoutf(
								    "valid "
								    "range for "
								    "%s is "
								    "%d..%d",
								    c, ID->min,
								    ID->max);
							}
							*ID->storage = i1;
						};
						if (ID->fun)
							((void(__cdecl *)())ID
							        ->fun)(); // call
							                  // trigger
							                  // function
							                  // if
							                  // available
					};
				};
				break;

			case ID_ALIAS: // alias, also used as functions and
			               // (global) variables
				for (int i = 1; i < numargs; i++) {
					sprintf_sd(t)("arg%d",
					    i); // set any arguments as (global)
					        // arg values so functions can
					        // access them
					alias(t, w[i]);
				};
				char *action = newstring(
				    ID->action); // create new string here
				                 // because alias could rebind
				                 // itself
				val = execute(action, isdown);
				gp()->deallocstr(action);
				break;
			};
		loopj(numargs) gp()->deallocstr(w[j]);

	fprintf(f, "// automatically written on exit, do not modify\n// delete "
	           "this file to have defaults.cfg overwrite these "
	           "settings\n// modify settings in game, or put settings in "
	           "autoexec.cfg to override anything\n\n");
	writeclientinfo(f);
	fprintf(f, "\n");
	enumerate(
	    idents, ident *, ID, if (ID->type == ID_VAR && ID->persist) {
		    fprintf(f, "%s %d\n", ID->name, *ID->storage);
	    };);
	fprintf(f, "\n");
	writebinds(f);
	fprintf(f, "\n");
	enumerate(
	    idents, ident *, ID,
	    if (ID->type == ID_ALIAS && !strstr(ID->name, "nextmap_")) {
		    fprintf(f, "alias \"%s\" [%s]\n", ID->name, ID->action);
	    };);
	fclose(f);
};

COMMAND(writecfg, ARG_NONE);

// below the commands that implement a small imperative language. thanks to the