1
/* -*- coding: utf-8; lexical-binding: t -*- */
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)))))); -*- */
3
3
* Mandos password agent - Simple password agent to run Mandos client
5
* Copyright © 2019-2022 Teddy Hogeborn
6
* Copyright © 2019-2022 Björn Påhlsson
5
* Copyright © 2019-2021 Teddy Hogeborn
6
* Copyright © 2019-2021 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"
1106
1101
const ssize_t read_length = read(fd, ievent, ievent_size);
1107
#if defined(__GNUC__) and __GNUC__ >= 7
1108
#pragma GCC diagnostic pop
1110
1102
if(read_length == 0){ /* EOF */
1111
1103
error(0, 0, "Got EOF from inotify fd for directory %s", filename);
1112
1104
*quit_now = true;
4190
4182
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4191
4183
const size_t ievent_size = (sizeof(struct inotify_event)
4192
4184
+ 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"
4198
4185
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4199
4186
==, ievent_size);
4200
#if defined(__GNUC__) and __GNUC__ >= 11
4201
#pragma GCC diagnostic pop
4203
4187
g_assert_cmpint(close(pipefds[1]), ==, 0);
4205
4189
bool quit_now = false;
4293
4277
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4294
4278
const size_t ievent_size = (sizeof(struct inotify_event)
4295
4279
+ 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"
4301
4280
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4302
4281
==, ievent_size);
4303
#if defined(__GNUC__) and __GNUC__ >= 11
4304
#pragma GCC diagnostic pop
4306
4282
g_assert_cmpint(close(pipefds[1]), ==, 0);
4308
4284
bool quit_now = false;
4398
4374
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4399
4375
const size_t ievent_size = (sizeof(struct inotify_event)
4400
4376
+ 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"
4406
4377
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4407
4378
==, ievent_size);
4408
#if defined(__GNUC__) and __GNUC__ >= 11
4409
#pragma GCC diagnostic pop
4411
4379
g_assert_cmpint(close(pipefds[1]), ==, 0);
4413
4381
bool quit_now = false;
4491
4459
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4492
4460
const size_t ievent_size = (sizeof(struct inotify_event)
4493
4461
+ 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"
4499
4462
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4500
4463
==, ievent_size);
4501
#if defined(__GNUC__) and __GNUC__ >= 11
4502
#pragma GCC diagnostic pop
4504
4464
g_assert_cmpint(close(pipefds[1]), ==, 0);
4506
4466
bool quit_now = false;
4583
4543
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4584
4544
const size_t ievent_size = (sizeof(struct inotify_event)
4585
4545
+ 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"
4591
4546
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4592
4547
==, ievent_size);
4593
#if defined(__GNUC__) and __GNUC__ >= 11
4594
#pragma GCC diagnostic pop
4596
4548
g_assert_cmpint(close(pipefds[1]), ==, 0);
4598
4550
bool quit_now = false;
4667
4619
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4668
4620
const size_t ievent_size = (sizeof(struct inotify_event)
4669
4621
+ 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"
4675
4622
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4676
4623
==, ievent_size);
4677
#if defined(__GNUC__) and __GNUC__ >= 11
4678
#pragma GCC diagnostic pop
4680
4624
g_assert_cmpint(close(pipefds[1]), ==, 0);
4682
4626
bool quit_now = false;
4754
4698
memcpy(ievent->name, dummy_file_name, sizeof(dummy_file_name));
4755
4699
const size_t ievent_size = (sizeof(struct inotify_event)
4756
4700
+ 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"
4762
4701
g_assert_cmpint(write(pipefds[1], (char *)ievent, ievent_size),
4763
4702
==, ievent_size);
4764
#if defined(__GNUC__) and __GNUC__ >= 11
4765
#pragma GCC diagnostic pop
4767
4703
g_assert_cmpint(close(pipefds[1]), ==, 0);
4769
4705
bool quit_now = false;
8259
8193
g_option_context_free(context);
8260
8194
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)