Fix SPARQL unicode names support (fix #1653) (#1654)

* Fix SPARQL unicode names support

* Update lib/rouge/lexers/sparql.rb

Co-authored-by: Tan Le <tan.le@hey.com>

* Update lib/rouge/lexers/sparql.rb

Co-authored-by: Tan Le <tan.le@hey.com>

Co-authored-by: Tan Le <tan.le@hey.com>

Author: jakubklimek

lib/rouge/lexers/sparql.rb

@@ -41,16 +41,17 @@ def self.keywords
         rule %r('''), Str::Single, :string_single_literal
         rule %r('), Str::Single, :string_single
 
-        rule %r([$?]\w+), Name::Variable
-        rule %r((\w*:)(\w+)?) do |m|
+        rule %r([$?][[:word:]]+), Name::Variable
+        rule %r(([[:word:]-]*)(:)([[:word:]-]+)?) do |m|
           token Name::Namespace, m[1]
-          token Str::Symbol, m[2]
+          token Operator, m[2]
+          token Str::Symbol, m[3]
         end
         rule %r(<[^>]*>), Name::Namespace
         rule %r(true|false)i, Keyword::Constant
         rule %r/a\b/, Keyword
 
-        rule %r([A-Z]\w+\b)i do |m|
+        rule %r([A-Z][[:word:]]+\b)i do |m|
           if self.class.builtins.include? m[0].upcase
             token Name::Builtin
           elsif self.class.keywords.include? m[0].upcase

spec/visual/samples/sparql

@@ -60,3 +60,20 @@ WHERE
 {
     ?item a :Test .
 }
+
+# unicode variable names
+SELECT ?název_44
+WHERE {
+    ovm:00025593 schema:name ?název_44 .
+}
+
+# unicode prefixed name
+PREFIX podmínky-užití: <https://data.gov.cz/slovník/podmínky-užití/>
+SELECT ?název
+WHERE {
+    ?distribuce a dcat:Distribution ;
+        podmínky-užití:specifikace ?spec .
+
+    ?spec a podmínky-užití:Specifikace ;
+        podmínky-užití:databáze-chráněná-zvláštními-právy ?zvláštníPrávo .
+}