diff options
Diffstat (limited to '.emacs.d/lisp/init-program-basic.el')
| -rw-r--r-- | .emacs.d/lisp/init-program-basic.el | 35 |
1 files changed, 34 insertions, 1 deletions
diff --git a/.emacs.d/lisp/init-program-basic.el b/.emacs.d/lisp/init-program-basic.el index 092bd3c..04266aa 100644 --- a/.emacs.d/lisp/init-program-basic.el +++ b/.emacs.d/lisp/init-program-basic.el @@ -10,11 +10,44 @@ indent-tabs-mode t) (defun execute-c-program () + "Complie current c file and run it." (interactive) + (save-buffer) (defvar foo) (setq foo (concat - "gcc " (buffer-name) " -o " (buffer-name) ".out && ./" (buffer-name) ".out" )) + "gcc " (include-source-file (buffer-name)) " -o " (buffer-name) ".out && ./" (buffer-name) ".out" )) (shell-command foo)) +(defun include-source-file (file-path) + "Get transfer all include header file from FILE-PATH to source file(string)." + (let (content) + (setq content (format "%s" (get-c-source-file (get-string-from-file file-path)))) + (if (string= nil content) + file-path + (substring content 1 -1)))) + +(defun get-c-source-file (content) + "Get the header list of a string CONTENT, for instant a .c file." + (defun header-to-source (header) + "Whole line of header" + (replace-regexp-in-string "[.]h" ".c " (substring header 10 -1))) + (let (value) + (dolist (element (split-string content "\n" t) value) + (if (string-prefix-p "#include \"" element) + (setq value (cons (header-to-source element) value)))))) + + +(defun read-lines (file-path) + "Return a list of lines of a file at FILE-PATH." + (with-temp-buffer + (insert-file-contents file-path) + (split-string (buffer-string) "\n" t))) + +(defun get-string-from-file (file-path) + "Return FILE-PATH's file content in list." + (with-temp-buffer + (insert-file-contents file-path) + (buffer-string))) + (provide 'init-program-basic) ;;; init-program-basic ends here |