279 lines
8.3 KiB
EmacsLisp
279 lines
8.3 KiB
EmacsLisp
;;==============================================================================
|
|
;; C/C++
|
|
;;==============================================================================
|
|
;; Note: maybe this should be split in mode-c and mode-c++.
|
|
|
|
(defcustom cc-ldlibs "-lm -pthread"
|
|
"Custom linker flags for C/C++ linkage."
|
|
:safe 'stringp)
|
|
(make-variable-buffer-local 'cc-ldlibs)
|
|
|
|
(defcustom cc-ldflags ""
|
|
"Custom linker libs for C/C++ linkage."
|
|
:safe 'stringp)
|
|
(make-variable-buffer-local 'cc-ldflags)
|
|
|
|
(defun cc-set-compiler ()
|
|
"Set compile command to be nearest Makefile.
|
|
The Makefile is looked up in parent folders. If no Makefile is
|
|
found, then a configurable command line is provided.\n
|
|
Requires `get-closest-pathname'."
|
|
(interactive)
|
|
(require 'functions)
|
|
(hack-local-variables)
|
|
(let ((makefile (get-closest-pathname)))
|
|
(if makefile
|
|
(set (make-local-variable 'compile-command) (format "make -k -C %s" (file-name-directory makefile)))
|
|
(set (make-local-variable 'compile-command)
|
|
(let
|
|
((cppp (eq major-mode 'c++-mode))
|
|
(file (file-name-nondirectory buffer-file-name)))
|
|
(format "%s %s -o %s %s %s %s"
|
|
(if cppp
|
|
(or (getenv "CXX") "g++")
|
|
(or (getenv "CC") "gcc"))
|
|
file
|
|
(file-name-sans-extension file)
|
|
(if cppp
|
|
(or (getenv "CPPFLAGS") "-Wall -Wextra -Wshadow -DDEBUG=9 -g3 -O0")
|
|
(or (getenv "CFLAGS") "-ansi -pedantic -std=c99 -Wall -Wextra -Wshadow -DDEBUG=9 -g3 -O0"))
|
|
(or (getenv "LDFLAGS") cc-ldflags)
|
|
(or (getenv "LDLIBS") cc-ldlibs)))))))
|
|
|
|
(defun cc-clean ()
|
|
"Find Makefile and call the `clean' rule. If no Makefile is
|
|
found, no action is taken. The previous `compile' command is then
|
|
restored."
|
|
(interactive)
|
|
(when (get-closest-pathname)
|
|
(let ((compile-command-backup compile-command))
|
|
(compile (format "make -k -f '%s' clean" (get-closest-pathname)))
|
|
(setq compile-command compile-command-backup))))
|
|
|
|
;;==============================================================================
|
|
;; C-mode
|
|
;;==============================================================================
|
|
|
|
(c-add-style
|
|
"peter"
|
|
'((c-basic-offset . 4)
|
|
(c-comment-only-line-offset . 0)
|
|
(c-hanging-braces-alist
|
|
(brace-list-open)
|
|
(brace-entry-open)
|
|
(substatement-open after)
|
|
(block-close . c-snug-do-while)
|
|
(arglist-cont-nonempty))
|
|
(c-cleanup-list brace-else-brace)
|
|
(c-offsets-alist
|
|
(statement-block-intro . +)
|
|
(knr-argdecl-intro . 0)
|
|
(substatement-open . 0)
|
|
(substatement-label . 0)
|
|
(label . 0)
|
|
(case-label . +)
|
|
(statement-cont . +))))
|
|
|
|
(mapcar
|
|
(lambda (mode-hook)
|
|
(add-hook
|
|
mode-hook
|
|
(lambda ()
|
|
(c-set-style "peter")
|
|
(add-hook 'compilation-before-hook 'cc-set-compiler nil t)
|
|
(local-set-key (kbd "<f9>") 'cc-clean)
|
|
(local-set-key (kbd "M-TAB") 'semantic-complete-analyze-inline)
|
|
(local-set-key (kbd "C-c C-f") 'cc-fori)
|
|
(local-set-key (kbd "C-c m") 'cc-main)
|
|
(local-set-key (kbd "C-c C-i") 'cc-if)
|
|
(local-set-key (kbd "C-c i") 'cc-include)
|
|
(local-set-key (kbd "C-c I") 'cc-include-local)
|
|
(local-set-key (kbd "C-c (") 'cc-function)
|
|
;; (local-set-key "." 'semantic-complete-self-insert) ; This is a bit slow.
|
|
;; (local-set-key ">" 'semantic-complete-self-insert)
|
|
(local-set-key (kbd "C-M-e") (lambda () (interactive) (c-beginning-of-defun -1))))))
|
|
'(c-mode-hook c++-mode-hook))
|
|
|
|
;; WARNING: cc-modes do not need to run hooks for first buffer, since their hook
|
|
;; are run twice already. This behaviour may change in future Emacs version, in
|
|
;; which case we need to use add-hook-and-eval instead.
|
|
|
|
;;==============================================================================
|
|
;; Qt semantic support
|
|
;;==============================================================================
|
|
|
|
;; Qt base directory, meaning the directory where the 'Qt' directory can be found.
|
|
;; Adapt accordingly.
|
|
(when (fboundp 'semantic-add-system-include)
|
|
(setq qt4-base-dir "/usr/include/qt4")
|
|
(setq qt4-gui-dir (concat qt4-base-dir "/QtGui"))
|
|
(semantic-add-system-include qt4-base-dir 'c++-mode)
|
|
(semantic-add-system-include qt4-gui-dir 'c++-mode)
|
|
(add-to-list 'auto-mode-alist (cons qt4-base-dir 'c++-mode))
|
|
(add-hook
|
|
'c++-mode-hook
|
|
(lambda ()
|
|
(when semantic-mode
|
|
(add-to-list 'semantic-lex-c-preprocessor-symbol-file (concat qt4-base-dir "/Qt/qconfig.h"))
|
|
(add-to-list 'semantic-lex-c-preprocessor-symbol-file (concat qt4-base-dir "/Qt/qconfig-large.h"))
|
|
(add-to-list 'semantic-lex-c-preprocessor-symbol-file (concat qt4-base-dir "/Qt/qglobal.h"))))))
|
|
|
|
;;==============================================================================
|
|
;; Skel
|
|
;;==============================================================================
|
|
|
|
;; Note that it is possible to extend the skel syntax with
|
|
;; `skeleton-further-elements'. For instance:
|
|
; (setq skeleton-further-elements '((q "\"")))
|
|
|
|
(define-skeleton cc-case
|
|
"Insert a case/switch statement."
|
|
"expression: "
|
|
> "switch (" str ") {" \n
|
|
( "Value, %s: "
|
|
> "case " > str ":" \n
|
|
> _ \n
|
|
"break;" \n)
|
|
"default:" > \n
|
|
> _ \n
|
|
"break;" \n
|
|
resume:
|
|
"}" > \n)
|
|
|
|
(define-skeleton cc-debug
|
|
"Insert debug macros."
|
|
nil
|
|
"#ifdef DEBUG
|
|
#define DEBUG_CMD(CMD) do {CMD;} while(0)
|
|
#else
|
|
#define DEBUG_CMD(CMD) do {} while(0)
|
|
#endif
|
|
|
|
#define DEBUG_STR(STR) DEBUG_CMD(fprintf(stderr, \":: %s\\n\", STR))
|
|
#define DEBUG_PRINT(...) DEBUG_CMD ( \\
|
|
fprintf(stderr, \"\\n\\033[31;1mDEBUG:\\033[0m %s:%d:%s()\\t\", __FILE__, __LINE__, __func__); \\
|
|
fprintf(stderr, __VA_ARGS__);\\
|
|
fprintf(stderr, \"\\n\"); \\
|
|
)")
|
|
|
|
(define-skeleton cc-fori
|
|
"for i loop."
|
|
nil
|
|
> "for (" @ (skeleton-read "" "i = 0") "; " @ (skeleton-read "" "i < N") "; " @ (skeleton-read "" "i++") ") {" \n
|
|
@ _ \n
|
|
"}" > )
|
|
|
|
(define-skeleton cc-function
|
|
"Insert struction for function"
|
|
"Arguments: " "(" @ str ") {" \n
|
|
> _ \n
|
|
"}" > \n)
|
|
|
|
(define-skeleton cc-if
|
|
"Insert an if statement."
|
|
"Condition: "
|
|
> "if (" @ str ") {" \n
|
|
> @ _ \n
|
|
("Other condition, %s: "
|
|
"} else if (" > @ str ") {" \n
|
|
@ \n)
|
|
"} else {" > \n
|
|
@ \n
|
|
resume:
|
|
"}" > \n)
|
|
|
|
(define-skeleton cc-include
|
|
"Insert system include."
|
|
"Header: "
|
|
\n "#include <" @ str ">" \n)
|
|
|
|
(define-skeleton cc-include-local
|
|
"Insert local include."
|
|
"Header: "
|
|
\n "#include \"" @ str "\"" \n)
|
|
|
|
(define-skeleton cc-loadfile
|
|
"Insert loadfile function."
|
|
nil
|
|
"unsigned long loadfile (const char * path, char ** buffer_ptr)
|
|
{
|
|
#define MAX_FILESIZE 1073741824 /* One gigabyte */
|
|
|
|
/* Handle variable. */
|
|
char* buffer;
|
|
|
|
FILE* file = fopen(path, \"rb\");
|
|
if (file == NULL)
|
|
{
|
|
perror(path);
|
|
return 0;
|
|
}
|
|
|
|
fseek(file, 0, SEEK_END);
|
|
long length = ftell(file);
|
|
/* fprintf (stdout, \"Note: file %s is %u bytes long.\\n\", path, length); */
|
|
|
|
if (length > MAX_FILESIZE)
|
|
{
|
|
fprintf (stderr, \"%s size %ld is bigger than %d bytes.\\n\", path, length, MAX_FILESIZE);
|
|
fclose(file);
|
|
return 0;
|
|
}
|
|
|
|
fseek(file, 0, SEEK_SET);
|
|
buffer = (char*)malloc(length + 1);
|
|
if (buffer == NULL)
|
|
{
|
|
perror(\"malloc\");
|
|
fclose(file);
|
|
return 0;
|
|
}
|
|
|
|
|
|
if(fread(buffer, 1, length, file) == 0)
|
|
{
|
|
fclose(file);
|
|
return 0;
|
|
}
|
|
|
|
buffer[length] = '\\0';
|
|
fclose(file);
|
|
|
|
*buffer_ptr = buffer;
|
|
return length;
|
|
}")
|
|
|
|
(define-skeleton cc-main
|
|
"Insert main function with basic includes."
|
|
nil
|
|
> "#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdint.h>
|
|
#include <inttypes.h>
|
|
|
|
int main(int argc, char** argv)
|
|
{" \n
|
|
> @ _ \n
|
|
> "return 0;
|
|
}" \n)
|
|
|
|
(define-skeleton cc-printf
|
|
"fprintf/printf snippet.
|
|
If no file descriptor is provided, switch do printf. The format
|
|
string is properly parsed (%% are not taken into account).\n
|
|
Requires `count-percents'."
|
|
nil
|
|
'(require 'functions)
|
|
'(setq v1 (skeleton-read "File desc: " "stderr"))
|
|
(if (string= v1 "") "printf (" (concat "fprintf (" v1 ", "))
|
|
"\"" (setq v1 (skeleton-read "Format string: " "%s\\n")) "\""
|
|
'(setq v2 (count-percents v1))
|
|
'(setq v1 0)
|
|
'(while (< v1 v2)
|
|
(setq v1 (1+ v1))
|
|
(skeleton-insert '(nil (concat ", " (skeleton-read "Value: ")))))
|
|
@ ");")
|
|
|
|
(provide 'mode-cc)
|