diff options
| -rw-r--r-- | loftix/fuzzing.scm | 57 |
1 files changed, 56 insertions, 1 deletions
diff --git a/loftix/fuzzing.scm b/loftix/fuzzing.scm index e67a910..0e953c1 100644 --- a/loftix/fuzzing.scm +++ b/loftix/fuzzing.scm @@ -15,7 +15,8 @@ #:use-module (guix gexp) #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages)) + #:use-module (guix packages) + #:use-module (guix utils)) (define-public afl-dyninst (package @@ -45,3 +46,57 @@ (description "Dyninst integration for AFL++") (home-page "https://trong.loang.net/~cnx/afl-dyninst") (license (list license:agpl3+ license:asl2.0)))) + +(define-public evocatio + (let ((commit "fc8f6dc5bbdf5f49cf1231e746a7944efa09dcc7") + (revision "0")) + (package + (inherit aflplusplus) + (name "evocatio") + (version (git-version "3.15a" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/HexHive/Evocatio") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "16kc2xa4dk9lq1sg7sl5489n7r3p8kc6hmfgy0gh7i1n6h269bry")))) + (arguments + `(#:make-flags + (list "-C" "bug-severity-AFLplusplus" "source-only" + (string-append "PREFIX=" (assoc-ref %outputs "out")) + (string-append "DOC_PATH=$(PREFIX)/share/doc/evocatio") + (string-append "CC=" ,(cc-for-target)) + "CFLAGS=-O2 -g -fcommon" + "NO_SPLICING=1") + #:modules ((ice-9 string-fun) + ,@%default-gnu-modules) + #:phases + (modify-phases %standard-phases + ;; For GCC plugins. + (add-after 'unpack 'patch-gcc-path + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "bug-severity-AFLplusplus/src/afl-cc.c" + (("alt_cc = \"gcc\";") + (format #f "alt_cc = \"~a\";" + (search-input-file inputs "bin/gcc"))) + (("alt_cxx = \"g\\+\\+\";") + (format #f "alt_cxx = \"~a\";" + (search-input-file inputs "bin/g++")))))) + (delete 'configure) + (add-after 'install 'install-scripts + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) + (for-each + (lambda (script) + (let ((file (string-append + bin "/evocatio-" + (string-replace-substring script "_" "-")))) + (copy-file (string-append "scripts/" script ".py") + file) + (chmod file #o755))) + '("calculate_severity_score" "gen_raw_data_for_cve"))))) + ;; Tests are run during 'install phase + (delete 'check))))))) |