Emacs snippet for compiling code in c and cpp

emacs.el

;; Compilation for gcc / g++
(defun ramz/code-compile ()
  (interactive)
  (unless (file-exists-p "Makefile")
    (set (make-local-variable 'compile-command)
	 (let ((file (file-name-nondirectory buffer-file-name)))
	   (format "%s -o %s %s"
		   (if  (equal (file-name-extension file) "cpp") "g++" "gcc" )
		   (file-name-sans-extension file)
		   file)))
    (compile compile-command)))

(global-set-key [f9] 'ramz/code-compile)

;; Run the compiled file 
(defun ramz/run-code ()
  (interactive)
  (set 'run-command
       (if (equal (file-name-extension (file-name-nondirectory buffer-file-name)) "rb") 
	   (format "ruby %s" (file-name-nondirectory buffer-file-name))
	 (format "./%s" (file-name-sans-extension (file-name-nondirectory buffer-file-name)))))
  (shell-command run-command))

(global-set-key [f8] 'ramz/run-code)