"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

---