Changeset 5171

Timestamp:

07/04/05 00:39:16 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6965

Message:

* new trait, is builtin, for Prelude.pm which installs the symbol

into the global namespace.

Location:

src/perl6

Files:

• Prelude.pm (modified) (3 diffs)
• Prelude/PIR.pm (modified) (6 diffs)

src/perl6/Prelude.pm

@@ -21 +21 @@
     # on p6-l.
 
-    multi sub open (Str $filename, Str +$layer, Bool +$r, Bool +$w, Bool +$rw, Bool +$a) returns IO is primitive is unsafe is export {
+    multi sub open (Str $filename, Str +$layer, Bool +$r, Bool +$w, Bool +$rw, Bool +$a) returns IO is primitive is unsafe is builtin {
         die "fancy open modes not supported yet" if $a & any($r, $w, $rw);
         my $mode;
@@ -85 +85 @@
     # (maybe :lang<YAML> doesn't quite belong here?)
     multi sub eval (Str ?$code = $CALLER::_, Str +$lang = 'Perl6')
-            is primitive is safe is export {
+            is primitive is safe is builtin {
         given lc $lang {
             when 'perl6'   { Pugs::Internals::eval($code) };
@@ -118 +118 @@
     has Str $.params;   # FIXME: needs attention; don't use yet.
 
-    multi sub caller (Class ?$kind = Any, Int +$skip = 0, Str +$label) returns Control::Caller is primitive is export is safe {
+    multi sub caller (Class ?$kind = Any, Int +$skip = 0, Str +$label) returns Control::Caller is primitive is builtin is safe {
         my @caller = Pugs::Internals::caller($kind, $skip, $label);
 

src/perl6/Prelude/PIR.pm

@@ -3 +3 @@
 
 # our &prefix:<?> := &true doesn't work yet.
-sub prefix:<?> ($var) returns Bool is primitive { true $var }
+sub prefix:<?> ($var) returns Bool is builtin is primitive { true $var }
 
-sub chomp (Str $str) returns Str is primitive {
+sub chomp (Str $str) returns Str is builtin is primitive {
     # XXX return $str but newline("\n")
     if substr($str, -1, 1) eq "\n" {
@@ -14 +14 @@
 }
 
-sub chop (Str $str is rw) returns Str is primitive {
+sub chop (Str $str is rw) returns Str is builtin is primitive {
     if chars($str) == 0 {
         undef;
@@ -24 +24 @@
 }
 
-sub sleep (Num $seconds) returns Num is primitive {
+sub sleep (Num $seconds) returns Num is builtin is primitive {
     my $time = time;
     Perl6::Internals::sleep $seconds;
@@ -31 +31 @@
 }
 
-sub exit (Int ?$status = 0) is primitive {
+sub exit (Int ?$status = 0) is builtin is primitive {
     Perl6::Internals::exit $status;
 }
 
-sub Perl6::Internals::eval_parrot (Str $code) is primitive {
+sub Perl6::Internals::eval_parrot (Str $code) is builtin is primitive {
     my $sub = substr($code, 0, 1) eq "."
         ?? Perl6::Internals::compile_pir($code)
@@ -42 +42 @@
 }
 
-sub pi () returns Num is primitive {
+sub pi () returns Num is builtin is primitive {
     3.14159265358979323846264338327950288419716939937510;
 }
 
-sub lcfirst (Str $str) returns Str is primitive {
+sub lcfirst (Str $str) returns Str is builtin is primitive {
     lc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
 }
 
-sub ucfirst (Str $str) returns Str is primitive {
+sub ucfirst (Str $str) returns Str is builtin is primitive {
     uc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
 }
 
-sub shift (@a) is primitive {
+sub shift (@a) is builtin is primitive {
     my $top = +@a -1;
     return undef if $top < 0;
@@ -67 +67 @@
 
 # splice entirely untested.
-sub splice (@a, ?$offset=0, ?$length, *@list) is primitive {
+sub splice (@a, ?$offset=0, ?$length, *@list) is builtin is primitive {
     my $off = $offset;
     my $len = $length;