refactor: Replace slurp and spit with read and write

Author: ingydotnet

blog/2024-04-16.md

@@ -376,7 +376,7 @@ https://sched.co/1aBPY):
 --- !data
 
 - &data !
-  yaml/load: slurp('data.yaml')
+  yaml/load: read('data.yaml')
 
 - &map1
   key: value

doc/cheat.md

@@ -103,7 +103,7 @@ greet 'Bob':
 ### Chain calls
 
 ```
-say: slurp("/usr/share/dict/words")
+say: read("/usr/share/dict/words")
      .lines():shuffle.take(3).join(".")
 # => specialty.mutation's.Kisangani
 ```

doc/core.mdys

@@ -247,7 +247,7 @@ YS Std:
 ```mdys:quick-ref
 print printf println pr prn
 print-str println-str pr-str prn-str
-newline flush slurp spit
+newline flush read write
 with-out-str with-open with-in-str
 ```
 

sample/benchmark-yaml

@@ -126,6 +126,6 @@ defn test-ys(yaml):
 
 # Test YS loading with Java's SnakeYAML Engine:
 defn test-ys-yaml(yaml):
-  test yaml: "ys -e 'yaml/load: slurp(IN)'"
+  test yaml: "ys -e 'yaml/load: read(IN)'"
 
 # vim: lisp ft=yaml sw=2:

util/brew-update

@@ -17,7 +17,7 @@ defn update-brew(version):
     when res.exit:N.?:
       die: "git clone of '$brew-url' failed\n$(res.err)"
 
-  text =: slurp('homebrew-yamlscript/template/ys.rb')
+  text =: read('homebrew-yamlscript/template/ys.rb')
           .replace('VERSION' version)
   text =:
     reduce-kv _ text releases:
@@ -26,17 +26,17 @@ defn update-brew(version):
         text: .replace(key sha256)
 
   say: "Updating homebrew-yamlscript/ys.rb"
-  spit 'homebrew-yamlscript/ys.rb':
+  write 'homebrew-yamlscript/ys.rb':
     text.replace('CLASS' 'Ys')
 
   vrsn =: version.replace('.')
   say: "Updating homebrew-yamlscript/ys@version.rb"
-  spit "homebrew-yamlscript/ys@$version.rb":
+  write "homebrew-yamlscript/ys@$version.rb":
     text.replace('CLASS' "YsAT$vrsn")
 
   say: "Updating homebrew-yamlscript/ReadMe.md"
-  spit "homebrew-yamlscript/ReadMe.md":
-    slurp("homebrew-yamlscript/template/ReadMe.md")
+  write "homebrew-yamlscript/ReadMe.md":
+    read("homebrew-yamlscript/template/ReadMe.md")
       .replace('VERSION' version)
 
   status =: sh('git -C homebrew-yamlscript status --short --ignored').out

util/copy-md

@@ -3,7 +3,7 @@
 DNE =: "<!-- DO NOT EDIT — THIS FILE WAS GENERATED -->\n\n"
 
 defn main(input-file):
-  print: input-file:slurp
+  print: input-file:read
     .replace(
       /^(---\n(?s:.*?)\n---\n)\n*/
       "$1\n$DNE")

util/mdys

@@ -34,7 +34,7 @@ defn process(input-file):
 
 fenced-re =: /(?sm)(?:^```mdys:\S+\n.*?\n```\n)/
 defn load-mdys(file):
-  text =: file:fs-abs:slurp
+  text =: file:fs-abs:read
   texts =: text.split(fenced-re)
   fenced =: text.re-seq(fenced-re) || []
   fenced =: fenced:V.conj('')

util/release-yamlscript

@@ -95,14 +95,14 @@ defn step-3(ctx):
     changes =:
       make-changes-entry: ctx
 
-    spit 'release-changes.txt': changes
+    write 'release-changes.txt': changes
 
     prompt: "Press Enter to edit the 'Changes' file."
     editor =: ENV.EDITOR || 'vi'
     run: "$editor release-changes.txt"
     prompt: 'Press Enter to continue or Ctrl-C to abort.'
 
-    validate-yaml: slurp('release-changes.txt')
+    validate-yaml: read('release-changes.txt')
 
   when verbose:
     # Show git changes since last release:
@@ -120,19 +120,19 @@ defn step-4(ctx):
 
   # Update Changes if tests pass:
   when-not dryrun:
-    changes =: slurp('release-changes.txt')
+    changes =: read('release-changes.txt')
 
     file-prepend 'Changes': |
       - version: $(ctx.new)
         date:    $(ctx.date-time)
         changes:
       $(changes:str/trimr)
 
-    validate-yaml: slurp('Changes')
+    validate-yaml: read('Changes')
 
     changes =: changes.replace(/(?m)^  -/ '*')
 
-    spit 'release-changes.txt': changes
+    write 'release-changes.txt': changes
 
 
 #------------------------------------------------------------------------------
@@ -274,8 +274,8 @@ defn prompt(msg):
   trim: read-line()
 
 defn file-prepend(file text):
-  spit file:
-    str: text slurp(file)
+  write file:
+    str: text read(file)
 
 defn make-changes-entry(ctx):
   lines =:

util/version-bump

@@ -13,7 +13,7 @@ defn main():
       regx =: qr(regx)
       each f file:
         f =: "$ROOT/$f"
-        text =: f:slurp
+        text =: f:read
         m =: re-matcher(regx text)
         if re-find(m):
           do:
@@ -22,7 +22,7 @@ defn main():
               if all:
                 str/replace
                 str/replace-first
-            spit f:
+            write f:
               replace:
                 text regx
                 str/re-quote-replacement("$m1$vers$m2")

ys/test/cli-usage.t

@@ -189,19 +189,19 @@ test::
 - cmnd:: "ys -Y '.0.name' $DIR/animals.json"
   want: Meowsy
 - cmnd: ys -Y '.0.name'
-  stdi:: slurp("$DIR/animals.json")
+  stdi:: read("$DIR/animals.json")
   want: Meowsy
 - cmnd: ys -Y '.0.name' -
-  stdi:: slurp("$DIR/animals.json")
+  stdi:: read("$DIR/animals.json")
   want: Meowsy
 - cmnd: ys -Y '.0.name' -
-  stdi:: slurp("$DIR/animals.json")
+  stdi:: read("$DIR/animals.json")
   want: Meowsy
 - cmnd: ys -Ye '.0.name' -
-  stdi:: slurp("$DIR/animals.json")
+  stdi:: read("$DIR/animals.json")
   want: Meowsy
 - cmnd: ys '.0' -
-  stdi:: slurp("$DIR/animals.json")
+  stdi:: read("$DIR/animals.json")
   want: |
     name: Meowsy
     species: cat
@@ -213,7 +213,7 @@ test::
       - ham
       - zucchini
 - cmnd: ys -Y
-  stdi:: slurp("$DIR/animals.json")
+  stdi:: read("$DIR/animals.json")
   have: |
     - name: Meowsy
       species: cat