How to

How to

[Decebal]

In a Bash script I changed:
      local i
      local length=${#1}

      for i in $(seq ${1}) ; do
        printf "       Regel %${length}d voor de test\n" ${i}
      done  >${2}
to:
      emacs -batch -nw --eval='
        (let (
              (i)
              (nr-of-lines '${1}')
              (nr-of-lines-length)
              (output-file "'"${2}"'"))
          (setq nr-of-lines-length (length (number-to-string nr-of-
lines)))
          (dotimes (i nr-of-lines t)
           (insert (format (format "       Regel %%%dd voor de test\n"
nr-of-lines-length) (1+ i))))
          (write-file output-file))
      ' 2>/dev/null

The Bash version took 293 seconds and the Emacs Lisp version 59
seconds. So it is about 5 times as fast.
The Emacs batch gives output like:
    Saving file /home/cecil/temp/inputEmacs...
    Wrote /home/cecil/temp/inputEmacs
That is why I use the 2>/dev/null.
Is there a way to circumvent the generation of the above output?
Because when there is an error it is also thrown away and that is not
nice.

Re: How to

[Andreas Röhler]

Decebal wrote:
> In a Bash script I changed:
>       local i
>       local length=${#1}
> 
>       for i in $(seq ${1}) ; do
>         printf "       Regel %${length}d voor de test\n" ${i}
>       done  >${2}
> to:
>       emacs -batch -nw --eval='
>         (let (
>               (i)
>               (nr-of-lines '${1}')
>               (nr-of-lines-length)
>               (output-file "'"${2}"'"))
>           (setq nr-of-lines-length (length (number-to-string nr-of-
> lines)))
>           (dotimes (i nr-of-lines t)
>            (insert (format (format "       Regel %%%dd voor de test\n"
> nr-of-lines-length) (1+ i))))
>           (write-file output-file))
>       ' 2>/dev/null
> 
> The Bash version took 293 seconds and the Emacs Lisp version 59
> seconds. So it is about 5 times as fast.
> The Emacs batch gives output like:
>     Saving file /home/cecil/temp/inputEmacs...

it's in files.el, save-buffer, AFAIS


    (if (and modp (buffer-file-name))
	(message "Saving file %s..." (buffer-file-name)))

commenting out these lines should cancel the message

HTH

Andreas

>     Wrote /home/cecil/temp/inputEmacs
> That is why I use the 2>/dev/null.
> Is there a way to circumvent the generation of the above output?
> Because when there is an error it is also thrown away and that is not
> nice.
> 

Re: How to [write sequentially numbered lines]

[Vassil Nikolov]

On Sat, 10 Oct 2009 11:33:17 -0700 (PDT), Decebal <cldwesterhof@gmail.com> said:
> ...
>       local i
>       local length=${#1}
>       for i in $(seq ${1}) ; do
>         printf "       Regel %${length}d voor de test\n" ${i}
>       done  >${2}

  translates to

    emacs -Q -batch -eval '
      (dotimes (i '"${1}"')
        (princ (format "       Regel %'"${#1}"'d voor de test\n" (1+ i))))
    ' > "${2}"

  ---Vassil.

Re: How to

[Decebal]

On Oct 10, 10:06 pm, Andreas Röhler <andreas.roeh...@easy-emacs.de>
wrote:
> > The Emacs batch gives output like:
> >     Saving file /home/cecil/temp/inputEmacs...
>
> it's in files.el, save-buffer, AFAIS
>
>     (if (and modp (buffer-file-name))
>         (message "Saving file %s..." (buffer-file-name)))
>
> commenting out these lines should cancel the message

The problem with that is that it only works for me. But I found a way.
I replaced:
    (write-file output-file))
with:
    (set-visited-file-name output-file)
    (basic-save-buffer))

But maybe there should be more consideration for the possibility that
Emacs is used as a batch program.


> >     Wrote /home/cecil/temp/inputEmacs

I still have to find something for this.

Re: How to [write sequentially numbered lines]

[Decebal]

On Oct 10, 10:55 pm, Vassil Nikolov <vniko...@pobox.com> wrote:
> >       local i
> >       local length=${#1}
> >       for i in $(seq ${1}) ; do
> >         printf "       Regel %${length}d voor de test\n" ${i}
> >       done  >${2}
>
>   translates to
>
>     emacs -Q -batch -eval '
>       (dotimes (i '"${1}"')
>         (princ (format "       Regel %'"${#1}"'d voor de test\n" (1+ i))))
>     ' > "${2}"

That works like a charm. Now it takes 19 seconds. More as 3 times as
fast as my version and more as 15 times as fast as the Bash version.

Thanks.

Re: How to

[Decebal]

On Oct 10, 10:57 pm, Decebal <cldwester...@gmail.com> wrote:
> > >     Wrote /home/cecil/temp/inputEmacs
>
> I still have to find something for this.

That is not possible I am afraid. In the C-source there is a call to
message_with_string.

Re: How to

[Andreas Röhler]

Decebal wrote:
> On Oct 10, 10:57 pm, Decebal <cldwester...@gmail.com> wrote:
>>>>     Wrote /home/cecil/temp/inputEmacs
>> I still have to find something for this.
> 
> That is not possible I am afraid. In the C-source there is a call to
> message_with_string.
> 


AFAIS it's that piece of code in files.el

    message_with_string ((INTEGERP (append)
			  ? "Updated %s"
			  : ! NILP (append)
			  ? "Added to %s"
			  : "Wrote %s"),
			 visit_file, 1);

Looks like a twofold "if", where the second "else"
should not be executed in your case.

Should be possible to add an option "--quiet" to batch
mode, thus suppressing these messages.

If it's that urgend for you, deleting the second "else"
and recompile might be an option to for the moment.


Andreas

--
https://code.launchpad.net/s-x-emacs-werkstatt/
http://bazaar.launchpad.net/~a-roehler/python-mode/python-mode.el/

Re: How to

[Decebal]

On Oct 11, 10:11 am, Andreas Röhler <andreas.roeh...@easy-emacs.de>
wrote:
> Decebal wrote:
> > On Oct 10, 10:57 pm, Decebal <cldwester...@gmail.com> wrote:
> >>>>     Wrote /home/cecil/temp/inputEmacs
> >> I still have to find something for this.
>
> > That is not possible I am afraid. In the C-source there is a call to
> > message_with_string.
>
> AFAIS it's that piece of code in files.el
>
>     message_with_string ((INTEGERP (append)
>                           ? "Updated %s"
>                           : ! NILP (append)
>                           ? "Added to %s"
>                           : "Wrote %s"),
>                          visit_file, 1);
>
> Looks like a twofold "if", where the second "else"
> should not be executed in your case.
>
> Should be possible to add an option "--quiet" to batch
> mode, thus suppressing these messages.

'emacs --quiet' is possible, but 'emacs --quiet -batch' or 'emacs -
batch --quiet' gives:
    Unknown option `--quiet'


> If it's that urgend for you, deleting the second "else"
> and recompile might be an option to for the moment.

I'll prefer the redirect to /dev/null. Otherwise the code only runs on
my system.