Prompt for and set $exclusions_file in packinit

1 files changed, 14 insertions, 0 deletions

diff --git a/bin/packinit.SH b/bin/packinit.SH
index a3e8f25..58393da 100755
--- a/bin/packinit.SH
+++ b/bin/packinit.SH
@@ -191,6 +191,18 @@ EOM
 $shext = &myread('Additional file extensions to identify SH files?', $dflt);
 $shext = '' if $shext eq 'none';
 
+$dflt = 'none';
+print <<'EOM';
+
+If your package sources contains symbols that metaconfig will mistake for the
+names of symbols defined by its units, you can list them in an exclusions file.
+(See the documentation of "mconfig -X".) What file would you like metaconfig to
+consult for those symbols? Say "none" if you don't need to exclude any symbols.
+
+EOM
+$exclusions_file = &myread('File to consult for excluded symbols?', $dflt);
+$exclusions_file = '' if $exclusions_file eq 'none';
+
 $dflt = $copyright eq ' ' ? 'n' : 'y';
 print <<'EOM';
 
@@ -426,6 +438,8 @@ changercs=$changercs
 : File lookup extensions
 cext='$cext'
 shext='$shext'
+: File to consult for symbol exclusions
+exclusions_file='$exclusions_file'
 : Mailing list variables
 list_users='$list_users'
 list_name='$list_name'