mirrors
/
nano
mirror of git://git.sv.gnu.org/nano.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
nano/syntax/perl.nanorc

39 lines
2.1 KiB
Plaintext
Raw Permalink Normal View History

syntaxes: uniformize the initial comment
2020-04-20 20:15:43 +03:00
## Syntax highlighting for Perl.
Partially harmonizing the syntax-colouring files. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4899 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
2014-05-17 00:21:34 +04:00
syntaxes: remove quotes from each syntax name, and color it differently The different color will make the name stand out, as it should, instead of looking the same as all the regex strings.
2018-02-07 13:25:46 +03:00
syntax perl "\.p[lm]$"
tweaks: remove some ineffectual parts from header-line regexes Adding "[abc]*" does not restrict the recognized header line in any way. Also, improve the header-line regex for shell scripts, because it should not match "barunscript" (for example).
2018-08-28 20:47:40 +03:00
header "^#!.*perl"
syntax: adjust the magic strings for the changes since file-5.10 Since file-5.10 (end of 2011), libmagic identifies a C file in most cases as "C source" instead of as "C program". Nano's magic strings for some other files didn't match any more what file-5.32 currently produces, either. So, they have been adjusted, new ones added, and old ones deleted. This fixes https://savannah.gnu.org/bugs/?52445.
2017-11-19 13:10:53 +03:00
magic "Perl script"
new feature: comment/uncomment current line or selected lines This allows for commenting or uncommenting a line or a bunch of lines with a single keystroke (default binding: M-3). The characters used for commenting/uncommenting are specified by the active syntax file. Reviewed-by: Benno Schulenberg <bensberg@justemail.net> Signed-off-by: Mike Scalora <mike@scalora.org>
2016-05-25 23:13:50 +03:00
comment "#"
Improving two magic regexes. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4885 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
2014-05-14 15:16:40 +04:00
tweaks: put each regex on separate line, to better show many keywords (The long list of keywords was divided over five separate regexes to avoid exceeding the possible limit of 256 bytes/characters per regex.)
2022-07-25 15:45:14 +03:00
# Functions.
syntax: perl: add missing keywords, and reduce the length of some lines Also, compact the keywords less, so that things are easier to read.
2022-07-25 16:31:14 +03:00
color red "\<(abs|accept|alarm|atan2|bin(d|mode)|bless|caller|ch(dir|mod|op|omp|own|r|root)|close(dir)?|connect|cos|crypt)\>"
color red "\<(dbm(close|open)|defined|delete|dump|each|eof|eval(bytes)?|exec|exists|exp|fc|fcntl|fileno|flock|fork|format|formline)\>"
color red "\<(get(c|login|peername|pgrp|ppid|priority|(gr|pw)nam|(host|net|proto|serv)byname|pwuid|grgid|(host|net)byaddr|protobynumber|servbyport))\>"
color red "\<(([gs]et|end)(pw|gr|host|net|proto|serv)ent|getsock(name|opt)|glob|gmtime|grep|hex|import|index|int|ioctl|join)\>"
color red "\<(keys|kill|lc|lcfirst|length|link|listen|local(time)?|lock|log|lstat|map|mkdir|msg(ctl|get|snd|rcv)|oct)\>"
color red "\<(open(dir)?|ord|pack|pipe|pop|pos|printf?|prototype|push|q|qq|qr|qx|qw|quotemeta|rand|read(dir|line|link|pipe)?)\>"
color red "\<(recv|redo|ref|rename|require|reset|reverse|rewinddir|rindex|rmdir|say|scalar|seek(dir)?|select|sem(ctl|get|op))\>"
color red "\<(send|set(pgrp|priority|sockopt)|shift|shm(ctl|get|read|write)|shutdown|sin|sleep|socket(pair)?|sort|splice|split)\>"
color red "\<(sprintf|sqrt|srand|state?|study|substr|symlink|sys(call|open|read|seek|tem|write)|tell(dir)?|tied?|times?|try?)\>"
color red "\<(truncate|uc|ucfirst|umask|un(def|link|pack|shift|tie)|utime|values|vec|wait(pid)?|wantarray|warn|write)\>"
tweaks: put each regex on separate line, to better show many keywords (The long list of keywords was divided over five separate regexes to avoid exceeding the possible limit of 256 bytes/characters per regex.)
2022-07-25 15:45:14 +03:00
syntax: perl: add missing keywords, and reduce the length of some lines Also, compact the keywords less, so that things are easier to read.
2022-07-25 16:31:14 +03:00
# Control flow, logical operators, declarations.
color magenta "\<(continue|die|do|else|elsif|exit|for(each)?|fork|goto|if|last|next|return|unless|until|while)\>"
color magenta "\<(and|cmp|eq|ge|gt|isa|le|lt|ne|not|or|x|xor)\>"
color magenta "\<(my|no|our|package|sub|use)\>"
syntax: perl: don't color the character after a variable name And generally improve the regex for coloring Perl variable names. This fixes https://savannah.gnu.org/bugs/?56713. With-help-from: Brand Huntsman <alpha@qzx.com> Bug existed since the Perl syntax was introduced, in version 1.2.2, commit 70047eef.
2019-08-04 13:46:07 +03:00
# Variable names.
color cyan "[$%&@]([A-Za-z_][0-9A-Za-z_]*|\^[][A-Z?\^_]|[0-9]+)\>"
color cyan "[$%&@]\{(\^?[A-Za-z_][0-9A-Za-z_]*|\^[][?\^][0-9]+)\}"
syntax: perl: avoid upsetting older glibcs with crafty range expression The regcomp() function from glibc-2.27 (and older) considers the bracket expression ['-.] to be invalid -- mistakenly. Avoid using any range expression in the relevant regex and instead enumerate all acceptable characters. This avoids https://savannah.gnu.org/bugs/?56766.
2019-08-19 18:00:11 +03:00
color cyan "[$%&@]([][!"#'()*+,.:;<=>?`|~-]|\{[][!-/:-@\`|~]\})|\$[$%&@]"
syntaxes: replace [[:space:]] with [[:blank:]] to exclude carriage return In many places a carriage return is not valid whitespace and should thus not be colored as such. In some of these places a vertical tab or form feed is maybe valid whitespace, but it would be ugly or even wrong to color them because they are not part of the subsequent comment or keyword. This fixes https://savannah.gnu.org/bugs/?60456.
2021-04-27 12:18:41 +03:00
color cyan "(^|[[:blank:]])[$%@][/\]"
syntax: perl: don't color the character after a variable name And generally improve the regex for coloring Perl variable names. This fixes https://savannah.gnu.org/bugs/?56713. With-help-from: Brand Huntsman <alpha@qzx.com> Bug existed since the Perl syntax was introduced, in version 1.2.2, commit 70047eef.
2019-08-04 13:46:07 +03:00
syntax: perl: add missing keywords, and reduce the length of some lines Also, compact the keywords less, so that things are easier to read.
2022-07-25 16:31:14 +03:00
# Strings.
move color regexes into separate files, and restructure things so that they're installed properly and nanorc.sample references them properly git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@3604 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
2006-06-01 21:23:28 +04:00
color yellow "".*"|qq\|.*\|"
syntax: perl: add missing keywords, and reduce the length of some lines Also, compact the keywords less, so that things are easier to read.
2022-07-25 16:31:14 +03:00
color white "[smy]/.*/"
move color regexes into separate files, and restructure things so that they're installed properly and nanorc.sample references them properly git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@3604 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
2006-06-01 21:23:28 +04:00
color white start="(^use| = new)" end=";"
syntax: perl: avoid recognizing embedded hash signs as a comment starter Require that a comment starts at the start of a line or is preceded by whitespace. This prevents most hash signs used for other purposes (and what follows them) getting colored as comments.
2019-08-08 13:08:34 +03:00
# Comments.
syntaxes: replace [[:space:]] with [[:blank:]] to exclude carriage return In many places a carriage return is not valid whitespace and should thus not be colored as such. In some of these places a vertical tab or form feed is maybe valid whitespace, but it would be ugly or even wrong to color them because they are not part of the subsequent comment or keyword. This fixes https://savannah.gnu.org/bugs/?60456.
2021-04-27 12:18:41 +03:00
color green "(^|[[:blank:]])#.*"