Diff of /share/config/syntaxmode/perl.conf [000000] .. [b9514d] Maximize Restore

  Switch to side-by-side view

--- a
+++ b/share/config/syntaxmode/perl.conf
@@ -0,0 +1,112 @@
+<syntaxmode>
+    <about>
+        ID = perl
+        name = Perl
+        rants = 
+    </about>
+    <doc_properties>
+        tab_size = 4
+        tab_use = 1
+    </doc_properties>
+    <lexer>
+        ID = wxSTC_LEX_PERL
+        bracelight = ()[]{}
+        keywords = <<EOF
+        NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD BEGIN CORE
+        DESTROY END EQ GE GT INIT LE LT NE CHECK abs accept alarm and atan2 bind
+        binmode bless caller chdir chmod chomp chop chown chr chroot close
+        closedir cmp connect continue cos crypt dbmclose dbmopen defined delete
+        die do dump each else elsif endgrent endhostent endnetent endprotoent
+        endpwent endservent eof eq eval exec exists exit exp fcntl fileno flock
+        for foreach fork format formline ge getc getgrent getgrgid getgrnam
+        gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr getnetbyname
+        getnetent getpeername getpgrp getppid getpriority getprotobyname
+        getprotobynumber getprotoent getpwent getpwnam getpwuid getservbyname
+        getservbyport getservent getsockname getsockopt glob gmtime goto grep gt
+        hex if index int ioctl join keys kill last lc lcfirst le length link
+        listen local localtime lock log lstat lt m map mkdir msgctl msgget msgrcv
+        msgsnd my ne next no not oct open opendir or ord our pack package pipe
+        pop pos print printf prototype push q qq qr quotemeta qu qw qx rand read
+        readdir readline readlink readpipe recv redo ref rename require reset
+        return reverse rewinddir rindex rmdir s scalar seek seekdir select semctl
+        semget semop send setgrent sethostent setnetent setpgrp setpriority
+        setprotoent setpwent setservent setsockopt shift shmctl shmget shmread
+        shmwrite shutdown sin sleep socket socketpair sort splice split sprintf
+        sqrt srand stat study sub substr symlink syscall sysopen sysread sysseek
+        system syswrite tell telldir tie tied time times tr truncate uc ucfirst
+        umask undef unless unlink unpack unshift untie until use utime values vec
+        wait waitpid wantarray warn while write x xor y
+        EOF
+        <styles>
+            1 = fore:\#ff0000; Error
+            2 = fore:\#aaaaaa; Comment
+            3 = fore:\#004000,back:\#E0FFE0,eolfilled; POD
+            4 =
+            5 =
+            6 =
+            7 =
+            8 = ; Symbols / Punctuation. Currently not used
+            9 = ; Preprocessor. Currently not used
+            10 =
+            11 =
+            12 =
+            13 =
+            14 =
+            15 =
+            16 =
+            17 =
+            18 =
+            19 =
+            20 =
+            21 =
+            22 =
+            23 =
+            24 =
+            25 =
+            26 =
+            27 =
+            28 =
+            29 =
+            30 =
+        </styles>
+        wordchars =
+# $_[0]->StyleSetSpec( wxSTC_H_TAG, "fore:#000055" ); # Apply tag style for selected lexer (blue)
+ $_[0]->StyleSetSpec(3,"fore:#004000,back:#E0FFE0,$(font.text),eolfilled"); # POD
+ $_[0]->StyleSetSpec(4,"fore:#007f7f");                                     # Number
+ $_[0]->StyleSetSpec(5,"fore:#000077,bold");                                # Keywords
+ $_[0]->StyleSetSpec(6,"fore:#ee7b00,back:#fff8f8");                        # Doublequoted string
+ $_[0]->StyleSetSpec(7,"fore:#f36600,back:#fffcff");                        # Single quoted string
+ $_[0]->StyleSetSpec(8,"fore:#555555");                                     # 
+ $_[0]->StyleSetSpec(10,"fore:#002200");                                    # Operators
+ $_[0]->StyleSetSpec(11,"fore:#3355bb");                                    # Identifiers (functions, etc.)
+ $_[0]->StyleSetSpec(12,"fore:#228822");                                    # Scalars: $var
+ $_[0]->StyleSetSpec(13,"fore:#339933");                                    # Array: @var
+ $_[0]->StyleSetSpec(14,"fore:#44aa44");                                    # Hash: %var
+ $_[0]->StyleSetSpec(15,"fore:#55bb55");                                    # Symbol table: *var
+ $_[0]->StyleSetSpec(17,"fore:#000000,back:#A0FFA0");                       # Regex: /re/ or m{re}
+ $_[0]->StyleSetSpec(18,"fore:#000000,back:#F0E080");                       # Substitution: s/re/ore/
+ $_[0]->StyleSetSpec(19,"fore:#000000,back:#8080A0");                       # Long Quote (qq, qr, qw, qx) -- obsolete: replaced by qq, qx, qr, qw
+ $_[0]->StyleSetSpec(20,"fore:#ff7700,back:#f9f9d7");                       # Back Ticks
+ $_[0]->StyleSetSpec(21,"fore:#600000,back:#FFF0D8,eolfilled");             # Data Section: __DATA__ or __END__ at beginning of line
+ $_[0]->StyleSetSpec(22,"fore:#000000,back:#DDD0DD");                       # Here-doc (delimiter)
+ $_[0]->StyleSetSpec(23,"fore:#7F007F,back:#DDD0DD,eolfilled,notbold");     # Here-doc (single quoted, q)
+ $_[0]->StyleSetSpec(24,"fore:#7F007F,back:#DDD0DD,eolfilled,bold");        # Here-doc (double quoted, qq)
+ $_[0]->StyleSetSpec(25,"fore:#7F007F,back:#DDD0DD,eolfilled,italics");     # Here-doc (back ticks, qx)
+ $_[0]->StyleSetSpec(26,"fore:#7F007F,$(font.monospace),notbold");          # Single quoted string, generic
+ $_[0]->StyleSetSpec(27,"$(style.perl.6)");                                 # qq = Double quoted string
+ $_[0]->StyleSetSpec(28,"$(style.perl.20)");                                # qx = Back ticks
+ $_[0]->StyleSetSpec(29,"$(style.perl.17)");                                # qr = Regex
+ $_[0]->StyleSetSpec(30,"fore:#f36600,back:#fff8f8");                       # qw = Array
+    </lexer>
+    <tools>
+        debug = no
+        compile = no
+        <comment>
+            block = \#~
+            box = \#~
+            stream = no
+        </comment>
+        run =
+        tidy = no
+    </tools>
+</syntaxmode>