summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/lua/lstatslib.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/lua/lstatslib.c')
-rw-r--r--Build/source/texk/web2c/luatexdir/lua/lstatslib.c13
1 files changed, 13 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/lua/lstatslib.c b/Build/source/texk/web2c/luatexdir/lua/lstatslib.c
index 6ec2f0bd488..943cd0fb07a 100644
--- a/Build/source/texk/web2c/luatexdir/lua/lstatslib.c
+++ b/Build/source/texk/web2c/luatexdir/lua/lstatslib.c
@@ -20,6 +20,7 @@
#include "ptexlib.h"
#include "lua/luatex-api.h"
+#include "luatex_svnversion.h"
typedef struct statistic {
const char *name;
@@ -260,6 +261,11 @@ static lua_Number kpse_used_state(void)
}
}
+static lua_Number get_development_id(void)
+{
+ return (lua_Number) luatex_svn_revision ;
+}
+
/* temp, for backward compat */
static int init_pool_ptr = 0;
@@ -293,6 +299,7 @@ static struct statistic stats[] = {
{"banner", 'S', (void *) &getbanner},
{"luatex_version", 'G', &get_luatexversion},
{"luatex_revision", 'S', (void *) &luatexrevision},
+ {"development_id", 'N', &get_development_id},
{"luatex_hashtype", 'S', (void *) &get_luatexhashtype},
{"luatex_hashchars", 'N', &get_luatexhashchars},
{"luatex_engine", 'S', (void *) &getenginename},
@@ -471,9 +478,15 @@ static int resetmessages(lua_State * L)
return 0;
}
+static int setexitcode(lua_State * L) {
+ defaultexitcode = luaL_checkinteger(L,1);
+ return 0;
+}
+
static const struct luaL_Reg statslib[] = {
{"list", statslist},
{"resetmessages", resetmessages},
+ {"setexitcode", setexitcode},
{NULL, NULL} /* sentinel */
};