Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/dirent.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_DIRENT_H)) {
    eval 'sub _DIRENT_H () {1;}' unless defined(&_DIRENT_H);
    require 'features.ph';
    require 'bits/types.ph';
    if(defined(&__USE_XOPEN)) {
	unless(defined(&__ino_t_defined)) {
	    unless(defined(&__USE_FILE_OFFSET64)) {
	    } else {
	    }
	    eval 'sub __ino_t_defined () {1;}' unless defined(&__ino_t_defined);
	}
	if(defined (&__USE_LARGEFILE64)  && !defined (&__ino64_t_defined)) {
	    eval 'sub __ino64_t_defined () {1;}' unless defined(&__ino64_t_defined);
	}
    }
    require 'bits/dirent.ph';
    if((defined (&__USE_BSD) || defined (&__USE_MISC))  && !defined (&d_fileno)) {
	eval 'sub d_ino () { &d_fileno;}' unless defined(&d_ino);
    }
    if(defined(&_DIRENT_HAVE_D_NAMLEN)) {
	eval 'sub _D_EXACT_NAMLEN {
	    my($d) = @_;
    	    eval q((($d)-> &d_namlen));
	}' unless defined(&_D_EXACT_NAMLEN);
	eval 'sub _D_ALLOC_NAMLEN {
	    my($d) = @_;
    	    eval q(( &_D_EXACT_NAMLEN ($d) + 1));
	}' unless defined(&_D_ALLOC_NAMLEN);
    } else {
	eval 'sub _D_EXACT_NAMLEN {
	    my($d) = @_;
    	    eval q(( &strlen (($d)-> &d_name)));
	}' unless defined(&_D_EXACT_NAMLEN);
	if(defined(&_DIRENT_HAVE_D_RECLEN)) {
	    eval 'sub _D_ALLOC_NAMLEN {
	        my($d) = @_;
    		eval q((( ($d) + ($d)-> &d_reclen) - ($d)-> $d_name[0]));
	    }' unless defined(&_D_ALLOC_NAMLEN);
	} else {
	    eval 'sub _D_ALLOC_NAMLEN {
	        my($d) = @_;
    		eval q(($sizeof{$d}-> &d_name > 1? $sizeof{$d}-> &d_name :  &_D_EXACT_NAMLEN ($d) + 1));
	    }' unless defined(&_D_ALLOC_NAMLEN);
	}
    }
    if(defined(&__USE_BSD)) {
	eval("sub DT_UNKNOWN () { 0; }") unless defined(&DT_UNKNOWN);
	eval("sub DT_FIFO () { 1; }") unless defined(&DT_FIFO);
	eval("sub DT_CHR () { 2; }") unless defined(&DT_CHR);
	eval("sub DT_DIR () { 4; }") unless defined(&DT_DIR);
	eval("sub DT_BLK () { 6; }") unless defined(&DT_BLK);
	eval("sub DT_REG () { 8; }") unless defined(&DT_REG);
	eval("sub DT_LNK () { 10; }") unless defined(&DT_LNK);
	eval("sub DT_SOCK () { 12; }") unless defined(&DT_SOCK);
	eval("sub DT_WHT () { 14; }") unless defined(&DT_WHT);
	eval 'sub IFTODT {
	    my($mode) = @_;
    	    eval q(((($mode) & 0170000) >> 12));
	}' unless defined(&IFTODT);
	eval 'sub DTTOIF {
	    my($dirtype) = @_;
    	    eval q((($dirtype) << 12));
	}' unless defined(&DTTOIF);
    }
    if(defined(&__USE_XOPEN2K8)) {
    }
    unless(defined(&__USE_FILE_OFFSET64)) {
    } else {
	if(defined(&__REDIRECT)) {
	} else {
	    eval 'sub readdir () { &readdir64;}' unless defined(&readdir);
	}
    }
    if(defined(&__USE_LARGEFILE64)) {
    }
    if(defined (&__USE_POSIX) || defined (&__USE_MISC)) {
	unless(defined(&__USE_FILE_OFFSET64)) {
	} else {
	    if(defined(&__REDIRECT)) {
	    } else {
		eval 'sub readdir_r () { &readdir64_r;}' unless defined(&readdir_r);
	    }
	}
	if(defined(&__USE_LARGEFILE64)) {
	}
    }
    if(defined (&__USE_BSD) || defined (&__USE_MISC) || defined (&__USE_XOPEN)) {
	require 'bits/types.ph';
    }
    if(defined (&__USE_BSD) || defined (&__USE_MISC) || defined (&__USE_XOPEN2K8)) {
	if(defined (&__OPTIMIZE__)  && defined (&_DIR_dirfd)) {
	    eval 'sub dirfd {
	        my($dirp) = @_;
    		eval q( &_DIR_dirfd ($dirp));
	    }' unless defined(&dirfd);
	}
	if(defined (&__USE_BSD) || defined (&__USE_MISC)) {
	    unless(defined(&MAXNAMLEN)) {
		require 'bits/posix1_lim.ph';
		if(defined(&NAME_MAX)) {
		    eval 'sub MAXNAMLEN () { &NAME_MAX;}' unless defined(&MAXNAMLEN);
		} else {
		    eval 'sub MAXNAMLEN () {255;}' unless defined(&MAXNAMLEN);
		}
	    }
	}
	eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t);
	require 'stddef.ph';
	unless(defined(&__USE_FILE_OFFSET64)) {
	} else {
	    if(defined(&__REDIRECT)) {
	    } else {
		eval 'sub scandir () { &scandir64;}' unless defined(&scandir);
	    }
	}
	if(defined (&__USE_GNU)  && defined (&__USE_LARGEFILE64)) {
	}
	unless(defined(&__USE_FILE_OFFSET64)) {
	} else {
	    if(defined(&__REDIRECT)) {
	    } else {
		eval 'sub alphasort () { &alphasort64;}' unless defined(&alphasort);
	    }
	}
	if(defined (&__USE_GNU)  && defined (&__USE_LARGEFILE64)) {
	}
    }
    if(defined (&__USE_BSD) || defined (&__USE_MISC)) {
	unless(defined(&__USE_FILE_OFFSET64)) {
	} else {
	    if(defined(&__REDIRECT)) {
	    } else {
		eval 'sub getdirentries () { &getdirentries64;}' unless defined(&getdirentries);
	    }
	}
	if(defined(&__USE_LARGEFILE64)) {
	}
    }
    if(defined(&__USE_GNU)) {
	unless(defined(&__USE_FILE_OFFSET64)) {
	} else {
	    if(defined(&__REDIRECT)) {
	    } else {
		eval 'sub versionsort () { &versionsort64;}' unless defined(&versionsort);
	    }
	}
	if(defined(&__USE_LARGEFILE64)) {
	}
    }
}
1;