lisp execution stops after dired

lisp execution stops after dired

[David Belohrad]

[-- Attachment #1: Type: text/plain, Size: 1237 bytes --]

Dear All.

have this:

(defun vhdl-rename-signal (searchDir)
  "renames signal starting from searchDir"
  (interactive "DEnter top-level directory to search: ")
  ;; first do dired
  (find-dired searchDir "-name \*.vhd -or -name \*.qsf")
  (dired-toggle-marks)
  ;; now fancy stuff over direded files
  (message (dired-get-marked-files))
)


Whatever I tried, it does dired, it finds correctly files I want, however
the execution of this function stops after find-dired and no further
functions
are called (starting from dired-toggle-marks). Why?

What I'm trying to do is to write a simple function, which replaces
occurence of one signal name to another one within a particular project.
Normally I do it by
hand by issuing dired mode to look for all *.vhd and *.qsf, replacing old
signal name by new using dired-do-query-replace-regexp. Then I have to do
this procedure
once more with *.do files (modelsim), but this time convert the replaced
signal completely to lowercase and replace by its lowercase variant. This
permits to rename
a single signal of VHDL code within all the Quartus project.

The function above is just a start of generation of first dired buffer. But
maybe someone else has better idea how to do...

thanks
david

[-- Attachment #2: Type: text/html, Size: 1376 bytes --]

Re: lisp execution stops after dired

[Valentin Plechinger]

I'm not that fluent in lisp but I think you need something like

(defun vhdl-rename-signal (searchDir)
   "renames signal starting from searchDir"
   (interactive "DEnter top-level directory to search: ")
   ;; first do dired
   (progn
     (find-dired searchDir "-name \*.vhd -or -name \*.qsf")
     (dired-toggle-marks)
     ;; now fancy stuff over direded files
     (message (dired-get-marked-files))))

haven't checked your wether each of your lines actually does what it should
have a look at http://www.rattlesnake.com/intro/progn.html

best regards

At Mon, 18 Jul 2011 13:18:29 +0200,
David Belohrad wrote:
> 
> [1  <text/plain; UTF-8 (7bit)>]
> Dear All.
> 
> have this:
> 
> (defun vhdl-rename-signal (searchDir)
>   "renames signal starting from searchDir"
>   (interactive "DEnter top-level directory to search: ")
>   ;; first do dired
>   (find-dired searchDir "-name \*.vhd -or -name \*.qsf")
>   (dired-toggle-marks)
>   ;; now fancy stuff over direded files
>   (message (dired-get-marked-files))
> )