require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&list_entry)) {
    sub list_entry {
	my($entry, $type, $member) = @_;
	eval q(($type *)($entry));
    }
}
unless(defined(&list_for_each)) {
    sub list_for_each {
	my($entry, $head) = @_;
	eval q( &for ($entry = ($head)-> &next; $entry != $head; $entry = ($entry)-> &next));
    }
}
unless(defined(&list_for_each_safe)) {
    sub list_for_each_safe {
	my($entry, $temp, $head) = @_;
	eval q( &for ($entry = ($head)-> &next, $temp = ($entry)-> &next; $entry != $head; $entry = $temp, $temp =  ($entry->{next})));
    }
}
1;
