s/spew/spurt/g for compatibility with latest spec

sorear · Jun 24, 2012 · 95a1946 · 95a1946
1 parent f91bc64
commit 95a1946
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/docs/nam.pod b/docs/nam.pod
@@ -606,7 +606,7 @@ Adds the contents of a fixed list to the beginning of a variable list in order.
 
 =head3 slurp
 
-=head3 spew
+=head3 spurt
 
 =head3 treader_getc
 

diff --git a/examples/notepad.pl b/examples/notepad.pl
@@ -78,7 +78,7 @@ ($sender, $eventargs)
 
 sub Save($sender, $eventargs) #OK not used
 {
-    if defined $filename { spew $filename, $textbox.Text; $modified=False; setformtitle(); }
+    if defined $filename { spurt $filename, $textbox.Text; $modified=False; setformtitle(); }
     else                 { SaveAs($sender, $eventargs); }
 }
 
@@ -89,7 +89,7 @@ ($sender, $eventargs)
     $dialogSave.FilterIndex = 1;
     if ~ $dialogSave.ShowDialog eq 'OK' {
         $filename = $dialogSave.FileName;
-        spew $filename, $textbox.Text;
+        spurt $filename, $textbox.Text;
         $modified = False;
         setformtitle();
     }

diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -3551,7 +3551,7 @@ sub unbase(Int:D $base, Cool:D $str) is pure {
 # I/O stuff {{{
 sub slurp($path) is unsafe { Q:CgOp { (box Str (slurp (unbox str (@ {$path})))) } }
 
-sub spew($path,$text) is unsafe { Q:CgOp { (rnull (spew (unbox str (@ {$path.Str})) (unbox str (@ {$text.Str})))) } }
+sub spurt($path,$text) is unsafe { Q:CgOp { (rnull (spurt (unbox str (@ {$path.Str})) (unbox str (@ {$text.Str})))) } }
 
 sub dir($directory = '.', Mu :$test = none('.','..')) is unsafe {
     grep $test, Q:CgOp { (dir (obj_getstr {$directory})) };
@@ -3583,7 +3583,7 @@ my class IO {
     method IO() { self }
 
     method slurp() { slurp $.path }
-    method spew($text) { spew $.path, $text }
+    method spurt($text) { spurt $.path, $text }
 
     method combine(*@paths) {
         die "Sorry, paths do not form a monoid." unless @paths;

diff --git a/lib/CodeGen.cs b/lib/CodeGen.cs
@@ -3081,7 +3081,7 @@ class NamProcessor {
             thandlers["say"] = Methody(null, Tokens.Console_WriteLine);
             thandlers["print"] = Methody(null, Tokens.Console_Write);
             thandlers["slurp"] = Methody(null, typeof(File).GetMethod("ReadAllText", new Type[] { Tokens.String }));
-            thandlers["spew"] = Methody(null, typeof(File).GetMethod("WriteAllText", new Type[] { Tokens.String, Tokens.String }));
+            thandlers["spurt"] = Methody(null, typeof(File).GetMethod("WriteAllText", new Type[] { Tokens.String, Tokens.String }));
             thandlers["vvarlist_to_fvarlist"] = Methody(null, Tokens.VVarList.GetMethod("CopyAsArray"));
             thandlers["vvarlist_shift"] = Methody(null, Tokens.VVarList.GetMethod("Shift"));
             thandlers["vvarlist_pop"] = Methody(null, Tokens.VVarList.GetMethod("Pop"));

diff --git a/src/CgOp.pm6 b/src/CgOp.pm6
@@ -54,7 +54,7 @@ CgOp._register_ops: <
         rxincquant rxinit rxopenquant rxpushb rxpushcapture rxsetcapsfrom
         rxsetclass rxsetpos rxsetquant rxstripcaps say scopedlex setbox
         setfield setindex setslot set_status sig_slurp_capture sink slurp
-        span specificlex spew stab_privatemethod stab_what startgather
+        span specificlex spurt stab_privatemethod stab_what startgather
         start_iter statement status_get str strbuf_append strbuf_new strbuf_seal
         str_chr strcmp str_flip str_length str_substring str_tolower
         str_tonum str_toupper take ternary to_json to_jsync treader_getc