| /openbsd/src/gnu/llvm/lldb/include/lldb/Utility/ |
| D | Scalar.h | 1 //===-- Scalar.h ------------------------------------------------*- C++ -*-===// 31 // Operators are defined and Scalar objects will correctly promote their types 34 class Scalar { 52 Scalar() : m_float(0.0f) {} in Scalar() function 53 Scalar(int v) : m_type(e_int), m_integer(MakeAPSInt(v)), m_float(0.0f) {} in Scalar() function 54 Scalar(unsigned int v) in Scalar() function 56 Scalar(long v) : m_type(e_int), m_integer(MakeAPSInt(v)), m_float(0.0f) {} in Scalar() function 57 Scalar(unsigned long v) in Scalar() function 59 Scalar(long long v) in Scalar() function 61 Scalar(unsigned long long v) in Scalar() function [all …]
|
| /openbsd/src/gnu/llvm/lldb/source/Utility/ |
| D | Scalar.cpp | 1 //===-- Scalar.cpp --------------------------------------------------------===// 9 #include "lldb/Utility/Scalar.h" 30 Scalar::PromotionKey Scalar::GetPromoKey() const { in GetPromoKey() 42 Scalar::PromotionKey Scalar::GetFloatPromoKey(const llvm::fltSemantics &sem) { in GetFloatPromoKey() 55 Scalar::Type Scalar::PromoteToMaxType(Scalar &lhs, Scalar &rhs) { in PromoteToMaxType() 56 const auto &Promote = [](Scalar &a, const Scalar &b) { in PromoteToMaxType() 81 return Scalar::e_void; in PromoteToMaxType() 84 bool Scalar::GetData(DataExtractor &data, size_t limit_byte_size) const { in GetData() 113 void Scalar::GetBytes(llvm::MutableArrayRef<uint8_t> storage) const { in GetBytes() 131 size_t Scalar::GetByteSize() const { in GetByteSize() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/ext/PerlIO-scalar/ |
| D | scalar.pm | 1 package PerlIO::scalar; 8 PerlIO::scalar - in-memory IO, scalar IO 12 my $scalar = ''; 14 open my $fh, "<", \$scalar or die; 15 open my $fh, ">", \$scalar or die; 16 open my $fh, ">>", \$scalar or die; 20 my $scalar = ''; 22 open my $fh, "<:scalar", \$scalar or die; 23 open my $fh, ">:scalar", \$scalar or die; 24 open my $fh, ">>:scalar", \$scalar or die; [all …]
|
| /openbsd/src/gnu/usr.bin/perl/lib/Tie/ |
| D | Scalar.t | 11 use Tie::Scalar; 12 our @ISA = qw( Tie::Scalar ); 21 use_ok( 'Tie::Scalar' ); 25 eval { Tie::Scalar->$method() }; 30 my $scalar = Tie::StdScalar->TIESCALAR(); 31 is( $$scalar, undef, 'used TIESCALAR, default value is still undef' ); 34 $scalar = Tie::StdScalar->new(); 35 is( $$scalar, undef, 'used new(), default value is still undef' ); 38 tie $scalar, 'Tie::StdScalar'; 39 is( $$scalar, undef, 'tied a scalar, default value is undef' ); [all …]
|
| D | Scalar.pm | 1 package Tie::Scalar; 7 Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars 12 require Tie::Scalar; 14 @ISA = qw(Tie::Scalar); 21 require Tie::Scalar; 37 This module provides some skeletal methods for scalar-tying classes. See 38 L<perltie> for a list of the functions required in tying a scalar to a 39 package. The basic B<Tie::Scalar> package provides a C<new> method, as well 42 B<Tie::Scalar> and causes scalars tied to it to behave exactly like the 47 For developers wishing to write their own tied-scalar classes, the methods [all …]
|
| /openbsd/src/gnu/usr.bin/perl/dist/threads/t/ |
| D | context.t | 63 ok($context eq 'scalar', 'Scalar context'); 64 return 'scalar'; 75 $thr = threads->create('foo', 'scalar'); 77 ok($res eq 'scalar', 'Implicit scalar context'); 88 ($thr) = threads->create({'scalar' => 'scalar'}, 'foo', 'scalar'); 90 ok($res eq 'scalar', 'Explicit scalar context'); 106 ok($context eq 'scalar', 'Scalar context'); 107 return 'scalar'; 120 $thr = threads->create('bar', 'scalar'); 122 ok(defined($ctx) && !$ctx, 'Implicit scalar context'); [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| D | head-tail.t | 16 is( scalar @ary, 1 ); 20 is( scalar @ary, 2 ); 25 is( scalar @ary, 2 ); 30 is( scalar @ary, 1 ); 34 is( scalar @ary, 3 ); 40 is( scalar @ary, 0 ); 43 is( scalar @ary, 0 ); 46 is( scalar @ary, 0 ); 49 is( scalar @ary, 0 ); 52 is( scalar @ary, 0 ); [all …]
|
| /openbsd/src/gnu/usr.bin/perl/dist/threads-shared/t/ |
| D | blessed.t | 60 $$hobj{'scalar'} = $sobj; 67 ok(4, ref($sobj) eq 'baz', "scalar blessing does work"); 68 ok(5, $$sobj eq '3', "scalar contents okay"); 72 ok(8, ref($$aobj[2]) eq 'baz', "blessed scalar in array"); 73 ok(9, ${$$aobj[2]} eq '3', "blessed scalar in array contents"); 77 ok(12, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash"); 78 ok(13, ${$$hobj{'scalar'}} eq '3', "blessed scalar in hash contents"); 85 ok(16, ref($sobj) eq 'baz', "scalar blessing does work"); 86 ok(17, $$sobj eq '3', "scalar contents okay"); 90 ok(20, ref($$aobj[2]) eq 'baz', "blessed scalar in array"); [all …]
|
| D | object2.t | 89 my $self = \do{ my $scalar = ++$ID; }; 152 # Testing with scalar object 154 ok($created[$ID], 'Created scalar object in normal array'); 156 ok($destroyed[$ID], 'Deleted scalar object in normal array'); 159 ok($created[$ID], 'Created scalar object in normal array'); 161 ok($destroyed[$ID], 'Undef scalar object in normal array'); 164 ok($created[$ID], 'Created scalar object in normal array'); 166 ok($created[$ID], 'Created scalar object in normal array'); 167 ok($destroyed[$ID-1], 'Replaced scalar object in normal array'); 169 ok($destroyed[$ID], 'Scalar object removed from cleared normal array'); [all …]
|
| /openbsd/src/gnu/usr.bin/perl/t/op/ |
| D | grep.t | 17 my @mapped = map {scalar @$_} @lol; 18 cmp_ok("@mapped", 'eq', "3 0 3", 'map scalar list of list'); 20 my @grepped = grep {scalar @$_} @lol; 21 cmp_ok("@grepped", 'eq', "$lol[0] $lol[2]", 'grep scalar list of list'); 32 cmp_ok( scalar(@res), '==', 1, 'basic map nr'); 37 cmp_ok( scalar(@res), '==', 1, 'linefeed map nr'); 43 cmp_ok( scalar(@res), '==', 1, 'deref map nr'); 47 cmp_ok( scalar(@res), '==', 1, 'no paren basic map nr'); 52 cmp_ok( scalar(@res), '==', 1, 'no paren linefeed map nr'); 58 cmp_ok( scalar(@res), '==', 1, 'no paren deref map nr'); [all …]
|
| D | hashassign.t | 16 # $foo{string} into a shared hash key scalar. It might be worth making the 17 # tokeniser build the LHS of => as a shared hash key scalar too. 114 %names = ('$' => 'Scalar', '@' => 'Array', # Grr ' 275 # now some tests for hash assignment in scalar and list context with 283 is( scalar( %h = (1,2,1,3,1,4,1,5) ), 8, 284 'hash assignment in scalar context' ); 285 is( scalar( ($x,%h) = (0,1,2,1,3,1,4,1,5) ), 9, 286 'scalar + hash assignment in scalar context' ); 291 is( $#$ar, 2, 'scalar + hash assignment in list context' ); 298 my @types = qw( SCALAR ARRAY HASH CODE GLOB); [all …]
|
| D | hashwarn.t | 29 cmp_ok(scalar(@warnings),'==',1,'odd count'); 34 cmp_ok(scalar(@warnings),'==',1,'scalar count'); 35 cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'scalar msg'); 39 cmp_ok(scalar(@warnings),'==',2,'odd hashref count'); 45 cmp_ok(scalar(@warnings),'==',1,'arrayref count'); 50 cmp_ok(scalar(@warnings),'==',1,'coderef count'); 56 is(scalar(@warnings), 1, 'anon singleton count'); 61 cmp_ok(scalar(@warnings),'==',0,'hashref assign'); 70 cmp_ok(scalar(@warnings),'==',0,'pseudo-hash 1 count'); 77 cmp_ok(scalar(@warnings),'==',0,'pseudo-hash 2 count'); [all …]
|
| D | try.t | 61 defined wantarray ? "scalar" : "void"; 69 my $scalar = whatcontext(); 70 is($context, "scalar", 'sub {try} in scalar'); 178 my $scalar; 181 try { return $scalar } 186 is($scalar, 123, 'try { return } in :lvalue sub in scalar context' ); 201 my $scalar = do { 205 is($scalar, 123, 'do { try } in scalar context'); 215 $scalar = do { 219 is($scalar, 456, 'do { try } with multiple statements'); [all …]
|
| D | split.t | 23 is($cnt, scalar(@ary)); 29 is($cnt, scalar(@ary)); 35 is($cnt, scalar(@ary)); 41 is($cnt, scalar(@ary)); 47 is($cnt, scalar(@ary)); 53 is($cnt, scalar(@ary)); 60 is($cnt, scalar(@ary), "Check element count from previous test"); 65 is($_, '1:2:3:4 5 6', "Split into a specified number of fields, defined by a scalar variable"); 68 is($cnt, scalar(@ary), "Check element count from previous test"); 82 is($cnt, scalar(@ary), "Check empty pattern element count with LIMIT == $_"); [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Memoize/t/ |
| D | cache.t | 13 is eval { scalar(ns()) }, undef, 'exception in scalar context'; 22 { local $@; $ret = eval { scalar $memodummy->() }; $e = $@ } 23 is $ret, undef, "scalar context fails under $l_opt/$s_opt"; 24 …like $e, qr/^Anonymous function called in forbidden scalar context/, '... with the right error mes… 37 is_deeply [sort keys %s], [qw(x y)], 'scalar context calls populate SCALAR_CACHE'; 47 ok !scalar(xx()), 'false in scalar context'; 50 ok !scalar(xx()), 'false in scalar context again'; 60 scalar reff(); 61 is_deeply [reff()], [[1,2,3]], 'reff list context after scalar context'; 63 scalar listf(); [all …]
|
| /openbsd/src/gnu/llvm/clang/include/clang/Basic/ |
| D | arm_mve.td | 10 // functions wrapping the MVE vector instruction set and scalar shift 23 def "vst"#n#"q": Intrinsic<Void, (args Ptr<Scalar>, MultiVector<n>), 26 def "vld"#n#"q": Intrinsic<MultiVector<n>, (args CPtr<Scalar>), 47 def vqaddq_n: Intrinsic<Vector, (args Vector:$a, unpromoted<Scalar>:$b), 49 def vqsubq_n: Intrinsic<Vector, (args Vector:$a, unpromoted<Scalar>:$b), 61 def vqaddq_u_n: Intrinsic<Vector, (args Vector:$a, unpromoted<Scalar>:$b), 64 def vqsubq_u_n: Intrinsic<Vector, (args Vector:$a, unpromoted<Scalar>:$b), 80 (IRInt<"vhadd", [Vector]> $a, $b, (unsignedflag Scalar))>; 82 (IRInt<"vrhadd", [Vector]> $a, $b, (unsignedflag Scalar))>; 90 (IRInt<"vhsub", [Vector]> $a, $b, (unsignedflag Scalar))>; [all …]
|
| /openbsd/src/gnu/usr.bin/perl/t/io/ |
| D | scalar.t | 37 # Check that ">" clobbers the scalar 41 # Check that file offset set to beginning of scalar 52 # Check that ">>" appends to the scalar 58 # Check that further writes go to the very end of the scalar 69 # Check that updates to the scalar from elsewhere do not 104 open my $fh, '>', \my $scalar; 107 is($warn, 0, "no warnings when writing to an undefined scalar"); 108 undef $scalar; 109 open $fh, '>>', \$scalar; 112 is($warn, 0, "no warnings when appending to an undefined scalar"); [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/autodie/lib/autodie/ |
| D | hints.pm | 24 foo => { scalar => HINTS, list => SOME_HINTS }, 25 bar => { scalar => HINTS, list => MORE_HINTS }, 34 foo(); # succeeds or dies based on scalar hints 71 A false value, in scalar context 110 Hints can be provided for both scalar and list contexts. Note 114 in a scalar context, but their return value is discarded after it 122 failure should be identified in scalar and list contexts. 129 # Scalar failures always return undef: 130 { scalar => sub { !defined($_[0]) } } 132 # Scalar failures return any false value [default expectation]: [all …]
|
| /openbsd/src/gnu/usr.bin/perl/t/lib/warnings/ |
| D | 3both | 16 Use of uninitialized value $b in scalar chop at - line 6. 30 Use of uninitialized value $b in scalar chop at - line 6. 67 Use of uninitialized value $b in scalar chop at - line 6. 76 Use of uninitialized value $b in scalar chop at - line 6. 110 Use of uninitialized value $b in scalar chop at - line 5. 122 Use of uninitialized value $b in scalar chop at - line 6. 144 Use of uninitialized value $b in scalar chop at - line 6. 153 Use of uninitialized value $b in scalar chop at - line 6. 184 Use of uninitialized value $b in scalar chop at - line 10. 197 Use of uninitialized value $b in scalar chop at - line 7. [all …]
|
| /openbsd/src/gnu/usr.bin/perl/ |
| D | perly.y | 103 %type <opval> expr term subscripted scalar ary hsh arylen star amper sideff 293 scalar 296 { $$ = $scalar; } 508 scalar($texpr), $mblock, $iterate_mnexpr, $mintro); 533 | KW_FOR scalar PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock cont 536 op_lvalue($scalar, OP_ENTERLOOP), $mexpr, $mblock, $cont)); 568 | KW_TRY mblock[try] KW_CATCH remember catch_paren[scalar] 570 if(!$scalar) { 578 $try, $scalar, block_end($remember, op_scope($catch))); 686 { $$ = newLOOPOP(OPf_PARENS, 1, scalar($condition), $body); } [all …]
|
| /openbsd/src/gnu/usr.bin/perl/ext/re/t/ |
| D | strict.t | 24 BEGIN { is(scalar @w, 0, 'No default-on warnings for qr/\b*/'); } 31 BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); } 38 BEGIN { is(scalar @w, 0, 'no re "strict" restores warnings state'); } 43 BEGIN { is(scalar @w, 0, 'dropping out of "strict" scope reverts warnings default'); } 49 BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); } 54 BEGIN { is(scalar @w, 0, 'turning off "strict" scope reverts warnings default'); } 61 BEGIN { is(scalar @w, 1, 'use warnings "regexp" works'); } 66 BEGIN { is(scalar @w, 1, 'use re "strict" keeps warnings on'); } 71 …BEGIN { is(scalar @w, 1, 'turning off "strict" scope doesn\'t affect warnings that were already on…
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/Builder/ |
| D | output.t | 63 # Test output to a scalar ref 65 my $scalar = ''; 66 my $out = $tb->output(\$scalar); 69 $Test->is_eq($scalar, "Hey hey hey!\n"); 73 # Test we can output to the same scalar ref 75 my $scalar = ''; 76 my $out = $tb->output(\$scalar); 77 my $err = $tb->failure_output(\$scalar); 82 $Test->is_eq($scalar, "To output and beyond!", "One scalar, two filehandles");
|
| /openbsd/src/gnu/usr.bin/perl/ext/IPC-Open3/t/ |
| D | IPC-Open3.t | 44 print scalar <STDIN>; 49 like(scalar <READ>, qr/^hi kid\r?\n$/); 50 like(scalar <ERROR>, qr/^hi error\r?\n$/); 61 print scalar <STDIN>; 62 print STDERR scalar <STDIN>; 65 like(scalar <READ>, qr/\A$desc\r?\n\z/); 67 like(scalar <READ>, qr/\A$desc \[again\]\r?\n\z/); 73 print scalar <STDIN>; 74 print STDERR scalar <STDIN>; 77 like(scalar <READ>, qr/\A$desc\r?\n\z/); [all …]
|
| /openbsd/src/gnu/llvm/lldb/include/lldb/Core/ |
| D | Value.h | 14 #include "lldb/Utility/Scalar.h" 44 /// A raw scalar value. 45 Scalar = 0, enumerator 60 /// RegisterInfo * (can be a scalar or a vector register). 69 Value(const Scalar &scalar); 102 SetValueType(ValueType::Scalar); in SetContext() 110 Scalar &ResolveValue(ExecutionContext *exe_ctx); 112 const Scalar &GetScalar() const { return m_value; } in GetScalar() 114 Scalar &GetScalar() { return m_value; } in GetScalar() 149 Scalar m_value; [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/autodie/t/lib/ |
| D | Hints_pod_examples.pm | 19 # Scalar failures always return undef: 22 # Scalar failures return any false value [default behaviour]: 25 # Scalar failures always return zero explicitly: 29 # We never want these called in a scalar context 30 empty_list => { scalar => sub { 1 }, list => sub { !@_ } }, 57 scalar => sub { defined($_[0]) && $_[0] == 0 }, 64 # Unsuccessful re_fail() returns 'FAIL' or '_FAIL' in scalar context, 69 scalar => qr/^ _? FAIL $/xms, 80 scalar => sub { defined($_[0]) && $_[0] == 0 }, 91 scalar => sub { $_[0] < 0 }, [all …]
|