| /onnv-gate/usr/src/lib/libbsm/ |
| H A D | auditxml.pm | 35 my $pkg = shift; 98 'xmlObj' => $obj}, $pkg; 104 my $pkg = shift; 106 return $pkg->{'id'}; 113 $pkg = shift; 115 if ($pkg->{'internalName'}) { 116 return $pkg->{'internalName'}; 119 return $pkg->{'id'}; 127 my $pkg = shift; 129 unless (@{$pkg->{'entryList'}}) { [all …]
|
| H A D | xmlHandlers.pm | 50 my $pkg = shift; 61 'content' => ''}, $pkg; 253 my $pkg = shift; 268 if ($hashCount && $pkg->{'attributes'}) { 272 $pkg->{'attributes'} = \%content; 277 my $pkg = shift; 280 my @kids = $pkg->getKids(); 290 my $pkg = shift; 292 return @{$pkg->{'kids'}}; 296 my $pkg = shift; [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Exporter/ |
| H A D | Heavy.pm | 30 my ($pkg, $exports, $cache) = @_; 33 my $ok = \@{"${pkg}::EXPORT_OK"}; 61 my($pkg, $callpkg, @imports) = @_; 63 my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 64 $Exporter::Cache{$pkg} ||= {}); 68 _rebuild_cache ($pkg, $exports, $export_cache); 73 my $tagsref = \%{"${pkg}::EXPORT_TAGS"}; 90 warn qq["$spec" is not defined in %${pkg}::EXPORT_TAGS]; 121 $pkg->VERSION($sym); # inherit from UNIVERSAL 140 _rebuild_cache ($pkg, $exports, $export_cache); [all …]
|
| /onnv-gate/usr/src/lib/libadm/common/ |
| H A D | pkgnmchk.c | 56 valname(char *pkg, int wild, int presvr4flg) in valname() argument 62 if (wild && (strcmp(pkg, "all") == 0)) in valname() 68 if ((strncmp(pkg, rsvrd[i], n) == 0) && in valname() 69 (!pkg[n] || strchr(NMBRK, pkg[n]))) in valname() 78 if (pt = strpbrk(pkg, NMBRK)) { in valname() 101 if (!isalnum((unsigned char)*pkg) || in valname() 102 (!presvr4flg && !isalpha((unsigned char)*pkg))) in valname() 104 while (*pkg && !strchr(NMBRK, *pkg)) { in valname() 105 if (!isalnum((unsigned char)*pkg) && !strpbrk(pkg, "-+")) in valname() 107 count++, pkg++; in valname() [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | Symbol.pm | 120 my $pkg; 125 $pkg = "main"; 128 $pkg = (@_ > 1) ? $_[1] : caller; 130 $name = $pkg . "::" . $name; 143 my $pkg = shift; 147 unless ($pkg =~ /^main::.*::$/) { 148 $pkg = "main$pkg" if $pkg =~ /^::/; 149 $pkg = "main::$pkg" unless $pkg =~ /^main::/; 150 $pkg .= '::' unless $pkg =~ /::$/; 153 my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/; [all …]
|
| H A D | AutoLoader.pm | 39 my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); 40 $pkg =~ s#::#/#g; 41 if (defined($filename = $INC{"$pkg.pm"})) { 43 $pkg =~ tr#/#:#; 44 $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s; 46 $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s; 120 my $pkg = shift; 127 if ($pkg eq 'AutoLoader') {
|
| H A D | Exporter.pm | 30 my $pkg = shift; 33 if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { 39 my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); 40 return export $pkg, $callpkg, @_ 42 my $export_cache = ($Cache{$pkg} ||= {}); 48 foreach (@$exports, @{"$pkg\::EXPORT_OK"}); 61 return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 65 *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
|
| H A D | FileHandle.pm | 57 for my $pkg (keys %import) { 58 for my $func (@{$import{$pkg}}) { 59 my $c = *{"${pkg}::$func"}{CODE} 60 or die "${pkg}::$func missing"; 70 my $pkg = shift; 73 Exporter::export($pkg, $callpkg, @_);
|
| H A D | FileCache.pm | 92 my ($pkg,%args) = @_; 93 $pkg = caller(1); 94 *{$pkg.'::cacheout'} = \&cacheout; 95 *{$pkg.'::close'} = \&cacheout_close; 123 my $pkg = caller($_[1]||0); 124 fileno(*{$pkg . '::' . $_[0]}) && 125 CORE::close(*{$pkg . '::' . $_[0]});
|
| H A D | Fatal.pm | 14 my($sym, $pkg); 16 $pkg = (caller)[0]; 22 &_make_fatal($sym, $pkg, $void); 89 my($sub, $pkg, $void) = @_; 93 $sub = "${pkg}::$sub" unless $sub =~ /::/; 96 print "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; 129 $code = eval("package $pkg; use Carp; $code");
|
| H A D | fields.pm | 90 for my $pkg (sort keys %attr) { 91 print "\n$pkg"; 92 if (@{"$pkg\::ISA"}) { 93 print " (", join(", ", @{"$pkg\::ISA"}), ")"; 96 my $fields = \%{"$pkg\::FIELDS"}; 100 my $fattr = $attr{$pkg}[$no];
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| H A D | Scalar.pm | 87 my $pkg = shift; 88 $pkg->TIESCALAR(@_); 94 my $pkg = shift; 95 if ($pkg->can('new') and $pkg ne __PACKAGE__) { 96 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing"); 97 $pkg->new(@_); 100 croak "$pkg doesn't define a TIESCALAR method"; 105 my $pkg = ref $_[0]; 106 croak "$pkg doesn't define a FETCH method"; 110 my $pkg = ref $_[0]; [all …]
|
| H A D | Handle.pm | 123 my $pkg = shift; 124 $pkg->TIEHANDLE(@_); 130 my $pkg = shift; 131 if (defined &{"{$pkg}::new"}) { 132 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing"); 133 $pkg->new(@_); 136 croak "$pkg doesn't define a TIEHANDLE method"; 165 my $pkg = ref $_[0]; 166 croak "$pkg doesn't define a READLINE method"; 183 my $pkg = ref $_[0]; [all …]
|
| H A D | Hash.pm | 192 my $pkg = shift; 193 $pkg->TIEHASH(@_); 199 my $pkg = shift; 200 if (defined &{"${pkg}::new"}) { 201 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing"); 202 $pkg->new(@_); 205 croak "$pkg doesn't define a TIEHASH method"; 210 my $pkg = ref $_[0]; 211 croak "$pkg doesn't define an EXISTS method";
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/ |
| H A D | Safe.pm | 81 my $pkg = $obj->root(); 85 $pkg = "main::$pkg\::"; # expand to full symbol table name 86 ($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/; 173 my $pkg = shift; 180 croak("Package \"$pkg\" does not exist") 181 unless keys %{"$pkg\::"}; 191 *{$root."::$var"} = (!$type) ? \&{$pkg."::$var"} 192 : ($type eq '&') ? \&{$pkg."::$var"} 193 : ($type eq '$') ? \${$pkg."::$var"} 194 : ($type eq '@') ? \@{$pkg."::$var"} [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
| H A D | Cmd.pm | 67 my $pkg = shift; 68 my $cmd = $pkg; 70 $debug{$pkg} ||= 0; 73 my @do = ($pkg); 74 my %spc = ( $pkg , ""); 76 while ($pkg = shift @do) 78 next if defined $done{$pkg}; 80 $done{$pkg} = 1; 82 my $v = defined ${"${pkg}::VERSION"} 83 ? "(" . ${"${pkg}::VERSION"} . ")" [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/ |
| H A D | Handlers.pm | 10 my ($pkg, $ref, $type) = @_; 11 return $symcache{$pkg,$ref} if $symcache{$pkg,$ref}; 14 foreach my $sym ( values %{$pkg."::"} ) { 15 return $symcache{$pkg,$ref} = \$sym 116 my ($pkg, $ref, @attrs) = @_; 137 %lastattr=(pkg=>$pkg,ref=>$ref,type=>$data); 141 my $handler = $pkg->can("_ATTR_${type}_${attr}"); 143 my $decl = [$pkg, $ref, $attr, $data, 175 my ($pkg, $ref, $attr, $data, $raw, $handlerphase) = @$declaration; 180 my $sym = findsym($pkg, $ref); [all …]
|
| /onnv-gate/usr/src/cmd/svr4pkg/pkgchk/ |
| H A D | main.c | 95 char **pkg = NULL; variable 361 pkg = gpkglist(pkgdir, all_pkgs, category); in main() 362 if (pkg == NULL) { in main() 366 for (pkgcnt = 0; pkg[pkgcnt] != NULL; pkgcnt++); in main() 371 pkg = &argv[optind]; in main() 408 logerr(gettext(WRN_F_SPOOL), *pkg); in main() 415 if (n = pkgtrans(device, spooldir, pkg, PT_SILENT, in main() 419 pkg = gpkglist(spooldir, all_pkgs, category); in main() 421 pkg = gpkglist(spooldir, all_pkgs, NULL); in main() 425 pkg = gpkglist(spooldir, in main() [all …]
|
| H A D | checkmap.c | 53 extern char *basedir, *pathlist[], *ppathlist[], **pkg, **environ; 224 if (selpkg(pinfo->pkg)) { in checkmap() 312 root, pkg[i]); in selpkg() 317 pkg[i]); in selpkg() 321 pkg[i]); in selpkg() 324 pkg[i]); in selpkg() 335 root, pkg[i]); in selpkg() 340 pkg[i]); in selpkg() 344 pkg[i]); in selpkg() 347 pkg[i]); in selpkg() [all …]
|
| /onnv-gate/usr/src/lib/libpkg/common/ |
| H A D | pkgxpand.c | 40 extern char *fpkginst(char *pkg, ...); /* libadm.a */ 48 pkgalias(char *pkg) in pkgalias() argument 60 (void) sprintf(path, "%s/%s/pkgmap", pkgdir, pkg); in pkgalias() 103 pkgxpand(char *pkg[]) 111 for (i = 0; pkg[i]; i++) { 112 if (ispkgalias(pkg[i])) { 113 pkglist = pkgxpand(&pkg[i]);
|
| H A D | gpkglist.c | 51 extern int pkgnmchk(register char *pkg, register char *spec, 54 extern char *fpkginst(char *pkg, ...); 113 gpkglist(char *dir, char **pkg, char **catg) in gpkglist() argument 138 if (pkg[0] == NULL && !cont_in_list) { in gpkglist() 204 if (pkg[0] == NULL) { /* It's just a continuation. */ in gpkglist() 207 } else if (pkgnmchk(pkg[i], "all", 1)) { in gpkglist() 210 inst = fpkginst(pkg[i], NULL, NULL); in gpkglist() 212 progerr(pkg_gt(ERR_NOPKG), pkg[i]); in gpkglist() 228 } while (inst = fpkginst(pkg[i], NULL, NULL)); in gpkglist() 230 if (fpkginfo(&info, pkg[i])) { in gpkglist() [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Carp/ |
| H A D | Heavy.pm | 71 my $pkg = shift; 72 $cache->{$pkg} ||= [{$pkg => $pkg}, [trusts_directly($pkg)]]; 73 return @{$cache->{$pkg}}; 100 my $pkg = caller(++$i); 101 unless(defined($pkg)) { 113 redo if $CarpInternal{$pkg}; 115 redo if $Internal{$pkg};
|
| /onnv-gate/usr/src/tools/scripts/ |
| H A D | onu.sh | 94 do_cmd pkg -R $root set-publisher --no-refresh --non-sticky opensolaris.org 95 do_cmd pkg -R $root set-publisher -e --no-refresh -P -O $uri $redistpub 97 do_cmd pkg -R $root set-publisher -e \ 100 do_cmd pkg -R $root refresh --full 113 do_cmd pkg -R $root set-publisher -P opensolaris.org 114 do_cmd pkg -R $root set-publisher -d $redistpub 116 do_cmd pkg -R $root set-publisher -d $extrapub 125 pkg -R $root list entire > /dev/null 2>&1 126 [ $? -eq 0 ] && do_cmd pkg -R $root uninstall entire 130 do_cmd pkg -R $root image-update [all …]
|
| /onnv-gate/usr/src/pkg/manifests/ |
| H A D | system-library-libdiskmgt-header-libdiskmgt.mf | 26 set name=pkg.fmri \ 27 value=pkg:/system/library/libdiskmgt/header-libdiskmgt@$(PKGVERS) 28 set name=pkg.description value="libdiskmgt private header file pkg" 29 set name=pkg.summary value="libdiskmgt private header file pkg" 36 legacy pkg=SUNWldskint desc="libdiskmgt private header file pkg" \ 37 name="libdiskmgt private header file pkg"
|
| /onnv-gate/usr/src/pkg/ |
| H A D | README.pkg | 32 is confusing, you may wish to review the pkg(5) manpage. 37 usr/src/pkg/ contains the definitions and rules needed to build 58 pkg.sun.com/opensolaris/extra repository, including the 68 Alternatively, in usr/src/pkg/Makefile there are make targets for: 101 pkg:/driver/crypto/dprov, which is only available in the 127 usr/src/pkg/packages.$MACH/. These can be useful during development. 185 Alternatively, you can manually start a pkg.depot(1M) server to 190 /usr/lib/pkg.depotd -d repo.redist -p <port> & 204 pkg set-publisher -P -g http://<your server host>:<port> on-nightly 205 pkg set-publisher --non-sticky opensolaris.org [all …]
|