lkml.org 
[lkml]   [2001]   [Nov]   [1]   [last100]   RSS Feed
Views: [wrap][no wrap]   [headers]  [forward] 
 
Messages in this thread
/
SubjectRe: kbuild-2.5
Date
From

> David Howells <dhowells@redhat.com> wrote:
> >Will kbuild get Makefiles in each subdirectory that allow
> >it to build just the things in that subdirectory tree?
>
> Documentation/kbuild/kbuild-2.5.txt, KBUILD TARGETS.

Okay... for users of emacs, here's an elisp function that looks to see if it's
in a subdirectory of a kernel tree (and if so whether it's kbuild or
traditional), and if so invents an appropriate command line for compiling just
in that subdir:-) Otherwise it just falls back to the usual compile function.

This can be put in a .emacs file, and can bound to a key:

(global-set-key [f5] 'kernel-compile)

David


(defun kernel-compile ()
"Attempt to compile the current directory as if it's part of a kernel tree,
otherwise default to normal compile."
(interactive)
(let ((buffile (buffer-file-name))
(bufbits)
(curdir)
(topdir)
(subdir)
(slasher)
(cmdline)
(pos))
(if (not buffile)
;; no buffer file name
(progn
(setq cmdline (read-from-minibuffer "Compile command: "
compile-command nil nil
'(compile-history . 1)))
(compile cmdline)
)
;; got a buffer filename, split into directory name chunks
(progn
(setq bufbits (split-string (buffer-file-name) "/"))

;; create a function to interpose slash characters between all the
;; elements of a string list, but not to add leading of trailing
;; slashes
(setq slasher
(lambda (lst slasher)
(if (not (cdr lst))
lst
(append (list (concat (car lst) "/"))
(apply slasher (list (cdr lst) slasher))
))))

;; iteratively work up the directory tree from the current directory
;; looking for various marker files
(setq topdir nil)
(setq pos (length bufbits))
(while (and (> pos 1) (not topdir))
(setq pos (- pos 1))
(setq curdir (subseq bufbits 0 pos))
(setq curdir (apply slasher (list curdir slasher)))
(setq curdir (eval (append '(concat) (list "/") curdir)))
(if (and
(file-readable-p (concat curdir "/COPYING"))
(file-readable-p (concat curdir "/CREDITS"))
(file-readable-p (concat curdir "/README"))
(file-readable-p (concat curdir "/MAINTAINERS"))
(file-readable-p (concat curdir "/Makefile"))
(file-readable-p (concat curdir "/kernel/sched.c"))
)
(setq topdir curdir)
)
)

(if topdir
;; deal with the markers being found
(progn
(if (not (file-symlink-p (concat curdir "/include/asm")))
(error "The %s/include/asm symlink appears to be missing"
topdir))

(setq subdir (subseq bufbits pos(- (length bufbits) 1)))
(setq subdir (apply slasher (list subdir slasher)))
(setq subdir (eval (append '(concat) subdir)))

;; determine whether using kbuild or not
(if (file-readable-p (concat curdir "/scripts/shadow.pl"))
;; kbuild
(setq cmdline (concat "make -C " topdir " " subdir))
;; traditional
(setq cmdline (concat "make -C " topdir " SUBDIRS=" subdir))
)
(setq cmdline (read-from-minibuffer "Kernel compile: "
cmdline nil nil
'(compile-history . 1)))
(compile cmdline)
)

;; deal with the markers not being found
(setq cmdline (read-from-minibuffer "Compile command: "
compile-command nil nil
'(compile-history . 1)))
(compile cmdline)
)

))
)
)
-
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@vger.kernel.org
More majordomo info at http://vger.kernel.org/majordomo-info.html
Please read the FAQ at http://www.tux.org/lkml/

\
 
 \ /
  Last update: 2005-03-22 13:12    [W:0.044 / U:3.492 seconds]
©2003-2020 Jasper Spaans|hosted at Digital Ocean and TransIP|Read the blog|Advertise on this site