table扩展模块的清除方法改为三个：clear/clearAll/clearList，第一个是luajit的扩展，fallback到clearAll

string扩展模块添加三个luajit的string.buffer方法
优化和上述相关的代码

Author: MrZ626

http.lua

@@ -167,7 +167,7 @@ function HTTP.reset()
         threads[i]:release()
         threads[i]=false
     end
-    TABLE.clearAll(msgPool)
+    TABLE.clear(msgPool)
     sendCHN:clear()
     recvCHN:clear()
     addThread(threadCount)

stringExtend.lua

@@ -13,6 +13,7 @@ local match,gmatch=string.match,string.gmatch
 local rep,rev=string.rep,string.reverse
 local upper,lower=string.upper,string.lower
 local char,byte=string.char,string.byte
+local buffer=require'string.buffer'
 
 ---@class Zenitha.StringExt
 local STRING={}
@@ -321,7 +322,7 @@ function STRING.editDist(s1,s2) -- By Copilot
     for i=1,len2 do t2[i]=s2:sub(i,i) end
 
     local dp={}
-    for i=0,len1 do dp[i]=TABLE.new(0,len2) end
+    for i=0,len1 do dp[i]={} for j=0,len2 do dp[i][j]=0 end end
     dp[0][0]=0
     for i=1,len1 do dp[i][0]=i end
     for i=1,len2 do dp[0][i]=i end
@@ -563,16 +564,11 @@ end
 ---@nodiscard
 function STRING.vcsEncrypt(text,key)
     local keyLen=#key
-    local result=''
-    local buffer=''
-    for i=0,#text-1 do
-        buffer=buffer..char((byte(text,i+1)-32+byte(key,i%keyLen+1))%95+32)
-        if #buffer==26 then
-            result=result..buffer
-            buffer=''
-        end
+    local buf=buffer.new(#text)
+    for i=1,#text do
+        buf:put(char((byte(text,i)-32+byte(key,(i-1)%keyLen+1))%95+32))
     end
-    return result..buffer
+    return buf:get()
 end
 
 ---Simple vcs decryption
@@ -582,16 +578,11 @@ end
 ---@nodiscard
 function STRING.vcsDecrypt(text,key)
     local keyLen=#key
-    local result=''
-    local buffer=''
-    for i=0,#text-1 do
-        buffer=buffer..char((byte(text,i+1)-32-byte(key,i%keyLen+1))%95+32)
-        if #buffer==26 then
-            result=result..buffer
-            buffer=''
-        end
+    local buf=buffer.new(#text)
+    for i=1,#text do
+        buf:put(char((byte(text,i)-32-byte(key,(i-1)%keyLen+1))%95+32))
     end
-    return result..buffer
+    return buf:get()
 end
 
 ---Return 16 byte string. Not powerful hash, just simply protect the original text
@@ -617,9 +608,9 @@ function STRING.digezt(text,seedRange,seed)
             pos=(pos+step)%16
         end
     end
-    local result=''
-    for i=1,16 do result=result..char(out[i]) end
-    return result
+    local result=buffer.new(16)
+    for i=1,16 do result:put(char(out[i])) end
+    return result:get()
 end
 
 ---Cut a line off a string
@@ -710,6 +701,19 @@ function STRING.unpackTable(str)
     return JSON.decode(STRING.unpackText(str))
 end
 
+--------------------------------------------------------------
+-- LuaJIT Extension
+
+xpcall(function()
+    STRING.newBuf=buffer.new
+    STRING.encBuf=buffer.encode
+    STRING.decBuf=buffer.decode
+end,function()
+    STRING[('newBuf')]=function() error("string.buffer.new is not available") end
+    STRING[('encBuf')]=function() error("string.buffer.encode is not available") end
+    STRING[('decBuf')]=function() error("string.buffer.decode is not available") end
+end)
+
 do
     local split=STRING.split
     local function parseFile(fname)

tableExtend.lua

@@ -347,26 +347,37 @@ end
 --------------------------------------------------------------
 -- Editing
 
----Clear [1~#] of a table
+---`table.clear` from luajit extension, clear the whole table but preserve the allocated array/hash sizes
+---
+---Fallback to `TABLE.clearAll` if failed to require `table.clear`
+---
 ---@param t table
 function TABLE.clear(t)
-    for i=1,#t do
-        t[i]=nil
+    for k in next,t do
+        t[k]=nil
     end
 end
+pcall(function() TABLE[('clear')]=require'table.clear' end)
 
----Clear all table
+---Clear whole table (pure lua implementation)
 ---
----You can also use `table.clear` from luajit:  
----https://luajit.org/extensions.html
+---Recommend to use `TABLE.clear` instead
 ---@param t table
 function TABLE.clearAll(t)
     for k in next,t do
         t[k]=nil
     end
 end
 
----Remove value of [1~#]
+---Clear [1~#] of a table (pure lua implementation)
+---@param t table
+function TABLE.clearList(t)
+    for i=1,#t do
+        t[i]=nil
+    end
+end
+
+---Remove a specific value of [1~#]
 ---@param org any[]
 function TABLE.delete(org,value)
     for i=#org,1,-1 do
@@ -376,7 +387,7 @@ function TABLE.delete(org,value)
     end
 end
 
----Remove value in whole table
+---Remove a specific value in whole table
 ---@param org table
 function TABLE.deleteAll(org,value)
     for k,v in next,org do

websocket_thread.lua

@@ -6,6 +6,7 @@ local connTimeout,pongTimeout=16,2.6
 local sleepInterval,pingInterval=6,0.26
 local lastRecvTime,lastSendTime
 
+local buffer=require'string.buffer'
 local timer=require'love.timer'.getTime
 local sleep=require'love.timer'.sleep
 local CHN_demand,CHN_getCount=confCHN.demand,confCHN.getCount
@@ -129,20 +130,20 @@ end)
 
 local function _receive(sock,len)
     lastRecvTime=timer()
-    local buffer=""
+    local buf=buffer.new(len)
     while true do
         local r,e,p=sock:receive(len)
         if r then
-            buffer=buffer..r
+            buf:put(r)
             len=len-#r
         elseif p then
-            buffer=buffer..p
+            buf:put(p)
             len=len-#p
         elseif e then
             return nil,e
         end
         if len==0 then
-            return buffer
+            return buf:get()
         end
         yield()
     end

widget.lua

@@ -1700,7 +1700,7 @@ function Widgets.textBox:replaceTexts(newList)
 end
 function Widgets.textBox:setTexts(t)
     assert(type(t)=='table',"Arg need table")
-    TABLE.clearAll(self._texts)
+    TABLE.clear(self._texts)
     TABLE.connect(self._texts,t)
     self._scrollPos=0
 end