Added support for "format_first_only" new format flag

[SVN r10119]

test/regress/parse.cpp

@@ -82,6 +82,7 @@ flag_info flag_data[] = {
                           { BOOST_RE_STR("format_sed"), 10, format_sed, 3 },
                           { BOOST_RE_STR("format_perl"), 11, format_perl, 3 },
                           { BOOST_RE_STR("format_no_copy"), 14, format_no_copy, 3 },
+                          { BOOST_RE_STR("format_first_only"), 17, format_first_only, 3 },
 
                           { BOOST_RE_STR("REG_NO_POSIX_TEST"), 17, REG_NO_POSIX_TEST, 4 },
                           { BOOST_RE_STR("REG_UNICODE_ONLY"), 16, REG_UNICODE_ONLY, 4 },

test/regress/tests.txt

@@ -813,6 +813,13 @@ a+(b+) "...aaabb,,,ab*abbb?" $1 "...bb,,,b*bbb?"
 (a+)|(b+) "...aaabb,,,ab*abbb?" (?1A:B)C "...ACBC,,,ACBC*ACBC?" 
 (a+)|(b+) "...aaabb,,,ab*abbb?" ?1:B "...B,,,B*B?" 
 
+- match_default normal REG_EXTENDED REG_STARTEND REG_MERGE format_first_only
+; move to copying unmatched data, but replace first occurance only:
+a+ "...aaa,,," bbb "...bbb,,," 
+a+(b+) "...aaabb,,," $1 "...bb,,," 
+a+(b+) "...aaabb,,,ab*abbb?" $1 "...bb,,,ab*abbb?" 
+(a+)|(b+) "...aaabb,,,ab*abbb?" (?1A)(?2B) "...Abb,,,ab*abbb?" 
+
 ;
 ; changes to newline handling with 2.11:
 ;
@@ -871,3 +878,4 @@ a+(?#b+)b+ xaaabbba 1 7
 
 
 
+