%PDF-
%PDF-
Mini Shell
Mini Shell
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_SYS_TREE_H_)) {
eval 'sub _SYS_TREE_H_ () {1;}' unless defined(&_SYS_TREE_H_);
require 'sys/cdefs.ph';
eval 'sub SPLAY_HEAD {
my($name, $type) = @_;
eval q(\'struct name\' { \'struct type\' * &sph_root; });
}' unless defined(&SPLAY_HEAD);
eval 'sub SPLAY_INITIALIZER {
my($root) = @_;
eval q({ &NULL });
}' unless defined(&SPLAY_INITIALIZER);
eval 'sub SPLAY_INIT {
my($root) = @_;
eval q( &do { ($root)-> &sph_root = &NULL; } &while ( 0));
}' unless defined(&SPLAY_INIT);
eval 'sub SPLAY_ENTRY {
my($type) = @_;
eval q(\'struct struct\' { \'struct type\' * &spe_left; \'struct type\' * &spe_right; });
}' unless defined(&SPLAY_ENTRY);
eval 'sub SPLAY_LEFT {
my($elm, $field) = @_;
eval q(($elm)-> ($field->{spe_left}));
}' unless defined(&SPLAY_LEFT);
eval 'sub SPLAY_RIGHT {
my($elm, $field) = @_;
eval q(($elm)-> ($field->{spe_right}));
}' unless defined(&SPLAY_RIGHT);
eval 'sub SPLAY_ROOT {
my($head) = @_;
eval q(($head)-> &sph_root);
}' unless defined(&SPLAY_ROOT);
eval 'sub SPLAY_EMPTY {
my($head) = @_;
eval q(( &SPLAY_ROOT($head) == &NULL));
}' unless defined(&SPLAY_EMPTY);
eval 'sub SPLAY_ROTATE_RIGHT {
my($head, $tmp, $field) = @_;
eval q( &do { &SPLAY_LEFT(($head)-> &sph_root, $field) = &SPLAY_RIGHT($tmp, $field); &SPLAY_RIGHT($tmp, $field) = ($head)-> &sph_root; ($head)-> &sph_root = $tmp; } &while ( 0));
}' unless defined(&SPLAY_ROTATE_RIGHT);
eval 'sub SPLAY_ROTATE_LEFT {
my($head, $tmp, $field) = @_;
eval q( &do { &SPLAY_RIGHT(($head)-> &sph_root, $field) = &SPLAY_LEFT($tmp, $field); &SPLAY_LEFT($tmp, $field) = ($head)-> &sph_root; ($head)-> &sph_root = $tmp; } &while ( 0));
}' unless defined(&SPLAY_ROTATE_LEFT);
eval 'sub SPLAY_LINKLEFT {
my($head, $tmp, $field) = @_;
eval q( &do { &SPLAY_LEFT($tmp, $field) = ($head)-> &sph_root; $tmp = ($head)-> &sph_root; ($head)-> &sph_root = &SPLAY_LEFT(($head)-> &sph_root, $field); } &while ( 0));
}' unless defined(&SPLAY_LINKLEFT);
eval 'sub SPLAY_LINKRIGHT {
my($head, $tmp, $field) = @_;
eval q( &do { &SPLAY_RIGHT($tmp, $field) = ($head)-> &sph_root; $tmp = ($head)-> &sph_root; ($head)-> &sph_root = &SPLAY_RIGHT(($head)-> &sph_root, $field); } &while ( 0));
}' unless defined(&SPLAY_LINKRIGHT);
eval 'sub SPLAY_ASSEMBLE {
my($head, $node, $left, $right, $field) = @_;
eval q( &do { &SPLAY_RIGHT($left, $field) = &SPLAY_LEFT(($head)-> &sph_root, $field); &SPLAY_LEFT($right, $field) = &SPLAY_RIGHT(($head)-> &sph_root, $field); &SPLAY_LEFT(($head)-> &sph_root, $field) = &SPLAY_RIGHT($node, $field); &SPLAY_RIGHT(($head)-> &sph_root, $field) = &SPLAY_LEFT($node, $field); } &while ( 0));
}' unless defined(&SPLAY_ASSEMBLE);
eval 'sub SPLAY_PROTOTYPE {
my($name, $type, $field, $cmp) = @_;
eval q( &void $name &_SPLAY(\'struct name\' *, \'struct type\' *); &void $name &_SPLAY_MINMAX(\'struct name\' *, \'int\'); \'struct type\' *$name &_SPLAY_INSERT(\'struct name\' *, \'struct type\' *); \'struct type\' *$name &_SPLAY_REMOVE(\'struct name\' *, \'struct type\' *); &static &__unused &__inline \'struct type\' * $name &_SPLAY_FIND(\'struct name\' * &head, \'struct type\' * &elm) { &if ( &SPLAY_EMPTY( &head)) &return( &NULL); $name &_SPLAY( &head, &elm); &if (($cmp)( &elm, ( &head)-> &sph_root) == 0) &return ( ($head->{sph_root})); &return ( &NULL); } &static &__unused &__inline \'struct type\' * $name &_SPLAY_NEXT(\'struct name\' * &head, \'struct type\' * &elm) { $name &_SPLAY( &head, &elm); &if ( &SPLAY_RIGHT( &elm, $field) != &NULL) { &elm = &SPLAY_RIGHT( &elm, $field); &while ( &SPLAY_LEFT( &elm, $field) != &NULL) { &elm = &SPLAY_LEFT( &elm, $field); } } &else &elm = &NULL; &return ( &elm); } &static &__unused &__inline \'struct type\' * $name &_SPLAY_MIN_MAX(\'struct name\' * &head, \'int\' &val) { $name &_SPLAY_MINMAX( &head, &val); &return ( &SPLAY_ROOT( &head)); });
}' unless defined(&SPLAY_PROTOTYPE);
eval 'sub SPLAY_GENERATE {
my($name, $type, $field, $cmp) = @_;
eval q(\'struct type\' * $name &_SPLAY_INSERT(\'struct name\' * &head, \'struct type\' * &elm) { &if ( &SPLAY_EMPTY( &head)) { &SPLAY_LEFT( &elm, $field) = &SPLAY_RIGHT( &elm, $field) = &NULL; } &else { \'int\' &__comp; $name &_SPLAY( &head, &elm); &__comp = ($cmp)( &elm, ( &head)-> &sph_root); &if( &__comp < 0) { &SPLAY_LEFT( &elm, $field) = &SPLAY_LEFT(( &head)-> &sph_root, $field); &SPLAY_RIGHT( &elm, $field) = ( &head)-> &sph_root; &SPLAY_LEFT(( &head)-> &sph_root, $field) = &NULL; } &else &if ( &__comp > 0) { &SPLAY_RIGHT( &elm, $field) = &SPLAY_RIGHT(( &head)-> &sph_root, $field); &SPLAY_LEFT( &elm, $field) = ( &head)-> &sph_root; &SPLAY_RIGHT(( &head)-> &sph_root, $field) = &NULL; } &else &return (( &head)-> &sph_root); } ( &head)-> &sph_root = ( &elm); &return ( &NULL); } \'struct type\' * $name &_SPLAY_REMOVE(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' * &__tmp; &if ( &SPLAY_EMPTY( &head)) &return ( &NULL); $name &_SPLAY( &head, &elm); &if (($cmp)( &elm, ( &head)-> &sph_root) == 0) { &if ( &SPLAY_LEFT(( &head)-> &sph_root, $field) == &NULL) { ( &head)-> &sph_root = &SPLAY_RIGHT(( &head)-> &sph_root, $field); } &else { &__tmp = &SPLAY_RIGHT(( &head)-> &sph_root, $field); ( &head)-> &sph_root = &SPLAY_LEFT(( &head)-> &sph_root, $field); $name &_SPLAY( &head, &elm); &SPLAY_RIGHT(( &head)-> &sph_root, $field) = &__tmp; } &return ( &elm); } &return ( &NULL); } &void $name &_SPLAY(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' &__node, * &__left, * &__right, * &__tmp; \'int\' &__comp; &SPLAY_LEFT(& &__node, $field) = &SPLAY_RIGHT(& &__node, $field) = &NULL; &__left = &__right = & &__node; &while (( &__comp = ($cmp)( &elm, ( &head)-> &sph_root)) != 0) { &if ( &__comp < 0) { &__tmp = &SPLAY_LEFT(( &head)-> &sph_root, $field); &if ( &__tmp == &NULL) &break; &if (($cmp)( &elm, &__tmp) < 0){ &SPLAY_ROTATE_RIGHT( &head, &__tmp, $field); &if ( &SPLAY_LEFT(( &head)-> &sph_root, $field) == &NULL) &break; } &SPLAY_LINKLEFT( &head, &__right, $field); } &else &if ( &__comp > 0) { &__tmp = &SPLAY_RIGHT(( &head)-> &sph_root, $field); &if ( &__tmp == &NULL) &break; &if (($cmp)( &elm, &__tmp) > 0){ &SPLAY_ROTATE_LEFT( &head, &__tmp, $field); &if ( &SPLAY_RIGHT(( &head)-> &sph_root, $field) == &NULL) &break; } &SPLAY_LINKRIGHT( &head, &__left, $field); } } &SPLAY_ASSEMBLE( &head, & &__node, &__left, &__right, $field); } &void $name &_SPLAY_MINMAX(\'struct name\' * &head, \'int\' &__comp) { \'struct type\' &__node, * &__left, * &__right, * &__tmp; &SPLAY_LEFT(& &__node, $field) = &SPLAY_RIGHT(& &__node, $field) = &NULL; &__left = &__right = & &__node; &while (1) { &if ( &__comp < 0) { &__tmp = &SPLAY_LEFT(( &head)-> &sph_root, $field); &if ( &__tmp == &NULL) &break; &if ( &__comp < 0){ &SPLAY_ROTATE_RIGHT( &head, &__tmp, $field); &if ( &SPLAY_LEFT(( &head)-> &sph_root, $field) == &NULL) &break; } &SPLAY_LINKLEFT( &head, &__right, $field); } &else &if ( &__comp > 0) { &__tmp = &SPLAY_RIGHT(( &head)-> &sph_root, $field); &if ( &__tmp == &NULL) &break; &if ( &__comp > 0) { &SPLAY_ROTATE_LEFT( &head, &__tmp, $field); &if ( &SPLAY_RIGHT(( &head)-> &sph_root, $field) == &NULL) &break; } &SPLAY_LINKRIGHT( &head, &__left, $field); } } &SPLAY_ASSEMBLE( &head, & &__node, &__left, &__right, $field); });
}' unless defined(&SPLAY_GENERATE);
eval 'sub SPLAY_NEGINF () {-1;}' unless defined(&SPLAY_NEGINF);
eval 'sub SPLAY_INF () {1;}' unless defined(&SPLAY_INF);
eval 'sub SPLAY_INSERT {
my($name, $x, $y) = @_;
eval q($name &_SPLAY_INSERT($x, $y));
}' unless defined(&SPLAY_INSERT);
eval 'sub SPLAY_REMOVE {
my($name, $x, $y) = @_;
eval q($name &_SPLAY_REMOVE($x, $y));
}' unless defined(&SPLAY_REMOVE);
eval 'sub SPLAY_FIND {
my($name, $x, $y) = @_;
eval q($name &_SPLAY_FIND($x, $y));
}' unless defined(&SPLAY_FIND);
eval 'sub SPLAY_NEXT {
my($name, $x, $y) = @_;
eval q($name &_SPLAY_NEXT($x, $y));
}' unless defined(&SPLAY_NEXT);
eval 'sub SPLAY_MIN {
my($name, $x) = @_;
eval q(( &SPLAY_EMPTY($x) ? &NULL : $name &_SPLAY_MIN_MAX($x, &SPLAY_NEGINF)));
}' unless defined(&SPLAY_MIN);
eval 'sub SPLAY_MAX {
my($name, $x) = @_;
eval q(( &SPLAY_EMPTY($x) ? &NULL : $name &_SPLAY_MIN_MAX($x, &SPLAY_INF)));
}' unless defined(&SPLAY_MAX);
eval 'sub SPLAY_FOREACH {
my($x, $name, $head) = @_;
eval q( &for (($x) = &SPLAY_MIN($name, $head); ($x) != &NULL; ($x) = &SPLAY_NEXT($name, $head, $x)));
}' unless defined(&SPLAY_FOREACH);
eval 'sub RB_HEAD {
my($name, $type) = @_;
eval q(\'struct name\' { \'struct type\' * &rbh_root; });
}' unless defined(&RB_HEAD);
eval 'sub RB_INITIALIZER {
my($root) = @_;
eval q({ &NULL });
}' unless defined(&RB_INITIALIZER);
eval 'sub RB_INIT {
my($root) = @_;
eval q( &do { ($root)-> &rbh_root = &NULL; } &while ( 0));
}' unless defined(&RB_INIT);
eval 'sub RB_ENTRY {
my($type) = @_;
eval q(\'struct struct\' { \'struct type\' * &rbe_left; \'struct type\' * &rbe_right; \'struct type\' * &rbe_parent; });
}' unless defined(&RB_ENTRY);
eval 'sub RB_LEFT {
my($elm, $field) = @_;
eval q(($elm)-> ($field->{rbe_left}));
}' unless defined(&RB_LEFT);
eval 'sub RB_RIGHT {
my($elm, $field) = @_;
eval q(($elm)-> ($field->{rbe_right}));
}' unless defined(&RB_RIGHT);
eval 'sub RB_UP {
my($elm, $field) = @_;
eval q(($elm)-> ($field->{rbe_parent}));
}' unless defined(&RB_UP);
eval 'sub RB_BITS {
my($elm, $field) = @_;
eval q((*( &__uintptr_t *) &RB_UP($elm, $field)));
}' unless defined(&RB_BITS);
eval 'sub RB_RED_L () {(( &__uintptr_t)1);}' unless defined(&RB_RED_L);
eval 'sub RB_RED_R () {(( &__uintptr_t)2);}' unless defined(&RB_RED_R);
eval 'sub RB_RED_MASK () {(( &__uintptr_t)3);}' unless defined(&RB_RED_MASK);
eval 'sub RB_FLIP_LEFT {
my($elm, $field) = @_;
eval q(( &RB_BITS($elm, $field) ^= &RB_RED_L));
}' unless defined(&RB_FLIP_LEFT);
eval 'sub RB_FLIP_RIGHT {
my($elm, $field) = @_;
eval q(( &RB_BITS($elm, $field) ^= &RB_RED_R));
}' unless defined(&RB_FLIP_RIGHT);
eval 'sub RB_RED_LEFT {
my($elm, $field) = @_;
eval q((( &RB_BITS($elm, $field) & &RB_RED_L) != 0));
}' unless defined(&RB_RED_LEFT);
eval 'sub RB_RED_RIGHT {
my($elm, $field) = @_;
eval q((( &RB_BITS($elm, $field) & &RB_RED_R) != 0));
}' unless defined(&RB_RED_RIGHT);
eval 'sub RB_PARENT {
my($elm, $field) = @_;
eval q((( &__typeof( &RB_UP($elm, $field))) ( &RB_BITS($elm, $field) & ~ &RB_RED_MASK)));
}' unless defined(&RB_PARENT);
eval 'sub RB_ROOT {
my($head) = @_;
eval q(($head)-> &rbh_root);
}' unless defined(&RB_ROOT);
eval 'sub RB_EMPTY {
my($head) = @_;
eval q(( &RB_ROOT($head) == &NULL));
}' unless defined(&RB_EMPTY);
eval 'sub RB_SET_PARENT {
my($dst, $src, $field) = @_;
eval q( &do { &RB_BITS($dst, $field) &= &RB_RED_MASK; &RB_BITS($dst, $field) |= ( &__uintptr_t)$src; } &while ( 0));
}' unless defined(&RB_SET_PARENT);
eval 'sub RB_SET {
my($elm, $parent, $field) = @_;
eval q( &do { &RB_UP($elm, $field) = $parent; &RB_LEFT($elm, $field) = &RB_RIGHT($elm, $field) = &NULL; } &while ( 0));
}' unless defined(&RB_SET);
eval 'sub RB_COLOR {
my($elm, $field) = @_;
eval q(( &RB_PARENT($elm, $field) == &NULL ? 0: &RB_LEFT( &RB_PARENT($elm, $field), $field) == $elm ? &RB_RED_LEFT( &RB_PARENT($elm, $field), $field) : &RB_RED_RIGHT( &RB_PARENT($elm, $field), $field)));
}' unless defined(&RB_COLOR);
unless(defined(&RB_AUGMENT)) {
eval 'sub RB_AUGMENT {
my($x) = @_;
eval q( &break);
}' unless defined(&RB_AUGMENT);
}
eval 'sub RB_SWAP_CHILD {
my($head, $out, $in, $field) = @_;
eval q( &do { &if ( &RB_PARENT($out, $field) == &NULL) &RB_ROOT($head) = ($in); &else &if (($out) == &RB_LEFT( &RB_PARENT($out, $field), $field)) &RB_LEFT( &RB_PARENT($out, $field), $field) = ($in); &else &RB_RIGHT( &RB_PARENT($out, $field), $field) = ($in); } &while ( 0));
}' unless defined(&RB_SWAP_CHILD);
eval 'sub RB_ROTATE_LEFT {
my($head, $elm, $tmp, $field) = @_;
eval q( &do { ($tmp) = &RB_RIGHT($elm, $field); &if (( &RB_RIGHT($elm, $field) = &RB_LEFT($tmp, $field)) != &NULL) { &RB_SET_PARENT( &RB_RIGHT($elm, $field), $elm, $field); } &RB_SET_PARENT($tmp, &RB_PARENT($elm, $field), $field); &RB_SWAP_CHILD($head, $elm, $tmp, $field); &RB_LEFT($tmp, $field) = ($elm); &RB_SET_PARENT($elm, $tmp, $field); &RB_AUGMENT($elm); } &while ( 0));
}' unless defined(&RB_ROTATE_LEFT);
eval 'sub RB_ROTATE_RIGHT {
my($head, $elm, $tmp, $field) = @_;
eval q( &do { ($tmp) = &RB_LEFT($elm, $field); &if (( &RB_LEFT($elm, $field) = &RB_RIGHT($tmp, $field)) != &NULL) { &RB_SET_PARENT( &RB_LEFT($elm, $field), $elm, $field); } &RB_SET_PARENT($tmp, &RB_PARENT($elm, $field), $field); &RB_SWAP_CHILD($head, $elm, $tmp, $field); &RB_RIGHT($tmp, $field) = ($elm); &RB_SET_PARENT($elm, $tmp, $field); &RB_AUGMENT($elm); } &while ( 0));
}' unless defined(&RB_ROTATE_RIGHT);
eval 'sub RB_PROTOTYPE {
my($name, $type, $field, $cmp) = @_;
eval q( &RB_PROTOTYPE_INTERNAL($name, $type, $field, $cmp,));
}' unless defined(&RB_PROTOTYPE);
eval 'sub RB_PROTOTYPE_STATIC {
my($name, $type, $field, $cmp) = @_;
eval q( &RB_PROTOTYPE_INTERNAL($name, $type, $field, $cmp, &__unused &static));
}' unless defined(&RB_PROTOTYPE_STATIC);
eval 'sub RB_PROTOTYPE_INTERNAL {
my($name, $type, $field, $cmp, $attr) = @_;
eval q( &RB_PROTOTYPE_INSERT_COLOR($name, $type, $attr); &RB_PROTOTYPE_REMOVE_COLOR($name, $type, $attr); &RB_PROTOTYPE_INSERT($name, $type, $attr); &RB_PROTOTYPE_REMOVE($name, $type, $attr); &RB_PROTOTYPE_FIND($name, $type, $attr); &RB_PROTOTYPE_NFIND($name, $type, $attr); &RB_PROTOTYPE_NEXT($name, $type, $attr); &RB_PROTOTYPE_PREV($name, $type, $attr); &RB_PROTOTYPE_MINMAX($name, $type, $attr); &RB_PROTOTYPE_REINSERT($name, $type, $attr););
}' unless defined(&RB_PROTOTYPE_INTERNAL);
eval 'sub RB_PROTOTYPE_INSERT_COLOR {
my($name, $type, $attr) = @_;
eval q($attr &void $name &_RB_INSERT_COLOR(\'struct name\' *, \'struct type\' *));
}' unless defined(&RB_PROTOTYPE_INSERT_COLOR);
eval 'sub RB_PROTOTYPE_REMOVE_COLOR {
my($name, $type, $attr) = @_;
eval q($attr &void $name &_RB_REMOVE_COLOR(\'struct name\' *, \'struct type\' *, \'struct type\' *));
}' unless defined(&RB_PROTOTYPE_REMOVE_COLOR);
eval 'sub RB_PROTOTYPE_REMOVE {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_REMOVE(\'struct name\' *, \'struct type\' *));
}' unless defined(&RB_PROTOTYPE_REMOVE);
eval 'sub RB_PROTOTYPE_INSERT {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_INSERT(\'struct name\' *, \'struct type\' *));
}' unless defined(&RB_PROTOTYPE_INSERT);
eval 'sub RB_PROTOTYPE_FIND {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_FIND(\'struct name\' *, \'struct type\' *));
}' unless defined(&RB_PROTOTYPE_FIND);
eval 'sub RB_PROTOTYPE_NFIND {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_NFIND(\'struct name\' *, \'struct type\' *));
}' unless defined(&RB_PROTOTYPE_NFIND);
eval 'sub RB_PROTOTYPE_NEXT {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_NEXT);
}' unless defined(&RB_PROTOTYPE_NEXT);
eval 'sub RB_PROTOTYPE_PREV {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_PREV);
}' unless defined(&RB_PROTOTYPE_PREV);
eval 'sub RB_PROTOTYPE_MINMAX {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_MINMAX(\'struct name\' *, \'int\'));
}' unless defined(&RB_PROTOTYPE_MINMAX);
eval 'sub RB_PROTOTYPE_REINSERT {
my($name, $type, $attr) = @_;
eval q($attr \'struct type\' *$name &_RB_REINSERT(\'struct name\' *, \'struct type\' *));
}' unless defined(&RB_PROTOTYPE_REINSERT);
eval 'sub RB_GENERATE {
my($name, $type, $field, $cmp) = @_;
eval q( &RB_GENERATE_INTERNAL($name, $type, $field, $cmp,));
}' unless defined(&RB_GENERATE);
eval 'sub RB_GENERATE_STATIC {
my($name, $type, $field, $cmp) = @_;
eval q( &RB_GENERATE_INTERNAL($name, $type, $field, $cmp, &__unused &static));
}' unless defined(&RB_GENERATE_STATIC);
eval 'sub RB_GENERATE_INTERNAL {
my($name, $type, $field, $cmp, $attr) = @_;
eval q( &RB_GENERATE_INSERT_COLOR($name, $type, $field, $attr) &RB_GENERATE_REMOVE_COLOR($name, $type, $field, $attr) &RB_GENERATE_INSERT($name, $type, $field, $cmp, $attr) &RB_GENERATE_REMOVE($name, $type, $field, $attr) &RB_GENERATE_FIND($name, $type, $field, $cmp, $attr) &RB_GENERATE_NFIND($name, $type, $field, $cmp, $attr) &RB_GENERATE_NEXT($name, $type, $field, $attr) &RB_GENERATE_PREV($name, $type, $field, $attr) &RB_GENERATE_MINMAX($name, $type, $field, $attr) &RB_GENERATE_REINSERT($name, $type, $field, $cmp, $attr));
}' unless defined(&RB_GENERATE_INTERNAL);
eval 'sub RB_GENERATE_INSERT_COLOR {
my($name, $type, $field, $attr) = @_;
eval q($attr &void $name &_RB_INSERT_COLOR(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' * &child, * &parent; &while (( &parent = &RB_PARENT( &elm, $field)) != &NULL) { &if ( &RB_LEFT( &parent, $field) == &elm) { &if ( &RB_RED_LEFT( &parent, $field)) { &RB_FLIP_LEFT( &parent, $field); &return; } &RB_FLIP_RIGHT( &parent, $field); &if ( &RB_RED_RIGHT( &parent, $field)) { &elm = &parent; &continue; } &if (! &RB_RED_RIGHT( &elm, $field)) { &RB_FLIP_LEFT( &elm, $field); &RB_ROTATE_LEFT( &head, &elm, &child, $field); &if ( &RB_RED_LEFT( &child, $field)) &RB_FLIP_RIGHT( &elm, $field); &else &if ( &RB_RED_RIGHT( &child, $field)) &RB_FLIP_LEFT( &parent, $field); &elm = &child; } &RB_ROTATE_RIGHT( &head, &parent, &elm, $field); } &else { &if ( &RB_RED_RIGHT( &parent, $field)) { &RB_FLIP_RIGHT( &parent, $field); &return; } &RB_FLIP_LEFT( &parent, $field); &if ( &RB_RED_LEFT( &parent, $field)) { &elm = &parent; &continue; } &if (! &RB_RED_LEFT( &elm, $field)) { &RB_FLIP_RIGHT( &elm, $field); &RB_ROTATE_RIGHT( &head, &elm, &child, $field); &if ( &RB_RED_RIGHT( &child, $field)) &RB_FLIP_LEFT( &elm, $field); &else &if ( &RB_RED_LEFT( &child, $field)) &RB_FLIP_RIGHT( &parent, $field); &elm = &child; } &RB_ROTATE_LEFT( &head, &parent, &elm, $field); } &RB_BITS( &elm, $field) &= ~ &RB_RED_MASK; &break; } });
}' unless defined(&RB_GENERATE_INSERT_COLOR);
eval 'sub RB_GENERATE_REMOVE_COLOR {
my($name, $type, $field, $attr) = @_;
eval q($attr &void $name &_RB_REMOVE_COLOR(\'struct name\' * &head, \'struct type\' * &parent, \'struct type\' * &elm) { \'struct type\' * &sib; &if ( &RB_LEFT( &parent, $field) == &elm && &RB_RIGHT( &parent, $field) == &elm) { &RB_BITS( &parent, $field) &= ~ &RB_RED_MASK; &elm = &parent; &parent = &RB_PARENT( &elm, $field); &if ( &parent == &NULL) &return; } &do { &if ( &RB_LEFT( &parent, $field) == &elm) { &if (! &RB_RED_LEFT( &parent, $field)) { &RB_FLIP_LEFT( &parent, $field); &return; } &if ( &RB_RED_RIGHT( &parent, $field)) { &RB_FLIP_RIGHT( &parent, $field); &elm = &parent; &continue; } &sib = &RB_RIGHT( &parent, $field); &if ((~ &RB_BITS( &sib, $field) & &RB_RED_MASK) == 0) { &RB_BITS( &sib, $field) &= ~ &RB_RED_MASK; &elm = &parent; &continue; } &RB_FLIP_RIGHT( &sib, $field); &if ( &RB_RED_LEFT( &sib, $field)) &RB_FLIP_LEFT( &parent, $field); &else &if (! &RB_RED_RIGHT( &sib, $field)) { &RB_FLIP_LEFT( &parent, $field); &RB_ROTATE_RIGHT( &head, &sib, &elm, $field); &if ( &RB_RED_RIGHT( &elm, $field)) &RB_FLIP_LEFT( &sib, $field); &if ( &RB_RED_LEFT( &elm, $field)) &RB_FLIP_RIGHT( &parent, $field); &RB_BITS( &elm, $field) |= &RB_RED_MASK; &sib = &elm; } &RB_ROTATE_LEFT( &head, &parent, &sib, $field); } &else { &if (! &RB_RED_RIGHT( &parent, $field)) { &RB_FLIP_RIGHT( &parent, $field); &return; } &if ( &RB_RED_LEFT( &parent, $field)) { &RB_FLIP_LEFT( &parent, $field); &elm = &parent; &continue; } &sib = &RB_LEFT( &parent, $field); &if ((~ &RB_BITS( &sib, $field) & &RB_RED_MASK) == 0) { &RB_BITS( &sib, $field) &= ~ &RB_RED_MASK; &elm = &parent; &continue; } &RB_FLIP_LEFT( &sib, $field); &if ( &RB_RED_RIGHT( &sib, $field)) &RB_FLIP_RIGHT( &parent, $field); &else &if (! &RB_RED_LEFT( &sib, $field)) { &RB_FLIP_RIGHT( &parent, $field); &RB_ROTATE_LEFT( &head, &sib, &elm, $field); &if ( &RB_RED_LEFT( &elm, $field)) &RB_FLIP_RIGHT( &sib, $field); &if ( &RB_RED_RIGHT( &elm, $field)) &RB_FLIP_LEFT( &parent, $field); &RB_BITS( &elm, $field) |= &RB_RED_MASK; &sib = &elm; } &RB_ROTATE_RIGHT( &head, &parent, &sib, $field); } &break; } &while (( &parent = &RB_PARENT( &elm, $field)) != &NULL); });
}' unless defined(&RB_GENERATE_REMOVE_COLOR);
eval 'sub RB_GENERATE_REMOVE {
my($name, $type, $field, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_REMOVE(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' * &child, * &old, * &parent, * &right; &old = &elm; &parent = &RB_PARENT( &elm, $field); &right = &RB_RIGHT( &elm, $field); &if ( &RB_LEFT( &elm, $field) == &NULL) &elm = &child = &right; &else &if ( &right == &NULL) &elm = &child = &RB_LEFT( &elm, $field); &else { &if (( &child = &RB_LEFT( &right, $field)) == &NULL) { &child = &RB_RIGHT( &right, $field); &RB_RIGHT( &old, $field) = &child; &parent = &elm = &right; } &else { &do &elm = &child; &while (( &child = &RB_LEFT( &elm, $field)) != &NULL); &child = &RB_RIGHT( &elm, $field); &parent = &RB_PARENT( &elm, $field); &RB_LEFT( &parent, $field) = &child; &RB_SET_PARENT( &RB_RIGHT( &old, $field), &elm, $field); } &RB_SET_PARENT( &RB_LEFT( &old, $field), &elm, $field); ($elm->{field}) = ($old->{field}); } &RB_SWAP_CHILD( &head, &old, &elm, $field); &if ( &child != &NULL) &RB_SET_PARENT( &child, &parent, $field); &if ( &parent != &NULL) $name &_RB_REMOVE_COLOR( &head, &parent, &child); &while ( &parent != &NULL) { &RB_AUGMENT( &parent); &parent = &RB_PARENT( &parent, $field); } &return ( &old); });
}' unless defined(&RB_GENERATE_REMOVE);
eval 'sub RB_GENERATE_INSERT {
my($name, $type, $field, $cmp, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_INSERT(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' * &tmp; \'struct type\' * &parent = &NULL; \'int\' &comp = 0; &tmp = &RB_ROOT( &head); &while ( &tmp) { &parent = &tmp; &comp = ($cmp)( &elm, &parent); &if ( &comp < 0) &tmp = &RB_LEFT( &tmp, $field); &else &if ( &comp > 0) &tmp = &RB_RIGHT( &tmp, $field); &else &return ( &tmp); } &RB_SET( &elm, &parent, $field); &if ( &parent == &NULL) &RB_ROOT( &head) = &elm; &else &if ( &comp < 0) &RB_LEFT( &parent, $field) = &elm; &else &RB_RIGHT( &parent, $field) = &elm; $name &_RB_INSERT_COLOR( &head, &elm); &while ( &elm != &NULL) { &RB_AUGMENT( &elm); &elm = &RB_PARENT( &elm, $field); } &return ( &NULL); });
}' unless defined(&RB_GENERATE_INSERT);
eval 'sub RB_GENERATE_FIND {
my($name, $type, $field, $cmp, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_FIND(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' * &tmp = &RB_ROOT( &head); \'int\' ∁ &while ( &tmp) { &comp = $cmp( &elm, &tmp); &if ( &comp < 0) &tmp = &RB_LEFT( &tmp, $field); &else &if ( &comp > 0) &tmp = &RB_RIGHT( &tmp, $field); &else &return ( &tmp); } &return ( &NULL); });
}' unless defined(&RB_GENERATE_FIND);
eval 'sub RB_GENERATE_NFIND {
my($name, $type, $field, $cmp, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_NFIND(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' * &tmp = &RB_ROOT( &head); \'struct type\' * &res = &NULL; \'int\' ∁ &while ( &tmp) { &comp = $cmp( &elm, &tmp); &if ( &comp < 0) { &res = &tmp; &tmp = &RB_LEFT( &tmp, $field); } &else &if ( &comp > 0) &tmp = &RB_RIGHT( &tmp, $field); &else &return ( &tmp); } &return ( &res); });
}' unless defined(&RB_GENERATE_NFIND);
eval 'sub RB_GENERATE_NEXT {
my($name, $type, $field, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_NEXT(\'struct type\' * &elm) { &if ( &RB_RIGHT( &elm, $field)) { &elm = &RB_RIGHT( &elm, $field); &while ( &RB_LEFT( &elm, $field)) &elm = &RB_LEFT( &elm, $field); } &else { &if ( &RB_PARENT( &elm, $field) && ( &elm == &RB_LEFT( &RB_PARENT( &elm, $field), $field))) &elm = &RB_PARENT( &elm, $field); &else { &while ( &RB_PARENT( &elm, $field) && ( &elm == &RB_RIGHT( &RB_PARENT( &elm, $field), $field))) &elm = &RB_PARENT( &elm, $field); &elm = &RB_PARENT( &elm, $field); } } &return ( &elm); });
}' unless defined(&RB_GENERATE_NEXT);
eval 'sub RB_GENERATE_PREV {
my($name, $type, $field, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_PREV(\'struct type\' * &elm) { &if ( &RB_LEFT( &elm, $field)) { &elm = &RB_LEFT( &elm, $field); &while ( &RB_RIGHT( &elm, $field)) &elm = &RB_RIGHT( &elm, $field); } &else { &if ( &RB_PARENT( &elm, $field) && ( &elm == &RB_RIGHT( &RB_PARENT( &elm, $field), $field))) &elm = &RB_PARENT( &elm, $field); &else { &while ( &RB_PARENT( &elm, $field) && ( &elm == &RB_LEFT( &RB_PARENT( &elm, $field), $field))) &elm = &RB_PARENT( &elm, $field); &elm = &RB_PARENT( &elm, $field); } } &return ( &elm); });
}' unless defined(&RB_GENERATE_PREV);
eval 'sub RB_GENERATE_MINMAX {
my($name, $type, $field, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_MINMAX(\'struct name\' * &head, \'int\' &val) { \'struct type\' * &tmp = &RB_ROOT( &head); \'struct type\' * &parent = &NULL; &while ( &tmp) { &parent = &tmp; &if ( &val < 0) &tmp = &RB_LEFT( &tmp, $field); &else &tmp = &RB_RIGHT( &tmp, $field); } &return ( &parent); });
}' unless defined(&RB_GENERATE_MINMAX);
eval 'sub RB_GENERATE_REINSERT {
my($name, $type, $field, $cmp, $attr) = @_;
eval q($attr \'struct type\' * $name &_RB_REINSERT(\'struct name\' * &head, \'struct type\' * &elm) { \'struct type\' * &cmpelm; &if ((( &cmpelm = &RB_PREV($name, &head, &elm)) != &NULL && $cmp( &cmpelm, &elm) >= 0) || (( &cmpelm = &RB_NEXT($name, &head, &elm)) != &NULL && $cmp( &elm, &cmpelm) >= 0)) { &RB_REMOVE($name, &head, &elm); &return ( &RB_INSERT($name, &head, &elm)); } &return ( &NULL); });
}' unless defined(&RB_GENERATE_REINSERT);
eval 'sub RB_NEGINF () {-1;}' unless defined(&RB_NEGINF);
eval 'sub RB_INF () {1;}' unless defined(&RB_INF);
eval 'sub RB_INSERT {
my($name, $x, $y) = @_;
eval q($name &_RB_INSERT($x, $y));
}' unless defined(&RB_INSERT);
eval 'sub RB_REMOVE {
my($name, $x, $y) = @_;
eval q($name &_RB_REMOVE($x, $y));
}' unless defined(&RB_REMOVE);
eval 'sub RB_FIND {
my($name, $x, $y) = @_;
eval q($name &_RB_FIND($x, $y));
}' unless defined(&RB_FIND);
eval 'sub RB_NFIND {
my($name, $x, $y) = @_;
eval q($name &_RB_NFIND($x, $y));
}' unless defined(&RB_NFIND);
eval 'sub RB_NEXT {
my($name, $x, $y) = @_;
eval q($name &_RB_NEXT($y));
}' unless defined(&RB_NEXT);
eval 'sub RB_PREV {
my($name, $x, $y) = @_;
eval q($name &_RB_PREV($y));
}' unless defined(&RB_PREV);
eval 'sub RB_MIN {
my($name, $x) = @_;
eval q($name &_RB_MINMAX($x, &RB_NEGINF));
}' unless defined(&RB_MIN);
eval 'sub RB_MAX {
my($name, $x) = @_;
eval q($name &_RB_MINMAX($x, &RB_INF));
}' unless defined(&RB_MAX);
eval 'sub RB_REINSERT {
my($name, $x, $y) = @_;
eval q($name &_RB_REINSERT($x, $y));
}' unless defined(&RB_REINSERT);
eval 'sub RB_FOREACH {
my($x, $name, $head) = @_;
eval q( &for (($x) = &RB_MIN($name, $head); ($x) != &NULL; ($x) = $name &_RB_NEXT($x)));
}' unless defined(&RB_FOREACH);
eval 'sub RB_FOREACH_FROM {
my($x, $name, $y) = @_;
eval q( &for (($x) = ($y); (($x) != &NULL) && (($y) = $name &_RB_NEXT($x), ($x) != &NULL); ($x) = ($y)));
}' unless defined(&RB_FOREACH_FROM);
eval 'sub RB_FOREACH_SAFE {
my($x, $name, $head, $y) = @_;
eval q( &for (($x) = &RB_MIN($name, $head); (($x) != &NULL) && (($y) = $name &_RB_NEXT($x), ($x) != &NULL); ($x) = ($y)));
}' unless defined(&RB_FOREACH_SAFE);
eval 'sub RB_FOREACH_REVERSE {
my($x, $name, $head) = @_;
eval q( &for (($x) = &RB_MAX($name, $head); ($x) != &NULL; ($x) = $name &_RB_PREV($x)));
}' unless defined(&RB_FOREACH_REVERSE);
eval 'sub RB_FOREACH_REVERSE_FROM {
my($x, $name, $y) = @_;
eval q( &for (($x) = ($y); (($x) != &NULL) && (($y) = $name &_RB_PREV($x), ($x) != &NULL); ($x) = ($y)));
}' unless defined(&RB_FOREACH_REVERSE_FROM);
eval 'sub RB_FOREACH_REVERSE_SAFE {
my($x, $name, $head, $y) = @_;
eval q( &for (($x) = &RB_MAX($name, $head); (($x) != &NULL) && (($y) = $name &_RB_PREV($x), ($x) != &NULL); ($x) = ($y)));
}' unless defined(&RB_FOREACH_REVERSE_SAFE);
}
1;
Zerion Mini Shell 1.0