Makes more sense being here

This commit is contained in:
Benson Chu 2024-10-25 20:11:09 -07:00
parent d431e5801d
commit a39db49f68
2 changed files with 5 additions and 6 deletions

View file

@ -146,17 +146,12 @@
(?o (ll/diff-on-optionset file action))
(_ (error "Invalid choice")))))
;; TODO: Very dirty
(defvar ll/act-on-file-output nil)
(make-variable-buffer-local 'll/act-on-file-output)
(defun ll/act-on-c-file (file)
(let* ((action (aml/read-action-map ll/c-file-action-map))
(output (ll/make-tmp-file
file
(cond
((eq action 'assemble)
".S")
((eq action 'assemble) ".S")
(t ".ll")))))
(if (eq action 'diff)
(ll/diff-c-on-two-compilations file action)

View file

@ -24,6 +24,10 @@
;;; Code:
;; TODO: Very dirty
(defvar ll/act-on-file-output nil)
(make-variable-buffer-local 'll/act-on-file-output)
(defun ll/make-tmp-file (file ext)
(let ((file-directory (file-name-directory file))
fname temporary-file-directory)