导入一堆文件

Author: sumneko

.luarc.json

@@ -24,9 +24,8 @@
         "path": [
             "script/?.lua",
             "script/?/init.lua",
-            "test/?.lua",
-            "test/?/init.lua",
-            "script/meta/?.lua"
+            "?.lua",
+            "?/init.lua"
         ],
         "pathStrict": true
     },

script/file/file-manager.lua

@@ -0,0 +1,61 @@
+---@class FileManager
+local M = Class 'FileManager'
+
+function M:__init()
+    --文件表
+    self.fileMap = {}
+end
+
+--获取文件
+---@param uri uri
+---@return File?
+function M:getFile(uri)
+    local file = self.fileMap[uri]
+    return file
+end
+
+---@param uri uri
+---@return File
+function M:newFile(uri)
+    local file = New 'File' (uri)
+    self.fileMap[uri] = file
+    return file
+end
+
+---@param uri uri
+---@return File
+function M:openFile(uri)
+    local file = self:getFile(uri)
+            or   self:newFile(uri)
+    file:open()
+    return file
+end
+
+---@param uri uri
+---@return File
+function M:closeFile(uri)
+    local file = self:getFile(uri)
+            or   self:newFile(uri)
+    file:close()
+    return file
+end
+
+---@param uri uri
+---@return boolean
+function M:isOpened(uri)
+    local file = self:getFile(uri)
+    if not file then
+        return false
+    end
+    return file.isOpened
+end
+
+---@param uri uri
+---@return File?
+function M:removeFile(uri)
+    local file = self.fileMap[uri]
+    self.fileMap[uri] = nil
+    return file
+end
+
+return M

script/file/file.lua

@@ -0,0 +1,40 @@
+local parser = require 'parser'
+
+---@class File
+---@field text? string
+---@field ast? LuaParser.Ast
+---@overload fun(uri:string): self
+local M = Class 'File'
+
+M.isOpened = false
+
+---@param uri uri
+function M:__init(uri)
+    
+end
+
+function M:open()
+    self.isOpened = true
+end
+
+function M:close()
+    self.isOpened = false
+end
+
+---@return string
+function M:getText()
+    return self.text
+end
+
+---@param text string
+function M:setText(text)
+    self.text = text
+end
+
+---@return LuaParser.Ast
+function M:compileAst()
+    local ast = parser.compile(self.text)
+    return ast
+end
+
+return M

script/file/init.lua

@@ -0,0 +1,2 @@
+require 'file.file'
+require 'file.file-manager'

script/luals.lua

@@ -1,12 +1,14 @@
 Class = require 'tools.class'.declare
 New   = require 'tools.class'.new
 
+package.loaded['class'] = require 'tools.class'
+
 ---@class LuaLS
 luals = {}
 
 luals.util    = require 'tools.utility'
-
 luals.inspect = require 'tools.inspect'
+luals.encoder = require 'tools.encoder'
 
 luals.json    = require 'tools.json'
 package.loaded['json'] = luals.json

script/master/init.lua

@@ -1,13 +1,15 @@
 local fs   = require 'bee.filesystem'
 local time = require 'bee.time'
 
+luals.threadName = 'master'
+
 --语言服务器自身的状态
 ---@class LuaLS.Runtime
 luals.runtime = require 'runtime'
 
 fs.create_directories(fs.path(luals.runtime.logPath))
 
