1 #line 982 "../../src/builtin/snarf.m4"
2 /* -*- buffer-read-only: t -*- vi: set ro:
3 THIS FILE IS GENERATED AUTOMATICALLY. PLEASE DO NOT EDIT.
4 */
5 #line 982
6 #ifdef HAVE_CONFIG_H
7 #line 982
8 # include <config.h>
9 #line 982
10 #endif
11 #line 982
12 #include <sys/types.h>
13 #line 982
14
15 #line 982
16 #include "mailfromd.h"
17 #line 982
18 #include "prog.h"
19 #line 982
20 #include "builtin.h"
21 #line 982
22
23 #line 982
24
25 #line 1022 "../../src/builtin/snarf.m4"
26
27 /* End of snarf.m4 */
28 #line 1 "progress.bi"
29 /* This file is part of Mailfromd. -*- c -*-
30 Copyright (C) 2010-2021 Sergey Poznyakoff
31
32 This program is free software; you can redistribute it and/or modify
33 it under the terms of the GNU General Public License as published by
34 the Free Software Foundation; either version 3, or (at your option)
35 any later version.
36
37 This program is distributed in the hope that it will be useful,
38 but WITHOUT ANY WARRANTY; without even the implied warranty of
39 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
40 GNU General Public License for more details.
41
42 You should have received a copy of the GNU General Public License
43 along with this program. If not, see <http://www.gnu.org/licenses/>. */
44
45
46
47
48 void
49 #line 20
bi_progress(eval_environ_t env)50 bi_progress(eval_environ_t env)
51 #line 20
52
53 #line 20
54
55 #line 20 "progress.bi"
56 {
57 #line 20
58
59 #line 20
60
61 #line 20
62
63 #line 20
64
65 #line 20
66
67 #line 20
68
69 #line 20
70 adjust_stack(env, 0);
71 #line 20
72
73 #line 20
74
75 #line 20
76 if (builtin_module_trace(BUILTIN_IDX_progress))
77 #line 20
78 prog_trace(env, "progress");;
79 #line 20
80
81 {
82 struct mu_locus_range locus;
83
84 env_get_locus(env, &locus);
85
86 trace("%s%s:%u: %s",
87 mailfromd_msgid(env_get_context(env)),
88 locus.beg.mu_file, locus.beg.mu_line,
89 "PROGRESS");
90 gacopyz_progress(env_get_context(env));
91 }
92
93 #line 32
94 env_function_cleanup_flush(env, NULL);
95 #line 32
96 return;
97 #line 32
98 }
99
100 #line 982 "../../src/builtin/snarf.m4"
101
102 #line 982
103
104 #line 982
105
106 #line 982
107 void
108 #line 982
progress_init_builtin(void)109 progress_init_builtin(void)
110 #line 982
111 {
112 #line 982
113
114 #line 982
115 #line 20 "progress.bi"
116 va_builtin_install_ex("progress", bi_progress, STATMASK(smtp_state_eom), dtype_unspecified, 0, 0, 0|0, dtype_unspecified);
117
118 #line 982 "../../src/builtin/snarf.m4"
119
120 #line 982
121 }
122 #line 982 "../../src/builtin/snarf.m4"
123
124