暂存

Author: sumneko

debugger.lua

@@ -1,66 +1,37 @@
-if not DEVELOP then
-    return
-end
-
-local fs = require 'bee.filesystem'
-local luaDebugs = {}
+local INSIDERS = false
 
-local home = os.getenv 'USERPROFILE' or os.getenv 'HOME'
-if not home then
-    log.error('Cannot find home directory')
-    return
-end
-for _, vscodePath in ipairs { '.vscode', '.vscode-insiders', '.vscode-server-insiders' } do
-    local extensionPath =  fs.path(home) / vscodePath / 'extensions'
-    log.debug('Search extensions at:', extensionPath:string())
-
-    if fs.exists(extensionPath) then
-        for path in fs.pairs(extensionPath) do
-            if fs.is_directory(path) then
-                local name = path:filename():string()
-                if name:find('actboy168.lua-debug-', 1, true) then
-                    luaDebugs[#luaDebugs+1] = path:string()
-                end
-            end
+local function searchDebugger(luaDebugs, tag)
+    if INSIDERS then
+        tag = tag .. "-insiders"
+    end
+    local isWindows = package.config:sub(1,1) == "\\"
+    local extensionPath = (isWindows and os.getenv "USERPROFILE" or os.getenv "HOME") .. "/.vscode"..tag.."/extensions"
+    local command = isWindows and ("dir /B " .. extensionPath:gsub("/", "\\") .. " 2>nul") or ("ls -1 " .. extensionPath .. " 2>/dev/null")
+    for name in io.popen(command):lines() do
+        local a, b, c = name:match "^actboy168%.lua%-debug%-(%d+)%.(%d+)%.(%d+)"
+        if a then
+            luaDebugs[#luaDebugs+1] = { a * 10000 + b * 100 + c, extensionPath .. "/" .. name }
         end
     end
 end
 
-if #luaDebugs == 0 then
-    log.debug('Cant find "actboy168.lua-debug"')
-    return
-end
-
-local function getVer(filename)
-    local a, b, c = filename:match('actboy168%.lua%-debug%-(%d+)%.(%d+)%.(%d+)')
-    if not a then
-        return 0
+local function getLatestDebugger()
+    local luaDebugs = {}
+    searchDebugger(luaDebugs, "")
+    searchDebugger(luaDebugs, "-server")
+    if #luaDebugs == 0 then
+        error "Cant find `actboy168.lua-debug`"
     end
-    return a * 1000000 + b * 1000 + c
+    table.sort(luaDebugs, function (a, b) return a[1] == b[1] and a[2] > b[2] or a[1] > b[1] end)
+    return luaDebugs[1][2]
 end
 
-table.sort(luaDebugs, function (a, b)
-    return getVer(a) > getVer(b)
-end)
-
-local debugPath = luaDebugs[1]
-local cpath     = "/runtime/win64/lua54/?.dll;/runtime/win64/lua54/?.so"
-local path      = "/script/?.lua"
-
-local function tryDebugger()
-    local entry = assert(package.searchpath('debugger', debugPath .. path))
-    local root = debugPath
-    local addr = ("127.0.0.1:%d"):format(DBGPORT)
-    local dbg = loadfile(entry)(entry)
-    dbg:start {
-        address = addr,
-    }
-    log.debug('Debugger startup, listen port:', DBGPORT)
-    log.debug('Debugger args:', addr, root, path, cpath)
-    if DBGWAIT then
-        dbg:event('wait')
-    end
-    return dbg
+local function dofile(filename)
+    local f = assert(io.open(filename))
+    local str = f:read "*a"
+    f:close()
+    return assert(load(str, "=(debugger.lua)"))(filename)
 end
 
-xpcall(tryDebugger, log.debug)
+local path = getLatestDebugger()
+return dofile(path .. "/script/debugger.lua")

main.lua

@@ -1,51 +1,4 @@
-local fs        = require 'bee.filesystem'
-
----@class LuaLS
-luals = {}
-
-luals.util    = require 'tools.utility'
-luals.inspect = require 'tools.inspect'
-luals.json    = require 'tools.json'
-package.loaded['json'] = luals.json
-require 'tools.json-beautify'
-require 'tools.jsonc'
-require 'tools.json-edit'
-
---语言服务器自身的状态
----@class LuaLS.Runtime
-luals.runtime = require 'runtime.lua'
-
-local currentPath = debug.getinfo(1, 'S').source:sub(2)
-local rootPath    = currentPath:gsub('[/\\]*[^/\\]-$', '')
-rootPath = (rootPath == '' and '.' or rootPath)
-ROOT     = fs.path(util.expandPath(rootPath))
-LOGPATH  = LOGPATH  and util.expandPath(LOGPATH)  or (ROOT:string() .. '/log')
-METAPATH = METAPATH and util.expandPath(METAPATH) or (ROOT:string() .. '/meta')
-
----@diagnostic disable-next-line: deprecated
-debug.setcstacklimit(200)
 collectgarbage('generational', 10, 50)
---collectgarbage('incremental', 120, 120, 0)
-
----@diagnostic disable-next-line: lowercase-global
-log = require 'log'
-log.init(ROOT, fs.path(LOGPATH) / 'service.log')
-if LOGLEVEL then
-    log.level = tostring(LOGLEVEL):lower()
-end
-
-log.info('Lua Lsp startup, root: ', ROOT)
-log.info('ROOT:', ROOT:string())
-log.info('LOGPATH:', LOGPATH)
-log.info('METAPATH:', METAPATH)
-log.info('VERSION:', version.getVersion())
-
-require 'tracy'
-
-xpcall(dofile, log.debug, (ROOT / 'debugger.lua'):string())
-
-require 'cli'
-
-local _, service = xpcall(require, log.error, 'service')
 
-service.start()
+require 'luals'
+require 'master'

script/luals.lua

@@ -0,0 +1,19 @@
+Class = require 'tools.class'.declare
+New   = require 'tools.class'.new
+
+---@class LuaLS
+luals = {}
+
+luals.util    = require 'tools.utility'
+
+luals.inspect = require 'tools.inspect'
+
+luals.json    = require 'tools.json'
+package.loaded['json'] = luals.json
+require 'tools.json-beautify'
+require 'tools.jsonc'
+require 'tools.json-edit'
+
+luals.uri     = require 'tools.uri'
+
+return luals

script/master/init.lua

@@ -0,0 +1,36 @@
+
+local time = require 'bee.time'
+
+--语言服务器自身的状态
+---@class LuaLS.Runtime
+luals.runtime = require 'runtime.lua'
+
+---@class Log
+log = Class 'Log' {
+    clock = function ()
+        return time.monotonic() / 1000.0
+    end,
+    time  = function ()
+        return time.time() // 1000
+    end,
+    path = luals.uri.decode(luals.runtime.logUri) .. '/service.log',
+}
+
+log.info('Lua Lsp startup!')
+log.info('ROOT:', luals.runtime.rootUri)
+log.info('LOGPATH:', luals.runtime.logUri)
+log.info('METAPATH:', luals.runtime.metaUri)
+log.info('VERSION:', luals.runtime.version)
+
+xpcall(function ()
+    if not luals.runtime.args.DEVELOP then
+        return
+    end
+    require 'debugger':start "127.0.0.1:12399"
+end, log.warn)
+
+require 'cli'
+
+local _, service = xpcall(require, log.error, 'service')
+
+service.start()

script/meta/time.lua

@@ -0,0 +1,12 @@
+---@meta bee.time
+
+---@class Bee.Time
+local M = {}
+
+---@return integer ms
+function M.time() end
+
+---@return integer ms
+function M.monotonic() end
+
+return M

script/runtime/argparser.lua

@@ -1,4 +1,4 @@
----@class ArgParser
+---@class Runtime.ArgParser
 local M = {}
 
 ---@alias ArgParser.Value string | number | boolean

script/runtime/init.lua

@@ -1,16 +1,60 @@
 
 local argparser = require 'runtime.argparser'
+local version   = require 'runtime.version'
 
 ---@class LuaLS.Runtime
 local M = {}
 
 --启动时的命令行参数
-M.args = argparser.parse(arg, true)
+---@class LuaLS.Runtime.Args
+---@field DEVELOP? boolean # 是否为开发模式
+---@field DBGPORT? integer # 调试器端口号，默认为 11411
+---@field DBGADDRESS? string # 调试器地址，默认为 '127.0.0.1'
+M.args = {
+    --指定日志输出目录，默认为 `./log`
+    LOGPATH = '${LUALS}/log',
+    --指定meta文件的生成目录，默认为 `./meta`
+    METAPATH = '${LUALS}/meta',
+    --是否为开发模式
+    DEVELOP = false,
+    --调试器端口号，默认为 11411
+    DBGPORT = 11411,
+    --调试器地址，默认为 '127.0.0.1'
+    DBGADDRESS = '127.0.0.1',
+    --等待调试器连接
+    DBGWAIT = false,
+    --显示语言
+    LOCALE = 'en-us',
+    --全局配置文件的路径
+    CONFIGPATH = '',
+    --在日志中记录RPC信息
+    RPCLOG = false,
+    --使用socket来连接客户端，指定端口号
+    SOCKET = 0,
+    --强制接受工作区。默认情况下会拒绝根目录与Home目录作为工作区
+    FORCE_ACCEPT_WORKSPACE = false,
+
+    --命令行：诊断指定工作区
+    CHECK = '',
+    --诊断工作区时需要报告的诊断等级
+    ---@type 'Error' | 'Warning' | 'Information' | 'Hint'
+    CHECKLEVEL = 'Warning',
+    --诊断报告生成的文件路径（json），默认为 `$LOGPATH/check.json`
+    CHECK_OUT_PATH = '${LOGPATH}/check.json',
+
+    --命令行：生成文档
+    DOC = '',
+}
+luals.util.tableMerge(M.args, argparser.parse(arg, true))
+
+--启动时的版本号
+M.version = version.getVersion()
 
 --路径相关
 ---@class LuaLS.Path
 M.path = {}
 
+---@return string
 local function findRoot()
     local lastPath
     for i = 1, 10 do
@@ -20,10 +64,15 @@ local function findRoot()
         end
         lastPath = currentPath:sub(2)
     end
-    return lastPath
+    assert(lastPath, 'Can not find root path')
+    local rootPath = lastPath:gsub('[/\\]*[^/\\]-$', '')
+    rootPath = (rootPath == '' and '.' or rootPath)
+    return rootPath
 end
 
 --语言服务器根路径
-M.path.root = findRoot()
+M.rootUri = luals.uri.encode(luals.util.expandPath(findRoot()))
+M.logUri  = luals.uri.encode(luals.util.expandPath(M.args.LOGPATH))
+M.metaUri = luals.uri.encode(luals.util.expandPath(M.args.METAPATH))
 
 return M

script/runtime/version.lua

@@ -0,0 +1,31 @@
+local function loadVersion()
+    local changelogUri = luals.uri.join(luals.runtime.rootUri, 'changelog.md')
+    local changelog = luals.util.loadFile(luals.uri.decode(changelogUri))
+    if not changelog then
+        return
+    end
+
+    local version, pos = changelog:match '%#%# (%d+%.%d+%.%d+)()'
+    if not version then
+        return
+    end
+
+    if not changelog:find('^[\r\n]+`', pos) then
+        version = version .. '-dev'
+    end
+    return version
+end
+
+---@class Runtime.VersionParser
+local M = {}
+
+---@return string
+function M.getVersion()
+    if not M.version then
+        M.version = loadVersion() or '<Unknown>'
+    end
+
+    return M.version
+end
+
+return M