----@class Log
+---@diagnostic disable-next-line: lowercase-global
 log = New 'Log' {
     clock = function ()
         return time.monotonic() / 1000.0
@@ -28,7 +30,11 @@ xpcall(function ()
     if not luals.runtime.args.DEVELOP then
         return
     end
-    require 'debugger':start "127.0.0.1:12399"
+    local dbg = require 'debugger'
+    dbg:start(luals.runtime.args.DBGADDRESS .. ':' .. luals.runtime.args.DBGPORT)
+    if luals.runtime.args.DBGWAIT then
+        dbg:event 'wait'
+    end
 end, log.warn)
 
 print = log.debug

script/parser/ast/ast.lua

@@ -0,0 +1,224 @@
+local class = require 'class'
+local lexer = require 'parser.lexer'
+local util  = require 'utility'
+
+require 'parser.ast.base'
+require 'parser.ast.error'
+require 'parser.ast.list'
+require 'parser.ast.nil'
+require 'parser.ast.boolean'
+require 'parser.ast.number'
+require 'parser.ast.string'
+require 'parser.ast.comment'
+require 'parser.ast.exp'
+require 'parser.ast.id'
+require 'parser.ast.var'
+require 'parser.ast.call'
+require 'parser.ast.table'
+require 'parser.ast.block'
+require 'parser.ast.field'
+require 'parser.ast.unary'
+require 'parser.ast.binary'
+require 'parser.ast.state.state'
+require 'parser.ast.main'
+require 'parser.ast.cats.cat'
+
+---@class LuaParser.Ast
+---@field envMode 'fenv' | '_ENV'
+---@field main LuaParser.Node.Main
+---@overload fun(code: string, version: LuaParser.LuaVersion, options: LuaParser.CompileOptions): LuaParser.Ast
+local M = class.get 'LuaParser.Ast'
+
+---@alias LuaParser.Status
+---| 'Lua' # Lua代码
+---| 'ShortCats' # 单行的注解
+---| 'LongCats' # 多行的注解
+---| 'InLineCats' # 内联的注解
+---| 'ShortLua' # 单行注解内的Lua代码
+---| 'LongLua' # 多行注释内的Lua代码
+
+---@param code string # lua代码
+---@param version? LuaParser.LuaVersion
+---@param options? LuaParser.CompileOptions
+function M:__init(code, version, options)
+    -- 代码内容
+    self.code        = code
+    -- Lua版本
+    ---@type LuaParser.LuaVersion
+    self.version     = version or 'Lua 5.4'
+    -- 非标准符号的映射表
+    ---@type table<string, true>
+    self.nssymbolMap = {}
+    -- 词法分析结果
+    self.lexer       = lexer.parseLua(code)
+    -- 错误信息
+    ---@type LuaParser.Node.Error[]
+    self.errors      = {}
+    -- 注释
+    ---@type LuaParser.Node.Comment[]
+    self.comments    = {}
+    -- 代码块
+    ---@private
+    ---@type LuaParser.Node.Block[]
+    self.blocks      = {}
+    -- 当前代码块
+    ---@private
+    ---@type LuaParser.Node.Block?
+    self.curBlock    = nil
+    -- 按类型存放的节点
+    ---@private
+    ---@type table<string, LuaParser.Node.Base[]>
+    self.nodesMap = util.multiTable(2)
+    -- 存放所有的block
+    ---@private
+    ---@type LuaParser.Node.Block[]
+    self.blockList = {}
+    -- 当前的局部变量计数（最大只能存在200个局部变量）
+    ---@private
+    self.localCount = 0
+    -- 当前解析状态
+    ---@private
+    ---@type LuaParser.Status
+    self.status = 'Lua'
+    -- 未绑定的注解
+    ---@private
+    self.cats = {}
+
+    local major, minor = self.version:match 'Lua (%d+)%.(%d+)'
+    ---@type integer
+    self.versionNum = major * 10 + minor
+
+    local envMode = 'auto'
+    if options then
+        if options.nonestandardSymbols then
+            for _, s in ipairs(options.nonestandardSymbols) do
+                self.nssymbolMap[s] = true
+            end
+        end
+        -- 是否为LuaJIT
+        self.jit = options.jit
+        -- 是否支持Unicode标识符
+        self.unicodeName = options.unicodeName
+
+        envMode = options.envMode
+    end
+
+    if envMode == '_ENV'
+    or envMode == 'fenv' then
+        ---@cast envMode '_ENV' | 'fenv'
+        self.envMode = envMode
+    else
+        if self.versionNum >= 52 then
+            self.envMode = '_ENV'
+        else
+            self.envMode = 'fenv'
+        end
+    end
+end
+
+-- 跳过换行符
+---@private
+---@return boolean # 是否成功跳过换行符
+function M:skipNL()
+    local status = self.status
+    if status == 'Lua'
+    or status == 'LongCats'
+    or status == 'LongLua' then
+        return self.lexer:consumeType 'NL' ~= nil
+    else
+        return false
+    end
+end
+
+-- 跳过注释
+---@private
+---@param inExp? boolean # 在表达式中
+---@return boolean # 是否成功跳过注释
+function M:skipComment(inExp)
+    local comment = self:parseComment(inExp)
+    if comment then
+        self.comments[#self.comments+1] = comment
+        return true
+    end
+    return false
+end
+
+-- 跳过未知符号
+---@private
+---@return boolean
+function M:skipUnknown()
+    local token, pos = self.lexer:consumeType 'Unknown'
+    if not token then
+        return false
+    end
+
+    ---@cast pos -?
+    self:throw('UNKNOWN_SYMBOL', pos, pos + #token)
+
+    return true
+end
+
+-- 跳过空白符
+---@private
+---@param inExp? boolean # 在表达式中
+function M:skipSpace(inExp)
+    if self.lexer.ci ~= self.lastSpaceCI then
+        self.lastRightCI = self.lexer.ci
+    end
+    repeat until not self:skipNL()
+            and  not self:skipCat()
+            and  not self:skipComment(inExp)
+            and  not self:skipUnknown()
+    self.lastSpaceCI = self.lexer.ci
+end
+
+-- 获取上个词的右侧位置（不包括换行符和注释）
+---@private
+---@return integer
+function M:getLastPos()
+    local ci = self.lexer.ci
+    if ci == self.lastSpaceCI then
+        ci = self.lastRightCI
+    end
+    local token = self.lexer.tokens[ci - 1]
+    local pos   = self.lexer.poses[ci - 1]
+    return pos + #token
+end
+
+-- 创建一个节点
+---@private
+---@generic T: string
+---@param type `T`
+---@param data table
+---@return T
+function M:createNode(type, data)
+    data.ast = self
+    local node = class.new(type, data)
+
+    local nodeMap = self.nodesMap[node.type]
+    nodeMap[#nodeMap+1] = node
+
+    if node.isBlock then
+        self.blockList[#self.blockList+1] = node
+    end
+
+    return node
+end
+
+-- 获取当前函数
+---@private
+---@return LuaParser.Node.Function | LuaParser.Node.Main | nil
+function M:getCurrentFunction()
+    local blocks = self.blocks
+    for i = #blocks, 1, -1 do
+        local block = blocks[i]
+        if block.type == 'Function'
+        or block.type == 'Main' then
+            ---@cast block LuaParser.Node.Function | LuaParser.Node.Main
+            return block
+        end
+    end
+    return nil
+end
+
+return M