require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_STRUCT_H_)) {
    eval 'sub _STRUCT_H_ () {1;}' unless defined(&_STRUCT_H_);
    eval 'sub fldoff {
        my($name, $field) = @_;
	    eval q((((0)->$field)));
    }' unless defined(&fldoff);
    eval 'sub fldsiz {
        my($name, $field) = @_;
	    eval q(($sizeof{(0)->$field}));
    }' unless defined(&fldsiz);
    eval 'sub strbase {
        my($name, $addr, $field) = @_;
	    eval q(((($addr) -  &fldoff($name, $field))));
    }' unless defined(&strbase);
}
1;
