perl_predicate.h

该软件可以方便的把HTML网页解析成一棵Tree

/*
**	HTML::Tree
**	perl_predicate.h
**
**	Copyright (C) 2001  Paul J. Lucas
**
**	This program is free software; you can redistribute it and/or modify
**	it under the terms of the GNU General Public License as published by
**	the Free Software Foundation; either version 2 of the License, or
**	(at your option) any later version.
**
**	This program is distributed in the hope that it will be useful,
**	but WITHOUT ANY WARRANTY; without even the implied warranty of
**	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
**	GNU General Public License for more details.
**
**	You should have received a copy of the GNU General Public License
**	along with this program; if not, write to the Free Software
**	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#ifndef	perl_predicate_H
#define	perl_predicate_H

// standard
#include <functional>			/* for unary_function<> */

// local
#include "util.h"			/* must go first */
#include "HTML_Node.h"

//*****************************************************************************
//
// SYNOPSIS
//
	class perl_predicate :
		public std::unary_function< bool, HTML_Tree::HTML_Node& >
//
// DESCRIPTION
//
//	A perl_predicate is-a unary_function that allows a Perl function to
//	serve as a predicate function for STL algorithms.
//
//*****************************************************************************
{
public:
	perl_predicate( SV* func_ref ) : func_ref_( func_ref ) { }
	bool operator()( HTML_Tree::HTML_Node& ) const;
private:
	SV* const func_ref_;
};

#endif	/* perl_predicate_H */