Home
last modified time | relevance | path

Searched refs:dataref (Results 1 – 25 of 583) sorted by relevance

12345678910>>...24

/dports/security/libwhisker/libwhisker2-2.5/src/
H A Dhtml.pl64 return if ( !( defined $dataref && ref($dataref) ) );
72 $DR = $dataref;
74 $LEN = length($$dataref);
77 $cc = substr( $$dataref, $c, 1 );
118 $$dataref,
157 pos($$dataref) = $c;
166 $c = pos($$dataref) - 1;
176 pos($$dataref) = $c;
206 pos($$dataref) = $c;
211 $start = pos($$dataref) - 1;
[all …]
/dports/www/p5-HTTP-Proxy/HTTP-Proxy-0.304/lib/HTTP/Proxy/BodyFilter/
H A Dlines.pm25 my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
32 $$dataref =~ /^(.*\n\n)([^\n].*)/sg;
33 ( $$dataref, $$buffer) = defined $1 ? ($1, $2) : ("", $$dataref);
36 my $idx = length($$dataref) - length($$dataref) % $$eol;
37 $$buffer = substr( $$dataref, $idx );
38 $$dataref = substr( $$dataref, 0, $idx );
41 my $idx = rindex( $$dataref, $eol );
43 $$buffer = $$dataref; # keep everything for later
44 $$dataref = '';
48 $$buffer = substr( $$dataref, $idx );
[all …]
H A Dhtmltext.pm17 my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
19 my $pos = pos($$dataref) = 0;
22 $pos = pos($$dataref);
23 $$dataref =~ /\G<\s*(?:script|style)[^>]*>/cgi # protect
25 $$dataref =~ /\G<\s*\/\s*(?:script|style)[^>]*>/cgi # unprotect
30 $$dataref =~ /\G<!--/cg && redo SCAN; # comment
31 $$dataref =~ /\G>/cg && redo SCAN; # lost >
33 $$dataref =~ /\G(?:<[^>]*>)+/cg && redo SCAN; # tags
35 $$dataref =~ /\G([^<>&]+)/cg && goto TEXT; # text
42 substr( $$dataref, $pos, length($1), $_ );
[all …]
H A Dtags.pm10 my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
13 my $idx = rindex( $$dataref, '<' );
14 if ( $idx > rindex( $$dataref, '>' ) ) {
15 $$buffer = substr( $$dataref, $idx );
16 $$dataref = substr( $$dataref, 0, $idx );
/dports/graphics/p5-Image-MetaData-JPEG/Image-MetaData-JPEG-0.153/lib/Image/MetaData/JPEG/
H A DRecord.pm80 my ($pkg, $akey, $atype, $dataref, $count, $endian) = @_;
82 $pkg->die('Reference not found') unless ref $dataref;
93 my $current = length($$dataref);
114 $cat =~ /S|p/ ? $$dataref :
189 return undef unless defined $dataref;
302 my ($this, $n, $dataref, $endian) = @_;
306 my @tokens = unpack "a$n" x (length($$dataref)/$n), $$dataref;
357 my ($this, $n, $dataref, $endian) = @_;
361 my @tokens = unpack "a$n" x (length($$dataref)/$n), $$dataref;
420 my $dataref =
[all …]
H A DSegment.pm74 my ($pkg, $name, $dataref, $flag) = @_;
78 dataref => defined $dataref ? $dataref : \ (my $ns = ''),
85 $this->die('Invalid data reference') if defined $dataref && ! ref $dataref;
202 my $old_content = $this->{dataref};
205 $this->{dataref} = \ (my $ns = '');
224 $this->{dataref} = $old_content; }
365 sub size { return length ${$_[0]{dataref}}; }
385 ${$this->{dataref}} .= $$addref;
528 unless (ref $dataref) {
530 my $offset = $dataref;
[all …]
/dports/emulators/qemu42/qemu-4.2.1/roms/ipxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/emulators/qemu5/qemu-5.2.0/roms/ipxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/emulators/qemu-powernv/qemu-powernv-3.0.50/roms/ipxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/sysutils/syslinux/syslinux-6.03/gpxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/net/ipxe/ipxe-2265a65/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/emulators/qemu-utils/qemu-4.2.1/roms/ipxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/emulators/qemu-guest-agent/qemu-5.0.1/roms/ipxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/emulators/qemu/qemu-6.2.0/roms/ipxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/emulators/qemu60/qemu-6.0.0/roms/ipxe/src/util/
H A Dswapdevids.pl15 my ($dataref, $loc1, $loc2) = @_;
18 $t = substr($$dataref, $loc1, 1);
19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1);
20 substr($$dataref, $loc2, 1) = $t;
25 my ($dataref, $loc) = @_;
27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
/dports/graphics/p5-Image-MetaData-JPEG/Image-MetaData-JPEG-0.153/t/
H A DJPEG_5_exif_Thumbnail.t7 my ($image, $image2, $dataref, $dataref2, $hash, $hash2,
25 $dataref = $image->get_Exif_data('THUMBNAIL');
26 isnt( $dataref, undef, "Thumbnail data found" );
29 is( ref $dataref, 'SCALAR', "... as a reference to a scalar" );
32 $thumb = newimage($dataref);
40 $thumb->save($dataref);
41 $thumb = newimage($dataref);
45 $result = $image->set_Exif_data($dataref, 'THUMBNAIL');
53 is_deeply( $dataref, $dataref2, "... it containes the new data block" );
61 is( $$hash2{$name}[0], length $$dataref,"... and is correct");
[all …]
/dports/math/octave-forge-ncarray/ncarray/inst/
H A Dtest_ncarray_nan.m15 dataref = randn(220,144,3); variable
16 %dataref(rand(size(dataref)) > 0.7) = NaN;
17 dataref(50:80,30:90,1:2) = NaN;
21 ncarray_example_file(files{i},dataref(:,:,i));
26 reddataref = nanmean(dataref,3);
30 reddataref = nansum(dataref,3);
34 reddataref = nanvar(dataref,[],3);
39 reddataref = nanstd(dataref,[],3);
/dports/graphics/p5-Image-MetaData-JPEG/Image-MetaData-JPEG-0.153/lib/Image/MetaData/JPEG/access/
H A Dapp1_exif.pl462 my ($this, $dataref) = @_;
467 return { 'ERROR' => 'argument is not a reference' } unless ref $dataref;
470 if ('Image::MetaData::JPEG' eq ref $dataref) {
471 my $r = ""; $dataref->save(\ $r); $dataref = \ $r; $type = 'JPEG'; }
473 return { 'ERROR' => 'not a good reference' } if ref $dataref ne 'SCALAR';
477 $type = 'NONE' if length $$dataref == 0;
478 $type = 'JPEG' if ! $type && Image::MetaData::JPEG->new($dataref, '');
500 ('ThumbnailData', $UNDEF, $dataref, length $$dataref) if $dataref;
505 'JPEGInterchangeFormatLength' => length $$dataref };
/dports/science/qmcpack/qmcpack-3.11.0/utils/
H A Dsetup-qmc.pl2884 my $dataref = shift;
2920 return $dataref;
2929 my $dataref = shift;
2947 return $dataref;
2957 my $dataref = shift;
2989 my $dataref = shift;
3023 my $dataref = shift;
3055 my $dataref = shift;
3073 return $dataref;
3085 my $dataref = shift;
[all …]
/dports/databases/p5-DBIx-Class-FrozenColumns/DBIx-Class-FrozenColumns-0.09/lib/DBIx/Class/
H A DFrozenColumns.pm427 my ($this, $dataref) = @_;
428 my $data = defined $$dataref ? eval {thaw($$dataref)} || {} : {};
445 my ($this, $dataref) = @_;
447 my $data = defined $$dataref ? eval "$$dataref" || {} : {};
461 my ($this, $dataref) = @_;
462 my $data = defined $$dataref ? eval {$json->decode($$dataref)} || {} : {};
/dports/devel/p5-Cache/Cache-2.11/lib/Cache/Memory/
H A DEntry.pm187 my $dataref = $entry->{data};
193 my $orig_size = length($$dataref);
196 $entry->{handlelock} = $dataref;
198 return Cache::IOString->new($dataref, $mode,
202 return Cache::IOString->new($dataref, $mode);
237 my $dataref = $iostring->sref();
244 if (defined $entry->{handlelock} and $entry->{handlelock} == $dataref) {
258 $entry->{data} = $dataref;
/dports/devel/cgit/cgit-1.2.3/git/vcs-svn/
H A Dfast_export.c57 void fast_export_modify(const char *path, uint32_t mode, const char *dataref) in fast_export_modify() argument
60 if (!dataref) { in fast_export_modify()
64 printf("M %06"PRIo32" %s ", mode, dataref); in fast_export_modify()
86 void fast_export_note(const char *committish, const char *dataref) in fast_export_note() argument
88 printf("N %s %s\n", dataref, committish); in fast_export_note()
261 struct strbuf *dataref) in parse_ls_response() argument
297 strbuf_add(dataref, response, tab - response); in parse_ls_response()
302 uint32_t *mode, struct strbuf *dataref) in fast_export_ls_rev() argument
305 return parse_ls_response(get_response_line(), mode, dataref); in fast_export_ls_rev()
308 int fast_export_ls(const char *path, uint32_t *mode, struct strbuf *dataref) in fast_export_ls() argument
[all …]
/dports/www/p5-CGI-Session/CGI-Session-4.48/lib/CGI/
H A DSession.pm67 my $dataref = $self->{_DATA};
68 unless ($dataref->{_SESSION_ID}) {
84 $dataref->{_SESSION_ID} = $id;
85 $dataref->{_SESSION_CTIME} = $dataref->{_SESSION_ATIME} = time();
86 $dataref->{_SESSION_REMOTE_ADDR} = $ENV{REMOTE_ADDR} || "";
95 *param_hashref = \&dataref;
97 sub dataref { $_[0]->{_DATA} } subroutine
105 sub id { return defined($_[0]->dataref) ? $_[0]->dataref->{_SESSION_ID} : undef }
108 sub atime { return defined($_[0]->dataref) ? $_[0]->dataref->{_SESSION_ATIME} : undef }
111 sub ctime { return defined($_[0]->dataref) ? $_[0]->dataref->{_SESSION_CTIME} : undef }
[all …]
/dports/www/p5-HTTP-Lite/HTTP-Lite-2.44/t/
H A Doriginal-tests.t268 my ( $self, $dataref, $cbargs ) = @_;
269 $cbbytes += length($$dataref);
270 return $dataref;
286 my ( $self, $dataref, $cbargs ) = @_;
287 $cbbytes += length($$dataref);
301 my ( $self, $mode, $dataref, @args ) = @_;
302 $cbbytes += length($$dataref);
305 return $dataref;
/dports/sysutils/cmogstored/cmogstored-1.8.1/test/
H A Dmogilefs_integration.perl147 my $dataref = $mogc->get_file_data("empty");
148 is($$dataref, "", "returned an empty file");
156 my $dataref = $mogc->get_file_data("something");
157 is($$dataref, "something", "returned a 'something'");
171 my $dataref = $mogc->get_file_data("largefile");
172 is($$dataref, $expect, "returned expected data");

12345678910>>...24