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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
"use strict";
const assert = require('assert');
const lua = require('./lua.js');
const lapi = require('./lapi.js');
const lauxlib = require('./lauxlib.js');
const CT = lua.constant_types;
const TS = lua.thread_status;
const str_len = function(L) {
lapi.lua_pushinteger(L, lauxlib.luaL_checkstring(L, 1).length);
return 1;
};
const str_char = function(L) {
let n = lapi.lua_gettop(L); /* number of arguments */
let p = "";
for (let i = 1; i <= n; i++) {
let c = lauxlib.luaL_checkinteger(L, i);
lauxlib.luaL_argcheck(L, c >= 0 && c <= 255, "value out of range"); // Strings are 8-bit clean
p += String.fromCharCode(c);
}
lapi.lua_pushstring(L, p);
return 1;
};
const str_lower = function(L) {
lapi.lua_pushstring(L, lauxlib.luaL_checkstring(L, 1).toLowerCase());
return 1;
};
const str_upper = function(L) {
lapi.lua_pushstring(L, lauxlib.luaL_checkstring(L, 1).toUpperCase());
return 1;
};
const str_rep = function(L) {
let s = lauxlib.luaL_checkstring(L, 1);
let n = lauxlib.luaL_checkinteger(L, 2);
let sep = lauxlib.luaL_optstring(L, 3, "");
lapi.lua_pushstring(L, (s + sep).repeat(n - 1) + s);
return 1;
};
const strlib = {
"char": str_char,
"len": str_len,
"lower": str_lower,
"rep": str_rep,
"upper": str_upper
};
const createmetatable = function(L) {
lapi.lua_createtable(L, 0, 1); /* table to be metatable for strings */
lapi.lua_pushliteral(L, ""); /* dummy string */
lapi.lua_pushvalue(L, -2); /* copy table */
lapi.lua_setmetatable(L, -2); /* set table as metatable for strings */
lapi.lua_pop(L, 1); /* pop dummy string */
lapi.lua_pushvalue(L, -2); /* get string library */
lapi.lua_setfield(L, -2, "__index"); /* metatable.__index = string */
lapi.lua_pop(L, 1); /* pop metatable */
};
const luaopen_string = function(L) {
lauxlib.luaL_newlib(L, strlib);
createmetatable(L);
return 1;
};
module.exports.luaopen_string = luaopen_string;
|
