blob: 341e2ce743b280ce71145e3ae431990c62d7809b (
about) (
plain)
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
|
(in-package #:nyxt-user)
(define-internal-page-command-global objdump (&key (file (uiop:native-namestring
(prompt1 :prompt "File to disassemble"
:input (uiop:native-namestring (uiop:getcwd))
:sources 'nyxt/mode/file-manager:file-source))))
(buffer (format nil "Objdump of ~a" file))
"Show disassembly of code sections and contents of data sections in FILE."
(spinneret:with-html-string
(let* ((disassembly
(uiop:run-program (list "objdump" "--demangle" "--debugging" "--disassemble"
"--line-numbers" "--source" "--visualize-jumps" "--wide" file)
:output '(:string :stripped t)))
(lines (member-if (lambda (elem) (uiop:string-prefix-p "Disassembly" elem))
(mapcar #'str:trim (str:split "
" disassembly :omit-nulls t))))
(sections (mapcar
(lambda (string)
(multiple-value-bind (start end starts ends)
(ppcre:scan "(\\d+)\\s*([^\\s]*).*" string)
(subseq string (elt starts 1) (elt ends 1))))
(remove-if-not
(lambda (str) (digit-char-p (elt str 0)))
(remove-if #'uiop:emptyp
(mapcar #'str:trim
(serapeum:lines
(uiop:run-program (list "objdump" "-h" file)
:output '(:string :stripped t))))))))
(code-sections (loop for (section code) on lines by #'cddr
collect (if (uiop:string-prefix-p "Disassembly of section " section)
(serapeum:slice section 23 -1)
section)))
(data-sections (set-difference sections code-sections :test #'string-equal)))
(loop for (section code) on lines by #'cddr
collect (:nsection
:id (prini-to-string (new-id))
:title (if (uiop:string-prefix-p "Disassembly of section " section)
(subseq section 23)
section)
(:pre code)))
(loop for data in data-sections
collect (:nsection
:id (prini-to-string (new-id))
:title data
(:pre (cadr (mapcar
#'str:trim
(str:split "
" (uiop:run-program (list "objdump" "--section" data "--full-contents" file)
:output '(:string :stripped t))
:omit-nulls t)))))))))
|
