Home
last modified time | relevance | path

Searched refs:self (Results 1 – 25 of 544) sorted by relevance

12345678910>>...22

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DFile.pm124 my ($self, $n) = @_;
128 $rec = $self->{deferred}{$n} if exists $self->{deferred}{$n};
129 $rec = $self->_fetch($n) unless defined $rec;
132 substr($rec, - $self->{recseplen}) = ""
133 if defined $rec && $self->{autochomp};
139 my $self = shift;
140 return unless $self->{autochomp};
141 if ($self->{autochomp}) {
144 substr($_, - $self->{recseplen}) = "";
151 my ($self, $rec) = @_;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/
H A DPing.pm83 my $self = {};
88 bless($self, $class);
93 $self->{"proto"} = $proto;
98 $self->{"timeout"} = $timeout;
100 $self->{"device"} = $device;
102 $self->{"tos"} = $tos;
108 $data_size-- if $self->{"proto"} eq "udp"; # We provide the first byte
109 $self->{"data_size"} = $data_size;
111 $self->{"data"} = ""; # Construct data bytes
112 for ($cnt = 0; $cnt < $self->{"data_size"}; $cnt++)
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DMM_Unix.pm122 my($self) = shift;
123 return '' unless $self->needs_linking();
126 my $cpp_cmd = $self->const_cccmd;
170 my($self,$libperl)=@_;
171 return $self->{CFLAGS} if $self->{CFLAGS};
172 return '' unless $self->needs_linking();
175 $libperl ||= $self->{LIBPERL_A} || "libperl$self->{LIB_EXT}" ;
176 $libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/;
192 if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){
205 ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
[all …]
H A DMM_MacOS.pm44 my($class,$self) = @_;
55 $self = {} unless defined $self;
57 check_hints($self);
59 my(%initial_att) = %$self; # record initial attributes
61 if (defined $self->{CONFIGURE}) {
62 if (ref $self->{CONFIGURE} eq 'CODE') {
63 $self = { %$self, %{&{$self->{CONFIGURE}}}};
76 bless $self, $newclass;
77 push @Parent, $self;
86 $self->{PARENT} = $ExtUtils::MakeMaker::Parent[-2];
[all …]
H A DMM_VMS.pm60 my($self) = shift;
111 my($self) = @_;
162 my($self, $ver, $names, $dirs, $trace) = @_;
168 if( $self->{PERL_CORE} ) {
171 @sdirs = sort { my($absa) = $self->file_name_is_absolute($a);
172 my($absb) = $self->file_name_is_absolute($b);
204 $inabs++ if $self->file_name_is_absolute($dir);
213 if ($name !~ m![/:>\]]!) { push(@cand,$self->catfile($dir,$name)); }
214 else { push(@cand,$self->fixpath($name,0)); }
232 next unless $vmsfile = $self->maybe_command($name);
[all …]
H A DMakeMaker.pm161 my($self) = @_;
168 foreach my $dir (@{$self->{DIR}}){
169 my($abs) = $self->catdir($pwd,$dir);
170 $self->eval_in_x($abs);
176 my($self,$dir) = @_;
346 my($class,$self) = @_;
350 foreach my $k (keys %$self) {
351 $self->{ARGS}{$k} = $self->{$k};
356 print Data::Dumper->Dump([$self->{PREREQ_PM}], [qw(PREREQ_PM)]);
362 print join(" ", map { "perl($_)>=$self->{PREREQ_PM}->{$_} " }
[all …]
H A DMM_Any.pm85 my $self = shift;
86 my %flavors = map { ($_ => 1) } $self->os_flavor;
107 my $self = shift;
108 return $self->canonpath($self->SUPER::catfile(@_));
148 my($self, $cmd, @args) = @_;
158 my $len_left = int($self->max_exec_len * 0.80);
159 $len_left -= length $self->_expand_macros($cmd);
181 push @cmds, $self->escape_newlines("$cmd\n$arg_str");
189 my($self, $cmd) = @_;
192 defined $self->{$1} ? $self->{$1} : "\$($1)"
[all …]
H A DMM_Win32.pm51 my($self,%attribs) = @_;
53 my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
54 my($vars) = $attribs{DL_VARS} || $self->{DL_VARS} || [];
55 my($funclist) = $attribs{FUNCLIST} || $self->{FUNCLIST} || [];
56 my($imports) = $attribs{IMPORTS} || $self->{IMPORTS} || {};
59 if (not $self->{SKIPHASH}{'dynamic'}) {
61 $self->{BASEEXT}.def: Makefile.PL
64 -e "Mksymlists('NAME'=>\"!, $self->{NAME},
65 q!\", 'DLBASE' => '!,$self->{DLBASE},
86 my($self,$man) = @_;
[all …]
H A DMM_NW5.pm49 my $self = shift;
50 return ($self->SUPER::os_flavor, 'Netware');
68 my($self) = shift;
71 $self->SUPER::init_platform;
77 $self->{'LIBPTH'} = $libpth;
79 $self->{'BASE_IMPORT'} = $Config{'base_import'};
82 if($self->{'base_import'}) {
83 $self->{'BASE_IMPORT'} .= ', ' . $self->{'base_import'};
86 $self->{'NLM_VERSION'} = $Config{'nlm_version'};
87 $self->{'MPKTOOL'} = $Config{'mpktool'};
[all …]
/onnv-gate/usr/src/cmd/dtrace/demo/ip/
H A Dtcprst.d45 laddr[self->conn_id], lport[self->conn_id], \
46 faddr[self->conn_id], fport[self->conn_id], \
47 iss[self->conn_id], irs[self->conn_id], \
48 send_count[self->conn_id], recv_count[self->conn_id]))
56 probe_name[self->conn_id, i], \
57 conn_time[self->conn_id, i], \
58 send_recv[self->conn_id, i], \
59 seqno[self->conn_id, i], \
60 ack[self->conn_id, i], \
61 datalen[self->conn_id, i], \
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/
H A DLaTeX.pm391 my $self = shift;
396 $self->{_Lists} = []; # For nested lists
397 $self->{_suppress_all_para} = 0; # For =begin blocks
398 $self->{_dont_modify_any_para}=0; # For =begin blocks
399 $self->{_CURRENT_HEAD1} = ''; # Name of current HEAD1 section
410 $self->{ReplaceNAMEwithSection} = 0
411 unless exists $self->{ReplaceNAMEwithSection};
412 $self->{AddPreamble} = 1 # make full latex document
413 unless exists $self->{AddPreamble};
414 $self->{StartWithNewPage} = 0 # Start new page for pod section
[all …]
H A DText.pm176 my $self = shift;
178 $$self{alt} = 0 unless defined $$self{alt};
179 $$self{indent} = 4 unless defined $$self{indent};
180 $$self{margin} = 0 unless defined $$self{margin};
181 $$self{loose} = 0 unless defined $$self{loose};
182 $$self{sentence} = 0 unless defined $$self{sentence};
183 $$self{width} = 76 unless defined $$self{width};
186 $$self{quotes} ||= '"';
187 if ($$self{quotes} eq 'none') {
188 $$self{LQUOTE} = $$self{RQUOTE} = '';
[all …]
H A DPlainText.pm122 my $self = shift;
124 $$self{alt} = 0 unless defined $$self{alt};
125 $$self{indent} = 4 unless defined $$self{indent};
126 $$self{loose} = 0 unless defined $$self{loose};
127 $$self{sentence} = 0 unless defined $$self{sentence};
128 $$self{width} = 76 unless defined $$self{width};
130 $$self{INDENTS} = []; # Stack of indentations.
131 $$self{MARGIN} = $$self{indent}; # Current left margin in spaces.
133 $self->SUPER::initialize;
146 my $self = shift;
[all …]
H A DPerldoc.pm76 my($self, $value) = @_;
81 $self->add_formatter_option( $option, $option_value );
89 my($self, $classes) = @_;
103 unshift @{ $self->{'formatter_classes'} }, @classes_to_add;
107 . "making them @{ $self->{'formatter_classes'} }.\n"
128 my $self = shift;
129 $self->opt_o_with('text') if @_ and $_[0];
130 return $self->_elem('opt_t', @_);
134 my $self = shift;
135 $self->opt_o_with('pod') if @_ and $_[0];
[all …]
H A DParseUtils.pm67 my $self = {%params};
68 bless $self, $class;
69 $self->initialize();
70 return $self;
74 my $self = shift;
75 $self->{-file} ||= 'unknown';
76 $self->{-start} ||= 'unknown';
77 $self->{-indent} ||= 4; # perlpod: "should be the default"
78 $self->{_items} = [];
79 $self->{-type} ||= '';
[all …]
H A DChecker.pm557 my $self = shift;
560 $self->{_NUM_ERRORS} = 0;
561 $self->{_NUM_WARNINGS} = 0;
562 $self->{-quiet} ||= 0;
564 $self->errorsub($self->{-quiet} ? sub { 1; } : 'poderror');
565 $self->{_commands} = 0; # total number of POD commands encountered
566 $self->{_list_stack} = []; # stack for nested lists
567 $self->{_have_begin} = ''; # stores =begin
568 $self->{_links} = []; # stack for internal hyperlinks
569 $self->{_nodes} = []; # stack for =head/=item nodes
[all …]
H A DInputObjects.pm141 my $self = { -name => '(unknown)',
147 bless $self, $class;
148 return $self;
269 my $self = {
281 bless $self, $class;
282 return $self;
475 my $self = {
485 my $ptree = $self->{'-ptree'} || new Pod::ParseTree();
491 $self->{'-ptree'} = $ptree;
494 bless $self, $class;
[all …]
/onnv-gate/usr/src/common/openssl/crypto/perlasm/
H A Dx86_64-xlate.pl69 my $self = shift; # single instance in enough...
74 $self->{op} = $1;
75 $ret = $self;
78 undef $self->{sz};
79 if ($self->{op} =~ /(movz)b.*/) { # movz is pain...
80 $self->{op} = $1;
81 $self->{sz} = "b";
82 } elsif ($self->{op} =~ /([a-z]{3,})([qlwb])/) {
83 $self->{op} = $1;
84 $self->{sz} = $2;
[all …]
/onnv-gate/usr/src/lib/libc/port/threads/
H A Dcancel.c38 ulwp_t *self = curthread; in pthread_cancel() local
39 uberdata_t *udp = self->ul_uberdata; in pthread_cancel()
51 } else if (ulwp == self) { in pthread_cancel()
55 ulwp_unlock(self, udp); in pthread_cancel()
56 self->ul_nocancel = 0; /* cancellation is now possible */ in pthread_cancel()
57 if (self->ul_sigdefer == 0) in pthread_cancel()
60 self->ul_cancel_pending = 1; in pthread_cancel()
61 set_cancel_pending_flag(self, 0); in pthread_cancel()
94 ulwp_t *self = curthread; in pthread_setcancelstate() local
95 uberdata_t *udp = self->ul_uberdata; in pthread_setcancelstate()
[all …]
/onnv-gate/usr/src/tools/onbld/Scm/
H A DWorkSpace.py86 def __init__(self, name): argument
87 self.name = name
88 self.change = None
89 self.parentname = None
91 self.renamed = False
92 self.comments = []
97 def __cmp__(self, other): argument
98 return cmp(self.name, other.name)
100 def is_added(self): argument
101 return self.change == self.ADDED
[all …]
H A DBackup.py81 def __init__(self, msg, name): argument
92 util.Abort.__init__(self, "%s: changeset '%s' is missing\n"
102 def __init__(self, backup, ws): argument
103 self.ws = ws
104 self.bu = backup
105 self.files = ('bundle', 'nodes')
107 def _outgoing_nodes(self, parent): argument
111 outgoing = self.ws.findoutgoing(parent)
112 nodes = self.ws.repo.changelog.nodesbetween(outgoing)[0]
117 def backup(self): argument
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DDumpvalue.pm47 my $self = shift;
49 @$self{keys %opt} = values %opt;
53 my $self = shift;
54 wantarray ? @$self{@_} : $$self{pop @_};
58 my $self = shift;
63 (print $self->stringify($_[0]), "\n"), return unless ref $_[0];
64 $self->unwrap($_[0],0);
68 my $self = shift;
72 $self->unwrap(\@_,0);
86 my $self = shift;
[all …]
/onnv-gate/usr/src/cmd/latencytop/common/
H A Dlatencytop.d78 self unsigned int lt_is_block_wakeable;
79 self unsigned long long lt_sleep_start;
80 self unsigned long long lt_sleep_duration;
81 self unsigned long long lt_sch_delay;
82 self unsigned int lt_counter; /* only used in low overhead */
83 self unsigned long long lt_timestamp; /* only used in low overhead */
84 self unsigned int lt_stackp;
85 self unsigned int lt_prio[int];
86 self string lt_cause[int];
98 self->lt_sleep_start = 0;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/
H A DStraps.pm75 my $self = bless {}, $class;
76 $self->_init;
78 return $self;
90 my($self) = shift;
92 $self->{_is_vms} = ( $^O eq 'VMS' );
93 $self->{_is_win32} = ( $^O =~ /^(MS)?Win32$/ );
94 $self->{_is_macos} = ( $^O eq 'MacOS' );
113 my($self, $name, $test_output) = @_;
116 return $self->_analyze_iterator($name, $it);
121 my($self, $name, $it) = @_;
[all …]
/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/
H A DKstat.xs181 save_cpu_stat(HV *self, kstat_t *kp, int strip_str) in save_cpu_stat() argument
195 hv_store(self, "idle", 4, NEW_UV(sysinfop->cpu[CPU_IDLE]), 0); in save_cpu_stat()
196 hv_store(self, "user", 4, NEW_UV(sysinfop->cpu[CPU_USER]), 0); in save_cpu_stat()
197 hv_store(self, "kernel", 6, NEW_UV(sysinfop->cpu[CPU_KERNEL]), 0); in save_cpu_stat()
198 hv_store(self, "wait", 4, NEW_UV(sysinfop->cpu[CPU_WAIT]), 0); in save_cpu_stat()
199 hv_store(self, "wait_io", 7, NEW_UV(sysinfop->wait[W_IO]), 0); in save_cpu_stat()
200 hv_store(self, "wait_swap", 9, NEW_UV(sysinfop->wait[W_SWAP]), 0); in save_cpu_stat()
201 hv_store(self, "wait_pio", 8, NEW_UV(sysinfop->wait[W_PIO]), 0); in save_cpu_stat()
202 SAVE_UINT32(self, sysinfop, bread); in save_cpu_stat()
203 SAVE_UINT32(self, sysinfop, bwrite); in save_cpu_stat()
[all …]

12345678910>>...22