| /osnet-11/usr/src/lib/libshell/common/bltins/ |
| H A D | poll_solaris.c | 285 const char *subname; local
299 if (!(subname=nv_getsub(array_np_sub)))
321 if (!(subname=nv_getsub(array_np_sub)))
324 np = nv_open_fmt(shp->var_tree, NV_NOFAIL|NV_NOADD, "%s[%s].fd", varname, subname);
326 errormsg(SH_DICT, ERROR_system(1), "missing pollfd %s[%s].fd", varname, subname);
333 np = nv_open_fmt(shp->var_tree, NV_NOFAIL|NV_NOADD, "%s[%s].events", varname, subname);
335 errormsg(SH_DICT, ERROR_system(1), "missing pollfd %s[%s].events", varname, subname);
366 if (!(subname=nv_getsub(array_np_sub)))
369 np = nv_open_fmt(shp->var_tree, NV_NOFAIL, "%s[%s].revents", varname, subname);
371 errormsg(SH_DICT, ERROR_system(1), "couldn't create pollfd %s[%s].revents", varname, subname);
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
| H A D | Xref.pm | 108 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...] |
| H A D | Lint.pm | 285 my $subname = $gv->STASH->NAME . "::" . $gv->NAME;
287 if (!defined(&$subname)) {
288 $subname =~ s/^main:://;
289 warning('Undefined subroutine %s called', $subname);
|
| /osnet-11/usr/src/lib/gss_mechs/mech_krb5/profile/ |
| H A D | prof_get.c | 193 profile_get_string(profile_t profile, const char *name, const char *subname, argument
203 names[1] = subname;
224 profile_get_integer(profile_t profile, const char *name, const char *subname, argument
238 names[1] = subname;
305 profile_get_boolean(profile_t profile, const char *name, const char *subname, argument
318 names[1] = subname;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | AutoSplit.pm | 298 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)
[all...] |
| H A D | perl5db.pl | 300 =item * 16 - Adds C<I<context> return from I<subname>: I<value>> messages on subroutine/eval exit. Ignored if C<4> is is not on.
745 # + `b compile subname' implemented.
2180 foreach $subname (sort(keys %sub)) {
2181 if ($Snocheck or $Srev ^ ($subname =~ /$Spatt/)) {
2182 print $OUT $subname, "\n";
2507 $subname = $i = $1;
2518 # If the "subname" isn't all digits, we'll assume it
2520 if ($subname =~ /\D/) { # subroutine name
2523 $subname = $package . "::" . $subname
[all...] |
| H A D | DB.pm | 41 $DB::subname = ''; # currently executing sub (fullly qualified name)
118 $DB::subname = ($DB::sub =~ /\'|::/) ? $DB::sub : "${DB::package}::$DB::sub"; #';
293 # with subname args: returns a listref [file, start, end]
701 =item $DB::subname
|
| /osnet-11/usr/src/lib/gss_mechs/mech_krb5/include/ |
| H A D | profile.h | 106 (profile_t profile, const char *name, const char *subname,
110 (profile_t profile, const char *name, const char *subname,
115 (profile_t profile, const char *name, const char *subname,
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| H A D | Constant.pm | 753 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
777 "foreach (C_constant (\"$package\", '$subname', '$default_type', \$types, ";
919 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
922 $subname ||= 'constant';
1022 my ($body, @subs) = "static int\n$subname (pTHX_ const char *name";
1040 $body .= dogfood ($package, $subname, $default_type, $what, $indent,
1075 push @subs, C_constant ($package, "${subname}_$i", $default_type, $what,
1077 $body .= " return ${subname}_$i (aTHX_ name";
1116 my $subname = shift;
1118 $subname ||
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/ |
| H A D | Perldoc.pm | 65 foreach my $subname (map "opt_$_", split '', q{mhlvriFfXqnTdU}) {
67 *$subname = do{ use strict 'refs'; sub () { shift->_elem($subname, @_) } };
|