Home
last modified time | relevance | path

Searched refs:subname (Results 1 – 25 of 29) sorted by relevance

12

/mirbsd/src/gnu/usr.bin/perl/vms/
Dwritemain.pl51 my($subname) = $ext;
52 $subname =~ s/::/__/g;
53 print OUT "extern void boot_${subname} (pTHX_ CV* cv);\n"
58 my($subname) = $ext;
59 $subname =~ s/::/__/g;
64 print OUT " newXS(\"${ext}::boot_${ext}\", boot_${subname}, file);\n"
67 print OUT " newXS(\"${ext}::bootstrap\", boot_${subname}, file);\n"
Dperly_c.vms1239 "mysubrout : MYSUB startsub subname proto subattrlist subbody",
1240 "subrout : SUB startsub subname proto subattrlist subbody",
1244 "subname : WORD",
/mirbsd/src/gnu/usr.bin/perl/lib/
Dperl5db.pl2368 foreach $subname ( sort( keys %sub ) ) {
2369 if ( $Snocheck or $Srev ^ ( $subname =~ /$Spatt/ ) ) {
2370 print $OUT $subname, "\n";
2702 $subname = $i = $1;
2715 if ( $subname =~ /\D/ ) { # subroutine name
2718 $subname = $package . "::" . $subname
2719 unless $subname =~ /::/;
2725 ( $file, $i ) = ( find_sub($subname) =~ /^(.*):(.*)$/ );
2749 print $OUT "Subroutine $subname not found.\n";
4051 my ( $subname, $break ) = ( $2, $1 eq 'postpone' );
[all …]
DAutoSplit.pm298 my(@subnames, $subname, %proto, %package);
316 print $out "# end of $last_package\::$subname\n1;\n"
318 $subname = $1;
320 if ($subname =~ s/(.*):://){
325 my $fq_subname = "$this_package\::$subname";
329 my($lname, $sname) = ($subname, substr($subname,0,$maxflen-3));
375 if ($subname) {
376 print $out @cache,"1;\n# end of $last_package\::$subname\n";
420 my($subname) = $fqs;
421 $subname =~ s/.*:://;
[all …]
DDB.pm41 $DB::subname = ''; # currently executing sub (fullly qualified name)
117 $DB::subname = ($DB::sub =~ /\'|::/) ? $DB::sub : "${DB::package}::$DB::sub"; #';
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/
DConstant.pm144 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
146 ExtUtils::Constant::XS->C_constant({package => $package, subname => $subname,
175 my $subname = shift;
177 $subname ||= 'constant';
178 $C_subname ||= $subname;
189 $subname(sv)
500 subname => $ARGS{C_SUBNAME},
/mirbsd/src/gnu/usr.bin/perl/ext/B/B/
DXref.pm108 my $subname; # shadows current sub name
133 $file, $subname, $line, $pack, $type, $name, $event;
136 push(@{$table{$file}->{$subname}->{$pack}->{$type.$name}->{$event}},
200 $subname = ($pack eq "main" ? "" : "$pack\::") . $cv->GV->NAME;
203 $subname = "(main)";
212 $subname = "(main)";
335 $subname = "(definitions)";
347 my ($file, $subname, $pack, $name, $ev, $perfile, $persubname,
352 foreach $subname (sort(keys(%$perfile))) {
353 $persubname = $perfile->{$subname};
[all …]
DLint.pm286 my $subname = $gv->STASH->NAME . "::" . $gv->NAME;
288 if (!defined(&$subname)) {
289 $subname =~ s/^main:://;
290 warning('Undefined subroutine %s called', $subname);
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/inc/
Dcall134 call_pv(subname, flags, ...)
135 char* subname
145 i = call_pv(subname, flags);
151 call_argv(subname, flags, ...)
152 char* subname
164 i = call_argv(subname, flags, args);
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/Constant/
DBase.pm768 my ($package, $subname, $default_type, $what, $indent, $breakout) =
771 $subname ||= 'constant';
876 $body = $self->C_constant_return_type($params) . "\n$subname ("
897 $body .= $self->dogfood ({package => $package, subname => $subname,
936 subname=>"${subname}_$i",
941 $body .= " return ${subname}_$i ("
DXS.pm202 my ($package, $subname, $default_type, $what, $indent, $breakout) =
228 "foreach (C_constant (\"$package\", '$subname', '$default_type', \$types, ";
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/
DPPPort.xs232 call_pv(subname, flags, ...)
233 char* subname
243 i = call_pv(subname, flags);
249 call_argv(subname, flags, ...)
250 char* subname
262 i = call_argv(subname, flags, args);
/mirbsd/src/gnu/usr.bin/perl/ext/XS/APItest/
DAPItest.xs334 call_pv(subname, flags, ...)
335 char* subname
345 i = call_pv(subname, flags);
/mirbsd/src/gnu/usr.bin/perl/
Dperly.y100 %type <opval> formname subname proto subbody cont my_scalar
358 mysubrout: MYSUB startsub subname proto subattrlist subbody
363 subrout : SUB startsub subname proto subattrlist subbody
380 subname : WORD { STRLEN n_a; char *name = SvPV(((SVOP*)$1)->op_sv,n_a);
/mirbsd/src/sys/dev/ic/
Dpckbcvar.h73 char *subname[PCKBC_NSLOTS]; member
Dpckbc.c888 sc->subname[slot] = name;
/mirbsd/src/sbin/isakmpd/
Dx509.c106 char isname[256], subname[256]; in x509_generate_kn() local
417 if (!X509_NAME_oneline(subject, subname, 256)) { in x509_generate_kn()
423 buf_len = strlen(fmt2) + strlen(isname) + strlen(subname) + 56; in x509_generate_kn()
429 snprintf(buf, buf_len, fmt2, isname, subname, timecomp, before, in x509_generate_kn()
/mirbsd/src/gnu/usr.bin/binutils/opcodes/
Dia64-gen.c555 char *subname = name; in fetch_insn_class() local
566 ics[ind]->subs[0] = fetch_insn_class (subname, 1);; in fetch_insn_class()
571 char *subname = xsect + 1; in fetch_insn_class() local
573 xsect = strchr (subname, '\\'); in fetch_insn_class()
576 ics[ind]->xsubs[ics[ind]->nxsubs] = fetch_insn_class (subname,1); in fetch_insn_class()
649 char *subname; in load_insn_classes() local
658 subname = tmp; in load_insn_classes()
672 sub = fetch_insn_class (subname, 1); in load_insn_classes()
/mirbsd/src/gnu/usr.bin/perl/lib/Pod/
DPerldoc.pm65 foreach my $subname (map "opt_$_", split '', q{mhlvriFfXqnTdU}) {
67 *$subname = do{ use strict 'refs'; sub () { shift->_elem($subname, @_) } };
/mirbsd/src/gnu/usr.bin/perl/Porting/
Dfindvars332 subname
/mirbsd/src/gnu/usr.bin/perl/pod/
Dperldebug.pod195 =item l subname
197 List first window of lines from subroutine. I<subname> may
280 =item b subname [condition]
284 Set a breakpoint before the first line of the named subroutine. I<subname> may
288 =item b postpone subname [condition]
301 =item b compile subname
980 compile subname> for the same purpose.
Dperldebguts.pod74 After each subroutine C<subname> is compiled, the existence of
75 C<$DB::postponed{subname}> is checked. If this key exists,
76 C<DB::postponed(subname)> is called if the C<DB::postponed> subroutine
Dperlcall.pod57 I32 call_pv(char *subname, I32 flags);
59 I32 call_argv(char *subname, I32 flags, register char **argv);
105 stored in the C<subname> parameter. It also takes the usual C<flags>
/mirbsd/src/usr.bin/host/
Dhost.c744 char *subname = NULL; /* LHS domain name of NS record */ variable
2413 soaname = NULL, subname = NULL, adrname = NULL, address = 0;
2676 subname = strxcpy(subnamebuf, rname, MAXDNAME+1);
4832 soaname = NULL, subname = NULL, adrname = NULL, address = 0;
4930 if (subname && indomain(subname, name, false))
4932 i = zone_index(subname, true);
4936 zonename[zonecount] = newstr(subname);
4942 else if (subname && !indomain(subname, name, true))
4944 subname, name, host);
/mirbsd/src/gnu/usr.bin/binutils/bfd/
Delfxx-mips.c9328 const char *subname; in _bfd_mips_elf_final_link() local
9389 subname = o->name + sizeof ".gptab" - 1; in _bfd_mips_elf_final_link()
9390 if (bfd_get_section_by_name (abfd, subname) == NULL) in _bfd_mips_elf_final_link()
9396 subname = o->name + sizeof ".gptab" - 1; in _bfd_mips_elf_final_link()
9397 BFD_ASSERT (bfd_get_section_by_name (abfd, subname) != NULL); in _bfd_mips_elf_final_link()

12