Update of /cvsroot/fte/fte/src
In directory vz-cvs-3.sog:/tmp/cvs-serv1357/src
Modified Files:
h_perl.cpp
Log Message:
Add support for // (defined-or) in perl
Index: h_perl.cpp
===================================================================
RCS file: /cvsroot/fte/fte/src/h_perl.cpp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- h_perl.cpp 7 Jul 2011 17:46:17 -0000 1.24
+++ h_perl.cpp 15 Sep 2012 15:18:52 -0000 1.25
@@ -473,11 +473,32 @@
goto hilit;
} else if (*p == '#') {
State = hsPerl_Comment | (State & X_BIT);
- continue;
- } else if (X_NOT(State) && *p == '/') {
- State = QSET(hsPerl_Regexp1, '/');
- Color = CLR_RegexpDelim;
- goto hilit;
+ continue;
+ } else if (X_NOT(State) && *p == '/') {
+ /*if (len >= 2 && p[1] == '/')
+ {
+ Color = CLR_Punctuation;
+ ColorNext();
+ ColorNext();
+ if (len && *p == '=')
+ ColorNext();
+ continue;
+ }
+ else*/
+ {
+ State = QSET(hsPerl_Regexp1, '/');
+ Color = CLR_RegexpDelim;
+ goto hilit;
+ }
+ } else if (*p == '/' && len >= 2 && p[1] == '/') {
+ State = hsPerl_Punct;
+ Color = CLR_Punctuation;
+ ColorNext();
+ ColorNext();
+ if (len && *p == '=')
+ ColorNext();
+
+ continue;
} else if (X_NOT(State) &&
*p == '-' &&
len >= 2 &&
|
