| /openbsd-current/gnu/usr.bin/perl/ext/XS-APItest/t/ |
| H A D | gv_autoload4.t | 15 my ($subname, $message) = @_;
16 is $subname, $AUTOLOAD, $message;
52 my ($subname, $message) = @_;
53 ::is $subname, $AUTOLOAD, $message;
|
| /openbsd-current/gnu/usr.bin/perl/ext/attributes/ |
| H A D | attributes.xs | 94 SV *subname;
98 subname = sv_2mortal(newSVhek(hek));
100 subname=(SV *)CvGV((const CV *)sv);
102 Perl_validate_proto(aTHX_ subname, proto, TRUE, 0);
104 (const GV *)subname,
|
| /openbsd-current/gnu/usr.bin/perl/ext/mro/ |
| H A D | mro.xs | 474 const char *subname = NULL;
501 /* This block finds the contextually-enclosing fully-qualified subname,
548 subname = strrchr(fq_subname, ':');
550 if(!subname)
554 subname++;
555 subname_len = SvCUR(sv) - (subname - fq_subname);
556 if(memEQs(subname, subname_len, "__ANON__")) {
581 SVfARG(newSVpvn_flags(subname, subname_len,
593 stashname_len = subname - fq_subname - 2;
636 gvp = (GV**)hv_fetch(curstash, subname,
[all...] |
| /openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/lib/Sub/ |
| H A D | Util.pm | 15 subname set_subname
30 use Sub::Util qw( prototype set_prototype subname set_subname );
89 =head2 subname
91 my $name = subname( $code )
107 sub get_code_info { return (subname $_[0]) =~ m/^(.+)::(.*?)$/ }
112 C<Sub::Name::subname>; it returns the existing name of the sub rather than
138 This function was copied from C<Sub::Name::subname> and renamed to the naming
|
| /openbsd-current/gnu/usr.bin/perl/t/mro/ |
| H A D | next_edgecases_utf8.t | 56 Sub::Name::subname('Ba��::��', $m);
|
| H A D | next_edgecases.t | 51 Sub::Name::subname('Bar::bar', $m);
|
| /openbsd-current/sys/dev/ic/ |
| H A D | pckbcvar.h | 83 char *subname[PCKBC_NSLOTS]; member in struct:pckbc_softc
|
| /openbsd-current/gnu/usr.bin/perl/ |
| H A D | mro_core.c | 1173 SV *subname; local
1178 subname = newSV_type_mortal(SVt_PVAV);
1191 av_push_simple((AV *)subname, aname);
1195 subname = sv_2mortal(newSVsv(namesv));
1196 if (len == 1) sv_catpvs(subname, ":");
1198 sv_catpvs(subname, "::");
1200 subname, key, len-2,
1207 substash, oldsubstash, subname
1250 SV *subname; local
1261 subname
[all...] |
| H A D | perly.y | 110 %type <opval> formname subname proto cont my_scalar my_var
359 | KW_SUB_named subname startsub
363 init_named_cv(PL_compcv, $subname);
370 $subname->op_type == OP_CONST
371 ? newATTRSUB($startsub, $subname, $proto, $subattrlist, $optsubbody)
372 : newMYSUB($startsub, $subname, $proto, $subattrlist, $optsubbody)
378 | sigsub_or_method_named subname startsub
384 init_named_cv(PL_compcv, $subname);
397 $subname->op_type == OP_CONST
398 ? newATTRSUB($startsub, $subname, NUL
787 subname : BAREWORD label
[all...] |
| /openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/EventFacet/ |
| H A D | Trace.pm | 78 sub subname { $_[0]->{+FRAME}->[3] } subroutine
105 frame => [$package, $file, $line, $subname],
125 [$package, $file, $line, $subname]
152 =item ($pkg, $file, $line, $subname) = $trace->call
247 =item ($package, $file, $line, $subname) = $trace->call()
264 =item $subname = $trace->subname
|
| /openbsd-current/gnu/usr.bin/perl/ext/B/B/ |
| H A D | Xref.pm | 158 my $subname; # shadows current sub name
183 $file, $subname, $line, $pack, $type, $name, $event;
186 push(@{$table{$file}->{$subname}->{$pack}->{$type.$name}->{$event}},
251 $subname = ($pack eq "main" ? "" : "$pack\::") . $cv->GV->NAME;
254 $subname = "(main)";
263 $subname = "(main)";
401 $subname = "(definitions)";
413 my ($file, $subname, $pack, $name, $ev, $perfile, $persubname,
418 foreach $subname (sort(keys(%$perfile))) {
419 $persubname = $perfile->{$subname};
[all...] |
| /openbsd-current/gnu/usr.bin/perl/t/op/ |
| H A D | do.t | 254 # do subname should not be do "subname"
274 # do subname() and $subname() are no longer allowed
276 sub subname { fail('do subname('. ($_[0] || '') .') called') };
278 foreach my $mode (qw(subname("arg") subname() $subref("arg") $subref())) {
|
| /openbsd-current/gnu/usr.bin/gcc/gcc/ |
| H A D | gengtype.c | 490 const char *subname; local
499 subname = "rtint";
504 t = mem_attrs_tp, subname = "rtmem";
506 t = rtx_tp, subname = "rtx";
508 t = scalar_tp, subname = "rtint";
510 t = rtx_tp, subname = "rtx";
513 t = rtx_tp, subname = "rtx";
515 t = note_union_tp, subname = "";
517 t = scalar_tp, subname = "rtint";
519 t = scalar_tp, subname
[all...] |
| /openbsd-current/gnu/usr.bin/perl/cpan/AutoLoader/lib/ |
| H A D | AutoSplit.pm | 390 my(@subnames, $subname, %proto, %package);
408 print $out "# end of $last_package\::$subname\n1;\n"
410 $subname = $1;
412 if ($subname =~ s/(.*):://){
417 my $fq_subname = "$this_package\::$subname";
421 my($lname, $sname) = ($subname, substr($subname,0,$maxflen-3));
467 if ($subname) {
468 print $out @cache,"1;\n# end of $last_package\::$subname\n";
512 my($subname)
[all...] |
| /openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ |
| H A D | XS.pm | 209 my ($package, $subname, $default_type, $what, $indent, $breakout) =
210 @{$args}{qw(package subname default_type what indent breakout)};
235 "foreach (C_constant (\"$package\", '$subname', '$default_type', \$types, ";
|
| H A D | Base.pm | 851 used in comments inside the generated C code. I<subname> defaults to
856 either as a comma separated list of types that the C subroutine I<subname>
866 I<breakout> governs when child functions of I<subname> are generated. If there
868 to switch between them is placed into a function named I<subname>_I<len>, for
887 my ($package, $subname, $default_type, $what, $indent, $breakout) =
888 @{$args}{qw(package subname default_type types indent breakout)};
890 $subname ||= 'constant';
922 $body = $self->C_constant_return_type($params) . "\n$subname ("
943 $body .= $self->dogfood ({package => $package, subname => $subname,
[all...] |
| H A D | ProxySubs.pm | 126 my ($self, $type, $iterator, $hash, $subname, $push) = @_;
139 he = $subname($athx $hash, $iterator->name,
148 $subname($athx $hash, $iterator->name,
|
| /openbsd-current/gnu/gcc/gcc/ |
| H A D | gengtype.c | 565 const char *subname; local
574 subname = "rt_int";
579 t = mem_attrs_tp, subname = "rt_mem";
581 t = rtx_tp, subname = "rt_rtx";
583 t = scalar_tp, subname = "rt_int";
585 t = rtx_tp, subname = "rt_rtx";
588 t = rtx_tp, subname = "rt_rtx";
590 t = note_union_tp, subname = "";
592 t = scalar_tp, subname = "rt_int";
594 t = scalar_tp, subname
[all...] |
| /openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-Constant/lib/ExtUtils/ |
| H A D | Constant.pm | 144 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
146 ExtUtils::Constant::XS->C_constant({package => $package, subname => $subname,
540 subname => $ARGS{C_SUBNAME},
|
| /openbsd-current/gnu/usr.bin/perl/cpan/autodie/lib/autodie/ |
| H A D | hints.pm | 489 my $subname = $class->sub_fullname( $sub );
493 if ( exists $Hints{ $subname } ) {
494 return $Hints{ $subname };
499 $class->load_hints( $subname );
503 if ( exists $Hints{ $subname } ) {
504 return $Hints{ $subname };
|
| /openbsd-current/gnu/usr.bin/perl/lib/ |
| H A D | perl5db.pl | 323 =item * 16 - Adds C<I<context> return from I<subname>: I<value>> messages on subroutine/eval exit. Ignored if C<4> is not on.
694 $subname,
2033 $subname = $i;
2044 # If the "subname" isn't all digits, we'll assume it
2046 if ( $subname =~ /\D/ ) { # subroutine name
2049 $subname = $package . "::" . $subname
2050 unless $subname =~ /::/;
2056 ( $file, $i ) = ( find_sub($subname) =~ /^(.*):(.*)$/ );
2085 print $OUT "Subroutine $subname no
[all...] |
| H A D | DB.pm | 41 $DB::subname = ''; # currently executing sub (fully qualified name)
108 $DB::subname = ($DB::sub =~ /\'|::/) ? $DB::sub : "${DB::package}::$DB::sub"; #';
283 # with subname args: returns a listref [file, start, end]
692 =item $DB::subname
|
| /openbsd-current/gnu/usr.bin/binutils/opcodes/ |
| H A D | ia64-gen.c | 552 char *subname = name;
563 ics[ind]->subs[0] = fetch_insn_class (subname, 1);;
568 char *subname = xsect + 1;
570 xsect = strchr (subname, '\\');
573 ics[ind]->xsubs[ics[ind]->nxsubs] = fetch_insn_class (subname,1);
646 char *subname;
655 subname = tmp;
669 sub = fetch_insn_class (subname, 1);
550 char *subname = name; local
566 char *subname = xsect + 1; local
644 char *subname; local
|
| /openbsd-current/gnu/usr.bin/binutils-2.17/opcodes/ |
| H A D | ia64-gen.c | 563 char *subname = name;
574 ics[ind]->subs[0] = fetch_insn_class (subname, 1);;
579 char *subname = xsect + 1;
581 xsect = strchr (subname, '\\');
584 ics[ind]->xsubs[ics[ind]->nxsubs] = fetch_insn_class (subname,1);
657 char *subname;
666 subname = tmp;
680 sub = fetch_insn_class (subname, 1);
561 char *subname = name; local
577 char *subname = xsect + 1; local
655 char *subname; local
|
| /openbsd-current/sbin/isakmpd/ |
| H A D | x509.c | 107 char isname[256], subname[256]; local
443 if (!X509_NAME_oneline(subject, subname, 256)) {
449 if (asprintf(&buf, fmt2, isname, subname, timecomp, before,
|