Schiffsbeschleunigung auf Englisch

- needed a "$lt()" function
This commit is contained in:
Enno Rehling 2007-03-11 14:18:03 +00:00
parent 349f6f9828
commit 8b2897406c
1 changed files with 24 additions and 13 deletions

View File

@ -384,6 +384,16 @@ translate(const char* format, const void * userdata, const char* vars, variant a
return rv;
}
static void
eval_lt(opstack ** stack, const void * userdata) /* (int, int) -> int */
{
int a = opop_i(stack);
int b = opop_i(stack);
int rval = (b<a)?1:0;
opush_i(stack, rval);
unused(userdata);
}
static void
eval_eq(opstack ** stack, const void * userdata) /* (int, int) -> int */
{
@ -465,6 +475,7 @@ eval_locale(opstack ** stack, const void * userdata) /* (string) -> locale */
void
translation_init(void)
{
add_function("lt", &eval_lt);
add_function("eq", &eval_eq);
add_function("int", &eval_int);
add_function("add", &eval_add);