;;==============================================================================
;; 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 -f %s" 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)
      (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 ()
     (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)