c6678
/
dspkit
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

add luaopen_libfdt() 

Signed-off-by: surenyi <surenyi82@163.com>
master
surenyi 6 years ago
parent
621649d73e
commit
976870b17f
4 changed files with 290 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 6
      packages/vsky/libdsp/lua/lualib/kit.c
  2. 272
      packages/vsky/libdsp/lua/lualib/luafdt.c
  3. 4
      packages/vsky/libdsp/lua/lualib/script.h
  4. 10
      packages/vsky/libdsp/package.bld

6
packages/vsky/libdsp/lua/lualib/kit.c
View File

@ -544,6 +544,7 @@ lua_State *script_create()
luaL_openlibs(L);
luaopen_dspkits(L);
luaopen_libfdt(L);
return L;
}
@ -551,3 +552,8 @@ void script_close(lua_State *L)
{
lua_close(L);
}
void script_add_global(lua_State *L, struct luaL_Reg funcs[], const char *name)
{
__add_funcs(L, funcs, name);
}

272
packages/vsky/libdsp/lua/lualib/luafdt.c
View File

@ -0,0 +1,272 @@
#include <stdio.h>
#include <stdlib.h>
#include "libfdt.h"
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
#include "auxiliar.h"
#include "script.h"
struct fdt_priv {
void *blob;
char buf[0];
};
#define FDT_CLASS_NAME "fdt{class}"
#define FDT_GROUP_NAME "fdt{any}"
static int meth_strerror(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int err = luaL_checkinteger(L, 2);
lua_pushstring(L, fdt_strerror(err));
return 1;
}
static int meth_del_node(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
lua_pushinteger(L, fdt_del_node(fdt->blob, off));
return 1;
}
static int meth_add_subnode(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
lua_pushinteger(L, fdt_add_subnode(fdt->blob, off, s));
return 1;
}
static int meth_del_prop(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
lua_pushinteger(L, fdt_delprop(fdt->blob, off, s));
return 1;
}
static int meth_append_string(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
const char *v;
size_t len;
int r;
v = luaL_checklstring(L, 4, &len);
r = fdt_appendprop(fdt->blob, off, s, v, len + 1);
lua_pushinteger(L, r);
return 1;
}
static int meth_append_prop(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
const char *v;
size_t len;
int r;
v = luaL_checklstring(L, 4, &len);
r = fdt_appendprop(fdt->blob, off, s, v, len);
lua_pushinteger(L, r);
return 1;
}
static int meth_append_u32(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
uint32_t v = luaL_checkinteger(L, 4);
lua_pushinteger(L, fdt_appendprop_u32(fdt->blob, off, s, v));
return 1;
}
static int meth_append_u64(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
uint64_t v = luaL_checkinteger(L, 4);
lua_pushinteger(L, fdt_appendprop_u64(fdt->blob, off, s, v));
return 1;
}
static int meth_set_prop_empty(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
lua_pushinteger(L, fdt_setprop(fdt->blob, off, s, NULL, 0));
return 1;
}
static int meth_set_prop_string(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
size_t len;
const char *v = luaL_checklstring(L, 4, &len);
lua_pushinteger(L, fdt_setprop(fdt->blob, off, s, v, len + 1));
return 1;
}
static int meth_set_prop(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
size_t len;
const char *v = luaL_checklstring(L, 4, &len);
lua_pushinteger(L, fdt_setprop(fdt->blob, off, s, v, len));
return 1;
}
static int meth_set_prop_cell(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
uint32_t v = luaL_checkinteger(L, 4);
lua_pushinteger(L, fdt_setprop_cell(fdt->blob, off, s, v));
return 1;
}
static int meth_set_prop_u64(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
uint64_t v = luaL_checkinteger(L, 4);
lua_pushinteger(L, fdt_setprop_u64(fdt->blob, off, s, v));
return 1;
}
static int meth_set_name(lua_State *L)
{
struct fdt_priv *fdt = auxiliar_checkgroup(L, FDT_GROUP_NAME, 1);
int off = luaL_checkinteger(L, 2);
const char *s = luaL_checkstring(L, 3);
lua_pushinteger(L, fdt_set_name(L, off, s));
return 1;
}
static luaL_Reg meths[] = {
{"setName", meth_set_name},
{"setProperty", meth_set_prop},
{"setPropertyCell", meth_set_prop_cell},
{"setPropertyU32", meth_set_prop_cell},
{"setPropertyU64", meth_set_prop_u64},
{"setPropertyString", meth_set_prop_string},
{"setPropertyEmpty", meth_set_prop_empty},
{"appendProperty", meth_append_prop},
{"appendCell", meth_append_u32},
{"appendU32", meth_append_u32},
{"appendU64", meth_append_u64},
{"appendString",meth_append_string},
{"delProperty", meth_del_prop},
{"addSubnode", meth_add_subnode},
{"delNode", meth_del_node},
{"strerror", meth_strerror},
{"__tostring", auxiliar_tostring},
{NULL, NULL},
};
static int __fdt_open_address(lua_State *L)
{
struct fdt_priv *fdt;
uint32_t addr = luaL_checkinteger(L, 1);
int size = luaL_checkinteger(L, 2);
fdt = lua_newuserdata(L, sizeof *fdt);
if (fdt == NULL) {
return 0;
}
auxiliar_setclass(L, FDT_CLASS_NAME, -1);
fdt->blob = (void *)(addr);
return 1;
}
static int __fdt_open(lua_State *L)
{
struct fdt_priv *fdt;
const char *s;
size_t len;
s = luaL_checklstring(L, 1, &len);
if (!s) {
return 0;
}
fdt = lua_newuserdata(L, sizeof *fdt + len);
if (fdt == NULL) {
return 0;
}
auxiliar_setclass(L, FDT_CLASS_NAME, -1);
memcpy(fdt->buf, s, len);
fdt->blob = fdt->buf;
return 1;
}
static int __fdt_open_file(lua_State *L)
{
struct fdt_priv *fdt;
FILE *fp;
size_t len;
const char *name = luaL_checkstring(L, 1);
if (!name) {
return 0;
}
fp = fopen(name, "rb");
if (!fp) {
return 0;
}
fseek(fp, 0L, SEEK_END);
len = ftell(fp);
fseek(fp, 0L, SEEK_SET);
fdt = lua_newuserdata(L, sizeof *fdt + len);
if (fdt == NULL) {
fclose(fp);
return 0;
}
auxiliar_setclass(L, FDT_CLASS_NAME, -1);
fread(fdt->buf, 1, len, fp);
fclose(fp);
fdt->blob = fdt->buf;
return 1;
}
int luaopen_libfdt(lua_State *L)
{
static luaL_Reg funcs[] = {
{"open", __fdt_open},
{"openWithFile", __fdt_open_file},
{"openWithAddress", __fdt_open_address},
{NULL, NULL}
};
auxiliar_newclass(L, FDT_CLASS_NAME, meths);
auxiliar_add2group(L, FDT_CLASS_NAME, FDT_GROUP_NAME);
script_add_global(L, funcs, "fdt");
return 0;
}

