DELTA 20121 0 1729 SVNåå «Yž¹«wFC_LINE__, FALSE, level, "%s",ENDREP DELTA 20235 1138 1114 SVN†‰Q†‰T ÷‚…’M÷FCENDREP DELTA 19597 2384 769 SVN£r£u –x‚Œ{–wFCENDREP DELTA 10537 7968 2718 SVN¥©„p…e€{˜.†€ƒu†ž~/* utility */ #include "log.h" /* enum log_level */ #include "shared.h" /* common */ #include "fc_types.h" _real(const struct caravan_parameter *parameter, enum log_level level, const char *file, const char *function, int line); #define caravan_parameter_log(parameter, loglevel) \ if (log_do_output_for_level(loglevel)) { \ caravan_parameter_log_real(parameter, loglevel, __FILE__, \ __FUNCTION__, __FC_LINE__); \ }ENDREP DELTA 18623 9189 25538 SVN† † '!²5ƒŒ²5ŠÆB¾@ƒ-‚…Šƒ(…†4Š–…‰_fc_FC_LINE__,fc_strcasefc_strcase† ÍqÎÍq***************ENDREP DELTA 19272 19716 1071 SVNŽ,—!‡†€ †>†™'Œl€ƒzŠ6€q~.dai_city_log(char *buffer, int buflength, const struct city *pcity); void dai_unit_log(char *buffer, int buflength, const struct unit *punit)FC_LINE__, level, notify,void real_bodyguard_log(const char *file, const char *function, int line, enum log_level level, bool notify, const struct unit *punit, const char *msg, ...) fc__attribute((__format__ (__printf__, 7, 8))); #define BODYGUARD_LOG(loglevel, punit, msg, ...) \ { \ bool notify = punit->server.debug; BODYGUARD)); \ if (log_do_output_for_level(level)) { \ real_bodyguard_log(__FILE__, __FUNCTION__, __FC_LINE__, level, notify, \ punit, msg, ## __VA_ARGS__); ENDREP DELTA 14639 4323 1078 SVNŽB…‡-¾Jˆ}€„CJF(x) \ real_sanity_check_city(x, __FILE__,__FUNCTION__, __FC const char *function, int line); # define sanity_check_tile(x) \ real_sanity_check_tile(x, __FILE__,__FUNCTION__, __FC_LINE__) void real_sanity_check_tile(struct tile *ptile, const char *file, const char *function, int line); # define sanity_check() \ real_sanity_check(__FILE__, __FUNCTION__, __FC_LINE__) void real_sanity_check( const char *file, const char *function, int line); #else /* SANITY_CHECKING */ # define sanity_check_city(x) (void)0 # define sanity_check_tile(x) (void)0 # define sanity_check(ENDREP DELTA 18975 37302 1132 SVNŽ`¯B©M„fL€‰Ty‹€ŸB*/ #ifndef FC__LUASCRIPT_H #define FC__LUASCRIPT_H #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /* dependencies/tolua */ #include "tolua.h" /* utility */ #include "log.h" #include "support.h" /* fc__attribute() */ /* common/scriptcore */ #include "luascript_types.h" #include "luascript_func.h" #include "luascript_signal.h" struct section_file; struct luascript_func_hash; struct luascript_signal_hash; struct luascript_signal_name_list; struct connection; struct fc_lua; typedef void (*luascript_log_func_t) (struct fc_lua *fcl, enum log_level level, const char *format, ...) fc__attribute((__format__ (__printf__, 3, 4))); struct fc_lua { lua_State *state; luascript_log_func_t output_fct; /* This is needed for server 'lua' and 'luafile' commands. */ struct connection *caller; struct luascript_func_hash *funcs; struct luascript_signal_hash *signals; struct luascript_signal_name_list *signal_names; }; /* Error functions for lua scripts. */ int luascript_error(lua_State *L, const char *format, ...) fc__attribute((__format__ (__printf__, 2, 3))); int luascript_error_vargsCreate / destroy a freeciv lua instance. */ struct fc_lua *luascript_new(luascript_log_func_t outputfct); struct fc_lua *luascript_get_fcl(lua_State *L); void luascript_destroy(struct fc_lua *fcl); void luascript_log(struct fc_lua *fcl, enum log_level level, const char *format, ...) fc__attribute((__format__ (__printf__, 3, 4))); void luascript_log_vargs(struct fc_lua *fcl, enum log_level level, const char *format, va_list args); void luascript_push_args(struct fc_lua *fcl, int nargs, enum api_types *parg_types, va_list args); bool luascript_check_function(struct fc_lua *fcl, const char *funcname); int luascript_call(struct fc_lua *fcl, int narg, int nret, const char *code); int luascript_do_string(struct fc_lua *fcl, const char *str, const char *name); int luascript_do_file(struct fc_lua *fcl, const char *filename); /* Callback invocation function. */ bool luascript_callback_invoke(struct fc_lua *fcl, const char *callback_name, int nargs, enum api_types *parg_types, va_list args); void luascript_remove_exported_object(struct fc_lua *fcl, void *object); /* Load / save variables. */ void luascript_vars_save(struct fc_lua *fcl, struct section_file *file, const char *section); void luascript_vars_load(struct fc_lua *fcl, struct section_file *file, const char *section); /* Returns additional arguments on failure. */ #define LUASCRIPT_ASSERT_CAT(str1, str2) str1 ## str2 /* Script assertion (for debugging only) */ #ifdef DEBUG #define LUASCRIPT_ASSERT(L, check, ...) \ if (!(check)) { \ luascript_error(L, "in %s() [%s::%d]: the assertion '%s' failed.", \ __FUNCTION__, __FILE__, __FC_LINE__, #check); \ return LUASCRIPT_ASSERT_CAT(, __VA_ARGS__); \ } #else #define LUASCRIPT_ASSERT(check, ...) #endif #define LUASCRIPT_CHECK_STATE(L, ...) \ if (!L) { \ log_error("No lua state available"); \ return LUASCRIPT_ASSERT_CAT(, __VA_ARGS__); \ } /* script_error on failed check */ #define LUASCRIPT_CHECK(L, check, msg, ...) \ if (!(check)) { \ luascript_error(L, msg); \ return LUASCRIPT_ASSERT_CAT(, __VA_ARGS__); \ } /* script_arg_error on failed check */ #define LUASCRIPT_CHECK_ARG(L, check, narg, msg, ...) \ if (!(check)) { \ luascript_arg_error(L, narg, msg); \ return LUASCRIPT_ASSERT_CAT(, __VA_ARGS__); \ } /* script_arg_error on nil value */ #define LUASCRIPT_CHECK_ARG_NIL(L, value, narg, type, ...) \ if ((value) == NULL) { \ luascript_arg_error(L, narg, "got 'nil', '" #type "' expected"); \ return LUASCRIPT_ASSERT_CAT(, __VA_ARGS__); \ } /* script_arg_error on nil value. The first argument is the lua state and the * second is the pointer to self. */ #define LUASCRIPT_CHECK_SELF(L, value, ...) \ if ((value) == NULL) { \ luascript_arg_error(L, 2, "got 'nil' for self"); \ return LUASCRIPT_ASSERT_CAT(, __VA_ARGS__); \ } #ifdef __cplusplus } #endif /* __cplusplus */ #endif /* FC__LUASCRIPT_H */ ENDREP DELTA 19823 0 1165 SVNü_ý 3{³ë\‘FC_LINE__), \ ENDREP DELTA 20286 17354 10793 SVN† † Q§HƒÏ¨•‚¨Sƒ÷-¼ __FC in with a NULL-terminated string containing the reason. ***† † † Rš,C@‚Ç ´=‚ÈL€‚Mô?‚âs€p_ƒ†8´C@Z‚þ3€‚bƒ‹s‘!ƒŒp€eƒ¯+€„lÛA‚ÿ]‚§Vƒê/ Define the possible arguments to the delegation command */ #define SPECENUM_NAME lua_args #define SPECENUM_VALUE0 LUA_CMD #define SPECENUM_VALUE0NAME "cmd" #define SPECENUM_VALUE1 LUA_FILE #define SPECENUM_VALUE1NAME "file" #include "specenum_gen.h"***/ static const char *lua_accessor(int i) { i = CLIP(0, i, lua_args_max()); return lua_args_name((enum luaEvaluate a line of lua script or a lua script file. FILE *script_file; const char extension[] = ".lua", *real_filename = NULL; char luafile[4096], tilde_filename[4096]; char *tokens[1], *luaarg = NULL; int ntokens, ind; enum m_pre_result result; bool ret = FALSE; ntokens = get_tokens(arg, tokens, 1lua_accessor, luaWe have a match */ luaarg = arg + strlen(lua_args_name(ind)); luaarg = skip_leading_spaces(luaarg); break; case M_PRE_EMPTY: /* Nothing. */ break; case M_PRE_AMBIGUOUS: case M_PRE_LONG: case M_PRE_FAIL: case M_PRE_LAST: /* Fall back to depreciated 'lua