/usr/include/pegtl/internal/istring.hh is in pegtl-dev 1.3.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | // Copyright (c) 2014-2015 Dr. Colin Hirsch and Daniel Frey
// Please see LICENSE for license or visit https://github.com/ColinH/PEGTL/
#ifndef PEGTL_INTERNAL_ISTRING_HH
#define PEGTL_INTERNAL_ISTRING_HH
#include <type_traits>
#include "result_on_found.hh"
#include "skip_control.hh"
#include "bump_util.hh"
#include "trivial.hh"
#include "../analysis/counted.hh"
namespace pegtl
{
namespace internal
{
template< char C >
using is_alpha = std::integral_constant< bool, ( ( 'a' <= C ) && ( C <= 'z' ) ) || ( ( 'A' <= C ) && ( C <= 'Z' ) ) >;
template< char C, bool A = is_alpha< C >::value > struct ichar_equal;
template< char C > struct ichar_equal< C, true >
{
static bool match( const char c )
{
return ( C | 0x20 ) == ( c | 0x20 );
}
};
template< char C > struct ichar_equal< C, false >
{
static bool match( const char c )
{
return c == C;
}
};
template< char ... Cs > struct istring_equal;
template<> struct istring_equal<>
{
static bool match( const char * )
{
return true;
}
};
template< char C, char ... Cs > struct istring_equal< C, Cs ... >
{
static bool match( const char * r )
{
return ichar_equal< C >::match( * r ) && istring_equal< Cs ... >::match( r + 1 );
}
};
template< char ... Cs > struct istring;
template< char ... Cs >
struct skip_control< istring< Cs ... > > : std::true_type {};
template<> struct istring<>
: trivial< true > {};
template< char ... Cs >
struct istring
{
using analyze_t = analysis::counted< analysis::rule_type::ANY, sizeof ... ( Cs ) >;
template< typename Input >
static bool match( Input & in )
{
if ( in.size() >= sizeof ... ( Cs ) ) {
if ( istring_equal< Cs ... >::match( in.begin() ) ) {
bump< result_on_found::SUCCESS, Input, char, Cs ... >( in, sizeof ... ( Cs ) );
return true;
}
}
return false;
}
};
} // internal
} // pegtl
#endif
|