mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-02-07 06:53:33 +00:00
Add Hello World example for LUA C API (#97)
This commit is contained in:
Justine Tunney
parent
2a3037d4e8
commit
67c27d9e6e
7 changed files with 50 additions and 9 deletions
2
Makefile
2
Makefile
|
|
@ -135,10 +135,10 @@ include third_party/regex/regex.mk
|
|||
include third_party/third_party.mk
|
||||
include libc/testlib/testlib.mk
|
||||
include tool/viz/lib/vizlib.mk
|
||||
include third_party/lua/lua.mk
|
||||
include examples/examples.mk
|
||||
include third_party/lz4cli/lz4cli.mk
|
||||
include tool/build/lib/buildlib.mk
|
||||
include third_party/lua/lua.mk
|
||||
include third_party/chibicc/chibicc.mk
|
||||
include third_party/chibicc/test/test.mk
|
||||
include tool/build/emucrt/emucrt.mk
|
||||
|
|
|
|||
|
|
@ -69,6 +69,7 @@ EXAMPLES_DIRECTDEPS = \
|
|||
THIRD_PARTY_DLMALLOC \
|
||||
THIRD_PARTY_GDTOA \
|
||||
THIRD_PARTY_GETOPT \
|
||||
THIRD_PARTY_LUA \
|
||||
THIRD_PARTY_MUSL \
|
||||
THIRD_PARTY_STB \
|
||||
THIRD_PARTY_XED \
|
||||
|
|
@ -94,10 +95,10 @@ o/$(MODE)/examples/%.com.dbg: \
|
|||
$(APE)
|
||||
@$(APELINK)
|
||||
|
||||
o/$(MODE)/examples/hellojs.com.dbg: \
|
||||
o/$(MODE)/examples/hellolua.com.dbg: \
|
||||
$(EXAMPLES_DEPS) \
|
||||
o/$(MODE)/examples/hellojs.o \
|
||||
o/$(MODE)/examples/hello.js.zip.o \
|
||||
o/$(MODE)/examples/hellolua.o \
|
||||
o/$(MODE)/examples/hellolua.lua.zip.o \
|
||||
o/$(MODE)/examples/examples.pkg \
|
||||
$(CRT) \
|
||||
$(APE)
|
||||
|
|
|
|||
30
examples/hellolua.c
Normal file
30
examples/hellolua.c
Normal file
|
|
@ -0,0 +1,30 @@
|
|||
#if 0
|
||||
/*─────────────────────────────────────────────────────────────────╗
|
||||
│ To the extent possible under law, Justine Tunney has waived │
|
||||
│ all copyright and related or neighboring rights to this file, │
|
||||
│ as it is written in the following disclaimers: │
|
||||
│ • http://unlicense.org/ │
|
||||
│ • http://creativecommons.org/publicdomain/zero/1.0/ │
|
||||
╚─────────────────────────────────────────────────────────────────*/
|
||||
#endif
|
||||
#include "third_party/lua/lauxlib.h"
|
||||
#include "third_party/lua/lualib.h"
|
||||
|
||||
int NativeAdd(lua_State *L) {
|
||||
lua_Number x, y;
|
||||
x = luaL_checknumber(L, 1);
|
||||
y = luaL_checknumber(L, 2);
|
||||
lua_pushnumber(L, x + y);
|
||||
return 1; /* number of results */
|
||||
}
|
||||
|
||||
int main(int argc, char *argv[]) {
|
||||
lua_State *L;
|
||||
L = luaL_newstate();
|
||||
luaL_openlibs(L);
|
||||
lua_pushcfunction(L, NativeAdd);
|
||||
lua_setglobal(L, "NativeAdd");
|
||||
luaL_dofile(L, "zip:examples/hellolua.lua");
|
||||
lua_close(L);
|
||||
return 0;
|
||||
}
|
||||
1
examples/hellolua.lua
Normal file
1
examples/hellolua.lua
Normal file
|
|
@ -0,0 +1 @@
|
|||
print(string.format("2 + 3 = %g", NativeAdd(2, 3)))
|
||||
|
|
@ -664,6 +664,7 @@ typedef uint64_t uintmax_t;
|
|||
#pragma GCC diagnostic ignored "-Wparentheses" /* annoying tidy */
|
||||
#pragma GCC diagnostic ignored "-Wdangling-else" /* come on tidy */
|
||||
#pragma GCC diagnostic ignored "-Wformat-security" /* come on tidy */
|
||||
#pragma GCC diagnostic ignored "-Wunused-value" /* breaks macros */
|
||||
#ifndef __cplusplus
|
||||
#pragma GCC diagnostic ignored "-Wimplicit-int"
|
||||
#endif /* C++ */
|
||||
|
|
|
|||
16
third_party/lua/lua.mk
vendored
16
third_party/lua/lua.mk
vendored
|
|
@ -7,6 +7,8 @@ THIRD_PARTY_LUA_FILES := $(wildcard third_party/lua/*)
|
|||
THIRD_PARTY_LUA_SRCS = $(filter %.c,$(THIRD_PARTY_LUA_FILES))
|
||||
THIRD_PARTY_LUA_HDRS = $(filter %.h,$(THIRD_PARTY_LUA_FILES))
|
||||
THIRD_PARTY_LUA_BINS = $(THIRD_PARTY_LUA_COMS) $(THIRD_PARTY_LUA_COMS:%=%.dbg)
|
||||
THIRD_PARTY_LUA = $(THIRD_PARTY_LUA_DEPS) $(THIRD_PARTY_LUA_A)
|
||||
THIRD_PARTY_LUA_A = o/$(MODE)/third_party/lua/lua.a
|
||||
|
||||
THIRD_PARTY_LUA_OBJS = \
|
||||
$(THIRD_PARTY_LUA_SRCS:%.c=o/$(MODE)/%.o)
|
||||
|
|
@ -36,14 +38,20 @@ THIRD_PARTY_LUA_DIRECTDEPS = \
|
|||
THIRD_PARTY_LUA_DEPS := \
|
||||
$(call uniq,$(foreach x,$(THIRD_PARTY_LUA_DIRECTDEPS),$($(x))))
|
||||
|
||||
o/$(MODE)/third_party/lua/lua.pkg: \
|
||||
$(THIRD_PARTY_LUA_A): \
|
||||
third_party/lua/ \
|
||||
$(THIRD_PARTY_LUA_A).pkg \
|
||||
$(filter-out %/lua.c,$(THIRD_PARTY_LUA_OBJS))
|
||||
|
||||
$(THIRD_PARTY_LUA_A).pkg: \
|
||||
$(THIRD_PARTY_LUA_OBJS) \
|
||||
$(foreach x,$(THIRD_PARTY_LUA_DIRECTDEPS),$($(x)_A).pkg)
|
||||
|
||||
o/$(MODE)/third_party/lua/%.com.dbg: \
|
||||
o/$(MODE)/third_party/lua/lua.com.dbg: \
|
||||
$(THIRD_PARTY_LUA_DEPS) \
|
||||
$(THIRD_PARTY_LUA_OBJS) \
|
||||
o/$(MODE)/third_party/lua/lua.pkg \
|
||||
$(THIRD_PARTY_LUA_A) \
|
||||
$(THIRD_PARTY_LUA_A).pkg \
|
||||
o/$(MODE)/third_party/lua/lua.o \
|
||||
$(CRT) \
|
||||
$(APE)
|
||||
-@$(APELINK)
|
||||
|
|
|
|||
2
third_party/lua/luaconf.h
vendored
2
third_party/lua/luaconf.h
vendored
|
|
@ -309,7 +309,7 @@
|
|||
*/
|
||||
#if defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \
|
||||
defined(__ELF__) /* { */
|
||||
#define LUAI_FUNC __attribute__((visibility("internal"))) extern
|
||||
#define LUAI_FUNC /* __attribute__((visibility("internal"))) */ extern
|
||||
#else /* }{ */
|
||||
#define LUAI_FUNC extern
|
||||
#endif /* } */
|
||||
|
|
|
|||
Loading…
Reference in a new issue