make-errors.sh (s-nail-14.9.9.tar.xz) | : | make-errors.sh (s-nail-14.9.10.tar.xz) | ||
---|---|---|---|---|
skipping to change at line 498 | skipping to change at line 498 | |||
my $l = length $k; | my $l = length $k; | |||
my $a = join '\',\'', split(//, $k); | my $a = join '\',\'', split(//, $k); | |||
my (@fa); | my (@fa); | |||
print F "${S}/* $i. [$alen]+$l $k */\n" if $ENV{VERB}; | print F "${S}/* $i. [$alen]+$l $k */\n" if $ENV{VERB}; | |||
print F "${S}'$a','\\0',\n"; | print F "${S}'$a','\\0',\n"; | |||
++$i; | ++$i; | |||
$alen += $l + 1 | $alen += $l + 1 | |||
} | } | |||
print F '};', "\n\n"; | print F '};', "\n\n"; | |||
print F '#ifdef HAVE_DOCSTRINGS', "\n"; | ||||
print F '#undef a_X', "\n", '#define a_X(X)', "\n"; | print F '#undef a_X', "\n", '#define a_X(X)', "\n"; | |||
print F 'static char const a_aux_err_docs[] = {', "\n"; | print F 'static char const a_aux_err_docs[] = {', "\n"; | |||
($i, $alen) = (0, 0); | ($i, $alen) = (0, 0); | |||
foreach my $e (@ENTS){ | foreach my $e (@ENTS){ | |||
$e->{docoff} = $alen; | $e->{docoff} = $alen; | |||
my $k = $e->{doc}; | my $k = $e->{doc}; | |||
my $l = length $k; | my $l = length $k; | |||
my $a = join '\',\'', split(//, $k); | my $a = join '\',\'', split(//, $k); | |||
my (@fa); | my (@fa); | |||
print F "${S}/* $i. [$alen]+$l $e->{name} */ ", | print F "${S}/* $i. [$alen]+$l $e->{name} */ ", | |||
"a_X(N_(\"$e->{doc}\"))\n" if $ENV{VERB}; | "a_X(N_(\"$e->{doc}\"))\n" if $ENV{VERB}; | |||
print F "${S}'$a','\\0',\n"; | print F "${S}'$a','\\0',\n"; | |||
++$i; | ++$i; | |||
$alen += $l + 1 | $alen += $l + 1 | |||
} | } | |||
print F '};', "\n", '#undef a_X', "\n\n"; | print F '};', "\n", '#undef a_X', "\n#endif /* HAVE_DOCSTRINGS */\n\n"; | |||
print F <<_EOT; | print F <<_EOT; | |||
#undef a_X | #undef a_X | |||
#ifndef __CREATE_ERRORS_SH | #ifndef __CREATE_ERRORS_SH | |||
# define a_X(X) X | # define a_X(X) X | |||
#else | #else | |||
# define a_X(X) 0 | # define a_X(X) 0 | |||
#endif | #endif | |||
static struct a_aux_err_map const a_aux_err_map[] = { | static struct a_aux_err_map const a_aux_err_map[] = { | |||
_EOT | _EOT | |||
End of changes. 2 change blocks. | ||||
1 lines changed or deleted | 2 lines changed or added |