Поиск в текстовом файле предложений, соответствующих маске

#include <iostream>
#include <fstream>
#include <sstream>
#include <iterator>
#include <string>
#define is_end(c) ((c) == '.' || (c) == '!' || (c) == '?')
bool is_test(const std::string& s, const int mask[], int n);
void output_p(std::ostream& _out, std::istream& _in, const int mask[], int num);
 
int main(void){
    const int N = 4;
    int mask[N] = { 1, 3, 7, 1 };
 
    //для примера, ввод из строки вывод в консоль
    char s[] = "C, APL, FORTRAN, D... Perl, Algol. R ADA JScript, B! The End.";
    std::istringstream sp(s);
    output_p(std::cout, sp, mask, N);
 
    //ввод/вывод из файла
    std::ifstream fin("input.txt");
    std::ofstream fout("output.txt");
    output_p(fout, fin, mask, N);
    fin.close();
    fout.close();
    std::cin.get();
    return 0;
}
 
void output_p(std::ostream& _out, std::istream& _in, const int mask[], int num){
    if(_in.fail() || _in.eof())
        return;
 
    std::string s;
    std::istreambuf_iterator<char> p(_in), e;
    while(p != e){
        while((p != e) && (*p == ' ' || *p == '\t'))
            ++p;
 
        s = "";
        while((p != e) && !is_end(*p))
            s += *p++;
 
        while((p != e) && is_end(*p))
            s += *p++;
 
        if(is_test(s, mask, num))
            _out << s << std::endl;
    }
}
 
bool is_test(const std::string& s, const int mask[], int num){
    const char delim[] = " \t\n,.!?;";
    int p = 0;
    std::string::size_type j, i;
    for(i = 0; (i = s.find_first_not_of(delim, i)) != std::string::npos; i = j, ++p){
        if((j = s.find_first_of(delim, i)) == std::string::npos)
            j = s.length();
 
        if((p >= num) || (mask[p] != static_cast<int>(j - i)))
            return false;
    }
    return (p == num);
}