pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Release and Debug folders

Browse source
This commit is contained in:
Benson Chu 2023-07-28 09:39:37 -05:00
parent 49c70945cb
commit 2de061dbd2
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
config-min.org
View file

@ -111,15 +111,20 @@
(cons dir
(->>
(directory-files "/scratch/benson/tools4/cgt" t "[^.]")
(remove-if #'(lambda (dir) (not (file-directory-p dir))))))))
(remove-if #'(lambda (dir) (not (file-directory-p dir))))
(mapcar #'(lambda (x) (file-name-as-directory x)))))))
(-->
(not (equal '(16) dir))
(if it default-directory
(completing-read "Quick select directory?"
`(,(expand-file-name "lib/Target/Argo/"
(lls/get-llvm-build-dir))
(lls/conf-get 'build-release-dir))
,(expand-file-name "lib/Target/Argo/"
(lls/conf-get 'build-debug-dir))
,(expand-file-name "llvm/lib/Target/Argo/"
(lls/get-llvm-root-dir))
,(expand-file-name "llvm_cgt/argo/"
(lls/conf-aux-get 'tools-directory))
,@(dir-plus-subdirs
(expand-file-name "cgt/"
(lls/conf-aux-get 'tools-directory))))))

2
lisp/llvm-lib/llvm-shared.el
View file

@ -43,6 +43,8 @@
(defclass llvm-config ()
((root-dir :initarg :root-dir :type string)
(build-dirs :initarg :build-dirs :type list)
(build-release-dir :initarg :build-release-dir :type string)
(build-debug-dir :initarg :build-debug-dir :type string)
(target :initarg :target :type string)
(bin-dirs :initarg :bin-dirs :type list :initform nil)
(compile-command-fun :initarg :cc :type function :initform (lambda ()))