From af29e1b7fa679c5e81d92e94f47b01391b44eb7b Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Fri, 8 Jul 2022 22:13:11 +0300 Subject: [PATCH] Add defines for base and work directories --- utest.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/utest.scm b/utest.scm index 5e1ccf8..9ce51a3 100755 --- a/utest.scm +++ b/utest.scm @@ -564,6 +564,11 @@ (let ((sources (append (map (lambda (x) (path->absolute x base-path)) (arg-to-list sources)) (list timeout-module dump-module))) + + (defines (append defines + `((UTEST_BASE_DIR ,(format "'\"~a\"'" base-path)) + (UTEST_WORK_DIR ,(format "'\"~a\"'" work-path))))) + (includes (map (lambda (x) (path->absolute x base-path)) (arg-to-list includes))) (modpaths (map (lambda (x) (path->absolute x base-path)) (arg-to-list modpaths))) (vpipaths (map (lambda (x) (path->absolute x base-path)) (arg-to-list vpipaths)))