regen/embed.pl: Force F or f flags on ... fcns

This makes sure that a function with varargs arguments is marked as
format or non-format, so that a such a new function can't be added
without considering if it should be marked as 'f'.

1 files changed, 5 insertions, 1 deletions

diff --git a/regen/embed.pl b/regen/embed.pl
index bad39d7fa2..6387a53bb8 100755
--- a/regen/embed.pl
+++ b/regen/embed.pl
@@ -81,7 +81,7 @@ my ($embed, $core, $ext, $api) = setup_embed();
 	}
 
 	my ($flags,$retval,$plain_func,@args) = @$_;
-        if ($flags =~ / ( [^AabCDdEefGhiMmNnOoPpRrSsTUuWXx] ) /x) {
+        if ($flags =~ / ( [^AabCDdEefFGhiMmNnOoPpRrSsTUuWXx] ) /x) {
 	    die_at_end "flag $1 is not legal (for function $plain_func)";
 	}
 	my @nonnull;
@@ -231,6 +231,10 @@ my ($embed, $core, $ext, $api) = setup_embed();
 				    $prefix, $pat, $args;
 	    }
 	}
+	elsif ((grep { $_ eq '...' } @args) && $flags !~ /F/) {
+	    die_at_end "$plain_func: Function with '...' arguments must have"
+	             . " f or F flag";
+	}
 	if ( @attrs ) {
 	    $ret .= "\n";
 	    $ret .= join( "\n", map { "\t\t\t$_" } @attrs );