Re: How to defun body in procedural manner

[thierry.volpiatto@gmail.com]

Kiwon Um <um.kiwon@gmail.com> writes:

> On Apr 20, 7:43 pm, thierry.volpia...@gmail.com wrote:
>> Hi Kiwon,
>>
>>
>>
>> Kiwon Um <um.ki...@gmail.com> writes:
>> > On Apr 17, 9:51 pm, thierry.volpia...@gmail.com wrote:
>> >> Kiwon Um <um.ki...@gmail.com> writes:
>> >> > On Apr 17, 2:52 pm, thierry.volpia...@gmail.com wrote:
>> >> >> Hi, i don't use cvs, but you should have a look at what return:
>> >> >> `cvs-sentinel'.
>> >> >> and:
>> >> >> (when (cvs-sentinel ==> return_what_you_want)
>> >> >>   (shell-command "your_command"))
>>
>> >> > I've tried to understand what the cvs-sentinel function does, but I
>> >> > didn't. Would you write a concrete example code for me, please?
>>
>> >> Yes, as i told you i am not a cvs user, so...
>> >> it seem cvs-sentinel return only a message :-(
>> >> So try that, i just write it and it worked to update emacs-w3m and compile
>> >> it:
>>
>> >> (defun update-cvs-dir-and-compile ()
>> >>   (interactive)
>> >>   (let ((dir default-directory))
>> >>     (cvs-update dir nil)
>> >>     (while (not (equal cvs-mode-line-process "exit"))
>> >>       (sit-for 1))
>> >>     (shell-command "make")))
>>
>> >> Modify for your need (make args ...etc..)
>>
>> > Then, how can I check the end of the compile process as similar manner
>> > as above? I tried (compile-mode-line-process "exit"), but it didn't
>> > work. And I tried as follows:
>> > (while (not (equal (process-status  "compilation") 'exit)) (sit-for
>> > 1))
>> > This didn't work, either.
>> > Any advice?
>>
>> `shell-command' is a synchronous process, so you have just to wait it
>> finish.May be just add a message to tell you that the compile process is
>> started:
>>
>
> Ah! I missed my point. Actually, I've changed shell-command to compile
> so that
> (compile "make -C ...some_path") not (shell-command ...).
> The function 'compile' doesn't seem to be synchronous, huh? So I'm
> wondering how to check it.

compile is asynchronous, and it will warn you when finish.
Have a look at C-h f compile RET.

Unless you have to run another command after the compile process, there
is no need to catch the end of the process, just wait it warn you in the
mode-line or the compile buffer.

> Thanks for your kind replies :)
>
>> (defun update-cvs-dir-and-compile ()
>>   "Cvs update current dir and compile it."
>>   (interactive)
>>   (let ((dir default-directory))
>>     (cvs-update dir nil)
>>     (while (not (equal cvs-mode-line-process "exit"))
>>       (sit-for 1))
>>     (message "Wait compiling %s..." dir)
>>     (shell-command "make")))
>>
>> But if you want to run the compile process asynchronous,
>> you have to use `start-process' instead of `shell-command' and set a
>> sentinel on this process like this:
>>
>> (progn
>>   (start-process "my-compil" nil "sleep"
>>                "12")
>>   (set-process-sentinel (get-process "my-compil")
>>                         #'(lambda (process event)
>>                             (message "Process:%s State:%s" process event))))
>>
>> Replace "sleep" with "make" and "12" with make args ;-)
>>
>> NOTE:If you have more than one arg to the make command, it's may be
>> convenient to use apply on start-process.
>>
>>
>>
>> >> >> Kiwon Um <um.ki...@gmail.com> writes:
>> >> >> > Hello. I wrote a function as follows:
>>
>> >> >> > (defun my-update-package (path)
>> >> >> >   "Update the package in path from CVS"
>> >> >> >   (cvs-update path nil)
>> >> >> >   (shell-command (concat "touch `find " path " -name Makefile`"))
>> >> >> >   (compile (concat "make -C " path)))
>>
>> >> >> > When the function is called, it seems to execute the shell-command and
>> >> >> > compile lines before the finishing cvs-update line. How can I make
>> >> >> > this functional execution procedurally? Help me, please.
>>
>> >> >> > Thanks.
>>
>> >> >> --
>> >> >> A + Thierry Volpiatto
>> >> >> Location: Saint-Cyr-Sur-Mer - France
>>
>> >> --
>> >> A + Thierry Volpiatto
>> >> Location: Saint-Cyr-Sur-Mer - France
>>
>> --
>> A + Thierry Volpiatto
>> Location: Saint-Cyr-Sur-Mer - France
>
>

-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France