FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

kernel-mode function added to cplugin

This commit is contained in:
lxsameer 2011-02-22 16:03:07 +03:30
parent b3eb1630ca
commit e1d86c2b5e
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/plugins/cproject.el
View File

@ -94,7 +94,9 @@ binding for Kuso IDE C projects section."
(define-key global-map (kbd "\C-x n c") 'generic-c)
(define-key global-map [menu-bar file new-proj cproj cgeneric] '("Generic project (C)" . generic-c))
(log "C")
(define-key global-map (kbd "\C-x n k") 'generic-c)
(define-key global-map [menu-bar file new-proj cproj kernmod] '("Kernel module" . kernel-module))
)
@ -103,6 +105,7 @@ binding for Kuso IDE C projects section."
;; cover
(defun c-new-project () "Create a new C/C++ project"
(new-project)
(project/copying-license-copy)
)
@ -118,7 +121,7 @@ binding for Kuso IDE C projects section."
(defun generic-c () "Create a generic type C project"
(interactive)
(c-new-project)
(project/copying-license-copy)
(let (template-file-regexp license-data filelist cur template-data)
(setq template-file-regexp (concat TEMPLATESPATH "c/generic_c/*.tmpl"))
(setq filelist (file-expand-wildcards template-file-regexp))
@ -136,6 +139,27 @@ binding for Kuso IDE C projects section."
)
(defun kernel-module () "Create a linux kernel module project"
(interactive)
(c-new-project)
(let (template-file-regexp license-data filelist cur template-data)
(setq template-file-regexp (concat TEMPLATESPATH "c/kernel_module/*.tmpl"))
(setq filelist (file-expand-wildcards template-file-regexp))
(while filelist
(setq cur (pop filelist))
(setq template-data (project/render-template cur))
(setq template-data (replace-regexp-in-string "::unixname::" unix-project-name template-data))
(setq template-data (replace-regexp-in-string "::UNIXNAME::" unix-project-name template-data))
(project/write-dest-file cur template-data)
)
)
(cd project-path)
(find-file (concat unix-project-name ".c"))
(kuso-cplugin-mode)
)
(defun initial-keymap ()
"Set the key binding for C project."
(define-key kuso-cplugin-map (kbd "\C-c \C-c") 'compile)