"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "make-errors.sh" between
s-nail-14.9.9.tar.xz and s-nail-14.9.10.tar.xz

About: S-nail is a mail processing system intended to provide the functionality of the POSIX mailx command and offers extensions for line editing, IDNA, MIME, S/MIME, SMTP and POP3 (and IMAP). It is usable as a mail batch language.

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

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)