X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=stdlib%2Fprelude.gl;h=32adf5c827346e5f330a5d9eba55f0f10724009f;hb=830b616204b3c08429440381349c86c8073ac161;hp=13ac3117ca74955f267393da0e496cf26c9bbd75;hpb=692f7e7a70572c5f4f7242ce721a674a75b34e06;p=goals.git

diff --git a/stdlib/prelude.gl b/stdlib/prelude.gl
index 13ac311..32adf5c 100644
--- a/stdlib/prelude.gl
+++ b/stdlib/prelude.gl
@@ -18,10 +18,10 @@
 
 # This file is included first and automatically in all Goalfiles
 # (unless you use --no-prelude).  It contains standard functions and
-# tactics.
+# predicates.
 
-# The only tactic that ‘make’ has.
-tactic *file (filename) = @{
+# The only predicate that ‘make’ has.
+predicate is-file (filename) = @{
     # Rebuild if the target file doesn't exist at all.
     test -f %filename || exit 99
 
@@ -31,9 +31,9 @@ tactic *file (filename) = @{
     done
 }
 
-# This is a simpler tactic than the above since it will
+# This is a simpler predicate than the above since it will
 # rebuild if the file is missing, but not if it is older.
-tactic *exists (filename) = @{
+predicate is-file-exists (filename) = @{
     test -f %filename || exit 99
 }
 
@@ -45,7 +45,7 @@ function error (msg) = @{
     exit 1
 }
 
-# Wrap list of strings in a call or tactic.
+# Wrap list of strings in a call or predicate.
 pure function wrap (wrapper, xs) = @{
     echo '['
     for x in %xs; do
@@ -106,6 +106,13 @@ pure function sort (xs) returning strings = @{
     for f in %xs; do echo "$f"; done | sort -u
 }
 
+# Split a string into a list.
+# https://superuser.com/a/1066541
+pure function split (s) returning strings = @{
+    s=%s
+    eval 'for f in '$s'; do echo "$f"; done'
+}
+
 # Substitute.
 pure function subst (from, to, text) returning string = @{
     # We need to replace any / characters in ‘to’ with escaped ones.