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

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_COMPLEX_H)) {
    eval 'sub _COMPLEX_H () {1;}' unless defined(&_COMPLEX_H);
    require 'features.ph';
    require 'bits/mathdef.ph';
    if( &__GNUC_PREREQ (2, 7)  && ! &__GNUC_PREREQ (2, 97)) {
	eval 'sub _Complex () { &__complex__;}' unless defined(&_Complex);
    }
    eval 'sub complex () { &_Complex;}' unless defined(&complex);
    eval 'sub _Complex_I () {( &__extension__ 1.0 &iF);}' unless defined(&_Complex_I);
    undef(&I) if defined(&I);
    eval 'sub I () { &_Complex_I;}' unless defined(&I);
    eval 'sub __MATHCALL {
        my($function, $args) = @_;
	    eval q( &__MATHDECL ( &_Mdouble_complex_,$function, $args));
    }' unless defined(&__MATHCALL);
    eval 'sub __MATHDECL {
        my($type, $function, $args) = @_;
	    eval q( &__MATHDECL_1($type, $function, $args);  &__MATHDECL_1($type,  &__CONCAT( &__,$function), $args));
    }' unless defined(&__MATHDECL);
    eval 'sub __MATHDECL_1 {
        my($type, $function, $args) = @_;
	    eval q( &extern $type  &__MATH_PRECNAME($function) $args  &__THROW);
    }' unless defined(&__MATHDECL_1);
    eval 'sub _Mdouble_ () {\'double\';}' unless defined(&_Mdouble_);
    eval 'sub __MATH_PRECNAME {
        my($name) = @_;
	    eval q($name);
    }' unless defined(&__MATH_PRECNAME);
    require 'bits/cmathcalls.ph';
    undef(&_Mdouble_) if defined(&_Mdouble_);
    undef(&__MATH_PRECNAME) if defined(&__MATH_PRECNAME);
    unless(defined(&_Mfloat_)) {
	eval 'sub _Mfloat_ () {\'float\';}' unless defined(&_Mfloat_);
    }
    eval 'sub _Mdouble_ () { &_Mfloat_;}' unless defined(&_Mdouble_);
    if(defined(&__STDC__)) {
	eval 'sub __MATH_PRECNAME {
	    my($name) = @_;
    	    eval q($name &f);
	}' unless defined(&__MATH_PRECNAME);
    } else {
	eval 'sub __MATH_PRECNAME {
	    my($name) = @_;
    	    eval q($name  &f);
	}' unless defined(&__MATH_PRECNAME);
    }
    require 'bits/cmathcalls.ph';
    undef(&_Mdouble_) if defined(&_Mdouble_);
    undef(&__MATH_PRECNAME) if defined(&__MATH_PRECNAME);
    if(((defined(&__STDC__) ? &__STDC__ : undef) - 0|| (defined(&__GNUC__) ? &__GNUC__ : undef) - 0)  && (!defined (&__NO_LONG_DOUBLE_MATH) || defined (&__LDBL_COMPAT))) {
	if(defined(&__LDBL_COMPAT)) {
	    undef(&__MATHDECL_1) if defined(&__MATHDECL_1);
	    eval 'sub __MATHDECL_1 {
	        my($type, $function, $args) = @_;
    		eval q( &extern $type  &__REDIRECT_NTH( &__MATH_PRECNAME($function), $args, $function));
	    }' unless defined(&__MATHDECL_1);
	}
	unless(defined(&_Mlong_double_)) {
	    eval 'sub _Mlong_double_ () {\'long double\';}' unless defined(&_Mlong_double_);
	}
	eval 'sub _Mdouble_ () {\'_Mlong_double_\';}' unless defined(&_Mdouble_);
	if(defined(&__STDC__)) {
	    eval 'sub __MATH_PRECNAME {
	        my($name) = @_;
    		eval q($name &l);
	    }' unless defined(&__MATH_PRECNAME);
	} else {
	    eval 'sub __MATH_PRECNAME {
	        my($name) = @_;
    		eval q($name  &l);
	    }' unless defined(&__MATH_PRECNAME);
	}
	require 'bits/cmathcalls.ph';
    }
    undef(&_Mdouble_) if defined(&_Mdouble_);
    undef(&__MATH_PRECNAME) if defined(&__MATH_PRECNAME);
    undef(&__MATHDECL_1) if defined(&__MATHDECL_1);
    undef(&__MATHDECL) if defined(&__MATHDECL);
    undef(&__MATHCALL) if defined(&__MATHCALL);
}
1;