mirror of
https://github.com/notepad-plus-plus/notepad-plus-plus.git
synced 2025-12-07 13:49:44 +01:00
a91b22bd83
Add perl packages as the functionList class, handling either normal package syntax, package-block syntax, and fully-qualified sub names, also allow prototypes and attributes syntax between sub name and body. Fix #17043, close #17068
105 lines
4.4 KiB
XML
105 lines
4.4 KiB
XML
<?xml version="1.0" encoding="UTF-8" ?>
|
|
<!-- ==========================================================================\
|
|
|
|
|
| To learn how to make your own language parser, please check the following
|
|
| link:
|
|
| https://npp-user-manual.org/docs/function-list/
|
|
|
|
|
\=========================================================================== -->
|
|
<NotepadPlus>
|
|
<functionList>
|
|
<!-- ======================================================== [ PERL ] -->
|
|
<!-- Perl - functions and packages, including fully-qualtified subroutine names -->
|
|
|
|
<!--
|
|
... replacement perl parser ...: https://community.notepad-plus-plus.org/topic/19842
|
|
... make sure to rename the id\s*=\s*"perl_function" near the beginning with "perl_syntax" to match
|
|
-->
|
|
|
|
<parser
|
|
displayName="Perl"
|
|
id="perl_syntax"
|
|
commentExpr="(?x) # free-spacing (see `RegEx - Pattern Modifiers`)
|
|
(?m-s:\x23.*$) # Single Line Comment
|
|
| (?s:__(?:END|DATA)__.*\Z) # Discard up till end-of-text
|
|
"
|
|
>
|
|
<classRange
|
|
mainExpr ="(?x) # free-spacing (see `RegEx - Pattern Modifiers`)
|
|
(?m) # ^ and $ match at line-breaks
|
|
(?'PACKAGE_HEADER'
|
|
^ # NO leading white-space at start-of-line
|
|
(?-i:package\b)
|
|
)
|
|
(?s:.*?) # whatever,
|
|
(?= # ...up till
|
|
\s* # ...optional leading white-space of
|
|
(?:
|
|
(?&PACKAGE_HEADER) # ...next header
|
|
| \Z # ...or end-of-text
|
|
)
|
|
)
|
|
"
|
|
>
|
|
<className>
|
|
<nameExpr expr="(?x) # free-spacing (see `RegEx - Pattern Modifiers`)
|
|
\s
|
|
\K # discard text matched so far
|
|
[^;{]+
|
|
"
|
|
/>
|
|
</className>
|
|
<function
|
|
mainExpr="(?x) # free-spacing (see `RegEx - Pattern Modifiers`)
|
|
(?m)
|
|
^\h*
|
|
sub
|
|
\s+
|
|
(?:\w+\:\:)* # optional prefix::package::names::
|
|
\w+
|
|
(?:\s*\([^()]*\))? # prototype or signature
|
|
(?:\s*\:\s*[^{]+)? # attributes
|
|
\s*\{ # start of function body
|
|
"
|
|
>
|
|
<functionName>
|
|
<funcNameExpr expr="(?x) # free-spacing (see `RegEx - Pattern Modifiers`)
|
|
(sub\s+)?
|
|
\K # discard text matched so far
|
|
(?:\w+\:\:)* # optional prefix::package::names::
|
|
\w+ # move the \K to just before this line if you don't want prefix::package shown in the functionList Panel
|
|
"
|
|
/>
|
|
</functionName>
|
|
</function>
|
|
</classRange>
|
|
<function
|
|
mainExpr="(?x) # free-spacing (see `RegEx - Pattern Modifiers`)
|
|
(?m)
|
|
^\h*
|
|
sub
|
|
\s+
|
|
(?:\w+\:\:)* # optional prefix::package::names::
|
|
\w+ # add \K before the \w+ if you don't want prefix::package:: shown in the functionList Panel
|
|
(?:\s*\([^()]*\))? # prototype or signature
|
|
(?:\s*\:\s*[^{]+)? # attributes
|
|
\s*\{ # start of function body
|
|
"
|
|
>
|
|
<functionName>
|
|
<nameExpr expr="(?x) # free-spacing (see `RegEx - Pattern Modifiers`)
|
|
(?:sub\s+)?
|
|
\K # discard text matched so far
|
|
(?:\w+\:\:)* # optional prefix::package::names::
|
|
\w+
|
|
"
|
|
/>
|
|
</functionName>
|
|
<className>
|
|
<nameExpr expr="\s\K((::)?\w+)+(?=::)"/>
|
|
</className>
|
|
</function>
|
|
</parser>
|
|
</functionList>
|
|
</NotepadPlus>
|