CVS commit: src/distrib/sets

[Roland Illig]

Module Name:    src
Committed By:   rillig
Date:           Mon Nov  2 20:14:02 UTC 2020

Modified Files:
        src/distrib/sets: fmt-list

Log Message:
when formatting a file list, exit on errors

This is needed to regenerate distrib/sets/lists/tests/mi for adding
another test in usr.bin/make.


To generate a diff of this commit:
cvs rdiff -u -r1.2 -r1.3 src/distrib/sets/fmt-list

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.


Modified files:

Index: src/distrib/sets/fmt-list
diff -u src/distrib/sets/fmt-list:1.2 src/distrib/sets/fmt-list:1.3
--- src/distrib/sets/fmt-list:1.2	Tue Sep  8 19:11:30 2020
+++ src/distrib/sets/fmt-list	Mon Nov  2 20:14:01 2020
@@ -1,5 +1,5 @@
 #! /usr/bin/lua
--- $NetBSD: fmt-list,v 1.2 2020/09/08 19:11:30 rillig Exp $
+-- $NetBSD: fmt-list,v 1.3 2020/11/02 20:14:01 rillig Exp $
 
 --[[
 
@@ -411,7 +411,7 @@ local function format_list(fname, write_
     for _, err in ipairs(errors) do
       print(err)
     end
-    return
+    return false
   end
 
   normalize(entries)
@@ -419,18 +419,23 @@ local function format_list(fname, write_
   if write_back then
     write_list(fname, head, entries)
   end
+  return true
 end
 
 
 local function main(arg)
+  local seen_error = false
   local write_back = true
   for _, fname in ipairs(arg) do
     if fname == "-n" then
       write_back = false
     else
-      format_list(fname, write_back)
+      if not format_list(fname, write_back) then
+        seen_error = true
+      end
     end
   end
+  return not seen_error
 end
 
-main(arg)
+os.exit(main(arg))