Ввести из файла текст и проверить каждое слово на палиндром

#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <cctype>
#define is_delim(c) (isspace((c)) || ispunct((c)))
typedef std::string::size_type stype;
bool is_poly(const std::string& s, stype a, stype b);
void output_poly(std::ostream& _out, std::istream& _in);
 
int main(void){
    char s[] = "WOW, KAZAK, PHP, ABCDEF, ADA, ZOO, XOOOX";
    std::istringstream sp(s);
    output_poly(std::cout, sp);
 
/*  из файла
    std::ifstream fp("file.txt");
    output_poly(std::cout, fp);
    fp.close();
*/
    std::cin.get();
    return 0;
}
 
void output_poly(std::ostream& _out, std::istream& _in){
    std::string s;
    stype i, n, m;
    while(std::getline(_in, s) && !_in.fail()){
        i = n = 0;
        m = s.length();
        do {
            if((i < m) && !is_delim(s[i]))
                ++n;
            else if(n > 0){
                if((n > 1) && is_poly(s, i - n, i)){
                    _out.write(&s[i - n], n);
                    _out << std::endl;
                }
                n = 0;
            }
        } while(i++ < m);
    }
}
 
bool is_poly(const std::string& s, stype a, stype b){
    for(--b; a < b; ++a, --b){
        if(s[a] != s[b])
            return false;
    }
    return true;
}