fileset

commit 82814fd9b6a3ef77a366325d7376078cd1af8af6
parent c8de49a556ac86bce18b010b6a1c40ae2c90264b
Author: Jan Pobrislo <ccx@webprojekty.cz>
Date:   Fri, 15 Jan 2021 17:56:03 +0100

Make flags= optional, alias for creating plaintext files.

Diffstat:
M
zsh-functions/confz_fileset_init
 | 
26
+++++++++++++++++++-------

1 file changed, 19 insertions(+), 7 deletions(-)
diff --git a/zsh-functions/confz_fileset_init b/zsh-functions/confz_fileset_init
@@ -133,7 +133,8 @@ confz_fs_type_or_missing_do() {
 
 
 confz_fs_l_check() {
-	checkvars filename flags destination
+	checkvars filename destination
+	defvar flags ''
 
 	if [[ $vars[flags] == *p* ]]; then
 		require fs_p :filename
@@ -159,7 +160,8 @@ confz_fs_l_do() {
 
 
 confz_fs_device_check() {
-	checkvars filename flags device_type major minor
+	checkvars filename device_type major minor
+	defvar flags ''
 
 	if [[ $vars[flags] == *p* ]]; then
 		require fs_p :filename
@@ -190,7 +192,8 @@ confz_fs_device_do() {
 
 
 confz_fs_pipe_check() {
-	checkvars filename flags
+	checkvars filename
+	defvar flags ''
 
 	if [[ $vars[flags] == *p* ]]; then
 		require fs_p :filename
@@ -204,7 +207,8 @@ confz_fs_pipe_check() {
 
 
 confz_fs_r_check() {
-	checkvars filename flags
+	checkvars filename
+	defvar flags ''
 	do_command=( confz_fs_type_or_missing_do )
 	! fileset_stat $vars[filename]
 }
@@ -235,7 +239,8 @@ confz_fs_o_check() {
 
 
 confz_fs_f_check() {
-	checkvars filename flags
+	checkvars filename
+	defvar flags ''
 
 	if [[ $vars[flags] == *p* ]]; then
 		require fs_p :filename
@@ -253,7 +258,8 @@ confz_fs_f_do() {
 
 
 confz_fs_d_check() {
-	checkvars filename flags
+	checkvars filename
+	defvar flags ''
 
 	require fs_type_or_missing :filename :flags filetype=d
 
@@ -268,7 +274,8 @@ confz_fs_d_check() {
 
 
 confz_fs_c_check() {
-	checkvars filename flags content_call
+	checkvars filename content_call
+	defvar flags ''
 	require fs_f :filename :flags
 	"${(Q@)${(z)vars[content_call]}}" | cmp -s - $vars[filename]
 }
@@ -276,3 +283,8 @@ confz_fs_c_check() {
 confz_fs_c_do() {
 	"${(Q@)${(z)vars[content_call]}}" > $vars[filename]
 }
+
+confz_fs_contentnl_check() {
+	checkvars filename content
+	require fs_c :filename :flags content_call="printf '%s\n' "${(q)vars[content]}
+}