4
packages/vsky/libdsp/lua/lualib/script.h
View File

@ -14,12 +14,16 @@ struct repl_object {
};
struct lua_State;
struct luaL_Reg;
struct lua_State *script_create();
void script_close(lua_State *L);
int script_repl(struct lua_State *L, struct repl_object *ro);
void script_add_global(lua_State *L, struct luaL_Reg funcs[], const char *name);
int luaopen_dspkits(struct lua_State *L);
int luaopen_libfdt(struct lua_State *L);
#ifdef __cplusplus
}

10
packages/vsky/libdsp/package.bld
View File

@ -12,6 +12,13 @@ Pkg.otherFiles = [
"board.xdt",
"Serial.xdc",
"Printer.xdc",
"lua/5.3.5/lua.h",
"lua/5.3.5/lauxlib.h",
"lua/5.3.5/lualib.h",
"lua/5.3.5/luaconf.h",
"libfdt/fdt.h",
"libfdt/libfdt.h",
"libfdt/libfdt_env.h"
];
var drvFiles = [
@ -35,13 +42,11 @@ var drvFiles = [
];
var emacFiles = [
/*
"resource/resource_mgr.c",
"resource/osal.c",
"srio/srio_device.c",
"srio/srio_func.c",
"emac/nimu_eth.c",
*/
];
var elfFiles = [
@ -112,6 +117,7 @@ var lualibFiles = [
"lua/lualib/auxiliar.c",
"lua/lualib/kit.c",
"lua/lualib/repl.c",
"lua/lualib/luafdt.c",
"lua/cjson/fpconv.c",
"lua/cjson/strbuf.c",
"lua/cjson/lua_cjson.c",

Write Preview
Loading…
Cancel
Save