From: Bruno Haible <bruno@clisp.org>
Date: Fri, 15 Oct 2004 15:40:45 +0000 (+0000)
Subject: Move duplicated code into function func_modules_to_filelist().
X-Git-Tag: cvs-readonly~3838
X-Git-Url: https://gitweb.git.savannah.gnu.org/gitweb/?a=commitdiff_plain;h=e4b3dbf6c97143033299d343172088f29468d451;p=gnulib.git

Move duplicated code into function func_modules_to_filelist().
---

diff --git a/ChangeLog b/ChangeLog
index cc43fe04b1..a925976f0e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,10 +2,13 @@
 
 	* gnulib-tool: Untabify. Initialize supplied_libname.
 	(func_usage): More homogenous output.
-	(func_modules_transitive_closure): New function.
+	(func_modules_transitive_closure, func_modules_to_filelist): New
+	functions.
 	(func_import): New function, extracted from big case statement. Use
-	func_get_license, func_modules_transitive_closure.
-	(func_create_testdir): Use func_modules_transitive_closure.
+	func_get_license, func_modules_transitive_closure,
+	func_modules_to_filelist.
+	(func_create_testdir): Use func_modules_transitive_closure,
+	func_modules_to_filelist.
 
 2004-10-11  Bruno Haible  <bruno@clisp.org>
 
diff --git a/gnulib-tool b/gnulib-tool
index 842016faa1..a55cfdcad8 100755
--- a/gnulib-tool
+++ b/gnulib-tool
@@ -22,7 +22,7 @@
 
 progname=$0
 package=gnulib
-cvsdatestamp='$Date: 2004-10-15 15:37:43 $'
+cvsdatestamp='$Date: 2004-10-15 15:40:45 $'
 last_checkin_date=`echo "$cvsdatestamp" | sed -e 's,^\$[D]ate: ,,'`
 version=`echo "$last_checkin_date" | sed -e 's/ .*$//' -e 's,/,-,g'`
 
@@ -385,6 +385,23 @@ func_modules_transitive_closure ()
   done
 }
 
+# func_modules_to_filelist
+# Input:
+# - modules         list of modules, including dependencies
+# Output:
+# - files           list of files
+func_modules_to_filelist ()
+{
+  files=
+  for module in $modules; do
+    func_verify_module
+    if test -n "$module"; then
+      files="$files "`func_get_filelist $module`
+    fi
+  done
+  files=`for f in $files; do echo $f; done | sort | uniq`
+}
+
 # func_import modules
 # Uses also the variables
 # - destdir         target directory
@@ -415,14 +432,7 @@ func_import ()
   fi
 
   # Determine final file list.
-  files=
-  for module in $modules; do
-    func_verify_module
-    if test -n "$module"; then
-      files="$files "`func_get_filelist $module`
-    fi
-  done
-  files=`for f in $files; do echo $f; done | sort | uniq`
+  func_modules_to_filelist
   echo "File list:"
   echo "$files" | sed -e 's/^/  /'
 
@@ -591,14 +601,7 @@ func_create_testdir ()
   echo "$modules" | sed -e 's/^/  /'
 
   # Determine final file list.
-  files=
-  for module in $modules; do
-    func_verify_module
-    if test -n "$module"; then
-      files="$files "`func_get_filelist $module`
-    fi
-  done
-  files=`for f in $files; do echo $f; done | sort | uniq`
+  func_modules_to_filelist
   echo "File list:"
   echo "$files" | sed -e 's/^/  /'