mirror of
https://github.com/helix-editor/helix.git
synced 2024-09-11 18:58:00 +03:00
Pascal support (#3542)
This commit is contained in:
parent
f0fb3407d2
commit
86a8ea57bb
@ -76,6 +76,7 @@
|
|||||||
| odin | ✓ | | | `ols` |
|
| odin | ✓ | | | `ols` |
|
||||||
| openscad | ✓ | | | `openscad-language-server` |
|
| openscad | ✓ | | | `openscad-language-server` |
|
||||||
| org | ✓ | | | |
|
| org | ✓ | | | |
|
||||||
|
| pascal | ✓ | ✓ | | `pasls` |
|
||||||
| perl | ✓ | ✓ | ✓ | |
|
| perl | ✓ | ✓ | ✓ | |
|
||||||
| php | ✓ | ✓ | ✓ | `intelephense` |
|
| php | ✓ | ✓ | ✓ | `intelephense` |
|
||||||
| prisma | ✓ | | | `prisma-language-server` |
|
| prisma | ✓ | | | `prisma-language-server` |
|
||||||
|
@ -1691,3 +1691,17 @@ roots = ["edgedb.toml"]
|
|||||||
[[grammar]]
|
[[grammar]]
|
||||||
name ="esdl"
|
name ="esdl"
|
||||||
source = { git = "https://github.com/greym0uth/tree-sitter-esdl", rev = "b840c8a8028127e0a7c6e6c45141adade2bd75cf" }
|
source = { git = "https://github.com/greym0uth/tree-sitter-esdl", rev = "b840c8a8028127e0a7c6e6c45141adade2bd75cf" }
|
||||||
|
|
||||||
|
[[language]]
|
||||||
|
name = "pascal"
|
||||||
|
scope = "source.pascal"
|
||||||
|
injection-regex = "pascal"
|
||||||
|
file-types = ["pas", "pp", "inc", "lpr", "lfm"]
|
||||||
|
roots = []
|
||||||
|
comment-token = "//"
|
||||||
|
indent = { tab-width = 2, unit = " " }
|
||||||
|
language-server = { command = "pasls", args = [] }
|
||||||
|
|
||||||
|
[[grammar]]
|
||||||
|
name = "pascal"
|
||||||
|
source = { git = "https://github.com/Isopod/tree-sitter-pascal", rev = "2fd40f477d3e2794af152618ccfac8d92eb72a66" }
|
||||||
|
382
runtime/queries/pascal/highlights.scm
Normal file
382
runtime/queries/pascal/highlights.scm
Normal file
@ -0,0 +1,382 @@
|
|||||||
|
; -- Identifier type inferrence
|
||||||
|
|
||||||
|
; VERY QUESTIONABLE: Highlighting of identifiers based on spelling
|
||||||
|
(exprBinary ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(exprUnary ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(assignment rhs: ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(exprBrackets ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(exprParens ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(exprDot rhs: ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(exprTpl args: ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(exprArgs ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(declEnumValue ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
(defaultValue ((identifier) @constant
|
||||||
|
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2,3}[A-Z].+$")))
|
||||||
|
|
||||||
|
; -- Break, Continue & Exit
|
||||||
|
; (Not ideal: ideally, there would be a way to check if these special
|
||||||
|
; identifiers are shadowed by a local variable)
|
||||||
|
(statement ((identifier) @keyword.control.return
|
||||||
|
(#match? @keyword.control.return "^[eE][xX][iI][tT]$")))
|
||||||
|
(statement (exprCall entity: ((identifier) @keyword.control.return
|
||||||
|
(#match? @keyword.control.return "^[eE][xX][iI][tT]$"))))
|
||||||
|
(statement ((identifier) @keyword.control.repeat
|
||||||
|
(#match? @keyword.control.repeat "^[bB][rR][eE][aA][kK]$")))
|
||||||
|
(statement ((identifier) @keyword.control.repeat
|
||||||
|
(#match? @keyword.control.repeat "^[cC][oO][nN][tT][iI][nN][uU][eE]$")))
|
||||||
|
|
||||||
|
; -- Heuristic for procedure/function calls without parentheses
|
||||||
|
; (If a statement consists only of an identifier, assume it's a procedure)
|
||||||
|
; (This will still not match all procedure calls, and also may produce false
|
||||||
|
; positives in rare cases, but only for nonsensical code)
|
||||||
|
|
||||||
|
(statement (exprDot rhs: (exprTpl entity: (identifier) @function)))
|
||||||
|
(statement (exprTpl entity: (identifier) @function))
|
||||||
|
(statement (exprDot rhs: (identifier) @function))
|
||||||
|
(statement (identifier) @function)
|
||||||
|
|
||||||
|
; -- Procedure name in calls with parentheses
|
||||||
|
; (Pascal doesn't require parentheses for procedure calls, so this will not
|
||||||
|
; detect all calls)
|
||||||
|
|
||||||
|
(inherited) @function
|
||||||
|
|
||||||
|
; foo.bar<t>
|
||||||
|
(exprCall entity: (exprDot rhs: (exprTpl entity: (identifier) @function)))
|
||||||
|
; foo.bar
|
||||||
|
(exprCall entity: (exprDot rhs: (identifier) @function))
|
||||||
|
; foobar<t>
|
||||||
|
(exprCall entity: (exprTpl entity: (identifier) @function))
|
||||||
|
; foobar
|
||||||
|
(exprCall entity: (identifier) @function)
|
||||||
|
|
||||||
|
; -- Fields
|
||||||
|
|
||||||
|
(declSection (declVars (declVar name:(identifier) @variable.other.member)))
|
||||||
|
(declSection (declField name:(identifier) @variable.other.member))
|
||||||
|
(declClass (declField name:(identifier) @variable.other.member))
|
||||||
|
(exprDot rhs: (exprDot) @variable.other.member)
|
||||||
|
(exprDot rhs: (identifier) @variable.other.member)
|
||||||
|
|
||||||
|
(recInitializerField name:(identifier) @variable.other.member)
|
||||||
|
|
||||||
|
; -- Variable & constant declarations
|
||||||
|
; (This is only questionable because we cannot detect types of identifiers
|
||||||
|
; declared in other units, so the results will be inconsistent)
|
||||||
|
|
||||||
|
(declVar name: (identifier) @variable)
|
||||||
|
(declConst name: (identifier) @constant)
|
||||||
|
(declEnumValue name: (identifier) @constant)
|
||||||
|
|
||||||
|
; -- Constant usage
|
||||||
|
|
||||||
|
[
|
||||||
|
(caseLabel)
|
||||||
|
(label)
|
||||||
|
] @constant
|
||||||
|
|
||||||
|
(procAttribute (identifier) @constant)
|
||||||
|
(procExternal (identifier) @constant)
|
||||||
|
|
||||||
|
; -- Type usage
|
||||||
|
|
||||||
|
(typeref) @type
|
||||||
|
|
||||||
|
; -- Exception parameters
|
||||||
|
|
||||||
|
(exceptionHandler variable: (identifier) @variable.parameter)
|
||||||
|
|
||||||
|
; -- Template parameters
|
||||||
|
|
||||||
|
(genericArg type: (typeref) @type)
|
||||||
|
(genericArg name: (identifier) @variable.parameter)
|
||||||
|
|
||||||
|
(declProc name: (genericDot lhs: (identifier) @type))
|
||||||
|
(declType (genericDot (identifier) @type))
|
||||||
|
|
||||||
|
(genericDot (genericTpl (identifier) @type))
|
||||||
|
(genericDot (genericDot (identifier) @type))
|
||||||
|
|
||||||
|
(genericTpl entity: (genericDot (identifier) @type))
|
||||||
|
(genericTpl entity: (identifier) @type)
|
||||||
|
|
||||||
|
; -- Function parameters
|
||||||
|
|
||||||
|
(declArg name: (identifier) @variable.parameter)
|
||||||
|
|
||||||
|
; Treat property declarations like functions
|
||||||
|
|
||||||
|
(declProp name: (identifier) @function)
|
||||||
|
(declProp getter: (identifier) @variable.other.member)
|
||||||
|
(declProp setter: (identifier) @variable.other.member)
|
||||||
|
|
||||||
|
; -- Procedure & function declarations
|
||||||
|
|
||||||
|
; foo.bar<t>
|
||||||
|
(declProc name: (genericDot rhs: (genericTpl entity: (identifier) @function)))
|
||||||
|
; foo.bar
|
||||||
|
(declProc name: (genericDot rhs: (identifier) @function))
|
||||||
|
; foobar<t>
|
||||||
|
(declProc name: (genericTpl entity: (identifier) @function))
|
||||||
|
; foobar
|
||||||
|
(declProc name: (identifier) @function)
|
||||||
|
|
||||||
|
; -- Type declaration
|
||||||
|
|
||||||
|
(declType name: (genericTpl entity: (identifier) @type))
|
||||||
|
(declType name: (identifier) @type)
|
||||||
|
|
||||||
|
; -- Comments
|
||||||
|
|
||||||
|
(comment) @comment
|
||||||
|
(pp) @function.macro
|
||||||
|
|
||||||
|
; -- Variables
|
||||||
|
|
||||||
|
(exprBinary (identifier) @variable)
|
||||||
|
(exprUnary (identifier) @variable)
|
||||||
|
(assignment (identifier) @variable)
|
||||||
|
(exprBrackets (identifier) @variable)
|
||||||
|
(exprParens (identifier) @variable)
|
||||||
|
(exprDot (identifier) @variable)
|
||||||
|
(exprTpl (identifier) @variable)
|
||||||
|
(exprArgs (identifier) @variable)
|
||||||
|
(defaultValue (identifier) @variable)
|
||||||
|
|
||||||
|
; -- Literals
|
||||||
|
|
||||||
|
(literalNumber) @constant.builtin.numeric
|
||||||
|
(literalString) @string
|
||||||
|
|
||||||
|
; -- Builtin constants
|
||||||
|
|
||||||
|
[
|
||||||
|
(kTrue)
|
||||||
|
(kFalse)
|
||||||
|
] @constant.builtin.boolean
|
||||||
|
|
||||||
|
[
|
||||||
|
(kNil)
|
||||||
|
] @constant.builtin
|
||||||
|
|
||||||
|
; -- Punctuation & operators
|
||||||
|
|
||||||
|
[
|
||||||
|
(kOr)
|
||||||
|
(kXor)
|
||||||
|
(kDiv)
|
||||||
|
(kMod)
|
||||||
|
(kAnd)
|
||||||
|
(kShl)
|
||||||
|
(kShr)
|
||||||
|
(kNot)
|
||||||
|
(kIs)
|
||||||
|
(kAs)
|
||||||
|
(kIn)
|
||||||
|
] @keyword.operator
|
||||||
|
|
||||||
|
[
|
||||||
|
(kDot)
|
||||||
|
(kAdd)
|
||||||
|
(kSub)
|
||||||
|
(kMul)
|
||||||
|
(kFdiv)
|
||||||
|
(kAssign)
|
||||||
|
(kAssignAdd)
|
||||||
|
(kAssignSub)
|
||||||
|
(kAssignMul)
|
||||||
|
(kAssignDiv)
|
||||||
|
(kEq)
|
||||||
|
(kLt)
|
||||||
|
(kLte)
|
||||||
|
(kGt)
|
||||||
|
(kGte)
|
||||||
|
(kNeq)
|
||||||
|
(kAt)
|
||||||
|
(kHat)
|
||||||
|
] @operator
|
||||||
|
|
||||||
|
[
|
||||||
|
".."
|
||||||
|
] @punctuation.special
|
||||||
|
|
||||||
|
[
|
||||||
|
";"
|
||||||
|
","
|
||||||
|
":"
|
||||||
|
(kEndDot)
|
||||||
|
] @punctuation.delimiter
|
||||||
|
|
||||||
|
[
|
||||||
|
"("
|
||||||
|
")"
|
||||||
|
"["
|
||||||
|
"]"
|
||||||
|
] @punctuation.bracket
|
||||||
|
|
||||||
|
; -- Attributes
|
||||||
|
|
||||||
|
(procAttribute (kPublic) @attribute)
|
||||||
|
|
||||||
|
[
|
||||||
|
(kDefault)
|
||||||
|
(kIndex)
|
||||||
|
(kNodefault)
|
||||||
|
(kStored)
|
||||||
|
|
||||||
|
(kStatic)
|
||||||
|
(kVirtual)
|
||||||
|
(kAbstract)
|
||||||
|
(kSealed)
|
||||||
|
(kDynamic)
|
||||||
|
(kOverride)
|
||||||
|
(kOverload)
|
||||||
|
(kReintroduce)
|
||||||
|
(kInline)
|
||||||
|
|
||||||
|
(kForward)
|
||||||
|
|
||||||
|
(kStdcall)
|
||||||
|
(kCdecl)
|
||||||
|
(kCppdecl)
|
||||||
|
(kPascal)
|
||||||
|
(kRegister)
|
||||||
|
(kMwpascal)
|
||||||
|
(kExternal)
|
||||||
|
(kName)
|
||||||
|
(kMessage)
|
||||||
|
(kDeprecated)
|
||||||
|
(kExperimental)
|
||||||
|
(kPlatform)
|
||||||
|
(kUnimplemented)
|
||||||
|
(kCvar)
|
||||||
|
(kExport)
|
||||||
|
(kFar)
|
||||||
|
(kNear)
|
||||||
|
(kSafecall)
|
||||||
|
(kAssembler)
|
||||||
|
(kNostackframe)
|
||||||
|
(kInterrupt)
|
||||||
|
(kNoreturn)
|
||||||
|
(kIocheck)
|
||||||
|
(kLocal)
|
||||||
|
(kHardfloat)
|
||||||
|
(kSoftfloat)
|
||||||
|
(kMs_abi_default)
|
||||||
|
(kMs_abi_cdecl)
|
||||||
|
(kSaveregisters)
|
||||||
|
(kSysv_abi_default)
|
||||||
|
(kSysv_abi_cdecl)
|
||||||
|
(kVectorcall)
|
||||||
|
(kVarargs)
|
||||||
|
(kWinapi)
|
||||||
|
(kAlias)
|
||||||
|
(kDelayed)
|
||||||
|
|
||||||
|
(rttiAttributes)
|
||||||
|
(procAttribute)
|
||||||
|
|
||||||
|
] @attribute
|
||||||
|
|
||||||
|
; -- Keywords
|
||||||
|
[
|
||||||
|
(kProgram)
|
||||||
|
(kLibrary)
|
||||||
|
(kUnit)
|
||||||
|
(kUses)
|
||||||
|
|
||||||
|
(kBegin)
|
||||||
|
(kEnd)
|
||||||
|
(kAsm)
|
||||||
|
|
||||||
|
(kVar)
|
||||||
|
(kThreadvar)
|
||||||
|
(kConst)
|
||||||
|
(kResourcestring)
|
||||||
|
(kConstref)
|
||||||
|
(kOut)
|
||||||
|
(kType)
|
||||||
|
(kLabel)
|
||||||
|
(kExports)
|
||||||
|
|
||||||
|
(kAbsolute)
|
||||||
|
|
||||||
|
(kProperty)
|
||||||
|
(kRead)
|
||||||
|
(kWrite)
|
||||||
|
(kImplements)
|
||||||
|
|
||||||
|
(kClass)
|
||||||
|
(kInterface)
|
||||||
|
(kObject)
|
||||||
|
(kRecord)
|
||||||
|
(kObjcclass)
|
||||||
|
(kObjccategory)
|
||||||
|
(kObjcprotocol)
|
||||||
|
(kArray)
|
||||||
|
(kFile)
|
||||||
|
(kString)
|
||||||
|
(kSet)
|
||||||
|
(kOf)
|
||||||
|
(kHelper)
|
||||||
|
(kPacked)
|
||||||
|
|
||||||
|
(kInherited)
|
||||||
|
|
||||||
|
(kGeneric)
|
||||||
|
(kSpecialize)
|
||||||
|
|
||||||
|
(kFunction)
|
||||||
|
(kProcedure)
|
||||||
|
(kConstructor)
|
||||||
|
(kDestructor)
|
||||||
|
(kOperator)
|
||||||
|
(kReference)
|
||||||
|
|
||||||
|
(kInterface)
|
||||||
|
(kImplementation)
|
||||||
|
(kInitialization)
|
||||||
|
(kFinalization)
|
||||||
|
|
||||||
|
(kPublished)
|
||||||
|
(kPublic)
|
||||||
|
(kProtected)
|
||||||
|
(kPrivate)
|
||||||
|
(kStrict)
|
||||||
|
(kRequired)
|
||||||
|
(kOptional)
|
||||||
|
|
||||||
|
(kTry)
|
||||||
|
(kExcept)
|
||||||
|
(kFinally)
|
||||||
|
(kRaise)
|
||||||
|
(kOn)
|
||||||
|
(kCase)
|
||||||
|
(kWith)
|
||||||
|
(kGoto)
|
||||||
|
] @keyword
|
||||||
|
|
||||||
|
[
|
||||||
|
(kFor)
|
||||||
|
(kTo)
|
||||||
|
(kDownto)
|
||||||
|
(kDo)
|
||||||
|
(kWhile)
|
||||||
|
(kRepeat)
|
||||||
|
(kUntil)
|
||||||
|
] @keyword.control.repeat
|
||||||
|
|
||||||
|
[
|
||||||
|
(kIf)
|
||||||
|
(kThen)
|
||||||
|
(kElse)
|
||||||
|
] @keyword.control.conditional
|
2
runtime/queries/pascal/injections.scm
Normal file
2
runtime/queries/pascal/injections.scm
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
((comment) @injection.content
|
||||||
|
(#set! injection.language "comment"))
|
10
runtime/queries/pascal/textobjects.scm
Normal file
10
runtime/queries/pascal/textobjects.scm
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
|
||||||
|
(declType (declClass (declSection) @class.inside)) @class.around
|
||||||
|
|
||||||
|
(defProc body: (_) @function.inside) @function.around
|
||||||
|
|
||||||
|
(declArgs (_) @parameter.inside) @parameter.around
|
||||||
|
(exprArgs (_) @parameter.inside) @parameter.around
|
||||||
|
|
||||||
|
(comment) @comment.inside
|
||||||
|
(comment)+ @comment.around
|
Loading…
Reference in New Issue
Block a user