config root man

Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/sys/

FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64
Upload File :
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/sys/tty.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_SYS_TTY_H_)) {
    eval 'sub _SYS_TTY_H_ () {1;}' unless defined(&_SYS_TTY_H_);
    require 'sys/param.ph';
    require 'sys/queue.ph';
    require 'sys/lock.ph';
    require 'sys/mutex.ph';
    require 'sys/condvar.ph';
    require 'sys/selinfo.ph';
    require 'sys/_termios.ph';
    require 'sys/ttycom.ph';
    require 'sys/ttyqueue.ph';
    eval 'sub TF_NOPREFIX () {0x1;}' unless defined(&TF_NOPREFIX);
    eval 'sub TF_INITLOCK () {0x2;}' unless defined(&TF_INITLOCK);
    eval 'sub TF_CALLOUT () {0x4;}' unless defined(&TF_CALLOUT);
    eval 'sub TF_OPENED_IN () {0x8;}' unless defined(&TF_OPENED_IN);
    eval 'sub TF_OPENED_OUT () {0x10;}' unless defined(&TF_OPENED_OUT);
    eval 'sub TF_OPENED_CONS () {0x20;}' unless defined(&TF_OPENED_CONS);
    eval 'sub TF_OPENED () {( &TF_OPENED_IN| &TF_OPENED_OUT| &TF_OPENED_CONS);}' unless defined(&TF_OPENED);
    eval 'sub TF_GONE () {0x40;}' unless defined(&TF_GONE);
    eval 'sub TF_OPENCLOSE () {0x80;}' unless defined(&TF_OPENCLOSE);
    eval 'sub TF_ASYNC () {0x100;}' unless defined(&TF_ASYNC);
    eval 'sub TF_LITERAL () {0x200;}' unless defined(&TF_LITERAL);
    eval 'sub TF_HIWAT_IN () {0x400;}' unless defined(&TF_HIWAT_IN);
    eval 'sub TF_HIWAT_OUT () {0x800;}' unless defined(&TF_HIWAT_OUT);
    eval 'sub TF_HIWAT () {( &TF_HIWAT_IN| &TF_HIWAT_OUT);}' unless defined(&TF_HIWAT);
    eval 'sub TF_STOPPED () {0x1000;}' unless defined(&TF_STOPPED);
    eval 'sub TF_EXCLUDE () {0x2000;}' unless defined(&TF_EXCLUDE);
    eval 'sub TF_BYPASS () {0x4000;}' unless defined(&TF_BYPASS);
    eval 'sub TF_ZOMBIE () {0x8000;}' unless defined(&TF_ZOMBIE);
    eval 'sub TF_HOOK () {0x10000;}' unless defined(&TF_HOOK);
    eval 'sub TF_BUSY_IN () {0x20000;}' unless defined(&TF_BUSY_IN);
    eval 'sub TF_BUSY_OUT () {0x40000;}' unless defined(&TF_BUSY_OUT);
    eval 'sub TF_BUSY () {( &TF_BUSY_IN| &TF_BUSY_OUT);}' unless defined(&TF_BUSY);
    if(defined(&_KERNEL)) {
	eval 'sub TTYUNIT_INIT () {0x1;}' unless defined(&TTYUNIT_INIT);
	eval 'sub TTYUNIT_LOCK () {0x2;}' unless defined(&TTYUNIT_LOCK);
	eval 'sub TTYUNIT_CALLOUT () {0x4;}' unless defined(&TTYUNIT_CALLOUT);
	eval 'sub tty_lock {
	    my($tp) = @_;
    	    eval q( &mtx_lock(($tp)-> &t_mtx));
	}' unless defined(&tty_lock);
	eval 'sub tty_unlock {
	    my($tp) = @_;
    	    eval q( &mtx_unlock(($tp)-> &t_mtx));
	}' unless defined(&tty_unlock);
	eval 'sub tty_lock_assert {
	    my($tp,$ma) = @_;
    	    eval q( &mtx_assert(($tp)-> &t_mtx, ($ma)));
	}' unless defined(&tty_lock_assert);
	eval 'sub tty_getlock {
	    my($tp) = @_;
    	    eval q((($tp)-> &t_mtx));
	}' unless defined(&tty_getlock);
	eval 'sub tty_makealias () {( &tp, &fmt,...)  &make_dev_alias(( &tp)-> &t_dev,  &fmt,   &__VA_ARGS__);}' unless defined(&tty_makealias);
	eval 'sub tty_opened {
	    my($tp) = @_;
    	    eval q((($tp)-> &t_flags &  &TF_OPENED));
	}' unless defined(&tty_opened);
	eval 'sub tty_gone {
	    my($tp) = @_;
    	    eval q((($tp)-> &t_flags &  &TF_GONE));
	}' unless defined(&tty_gone);
	eval 'sub tty_softc {
	    my($tp) = @_;
    	    eval q((($tp)-> &t_devswsoftc));
	}' unless defined(&tty_softc);
	eval 'sub tty_devname {
	    my($tp) = @_;
    	    eval q( &devtoname(($tp)-> &t_dev));
	}' unless defined(&tty_devname);
	require 'sys/ttydisc.ph';
	require 'sys/ttydevsw.ph';
	require 'sys/ttyhook.ph';
    }
}
1;

Man Man