Lines Matching refs:ei
21 our $ei;
38 $ei = { };
52 $ei->{$_} = shift @vals foreach qw(OType OPrefix Mangle);
54 $ei->{$_} = shift @vals foreach qw(CPrefix CFinal CFinalHow);
55 die "redefining OType $ei->{OType}" if $enums{ $ei->{OType} };
56 $enums{ $ei->{OType} } = $ei;
70 $ei = undef;
73 if ($ei) {
74 if (m{^\s+ \| \s* $ei->{OPrefix} (\w+) \s*$}x) {
76 if ($ei->{Mangle} eq 'lc') {
78 } elsif ($ei->{Mangle} eq 'none') {
82 $cval = $ei->{CPrefix}.$cval;
86 if ($ei->{CFinalHow} eq 'max') {
87 expect($ei->{CFinal}, "(1u << ".($bitnum-1).")");
88 } elsif ($ei->{CFinalHow} eq 'all') {
89 expect($ei->{CFinal}, "(1u << $bitnum)-1u");
91 die Dumper($ei)." ?";
93 $ei->{Checked} = 1;
94 $ei = undef;
100 if (!$ei) {
103 $ei = $enums{$1};
110 foreach $ei (values %enums) {
111 next if $ei->{Checked};
112 die "did not find ocaml type definition for $ei->{OType} in $o";