[ci] Test Tcl bindings for dragonfly/freebsd
[xapian.git] / xapian-applications / omega / csvescape.cc
blob9eed3916d0b82999a1e09bc28be1c6ad1a1913a9
1 /** @file
2 * @brief Escape a string for use in a CSV file
3 */
4 /* Copyright (C) 2015 Olly Betts
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to
8 * deal in the Software without restriction, including without limitation the
9 * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
10 * sell copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
21 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
22 * IN THE SOFTWARE.
25 #include <config.h>
27 #include "csvescape.h"
29 #include <string>
31 using namespace std;
33 void
34 csv_escape_(string &s, string::size_type i)
36 // Escape any double quotes by doubling them.
37 s.insert(0, 1, '"');
38 string::size_type j;
39 while ((j = s.find_first_of('"', i + 1)) != std::string::npos) {
40 s.insert(j, 1, '"');
41 i = j + 1;
43 s.append(1, '"');