summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/luasocket/src/lua_preload.c
blob: 838871c1d66700b00a48cf0a6f3cdeef5bf3c716 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

#include <stdlib.h>
#include "lua.h"
#include "lauxlib.h"

int luatex_mbox_lua_open(lua_State*);
int luatex_headers_lua_open(lua_State*);
int luatex_socket_lua_open(lua_State*);
int luatex_ltn12_lua_open(lua_State*);
int luatex_mime_lua_open(lua_State*);
int luatex_url_lua_open(lua_State*);
int luatex_tp_lua_open(lua_State*);
int luatex_smtp_lua_open(lua_State*);
int luatex_http_lua_open(lua_State*);
int luatex_ftp_lua_open(lua_State*);


extern void luatex_socketlua_open (lua_State *) ;
#include "ftp_lua.c"
#include "headers_lua.c" 
#include "http_lua.c"
#include "ltn12_lua.c"
#include "mbox_lua.c"
#include "mime_lua.c"
#include "smtp_lua.c"
#include "socket_lua.c"
#include "tp_lua.c"
#include "url_lua.c"        


#define TEST(A) do { if (A) {						\
    fprintf(stderr,"FATAL error while preloading lua module " #A);	\
    exit(1);								\
	}								\
} while (0)

void
luatex_socketlua_open (lua_State *L) {
    TEST(luatex_mbox_lua_open(L));
    TEST(luatex_headers_lua_open(L));
    TEST(luatex_socket_lua_open(L));
    TEST(luatex_ltn12_lua_open(L));
    TEST(luatex_mime_lua_open(L));
    TEST(luatex_url_lua_open(L));
    TEST(luatex_tp_lua_open(L));
    TEST(luatex_smtp_lua_open(L));
    TEST(luatex_http_lua_open(L));
    TEST(luatex_ftp_lua_open(L));
}