Re: Generate GUC tables from .dat file

On 27.08.25 01:38, John Naylor wrote:
> Looks good overall. Some style suggestions:
> 
> + print $ofh qq[\t\t]
> +   . ($entry->{check_hook} || 'NULL') . qq[, ]
> +   . ($entry->{assign_hook} || 'NULL') . qq[, ]
> +   . ($entry->{show_hook} || 'NULL') . qq[\n];
> 
> The string construction in this script is rather verbose. I'd do something like:
> 
> printf $ofh "\t\t%s, %s, %s\n",
>    $entry->{check_hook} || 'NULL',
>    $entry->{assign_hook} || 'NULL',
>    $entry->{show_hook} || 'NULL';
> 
> + print $ofh "#ifdef " . $entry->{ifdef} . "\n" if $entry->{ifdef};
> 
> Likewise:
> 
> print $ofh "#ifdef $entry->{ifdef}\n" if $entry->{ifdef};
> 
> + print $ofh qq[\t\t\tgettext_noop("]
> +   . escape($entry->{long_desc}) . qq[")];
> 
> If the "escape" function was a "quote" function that also did its own
> escaping, there'd be less need for these literal quotes, and so maybe
> no need for the "qq[]"'s here.

Ok, good suggestions.  I addressed all those, and did another cleanup 
pass over the script.  (The formatting is from pgperltidy.)

> +  boot_val => '""',
> 
> +  boot_val => '"ISO, MDY"',
> 
> A "quote" function could also insert these for config_string GUCs.

The default values might not be string literals, so writing them out 
unquoted and having the script quoting them would not work in general. 
So I left this.  Maybe this is something to fine-tune in the future.