[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Nano-devel] Perl Syntax Highlighting
From: |
Richard Smith |
Subject: |
[Nano-devel] Perl Syntax Highlighting |
Date: |
Fri, 28 Feb 2003 23:22:53 +0000 |
Here's a rough Perl syntax highlighting block for the .nanorc. It's not
perfect because a lot of perl's built-in functions have such small
names, but it works well with my coding style and the 4000 line bit of
code I've been testing it on. The magenta line is there for
completeness sake, it looks better without it. Hopefully this will act
as a starter for somebody willing to clean it up.
syntax "perl" ".*\.pl$" ".*\.pm$"
color red " accept" " alarm" " atan2" " bind" " binmode" " caller" "
chdir" " chmod" " chop" " chown" " chroot" " close" " closedir" "
connect" " cos" " crypt" " dbmclose" " dbmopen" " defined"
color red " delete" " die" " do" " dump" " \<each\>" " eof" " eval" "
exec" " exists" " exit" " exp" " fcntl" " fileno" " flock" " fork" "
getc" " getlogin" " getpeername" " getpgrp" " getppid"
color red " getpriority" " getpwnam" " gethostbyname" " getnetbyname" "
getprotobyname" " getpwuid" " getgrgid" " getservbyname" "
gethostbyaddr" " getnetbyaddr" " getprotobynumber"
color red " getservbyport" " getpwent" " getgrent" " gethostent" "
getnetent" " getprotoent" " getservent" " setpwent" " setgrent" "
sethostent" " setnetent" " setprotoent" " setservent"
color red " endpwent" " endgrent" " endhostent" " endnetent" "
endprotoent" " endservent" " getsockname" " getsockopt" " gmtime" "
goto" " grep" " hex" " index" " int" " ioctl" " join" " keys"
color red " kill" " last" " length" " link" " listen" " local" "
localtime" " log" " lstat" " m" " mkdir" " msgctl" " msgget" " msgsnd"
" msgrcv" " next" " oct" " open" " opendir" " ord" " pack"
color red " pipe" " pop" " print" " printf" " push" " q" " qq" " qx" "
rand" " read" " readdir" " readlink" " recv" " redo" " rename" "
require" " reset" " return" " reverse" " rewinddir" " rindex"
color red " rmdir" " \<s\>" " scalar" " seek" " seekdir" " select" "
semctl" " semget" " semop" " send" " setpgrp" " setpriority" "
setsockopt" " shift" " shmctl" " shmget" " shmread" " shmwrite"
color red " shutdown" " sin" " sleep" " socket" " socketpair" " sort" "
splice" " split" " sprintf" " sqrt" " srand" " stat" " study" " substr"
" symlink" " syscall" " sysread" " system"
color red " syswrite" " tell" " telldir" " time" " tr" " y" " truncate"
" umask" " undef" " unlink" " unpack" " unshift" " utime" " values" "
vec" " wait" " waitpid" " wantarray" " warn" " write"
color magenta " continue" " else" " elsif" " do" " \<for\>" "
\<foreach\>" " if" " unless" " until" " while" " eq" " ne" " lt" " gt"
" le" " ge" " cmp" " x" " my" " sub" " use" " package" " can" " isa"
color cyan start="(\$|@|%)" end="( |\W|-)"
color yellow "".*""
color yellow "qq\|.*\|"
color white "s\/.*\/"
color white "m\/.*\/"
color white start="^use" end=";"
color white start=" = new" end=";"
color green "\#.*"
color yellow start="<< 'STOP'" end="STOP"
Richard Smith
address@hidden
- Chatbear - free messageboards, amazing customisation.
- http://www.chatbear.com/
- [Nano-devel] Perl Syntax Highlighting,
Richard Smith <=