From: John Mastro <john.b.mastro@gmail.com>
To: gnu ist <gnuist006@gmail.com>,
"help-gnu-emacs@gnu.org" <help-gnu-emacs@gnu.org>
Subject: Re: Tricky Regexp - How to insert a marker every 3rd number in a sequence that begins with a certain delimiter
Date: Sat, 6 Jun 2015 19:46:42 -0700 [thread overview]
Message-ID: <CAOj2CQSMemESTMErntEeU-kevhhEnzvmjZZFFNmTXxHxxM-wGg@mail.gmail.com> (raw)
In-Reply-To: <CAF=27p2qpcQnWRcb-J1sCTdu7f_vuPCURD8+L4f5wUNDLe-rFQ@mail.gmail.com>
> Unfortunately, the problem is that within re-search-forward, replace-match
> can reference tagged-groups as (match-string 2) etc but to do an eval for
> replace-match and get the indefinite string "N N N ..." which is equivalent
> to John Mastro's if I use replace-regexp-in-string.
> but if you want to an arithmetic on this I am getting a problem. The snippet
> is
>
> (replace-match (replace-regexp-in-string "\\([0-9.]+\\) \\([0-9.]+\\)
> \\([0-9.]+\\)"
> (concat "\n" (format "%s " (string-to-number "\\1")) "\\2" .....))
>
> The second \\2 is correctly replaced by its string value, but the first by
> two inverse transformations is not. \\2 is just inside a function (concat)
> while \\1 is a second level.
>
> The error is that the value of \\1 is just zero. If I replace \\1 by lets
> say 6 then I get the correct answer.
I don't think the "\\1"-style references are going to help you, since
you need to do math with the numbers first.
So what you need is `match-string', like I used in my answer to your
previous question. That will let you get the numbers and do what you
like with them.
Also, `replace-regexp-in-string' probably isn't what you want, since
you're operating on buffer text (as opposed to a string). For this
purpose, stick with search functions (like `re-search-forward' and
`looking-at') followed by `replace-match'.
This is what it would look like to essentially combine my answers from
yesterday and today:
(defvar number-triplet-regexp
"\\(^\\| \\)\\([0-9.]+\\) \\([0-9.]+\\) \\([0-9.]+\\)\\( \\|$\\)")
(defun something ()
(interactive)
(save-excursion
(goto-char (point-min))
(while (re-search-forward "BEGIN" nil t)
(insert "\n")
(delete-horizontal-space)
(while (looking-at number-triplet-regexp)
(let ((i (string-to-number (match-string 2)))
(j (string-to-number (match-string 3)))
(k (string-to-number (match-string 4))))
(replace-match (format "%s %s\n" (/ (+ i j) 2.0) (/ (+ j k) 2.0)))))
(when (looking-at "END")
(replace-match "Z")))))
(I pulled the regexp out to a defvar purely to combat line length; it
doesn't change anything about how it works).
--
john
next prev parent reply other threads:[~2015-06-07 2:46 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-06-06 17:44 Tricky Regexp - How to insert a marker every 3rd number in a sequence that begins with a certain delimiter gnuist006
2015-06-06 18:15 ` Emanuel Berg
2015-06-06 19:08 ` John Mastro
[not found] ` <CAF=27p0sY6oPo=Hcj1uZn2-ZSb5tiLQDVV3YHjZdXQVZH2VSUA@mail.gmail.com>
[not found] ` <CAOj2CQSLKKxS1xT1nWLe3mP9XaypddXux7F=9tnT_jiMgN+CXA@mail.gmail.com>
2015-06-07 0:57 ` gnu ist
2015-06-07 2:46 ` John Mastro [this message]
[not found] ` <mailman.4479.1433617759.904.help-gnu-emacs@gnu.org>
2015-06-06 22:14 ` Emanuel Berg
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAOj2CQSMemESTMErntEeU-kevhhEnzvmjZZFFNmTXxHxxM-wGg@mail.gmail.com \
--to=john.b.mastro@gmail.com \
--cc=gnuist006@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.