Update of /cvsroot/boost/boost/libs/xpressive/tools
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv5021/libs/xpressive/tools

Modified Files:
        perl2xpr.cpp 
Log Message:
move applyN and always transforms into the apply.hpp header

Index: perl2xpr.cpp
===================================================================
RCS file: /cvsroot/boost/boost/libs/xpressive/tools/perl2xpr.cpp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- perl2xpr.cpp        1 May 2007 09:08:59 -0000       1.4
+++ perl2xpr.cpp        23 Jun 2007 17:12:49 -0000      1.5
@@ -17,15 +17,15 @@
 
 int main(int argc, char *argv[])
 {
-    int i = 1;
+    int i = 1, j = 1;
     bool nocase = false;
     char const *dot = " ~_n ";
     char const *bos = " bos ";
     char const *eos = " eos ";
 
-    for(; i < argc && '-' == *argv[i]; ++i)
+    for(; i < argc && '-' == *argv[i]; argv[i][++j]? 0: (j=1,++i))
     {
-        switch(argv[i][1])
+        switch(argv[i][j])
         {
         case 'i':           // perl /i modifier
             nocase = true;


-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Boost-cvs mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/boost-cvs

Reply via email to