Commit 719e64af 719e64af991d1eff3874896caa80f2436b8f97da by Sergey Poznyakoff

Bugfixes

* libmu_sieve/sieve-lex.l: Allocate new ctx structure
(restore accidentally deleted file.
* libmailutils/locus/debug.c: Add missing copyleft.
* libmailutils/locus/genprloc.c: Likewise.
* libmailutils/locus/ident.c: Likewise.
* libmailutils/locus/linetrack.c: Likewise.
* libmailutils/locus/locus.c: Likewise.
* mu-aux/gencl: Likewise.
* mu-aux/gitinfo: Likewise.
* mu-aux/gylwrap: Likewise.
1 parent 82e2f8ee
1 /* GNU Mailutils -- a suite of utilities for electronic mail
2 Copyright (C) 2017 Free Software Foundation, Inc.
3
4 This library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 3 of the License, or (at your option) any later version.
8
9 This library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General
15 Public License along with this library. If not, see
16 <http://www.gnu.org/licenses/>. */
17
1 #include <stdlib.h> 18 #include <stdlib.h>
2 #include <stdarg.h> 19 #include <stdarg.h>
3 #include <mailutils/types.h> 20 #include <mailutils/types.h>
......
1 /* GNU Mailutils -- a suite of utilities for electronic mail
2 Copyright (C) 2017 Free Software Foundation, Inc.
3
4 This library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 3 of the License, or (at your option) any later version.
8
9 This library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General
15 Public License along with this library. If not, see
16 <http://www.gnu.org/licenses/>. */
17
1 #ifndef STREAM_TYPE 18 #ifndef STREAM_TYPE
2 # error "STREAM_TYPE not defined" 19 # error "STREAM_TYPE not defined"
3 #endif 20 #endif
......
1 /* GNU Mailutils -- a suite of utilities for electronic mail
2 Copyright (C) 2017 Free Software Foundation, Inc.
3
4 This library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 3 of the License, or (at your option) any later version.
8
9 This library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General
15 Public License along with this library. If not, see
16 <http://www.gnu.org/licenses/>. */
17
1 #include <stdlib.h> 18 #include <stdlib.h>
2 #include <mailutils/types.h> 19 #include <mailutils/types.h>
3 #include <mailutils/assoc.h> 20 #include <mailutils/assoc.h>
......
1 /* GNU Mailutils -- a suite of utilities for electronic mail
2 Copyright (C) 2017 Free Software Foundation, Inc.
3
4 This library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 3 of the License, or (at your option) any later version.
8
9 This library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General
15 Public License along with this library. If not, see
16 <http://www.gnu.org/licenses/>. */
17
1 #include <stdlib.h> 18 #include <stdlib.h>
2 #include <errno.h> 19 #include <errno.h>
3 #include <mailutils/types.h> 20 #include <mailutils/types.h>
......
1 /* GNU Mailutils -- a suite of utilities for electronic mail
2 Copyright (C) 2017 Free Software Foundation, Inc.
3
4 This library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 3 of the License, or (at your option) any later version.
8
9 This library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General
15 Public License along with this library. If not, see
16 <http://www.gnu.org/licenses/>. */
17
1 #include <stdlib.h> 18 #include <stdlib.h>
2 #include <errno.h> 19 #include <errno.h>
3 #include <mailutils/types.h> 20 #include <mailutils/types.h>
......
...@@ -188,6 +188,7 @@ push_source (const char *name) ...@@ -188,6 +188,7 @@ push_source (const char *name)
188 /* Push current context */ 188 /* Push current context */
189 if (trk) 189 if (trk)
190 { 190 {
191 ctx = mu_sieve_malloc (mu_sieve_machine, sizeof (*ctx));
191 ctx->trk = trk; 192 ctx->trk = trk;
192 mu_locus_range_copy (&ctx->incl_range, &yylloc); 193 mu_locus_range_copy (&ctx->incl_range, &yylloc);
193 ctx->i_node = sieve_source_inode; 194 ctx->i_node = sieve_source_inode;
......
...@@ -2,6 +2,22 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"' ...@@ -2,6 +2,22 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"'
2 & eval 'exec perl -wS "$0" $argv:q' 2 & eval 'exec perl -wS "$0" $argv:q'
3 if 0; 3 if 0;
4 4
5 # This file is part of GNU Mailutils.
6 # Copyright (C) 2017 Free Software Foundation, Inc.
7 #
8 # GNU Mailutils is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU General Public License as
10 # published by the Free Software Foundation; either version 3, or (at
11 # your option) any later version.
12 #
13 # GNU Mailutils is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 # General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
20
5 use strict; 21 use strict;
6 use POSIX qw(strftime); 22 use POSIX qw(strftime);
7 use Getopt::Long qw(:config gnu_getopt no_ignore_case); 23 use Getopt::Long qw(:config gnu_getopt no_ignore_case);
...@@ -589,3 +605,7 @@ EOT ...@@ -589,3 +605,7 @@ EOT
589 $fd = select($fd); 605 $fd = select($fd);
590 close $fd; 606 close $fd;
591 } 607 }
608
609 # Local Variables:
610 # mode: perl
611 # End:
......
...@@ -522,3 +522,6 @@ if (ref($format) eq 'CODE') { ...@@ -522,3 +522,6 @@ if (ref($format) eq 'CODE') {
522 print eval_format($format); 522 print eval_format($format);
523 } 523 }
524 524
525 # Local Variables:
526 # mode: perl
527 # End:
......
...@@ -2,6 +2,22 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"' ...@@ -2,6 +2,22 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"'
2 & eval 'exec perl -wS "$0" $argv:q' 2 & eval 'exec perl -wS "$0" $argv:q'
3 if 0; 3 if 0;
4 4
5 # This file is part of GNU Mailutils.
6 # Copyright (C) 2017 Free Software Foundation, Inc.
7 #
8 # GNU Mailutils is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU General Public License as
10 # published by the Free Software Foundation; either version 3, or (at
11 # your option) any later version.
12 #
13 # GNU Mailutils is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 # General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
20
5 use strict; 21 use strict;
6 use warnings; 22 use warnings;
7 use Getopt::Long qw(:config gnu_getopt no_ignore_case require_order auto_version); 23 use Getopt::Long qw(:config gnu_getopt no_ignore_case require_order auto_version);
...@@ -372,5 +388,8 @@ while (my $from = shift @output) { ...@@ -372,5 +388,8 @@ while (my $from = shift @output) {
372 388
373 exit 0; 389 exit 0;
374 390
391 # Local Variables:
392 # mode: perl
393 # End:
375 394
376 395
......