1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
/*
* Live variable collector
* Copyright (C) 2021, 2023 Gregory James Duck
* Copyright (C) 2024 Nguyễn Gia Phong
*
* This file is part of taosc.
*
* Taosc is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* Taosc is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with taosc. If not, see <https://www.gnu.org/licenses/>.
*/
#include "stdlib.c"
FILE *fout = NULL;
void init(int argc, const char *const *argv, const char **envp)
{
environ = envp;
const char *const path = getenv("TAOSC_OUTPUT");
if (path != NULL)
fout = fopen(path, "w");
if (fout == NULL)
fout = stderr;
setvbuf(fout, NULL, _IOFBF, 0);
}
void log(const struct STATE *state)
{
static mutex_t mutex = MUTEX_INITIALIZER;
if (mutex_lock(&mutex) < 0)
return;
clearerr(fout);
fprintf(fout, "[begin]\n");
const int64_t *const env = (const int64_t *) state;
for (unsigned char i = 1; i < sizeof(*state) / sizeof(*env); ++i)
fprintf(fout, "%hhu %lld\n", i, env[i]);
fprintf(fout, "[end]\n");
fflush(fout);
fclose(fout); /* FIXME: reopen */
mutex_unlock(&mutex);
}
|
