Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created August 31, 2021 13:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/5aa8d642fb3eaa0db55c829679366c5c to your computer and use it in GitHub Desktop.
Save Whateverable/5aa8d642fb3eaa0db55c829679366c5c to your computer and use it in GitHub Desktop.
greppable6
File Code
ELIZABETH/Scalar-Util
…/Util.pm6 :11:
when Int { IntStr.new($_, b) }
ELIZABETH/Scalar-Util
…/Util.pm6 :12:
when Num { NumStr.new($_, b) }
ELIZABETH/Scalar-Util
…/Util.pm6 :13:
when Rat { RatStr.new($_, b) }
ELIZABETH/Scalar-Util
…/Util.pm6 :14:
when Complex { ComplexStr.new($_, b) }
JGOFF/Perl6-Parser
…/rosetta-b.t :455:
multi infix:<~> (ByteStr $x, ByteStr $y) { ByteStr.new(:bytes($x.bytes, $y.bytes)) }
JGOFF/Perl6-Parser
…/rosetta-b.t :458:
my ByteStr $b0 = ByteStr.new;
JGOFF/Perl6-Parser
…/rosetta-b.t :459:
my ByteStr $b1 = ByteStr.new(:bytes( 'foo'.ords, 0, 10, 'bar'.ords ));
KAIEPI/Net-LibIDN
…/TLD.pm6 :31:
$!name = Str.new;
KAIEPI/Net-LibIDN
…/TLD.pm6 :32:
$!version = Str.new;
TIMOTIMO/JSON-Fast
…/Fast.pm :107:
# Handle allomorphs like IntStr.new(0, '') properly.
TIMOTIMO/JSON-Fast
…/04-roundtrip.t :19:
'Int Allomorph' => [ IntStr.new(0, '') ] => [ 0 ],
TIMOTIMO/JSON-Fast
…/04-roundtrip.t :20:
'Rat Allomorph' => [ RatStr.new(0.0, '') ] => [0.0],
TIMOTIMO/JSON-Fast
…/04-roundtrip.t :21:
'Num Allomorph' => [ NumStr.new(0e0, '') ] => [0e0],
FCO/Injector
…/test.p6 :36:
.r.say; # RandStr.new(r => "ztjbpvqka") RandStr.new(r => "zsmqnrr") RandStr.new(r => "wmsq")
Kaiepi/p6-Net-LibIDN
…/TLD.pm6 :31:
$!name = Str.new;
Kaiepi/p6-Net-LibIDN
…/TLD.pm6 :32:
$!version = Str.new;
drforr/perl6-Perl6-Parser
…/rosetta-b.t :455:
multi infix:<~> (ByteStr $x, ByteStr $y) { ByteStr.new(:bytes($x.bytes, $y.bytes)) }
drforr/perl6-Perl6-Parser
…/rosetta-b.t :458:
my ByteStr $b0 = ByteStr.new;
drforr/perl6-Perl6-Parser
…/rosetta-b.t :459:
my ByteStr $b1 = ByteStr.new(:bytes( 'foo'.ords, 0, 10, 'bar'.ords ));
lucasbuchala/p6pairs
…/Duo.pm :61:
method IntStr (--> IntStr) { self ?? IntStr.new($!key, $!value) !! IntStr }
lucasbuchala/p6pairs
…/Duo.pm :62:
method NumStr (--> NumStr) { self ?? NumStr.new($!key, $!value) !! NumStr }
lucasbuchala/p6pairs
…/Duo.pm :63:
method RatStr (--> RatStr) { self ?? RatStr.new($!key, $!value) !! RatStr }
lucasbuchala/p6pairs
…/Duo.pm :64:
method ComplexStr(--> ComplexStr) { self ?? ComplexStr.new($!key, $!value) !! ComplexStr }
masak/007
…/Builtins.pm6 :15:
when Str { Val::Str.new(:value($_)) }
masak/007
…/Builtins.pm6 :241:
Val::Str.new(:value($expr.Str));
masak/007
…/Builtins.pm6 :326:
my &parameter = { Q::Parameter.new(:identifier(Q::Identifier.new(:name(Val::Str.new(:$^value))))) };
masak/007
…/OpScope.pm6 :90:
my $identifier = Q::Identifier.new(:name(Val::Str.new(:value($name))));
masak/007
…/Actions.pm6 :115:
:identifier(Q::Identifier.new(:name(Val::Str.new(:value("postfix:()"))))),
masak/007
…/Actions.pm6 :456:
:name(Val::Str.new(:value("prefix:$op"))),
masak/007
…/Actions.pm6 :472:
$value = Val::Str.new(:$value);
masak/007
…/Actions.pm6 :473:
make Q::Literal::Str.new(:$value);
masak/007
…/Actions.pm6 :528:
make Q::Regex::Str.new(:contents($<str>.ast.value));
masak/007
…/Actions.pm6 :567:
my $qtype = Val::Str.new(:value(~($<qtype> // "")));
masak/007
…/Actions.pm6 :739:
:name(Val::Str.new(:value("infix:$op"))),
masak/007
…/Actions.pm6 :764:
:name(Val::Str.new(:value("postfix:$op"))),
masak/007
…/Actions.pm6 :792:
make Q::Identifier.new(:name(Val::Str.new(:$value)));
masak/007
…/Syntax.pm6 :45:
:name(Val::Str.new(:value($symbol))),
masak/007
…/Q.pm6 :382:
?? Val::Str.new(:value(""))
masak/007
…/Q.pm6 :926:
?? Val::Exception.new(:message(Val::Str.new(:value("Died"))))
masak/007
…/Runtime.pm6 :8:
:name(Val::Str.new(:value("--RETURN-TO--"))),
masak/007
…/Runtime.pm6 :56:
Val::Str.new(:$value)
masak/007
…/Runtime.pm6 :83:
:name(Val::Str.new(:value($name))),
masak/007
…/Runtime.pm6 :216:
return Val::Str.new(:$value);
masak/007
…/Runtime.pm6 :243:
my &parameter = { Q::Parameter.new(:identifier(Q::Identifier.new(:name(Val::Str.new(:$^value))))) };
masak/007
…/Runtime.pm6 :303:
return Val::Str.new(:value($obj.value.chr));
masak/007
…/Runtime.pm6 :318:
return Val::Str.new(:value($obj.value.uc));
masak/007
…/Runtime.pm6 :323:
return Val::Str.new(:value($obj.value.lc));
masak/007
…/Runtime.pm6 :328:
return Val::Str.new(:value($obj.value.trim));
masak/007
…/Runtime.pm6 :376:
return Val::Str.new(:value($obj.elements.join($sep.value.Str)));
masak/007
…/Runtime.pm6 :386:
my @elements = (Val::Str.new(:value($_)) for $obj.value.split($sep.value));
masak/007
…/Runtime.pm6 :397:
return Val::Str.new(:value($obj.value.substr(
masak/007
…/Runtime.pm6 :414:
return Val::Str.new(:value($obj.value.substr(
masak/007
…/Runtime.pm6 :421:
return Val::Str.new(:value($obj.value.substr(
masak/007
…/Runtime.pm6 :432:
return Val::Str.new(:value($s.substr($pos.value, 1)));
masak/007
…/Runtime.pm6 :505:
return Val::Str.new(:value($obj.name));
masak/007
…/Runtime.pm6 :526:
Val::Str.new(:$^value)
masak/007
…/Runtime.pm6 :592:
return Val::Str.new(:value($obj.elements.join($sep.value.Str)));
masak/007
…/Val.pm6 :509:
!! Val::Str.new(value => .key).quoted-Str;
masak/007
…/Val.pm6 :636:
self.bless(:name(Val::Str.new(:value($name))), :&hook, :$parameterlist, :$statementlist);
nkh/P6-Data-Dump-Tree
…/but.pl :10:
my $i = IntStr.new(4, 'but more') but my_role ;
nkh/P6-Data-Dump-Tree
…/but.pl :13:
my $data = [1, IntStr.new(2, '2'), IntStr.new(3, 'three'),
nkh/P6-Data-Dump-Tree
…/but.pl :14:
IntStr.new(4, 'but more') but my_role,
nkh/P6-Data-Dump-Tree
…/but.pl :15:
IntStr.new(4, 'but more') but my_role.new(:something<more>),
nkh/P6-Data-Dump-Tree
…/but.pl :17:
IntStr.new(4, 'but more') but $my_role,
nkh/P6-Data-Dump-Tree
…/untyped_elements.pl :13:
my $i = IntStr.new(5, 'but more') but my_role ;
nkh/P6-Data-Dump-Tree
…/untyped_elements.pl :16:
my $d2 = [1, IntStr.new(2, '2'), IntStr.new(3, 'three'),
nkh/P6-Data-Dump-Tree
…/untyped_elements.pl :17:
IntStr.new(4, 'but more') but my_role,
nkh/P6-Data-Dump-Tree
…/06_role_attributes.t :21:
IntStr.new(42, 'fourty two'),
p6-pdf/PDF-p6
…/TextString.pm :30:
my \obj = nextwith(:$value, |c); # dispatch to Str.new
perl6/doc
…/numerics.pod6 :350:
say IntStr.new(42, "42").^name; # OUTPUT: «IntStr␤»
perl6/doc
…/numerics.pod6 :417:
my $al := IntStr.new: 42, "forty two";
perl6/doc
…/quoting.pod6 :272:
# OUTPUT: «(IntStr.new(42, "42"), RatStr.new(2.0, "4/2"), NumStr.new(1000000e0, "1e6"), ComplexStr.new(<1+1i>, "1+1i"), "abc")␤»
perl6/doc
…/quoting.pod6 :355:
my $a = 42; say « $a b c ».perl; # OUTPUT: «(IntStr.new(42, "42"), "b", "c")␤»
perl6/doc
…/quoting.pod6 :356:
my $a = 42; say << $a b c >>.perl; # OUTPUT: «(IntStr.new(42, "42"), "b", "c")␤»
perl6/doc
…/ComplexStr.pod6 :35:
my $f = ComplexStr.new(42+0i, "forty two (but complicated)");
perl6/doc
…/ComplexStr.pod6 :119:
my $f = ComplexStr.new(42+0i, "smaller");
perl6/doc
…/ComplexStr.pod6 :120:
my $g = ComplexStr.new(43+0i, "larger");
perl6/doc
…/IntStr.pod6 :34:
my $f = IntStr.new(42, "forty two");
perl6/doc
…/IntStr.pod6 :106:
my $f = IntStr.new(42, "smaller");
perl6/doc
…/IntStr.pod6 :107:
my $g = IntStr.new(43, "larger");
perl6/doc
…/Junction.pod6 :220:
<a 42 c>.all.perl.put; # OUTPUT: «all("a", IntStr.new(42, "42"), "c")␤»
perl6/doc
…/NumStr.pod6 :34:
my $f = NumStr.new(42.1e0, "forty two and a bit");
perl6/doc
…/NumStr.pod6 :106:
my $f = NumStr.new(42.1e0, "smaller");
perl6/doc
…/NumStr.pod6 :107:
my $g = NumStr.new(43.1e0, "larger");
perl6/doc
…/RatStr.pod6 :34:
my $f = RatStr.new(42.1, "forty two and a bit");
perl6/doc
…/RatStr.pod6 :115:
my $f = RatStr.new(42.1, "smaller");
perl6/doc
…/RatStr.pod6 :116:
my $g = RatStr.new(43.1, "larger");
tokuhirom/p6-Crust
…/Runner.pm6 :72:
%!options{$k} = IntStr.new($v.Int, $v.Str);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment