update supporting of hover and semantic-tokens

Author: sumneko

script/core/hover/label.lua

@@ -98,6 +98,9 @@ end
 ---@async
 ---@param level integer
 local function asGlobal(source, level)
+    if source.declare and source[1] == '*' then
+        return '(global) any', 0
+    end
     return asValue(source, '(global)', level)
 end
 

script/core/semantic-tokens.lua

@@ -18,6 +18,9 @@ local Care = util.switch()
         end
 
         local name = source[1]
+        if source.declare and name == '*' then
+            return
+        end
         local isLib = options.libGlobals[name]
         if isLib == nil then
             isLib = false
@@ -38,6 +41,10 @@ local Care = util.switch()
         local type = isFunc and define.TokenTypes['function'] or define.TokenTypes.variable
         local modifier = isLib and define.TokenModifiers.defaultLibrary or define.TokenModifiers.global
 
+        if source.declare then
+            modifier = modifier | define.TokenModifiers.declaration
+        end
+
         results[#results+1] = {
             start      = source.start,
             finish     = source.finish,

script/parser/compile.lua

@@ -3415,7 +3415,7 @@ local function parseGlobal()
     if Tokens[Index + 1] == '*' then
         local action = {
             type   = 'globalall',
-            start  = globalPos,
+            start  = getPosition(Tokens[Index], 'left'),
             finish = getPosition(Tokens[Index], 'right'),
             attrs  = attrs,
             [1]    = '*',

test/hover/init.lua

@@ -2512,3 +2512,12 @@ end
 [[
 function f(a: number, b: string, ...args: boolean)
 ]]
+
+config.set(nil, 'Lua.runtime.version', 'Lua 5.5')
+TEST [[
+global <?*?>
+]]
+[[
+(global) any
+]]
+config.set(nil, 'Lua.runtime.version', nil)

test/parser_test/syntax_check.lua

@@ -1022,4 +1022,7 @@ global <!X!>
 ]]
 {
     type = 'ENV_IS_GLOBAL',
+    info = {
+        name = 'X',
+    }
 }