build-and-save-all

build-and-save-all

[Rodrigo Canellas]

Hi,


I would like to create a function that would save all the buffers and then 
build the project being edited.

If I got it tight, in order to run 'make' the cursor must be in the buffer of 
the 'makefile', or at least in a buffer of a file saved in the same directory 
of the 'makefile'. So, before calling 'make', this function must first set 
the 'makefile' buffer as the current buffer.

Does anyone know if something like that already exists? Would someone help me 
on that?


Thanks a lot,

  Rodrigo Canellas

Re: build-and-save-all

[Arturs Jurnieks]

Rodrigo Canellas <r.canellas@terra.com.br> wrote in message news:<mailman.2277.1101765159.27204.help-gnu-emacs@gnu.org>...
> Hi,
> 
> 
> I would like to create a function that would save all the buffers and then 
> build the project being edited.
> 
> If I got it tight, in order to run 'make' the cursor must be in the buffer of 
> the 'makefile', or at least in a buffer of a file saved in the same directory 
> of the 'makefile'. So, before calling 'make', this function must first set 
> the 'makefile' buffer as the current buffer.
> 
> Does anyone know if something like that already exists? Would someone help me 
> on that?
> 
> 
> Thanks a lot,
> 
>   Rodrigo Canellas

What about using the command "Meta-x compile" in your function to invoke makefile?

Just a suggestion...

A.

Re: build-and-save-all

[Kevin Rodgers]

Rodrigo Canellas wrote:
> I would like to create a function that would save all the buffers and then 
> build the project being edited.
> 
> If I got it tight, in order to run 'make' the cursor must be in the buffer of 
> the 'makefile', or at least in a buffer of a file saved in the same directory 
> of the 'makefile'. So, before calling 'make', this function must first set 
> the 'makefile' buffer as the current buffer.

Right.  So how do you know where the Makefile is, and what it is called?
Once that's established, it should be simple to implement in Emacs Lisp.

-- 
Kevin Rodgers

Re: build-and-save-all

[Rodrigo Canellas]

Well, I know that the name of file is 'makefile', so I understand is the name 
of the buffer. I believe there is a function in 'emacs' that returns a list 
of the name of the buffers, and I hope there is another one that returns a 
reference to a buffer given its name, and finally another one that makes a 
buffer the current one, given a reference to it.

As you see, I only have hopes, but I am not sure of none of them. I must add 
that I never wrote a single line of code in Lisp. Yes, I gave myself a big 
trouble. 8)



Em Quinta 02 Dezembro 2004 15:58, Kevin Rodgers escreveu:
> Rodrigo Canellas wrote:
> > I would like to create a function that would save all the buffers and
> > then build the project being edited.
> >
> > If I got it tight, in order to run 'make' the cursor must be in the
> > buffer of the 'makefile', or at least in a buffer of a file saved in the
> > same directory of the 'makefile'. So, before calling 'make', this
> > function must first set the 'makefile' buffer as the current buffer.
>
> Right.  So how do you know where the Makefile is, and what it is called?
> Once that's established, it should be simple to implement in Emacs Lisp.

-- 
Rodrigo Canellas
Engenheiro de Sistemas de Informação

Re: build-and-save-all

[Kevin Rodgers]

[Please don't top-post.]

Rodrigo Canellas wrote:
 > Well, I know that the name of file is 'makefile', so I understand is
 > the name of the buffer. I believe there is a function in 'emacs' that
 > returns a list of the name of the buffers, and I hope there is another
 > one that returns a reference to a buffer given its name, and finally
 > another one that makes a buffer the current one, given a reference to
 > it.

Actually, buffer-list returns a list of buffers (not their names, nor
"references", which don't exist in Lisp).  And set-buffer is used to
select it.

But none of that is needed, especially since it requires the user to
have already explicitly visited the Makefile, which should not be
necessary.  What I meant was: where in the file system is the project
"makefile", relative to any source file?

For example, here's an implementation that assumes you've created a
"project.dir" symbolic link in each source directory that points to the
project directory:

(defun compile-project ()
   "Compile the project to which this source file belongs."
   (interactive)
   ;; ./project.dir must be a symbolic link to the project directory:
   (let ((default-directory (file-truename "project.dir")))
     (compile "make")))

And here's an implementation that checks the current directory, then its
parent, and so on until it finds a "makefile":

(defun compile-project ()
   "Compile the project to which this source file belongs."
   (interactive)
   ;; The project directory is the closest ancestor directory containing
   ;; a makefile:
   (let* ((default-directory default-directory))
     (while (not (file-exists-p (expand-file-name "makefile"
                                                  default-directory)))
       (when (equal default-directory "/")
         (error "No ancestor \"makefile\" found"))
       (setq default-directory
             (directory-file-name (expand-file-name ".." 
default-directory))))
     (compile "make")))

-- 
Kevin Rodgers

Re: build-and-save-all

[Kevin Rodgers]

Kevin Rodgers wrote:
 > (defun compile-project ()
 >   "Compile the project to which this source file belongs."
 >   (interactive)
 >   ;; ./project.dir must be a symbolic link to the project directory:
 >   (let ((default-directory (file-truename "project.dir")))
 >     (compile "make")))

I forgot the part about saving all the buffers:

(defun compile-project ()
   "Compile the project to which this source file belongs."
   (interactive)
   ;; ./project.dir must be a symbolic link to the project directory:
   (let ((default-directory (file-truename "project.dir"))
	(compilation-ask-about-save nil))
     (compile "make")))

-- 
Kevin Rodgers

Re: build-and-save-all

[Rodrigo Canellas]

Thanks! I will try that and let you know.



Em Quinta 02 Dezembro 2004 20:09, Kevin Rodgers escreveu:
> Kevin Rodgers wrote:
>  > (defun compile-project ()
>  >   "Compile the project to which this source file belongs."
>  >   (interactive)
>  >   ;; ./project.dir must be a symbolic link to the project directory:
>  >   (let ((default-directory (file-truename "project.dir")))
>  >     (compile "make")))
>
> I forgot the part about saving all the buffers:
>
> (defun compile-project ()
>    "Compile the project to which this source file belongs."
>    (interactive)
>    ;; ./project.dir must be a symbolic link to the project directory:
>    (let ((default-directory (file-truename "project.dir"))
>  (compilation-ask-about-save nil))
>      (compile "make")))

-- 
Rodrigo Canellas
Engenheiro de Sistemas de Informação