require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_TERMINAL_H_)) {
    eval 'sub _SYS_TERMINAL_H_ () {1;}' unless defined(&_SYS_TERMINAL_H_);
    require 'sys/param.ph';
    require 'sys/_lock.ph';
    require 'sys/_mutex.ph';
    require 'sys/cons.ph';
    require 'sys/linker_set.ph';
    require 'sys/ttycom.ph';
    require 'teken/teken.ph';
    eval 'sub TCHAR_CHARACTER {
        my($c) = @_;
	    eval q((($c) & 0x1fffff));
    }' unless defined(&TCHAR_CHARACTER);
    eval 'sub TCHAR_FORMAT {
        my($c) = @_;
	    eval q(((($c) >> 21) & 0x1f));
    }' unless defined(&TCHAR_FORMAT);
    eval 'sub TCHAR_FGCOLOR {
        my($c) = @_;
	    eval q(((($c) >> 26) & 0x7));
    }' unless defined(&TCHAR_FGCOLOR);
    eval 'sub TCHAR_BGCOLOR {
        my($c) = @_;
	    eval q((($c) >> 29));
    }' unless defined(&TCHAR_BGCOLOR);
    eval 'sub TCOLOR_LIGHT {
        my($c) = @_;
	    eval q((($c) | 0x8));
    }' unless defined(&TCOLOR_LIGHT);
    eval 'sub TCOLOR_DARK {
        my($c) = @_;
	    eval q((($c) & ~0x8));
    }' unless defined(&TCOLOR_DARK);
    eval 'sub TF_MUTE () {0x1;}' unless defined(&TF_MUTE);
    eval 'sub TF_BELL () {0x2;}' unless defined(&TF_BELL);
    eval 'sub TF_CONS () {0x4;}' unless defined(&TF_CONS);
    if(defined(&_KERNEL)) {
	eval 'sub TERMINAL_DECLARE_EARLY {
	    my($name, $class, $softc) = @_;
    	    eval q( &static \'struct terminal\' $name = { . &tm_class = $class, . &tm_softc = $softc, . &tm_flags =  &TF_CONS, };  &CONSOLE_DEVICE($name   &_consdev,  &termcn_cnops, $name));
	}' unless defined(&TERMINAL_DECLARE_EARLY);
    }
}
1;