1
/* -*- mode: c; coding: utf-8; after-save-hook: (lambda () (let* ((find-build-directory (lambda (try-directory &optional base-directory) (let ((base-directory (or base-directory try-directory))) (cond ((equal try-directory "/") base-directory) ((file-readable-p (concat (file-name-as-directory try-directory) "Makefile")) try-directory) ((funcall find-build-directory (directory-file-name (file-name-directory try-directory)) base-directory)))))) (build-directory (funcall find-build-directory (buffer-file-name))) (local-build-directory (if (fboundp 'file-local-name) (file-local-name build-directory) (or (file-remote-p build-directory 'localname) build-directory))) (command (file-relative-name (file-name-sans-extension (buffer-file-name)) build-directory))) (pcase (progn (if (get-buffer "*Test*") (kill-buffer "*Test*")) (process-file-shell-command (let ((qbdir (shell-quote-argument local-build-directory)) (qcmd (shell-quote-argument command))) (format "cd %s && CFLAGS=-Werror make --silent %s && %s --test --verbose" qbdir qcmd qcmd)) nil "*Test*")) (0 (let ((w (get-buffer-window "*Test*"))) (if w (delete-window w)))) (_ (with-current-buffer "*Test*" (compilation-mode) (cd-absolute build-directory)) (display-buffer "*Test*" '(display-buffer-in-side-window)))))); -*- */
1
/* -*- coding: utf-8; lexical-binding: t -*- */
3
3
* Mandos password agent - Simple password agent to run Mandos client
5
* Copyright © 2019-2020 Teddy Hogeborn
6
* Copyright © 2019-2020 Björn Påhlsson
5
* Copyright © 2019-2022 Teddy Hogeborn
6
* Copyright © 2019-2022 Björn Påhlsson
8
8
* This file is part of Mandos.
1098
1098
} ievent_buffer;
1099
1099
struct inotify_event *const ievent = &ievent_buffer.event;
1101
#if defined(__GNUC__) and __GNUC__ >= 7
1102
#pragma GCC diagnostic push
1103
/* ievent is pointing into a struct which is of sufficient size */
1104
#pragma GCC diagnostic ignored "-Wstringop-overflow"
1101
1106
const ssize_t read_length = read(fd, ievent, ievent_size);
1107
#if defined(__GNUC__) and __GNUC__ >= 7
1108
#pragma GCC diagnostic pop
1102
1110
if(read_length == 0){ /* EOF */
1103
1111
error(0, 0, "Got EOF from inotify fd for directory %s", filename);
1104
1112
*quit_now = true;
4182
4190
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4183
4191
const size_t ievent_size = (sizeof(struct inotify_event)
4184
4192
+ sizeof(dummy_file_name));
4193
#if defined(__GNUC__) and __GNUC__ >= 11
4194
#pragma GCC diagnostic push
4195
/* ievent is pointing into a struct which is of sufficient size */
4196
#pragma GCC diagnostic ignored "-Wstringop-overread"
4185
4198
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4186
4199
==, ievent_size);
4200
#if defined(__GNUC__) and __GNUC__ >= 11
4201
#pragma GCC diagnostic pop
4187
4203
g_assert_cmpint(close(pipefds[1]), ==, 0);
4189
4205
bool quit_now = false;
4277
4293
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4278
4294
const size_t ievent_size = (sizeof(struct inotify_event)
4279
4295
+ sizeof(dummy_file_name));
4296
#if defined(__GNUC__) and __GNUC__ >= 11
4297
#pragma GCC diagnostic push
4298
/* ievent is pointing into a struct which is of sufficient size */
4299
#pragma GCC diagnostic ignored "-Wstringop-overread"
4280
4301
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4281
4302
==, ievent_size);
4303
#if defined(__GNUC__) and __GNUC__ >= 11
4304
#pragma GCC diagnostic pop
4282
4306
g_assert_cmpint(close(pipefds[1]), ==, 0);
4284
4308
bool quit_now = false;
4374
4398
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4375
4399
const size_t ievent_size = (sizeof(struct inotify_event)
4376
4400
+ sizeof(dummy_file_name));
4401
#if defined(__GNUC__) and __GNUC__ >= 11
4402
#pragma GCC diagnostic push
4403
/* ievent is pointing into a struct which is of sufficient size */
4404
#pragma GCC diagnostic ignored "-Wstringop-overread"
4377
4406
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4378
4407
==, ievent_size);
4408
#if defined(__GNUC__) and __GNUC__ >= 11
4409
#pragma GCC diagnostic pop
4379
4411
g_assert_cmpint(close(pipefds[1]), ==, 0);
4381
4413
bool quit_now = false;
4459
4491
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4460
4492
const size_t ievent_size = (sizeof(struct inotify_event)
4461
4493
+ sizeof(dummy_file_name));
4494
#if defined(__GNUC__) and __GNUC__ >= 11
4495
#pragma GCC diagnostic push
4496
/* ievent is pointing into a struct which is of sufficient size */
4497
#pragma GCC diagnostic ignored "-Wstringop-overread"
4462
4499
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4463
4500
==, ievent_size);
4501
#if defined(__GNUC__) and __GNUC__ >= 11
4502
#pragma GCC diagnostic pop
4464
4504
g_assert_cmpint(close(pipefds[1]), ==, 0);
4466
4506
bool quit_now = false;
4543
4583
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4544
4584
const size_t ievent_size = (sizeof(struct inotify_event)
4545
4585
+ sizeof(dummy_file_name));
4586
#if defined(__GNUC__) and __GNUC__ >= 11
4587
#pragma GCC diagnostic push
4588
/* ievent is pointing into a struct which is of sufficient size */
4589
#pragma GCC diagnostic ignored "-Wstringop-overread"
4546
4591
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4547
4592
==, ievent_size);
4593
#if defined(__GNUC__) and __GNUC__ >= 11
4594
#pragma GCC diagnostic pop
4548
4596
g_assert_cmpint(close(pipefds[1]), ==, 0);
4550
4598
bool quit_now = false;
4619
4667
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4620
4668
const size_t ievent_size = (sizeof(struct inotify_event)
4621
4669
+ sizeof(dummy_file_name));
4670
#if defined(__GNUC__) and __GNUC__ >= 11
4671
#pragma GCC diagnostic push
4672
/* ievent is pointing into a struct which is of sufficient size */
4673
#pragma GCC diagnostic ignored "-Wstringop-overread"
4622
4675
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4623
4676
==, ievent_size);
4677
#if defined(__GNUC__) and __GNUC__ >= 11
4678
#pragma GCC diagnostic pop
4624
4680
g_assert_cmpint(close(pipefds[1]), ==, 0);
4626
4682
bool quit_now = false;
4698
4754
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4699
4755
const size_t ievent_size = (sizeof(struct inotify_event)
4700
4756
+ sizeof(dummy_file_name));
4757
#if defined(__GNUC__) and __GNUC__ >= 11
4758
#pragma GCC diagnostic push
4759
/* ievent is pointing into a struct which is of sufficient size */
4760
#pragma GCC diagnostic ignored "-Wstringop-overread"
4701
4762
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4702
4763
==, ievent_size);
4764
#if defined(__GNUC__) and __GNUC__ >= 11
4765
#pragma GCC diagnostic pop
4703
4767
g_assert_cmpint(close(pipefds[1]), ==, 0);
4705
4769
bool quit_now = false;
8193
8259
g_option_context_free(context);
8194
8260
return should_run_tests != FALSE;
8267
(if (not (funcall run-tests-in-test-buffer default-directory))
8268
(funcall show-test-buffer-in-test-window)
8269
(funcall remove-test-window)))
8270
run-tests-in-test-buffer:
8272
(with-current-buffer (get-buffer-create "*Test*")
8273
(setq buffer-read-only nil
8274
default-directory dir)
8277
(let ((process-result
8278
(let ((inhibit-read-only t))
8279
(process-file-shell-command
8280
(funcall get-command-line) nil "*Test*"))))
8281
(and (numberp process-result)
8282
(= process-result 0))))
8287
(funcall find-build-directory (buffer-file-name)))
8288
(local-build-directory
8289
(if (fboundp 'file-local-name)
8290
(file-local-name build-directory)
8291
(or (file-remote-p build-directory 'localname)
8294
(file-relative-name (file-name-sans-extension
8295
(buffer-file-name)) build-directory))
8296
(qbdir (shell-quote-argument local-build-directory))
8297
(qcmd (shell-quote-argument command)))
8298
(format (concat "cd %s && CFLAGS=-Werror make --silent %s"
8299
" && %s --test --verbose") qbdir qcmd qcmd)))
8300
find-build-directory:
8301
(lambda (try-directory &optional base-directory)
8302
(let ((base-directory (or base-directory try-directory)))
8303
(cond ((equal try-directory "/") base-directory)
8305
(concat (file-name-as-directory try-directory)
8306
"Makefile")) try-directory)
8307
((funcall find-build-directory
8308
(directory-file-name (file-name-directory
8311
show-test-buffer-in-test-window:
8313
(when (not (get-buffer-window-list "*Test*"))
8314
(setq next-error-last-buffer (get-buffer "*Test*"))
8315
(let* ((side (if (>= (window-width) 146) 'right 'bottom))
8316
(display-buffer-overriding-action
8317
`((display-buffer-in-side-window) (side . ,side)
8318
(window-height . fit-window-to-buffer)
8319
(window-width . fit-window-to-buffer))))
8320
(display-buffer "*Test*"))))
8323
(let ((test-window (get-buffer-window "*Test*")))
8324
(if test-window (delete-window test-window))))
8325
eval: (add-hook 'after-save-hook run-tests 90 t)