char
Definition
-- @/=[C]:-1
function char(...)
Callers
@/lua/common/libs/luasocket/socket/url.lua
return (string.gsub(s, "%%(%x%x)", function(hex)
return string.char(base.tonumber(hex, 16))
end))
@/lua/common/libs/lunajson/lunajson/sax.lua
local num = char(unpack(buf))
num = fixedtonumber(num)
if rest then
return char(ucode, rest)
end
end
return char(ucode)
elseif ucode < 0x800 then -- 2bytes
if rest then
return char(c1, c2, rest)
end
end
return char(c1, c2)
elseif ucode < 0xD800 or 0xE000 <= ucode then -- 3bytes
if rest then
return char(c1, c2, c3, rest)
end
end
return char(c1, c2, c3)
elseif 0xD800 <= ucode and ucode < 0xDC00 then -- surrogate pair 1st
if rest then
return char(c1, c2, c3, c4, rest)
end
end
return char(c1, c2, c3, c4)
end
@/lua/common/libs/slaxml/slaxml.lua
local function utf8(decimal) -- convert unicode code point to utf-8 encoded character string
if decimal<128 then return char(decimal) end
local charbytes = {}
decimal = (decimal-mod)/64
charbytes[b] = char(128+mod)
end
end
charbytes[1] = char(vals[2]+decimal)
return concat(charbytes)
@/lua/common/libs/LuaIRC/util.lua
local colByte = char(3)
setmetatable(color, {__call = function(_, text, colornum)
local boldByte = char(2)
function bold(text)
local underlineByte = char(31)
function underline(text)
local last = sub(nick, randindex + 1, #nick)
nick = first..char(b)..last -- Insert the new charachter
return nick
@/lua/common/json.lua
if c ~= 58 and c ~= 61 then -- : =
jsonError(string.format("Expected dictionary separator ':' or '=' instead of: '%s'", string.char(c)), i - 1)
end
@/lua/ge/extensions/editor/gen/exp_meshexplorer.lua
-- print('?? CHAR:'..string.byte(binstr, 3)) -- string.len(binstr)))
-- print('?? CHAR:'..string.char(string.byte(binstr, 1, 100))) -- string.len(binstr)))
-- local s = dataString:tostring()
for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end
return string.char(c)
end))
@/lua/common/libs/luasec/ssl.lua
end
str = str .. string.char(len) .. v
end
@/lua/ge/extensions/gameplay/rally/notebook/path.lua
local nextAsciiValue = asciiValue + 1
local nextLetter = string.char(nextAsciiValue)
-- if you hit Z, it will return non alphabetic chars.
@/lua/ge/extensions/core/commandhandler.lua
local hex_to_char = function(x)
return string.char(tonumber(x, 16))
end
@/lua/common/libs/inspect/inspect.lua
for i=0, 31 do
local ch = string.char(i)
if not shortControlCharEscapes[ch] then
@/lua/ge/extensions/flowgraph/nodes/logic/booleanExpression.lua
if tableSize(self.pinInLocal) <= tableSize(self.pinIn) then
local pinName = string.char(97 + tableSize(self.pinIn))
self:createPin("in", "bool", pinName, 0, "A term of the expression.")
@/lua/ge/extensions/flowgraph/nodes/math/math.lua
if tableSize(self.pinInLocal) <= tableSize(self.pinIn) then
local pinName = string.char(97 + tableSize(self.pinIn))
self:createPin("in", {"number",'vec3','quat'}, pinName, 0, "A term of the expression.")
@/lua/ge/extensions/editor/dynamicDecals/fonts.lua
for i = header["first_char"], header["first_char"] + header["glyph_count"] - 1, 1 do
table.insert(tblx, string.format("%d : %s", i, string.char(i)))
end
api.setDecalLayerFontPath(fontDirectory .. fontName .. '.ttf')
api.setDecalLayerFontCharacter(string.char(key))
end
)
im.tooltip(string.format("%d : %s\nxadvance: %f", i, i == 32 and "space" or string.char(i), char.xadvance))
im.SameLine()
)
im.tooltip(string.format("%d : %s\nxadvance: %f", i, i == 32 and "space" or string.char(i), char.xadvance))
im.SameLine()
@/lua/ge/extensions/tech/capturePlayer.lua
sensorData:reset()
local alpha = string.char(255)
for i = 0, points - 1 do
local value = round(clamp(depthFloat[i] * 255.0, 0, 255))
local char = string.char(value)
sensorData:put(string.rep(char, 3))
@/lua/common/utils/torqueScriptParser.lua
local hexescape = P"\\" * S"xX" * C( hexdigit * hexdigit^-1 ) / function( s )
return string.char( tonumber( s, 16 ) )
end
local octescape = P"\\" * C( P"0"^-1 * octdigit * octdigit^-2 ) / function( s )
return string.char( tonumber( s, 8 ) )
end
@/lua/common/libs/lua-MessagePack/MessagePack.lua
packers['nil'] = function()
bufTmp:put(char(0xC0)) -- nil
end
packers['boolean'] = function(bool)
bufTmp:put(bool and char(0xC3) or char(0xC2)) -- true false
end
packers['boolean'] = function(bool)
bufTmp:put(bool and char(0xC3) or char(0xC2)) -- true false
end
if n <= 0x1F then
bufTmp:put(char(0xA0 + n)) -- fixstr
elseif n <= 0xFF then
elseif n <= 0xFF then
bufTmp:put(char(0xD9, n)) -- str8
elseif n <= 0xFFFF then
elseif n <= 0xFFFF then
bufTmp:put(char(0xDA, floor(n / 0x100), n % 0x100)) -- str16
else
else
bufTmp:put(char(0xDB, floor(n / 0x1000000), floor(n / 0x10000) % 0x100, floor(n / 0x100) % 0x100, n % 0x100)) -- str32
end
if n <= 0xFF then
bufTmp:put(char(0xC4, n)) -- bin8
elseif n <= 0xFFFF then
elseif n <= 0xFFFF then
bufTmp:put(char(0xC5, floor(n / 0x100), n % 0x100)) -- bin16
else
else
bufTmp:put(char(0xC6, floor(n / 0x1000000), floor(n / 0x10000) % 0x100, floor(n / 0x100) % 0x100, n % 0x100)) -- bin32
end
if n <= 0x0F then
bufTmp:put(char(0x80 + n)) -- fixmap
elseif n <= 0xFFFF then
elseif n <= 0xFFFF then
bufTmp:put(char(0xDE, floor(n / 0x100), n % 0x100)) -- map16
else
else
bufTmp:put(char(0xDF, floor(n / 0x1000000), floor(n / 0x10000) % 0x100, floor(n / 0x100) % 0x100, n % 0x100)) -- map32
end
if n <= 0x0F then
bufTmp:put(char(0x90 + n)) -- fixarray
elseif n <= 0xFFFF then
elseif n <= 0xFFFF then
bufTmp:put(char(0xDC, floor(n / 0x100), n % 0x100)) -- array16
else
else
bufTmp:put(char(0xDD, floor(n / 0x1000000), floor(n / 0x10000) % 0x100, floor(n / 0x100) % 0x100, n % 0x100)) -- array32
end
if mant ~= mant then
bufTmp:put(char(0xCB, 0xFF, 0xF8, 0, 0, 0, 0, 0, 0)) -- nan
elseif mant == huge or expo > 0x400 then
elseif mant == huge or expo > 0x400 then
bufTmp:put(char(0xCB, n >= 0 and 0x7F or 0xFF, 0xF0, 0, 0, 0, 0, 0, 0)) -- inf
elseif (mant == 0 and expo == 0) or expo < -0x3FE then
elseif (mant == 0 and expo == 0) or expo < -0x3FE then
bufTmp:put(char(0xCB, n >= 0 and 0 or 0x80, 0, 0, 0, 0, 0, 0, 0)) -- zero
else
mant = floor((mant * 2.0 - 1.0) * ldexp(0.5, 53))
bufTmp:put(char(0xCB, (n >= 0 and 0 or 0x80) + floor(expo / 0x10), (expo % 0x10) * 0x10 + floor(mant / 0x1000000000000),
floor(mant / 0x10000000000) % 0x100, floor(mant / 0x100000000) % 0x100, floor(mant / 0x1000000) % 0x100, floor(mant / 0x10000) % 0x100,
packers['fixext' .. tostring(n)] = function(tag, data)
bufTmp:put(char(fixext, tag < 0 and tag + 0x100 or tag))
bufTmp:put(data)
if n <= 0xFF then
bufTmp:put(char(0xC7, n, tag < 0 and tag + 0x100 or tag)) -- ext8
elseif n <= 0xFFFF then
elseif n <= 0xFFFF then
bufTmp:put(char(0xC8, floor(n / 0x100), n % 0x100, tag < 0 and tag + 0x100 or tag)) -- ext16
elseif n <= 4294967295.0 then
elseif n <= 4294967295.0 then
bufTmp:put(char(0xC9, floor(n/0x1000000), floor(n/0x10000) % 0x100, floor(n/0x100) % 0x100, n % 0x100, tag<0 and tag+0x100 or tag)) -- ext&32
else
if ffi.offsetof(v, 'w') ~= nil then -- quat
bufTmp:put(char(0x84))
bufTmp:put(char(0xA1), 'x'); packers['number'](v.x)
bufTmp:put(char(0x84))
bufTmp:put(char(0xA1), 'x'); packers['number'](v.x)
bufTmp:put(char(0xA1), 'y'); packers['number'](v.y)
bufTmp:put(char(0xA1), 'x'); packers['number'](v.x)
bufTmp:put(char(0xA1), 'y'); packers['number'](v.y)
bufTmp:put(char(0xA1), 'z'); packers['number'](v.z)
bufTmp:put(char(0xA1), 'y'); packers['number'](v.y)
bufTmp:put(char(0xA1), 'z'); packers['number'](v.z)
bufTmp:put(char(0xA1), 'w'); packers['number'](v.w)
bufTmp:put(char(0xA1), 'z'); packers['number'](v.z)
bufTmp:put(char(0xA1), 'w'); packers['number'](v.w)
else
else
bufTmp:put(char(0x83))
bufTmp:put(char(0xA1), 'x'); packers['number'](v.x)
bufTmp:put(char(0x83))
bufTmp:put(char(0xA1), 'x'); packers['number'](v.x)
bufTmp:put(char(0xA1), 'y'); packers['number'](v.y)
bufTmp:put(char(0xA1), 'x'); packers['number'](v.x)
bufTmp:put(char(0xA1), 'y'); packers['number'](v.y)
bufTmp:put(char(0xA1), 'z'); packers['number'](v.z)
bufTmp:put(char(0xA1), 'y'); packers['number'](v.y)
bufTmp:put(char(0xA1), 'z'); packers['number'](v.z)
end
@/lua/ge/extensions/ui/console.lua
if ord >= 32 and ord <= 126 then
asc = asc .. string.char( ord )
else
@/lua/common/mathlib.lua
function LuaVec3:getAxis(i)
return self[string.char(120 + i)]
end
function LuaVec3:setAxis(i, v)
self[string.char(120 + i)] = v
end
@/lua/common/jsonDebug.lua
if c ~= 58 and c ~= 61 then -- : =
jsonError(string.format("Expected dictionary separator ':' or '=' instead of: '%s'", string.char(c)), i - 1)
end
@/lua/common/libs/LuLPeg/lulpeg.lua
for i = 1, #ary do
t_insert(res,char(ary[i]))
end
acc[#acc + 1] = pt.aux
print(offset..'P( "'..s.char(u.unpack(acc))..'" )')
else
if #acc ~= 0 then
print(offset..'P( "'..s.char(u.unpack(acc))..'" )')
end
elseif #acc ~= 0 then
print(offset..'P( "'..s.char(u.unpack(acc))..'" )')
acc = {}
@/lua/common/lpack.lua
buf:put('\0'):put(char(min(#v, 250)))
for kk, vv in pairs(v) do
local vlen = #v
serTmp[seridx] = vlen < 10 and 'A' or (vlen < 100 and 'B' or string.char(65 + math.floor(math.log10(vlen))))
serTmp[seridx + 1] = vlen
@/lua/ge/extensions/util/export.lua
--GLB Header
f:write(string.char(0x67,0x6C,0x54,0x46)) --Magic "glTF"
f:write(string.char(sepbytes(2))) -- version 2
f:write(string.char(0x67,0x6C,0x54,0x46)) --Magic "glTF"
f:write(string.char(sepbytes(2))) -- version 2
--total fileSize Including all headers
f:write( string.char(sepbytes(fileLen)) )
-- log("I", logTag, "#jsonContent="..dumps(#jsonContent).."|"..dumps(string.len(jsonContent)).. " pad = "..dumps(fourByteAlignPaddingSize(#jsonContent)))
f:write( string.char(sepbytes(#jsonContent + fourByteAlignPaddingSize(#jsonContent))) ) --size
f:write(string.char(0x4A,0x53,0x4F,0x4E)) --type JSON
f:write( string.char(sepbytes(#jsonContent + fourByteAlignPaddingSize(#jsonContent))) ) --size
f:write(string.char(0x4A,0x53,0x4F,0x4E)) --type JSON
f:write(jsonContent)
--dump(sepbytes(totalBinBufSize + fourByteAlignPaddingSize(totalBinBufSize)))
f:write( string.char(sepbytes(totalBinBufSize + fourByteAlignPaddingSize(totalBinBufSize))) ) --size
f:write(string.char(0x42,0x49,0x4E,0x00)) --type BIN\0
f:write( string.char(sepbytes(totalBinBufSize + fourByteAlignPaddingSize(totalBinBufSize))) ) --size
f:write(string.char(0x42,0x49,0x4E,0x00)) --type BIN\0
for k,v in ipairs(binaryBuffers) do
if fourByteAlignPaddingSize(totalBinBufSize) > 0 then
f:write(string.rep(string.char(0), fourByteAlignPaddingSize(totalBinBufSize))) --BIN padding
end
@/lua/common/libs/lunajson/lunajson/decoder.lua
if rest then
return char(ucode, rest)
end
end
return char(ucode)
elseif ucode < 0x800 then -- 2bytes
if rest then
return char(c1, c2, rest)
end
end
return char(c1, c2)
elseif ucode < 0xD800 or 0xE000 <= ucode then -- 3bytes
if rest then
return char(c1, c2, c3, rest)
end
end
return char(c1, c2, c3)
elseif 0xD800 <= ucode and ucode < 0xDC00 then -- surrogate pair 1st
if rest then
return char(c1, c2, c3, c4, rest)
end
end
return char(c1, c2, c3, c4)
end
@/lua/common/utils.lua
hex = hex .. string.format("%02x ", ord)
asc = asc .. ((ord >= 32 and ord <= 126) and string.char(ord) or ".")
end