Re: Compiling C++ in emacs

[Richard Riley <rileyrgdev@gmail.com>]

Corrected a small error so Makefile or makefile works now and also to
look for SConstruct file first to use the fantastic scons make tool.

,----
| (defun do-compile()
|   (compile (make-command))
|   )
| 
| 
| 
| (defun make-command()
|   
|   (if   (or (file-exists-p "makefile")
| 	    (file-exists-p "Makefile"))
|       "make" )
|   (if  (file-exists-p "SConstruct")
|       "scons"
|     (let ((file (file-name-nondirectory buffer-file-name)))
|       (if (equal (file-name-extension buffer-file-name) "cc")
| 	  (progn
| 	    (format "%s %s %s -o %s"
| 		    (or (getenv "CC") "g++")
| 		    (or (getenv "CPPFLAGS")"-Wall -g") "*.cc"
| 		    (file-name-sans-extension file)
| 		    ))
| 	(format "%s -o %s %s %s %s %s"
| 		(or (getenv "CC") "gcc")
| 		(file-name-sans-extension file)
| 		(or (getenv "GTKFLAGS") "`pkg-config --cflags --libs gtk+-2.0`")
| 		(or (getenv "CPPFLAGS")"-DDEBUG=9")
| 		(or (getenv "CFLAGS") "-std=c99 -pedantic -Wall -Wshadow -Wpointer-arith -Wcast-qual -Wcast-align -Wwrite-strings -Wconversion  -Wstrict-prototypes -Wmissing-prototypes -Wmissing-declarations -Wredundant-decls -Wnested-externs -Winline -g")
| 		file)
| 	))))
| 
| 
| (defun do-lint()
|   (interactive)
|   (set (make-local-variable 'compile-command)
|        (let ((file (file-name-nondirectory buffer-file-name)))
| 	 (format "%s %s %s"
| 		 "splint"
| 		 "+single-include -strict -compdef -nullpass -preproc +matchanyintegral -internalglobs -I/usr/include/gtk-2.0/ -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include -I/usr/include/cairo/ -I/usr/include/pangomm-1.4/pangomm/"
| 		 file
| 		 )))
|   (message compile-command)
|   (compile compile-command)
|   )
| 
| (defun do-cdecl () 
|   (interactive)
|   (shell-command
|    (concat "cdecl explain \"" (buffer-substring (region-beginning)
| 						(region-end)) "\""))
|   )
| 
`----