Compiling C++ in emacs

Compiling C++ in emacs

[Richard Riley]

I have the function below which is for C. Does anyone have an
extension/idea for compiling and linking C++ based on file extension?

,----
| (defun do-compile()
|   
|   (unless (or (file-exists-p "makefile")
| 	      (file-exists-p "Makefile"))
|     (set (make-local-variable 'compile-command)
| 	 (let ((file (file-name-nondirectory buffer-file-name)))
| 	   (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)))
|     
|     )
|   (compile compile-command)
|   )
| 
| 
`----

Thanks,

r.

Re: Compiling C++ in emacs

[Kevin Rodgers]

Richard Riley wrote:
> I have the function below which is for C. Does anyone have an
> extension/idea for compiling and linking C++ based on file extension?
> 
> ,----
> | (defun do-compile()
> |   
> |   (unless (or (file-exists-p "makefile")
> | 	      (file-exists-p "Makefile"))
> |     (set (make-local-variable 'compile-command)
> | 	 (let ((file (file-name-nondirectory buffer-file-name)))
> | 	   (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)))
> |     
> |     )
> |   (compile compile-command)
> |   )
> | 
> | 
> `----

(if (equal (file-name-extension buffer-file-file) "cc")
     (progn
       ;; C++ stuff goes here
       )
   )

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: Compiling C++ in emacs

[Richard Riley]

Kevin Rodgers <kevin.d.rodgers@gmail.com> writes:

> Richard Riley wrote:
>> I have the function below which is for C. Does anyone have an
>> extension/idea for compiling and linking C++ based on file extension?
>>
>> ,----
>> | (defun do-compile()
>> |   |   (unless (or (file-exists-p "makefile")
>> | 	      (file-exists-p "Makefile"))
>> |     (set (make-local-variable 'compile-command)
>> | 	 (let ((file (file-name-nondirectory buffer-file-name)))
>> | 	   (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)))
>> |     |     )
>> |   (compile compile-command)
>> |   )
>> | | `----
>
> (if (equal (file-name-extension buffer-file-file) "cc")
>     (progn
>       ;; C++ stuff goes here
>       )
>   )

(defun make-command()
  
  (if   (or (file-exists-p "makefile")
	    (file-exists-p "Makefile"))
      nil
    (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") file
		    (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)
	))))


thanks

Re: Compiling C++ in emacs

[Richard Riley]

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)) "\""))
|   )
| 
`----