File: ntrljmp.c

package info (click to toggle)
haskell-hslua 0.3.8-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 664 kB
  • ctags: 1,932
  • sloc: ansic: 11,889; haskell: 843; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 363 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
/*
** See Copyright Notice in lua.h
*/

#include <ctype.h>
#include <stdio.h>

#define luac_c
#define LUA_CORE

#include "lua.h"

extern int hsmethod__call( lua_State *state );

LUAI_FUNC int lua_neutralize_longjmp( lua_State *state )
{
    int result;
    result = hsmethod__call(state);
    if( result <0 )
        return lua_error(state);
    return result;
}