Lines Matching refs:name
108 my ($name, $checked_at, $indent) = @{$args}{qw(name checked_at indent)};
114 substr ($name, 0, length $$checked_at,) = '';
118 my $len = length $name;
137 my $char = C_stringify (substr $name, $check, 1);
146 my $char1 = C_stringify (substr $name, 0, 1);
147 my $char2 = C_stringify (substr $name, 1, 1);
152 my $char1 = C_stringify (substr $name, 0, 1);
153 my $char2 = C_stringify (substr $name, 2, 1);
162 $pointer = C_stringify (chop $name);
166 $name = C_stringify ($name);
168 my $body = $indent . "if ($memEQ($name_param, \"$name\", $len)) {\n";
215 utf8::decode ($_->{name});
217 $_->{name} = pack 'U*', unpack 'U0U*', $_->{name};
222 $_ = {name=>$_};
228 and length $_->{name}
229 and length $_->{name} == ($_->{name} =~ tr/A-Za-z0-9_//)
235 push @simple, $_->{name};
258 foreach my $item (sort {$a->{name} cmp $b->{name}} @complex) {
259 my $name = perl_stringify $item->{name};
260 my $line = ",\n$indent {name=>\"$name\"";
352 my ($name, $value, $macro, $default, $pre, $post, $def_pre, $def_post, $type)
354 $value = $name unless defined $value;
410 my ($no, $yes, $either, $name, $inner_indent);
416 $name = $either->{name};
420 $name = $item->{name};
424 $body .= $self->memEQ_clause ({name => $name, checked_at => $offset,
473 my @names = sort map {$_->{name}} @items;
564 or $l->{name} cmp $r->{name}}
798 my ($name, $item);
801 $name = $orig->{name};
805 $item = {name=>$name, type=>$type};
807 undef $macro if defined $macro and $macro eq $name;
809 undef $value if defined $value and $value eq $name;
817 $name = $orig;
818 $item = {name=>$name, type=>$default_type};
822 . "doesn't know how to handle values of type $_ used in macro $name"
827 if ($name =~ tr/\0-\177// == length $name || $] < 5.005_50) {
829 if (exists $items->{$name}) {
830 die "Multiple definitions for macro $name";
832 $items->{$name} = $item;
835 if (exists $items->{$name} and ref $items->{$name} ne 'ARRAY') {
836 confess "Unexpected ASCII definition for macro $name";
840 if ($name =~ tr/\0-\377// == length $name) {
845 $items->{$name}[1] = $item;
852 utf8::encode($name);
855 $name = pack 'C*', unpack 'C*', $name . pack 'U*';
858 if ($items->{$name}[0]) {
859 die "Multiple definitions for macro $name";
862 $item->{name} = $name;
863 $items->{$name}[0] = $item;
905 push @{$by_length[length $_->{name}]}, $_;