unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: Rupert Swarbrick <rswarbrick@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: How to automatically increment an index array
Date: Thu, 26 Jun 2008 12:47:01 +0100	[thread overview]
Message-ID: <g3vvjm$keh$1@news.albasani.net> (raw)
In-Reply-To: mailman.13859.1214468323.18990.help-gnu-emacs@gnu.org

"Francis Moreau" <francis.moro@gmail.com> writes:

> Hello
>
> I have this problem: in a buffer, *scratch* for example I have:
>
>   [8735b450] = xxx,
>   [0x15] = xxx,
>   [0x16] = xxx,
>   [0x17] = xxx,
>   [0x18] = xxx,
>   [0x19] = xxx,
>   [0x1a] = xxx,
>   [0x1b] = xxx,
>
> After running a 'magic' command I'd like to calculate the new array indexes
> as follow:
>
>   [8735b450] = xxx,
>   [8735b454] = xxx,
>   [8735b458] = xxx,
>   [8735b45c] = xxx,
>   [8735b460] = xxx,
>   [8735b464] = xxx,
>   [8735b468] = xxx,
>   [8735b46c] = xxx,
>   ...
>
> Can anybody give me a hint ?
>

No doubt others will come up with neater versions, but here's a quick
hack. Problems with it: it doesn't do any large-scale inspection of the
text, so if you had two different sets of these with different base
addresses, you'd need to use narrow-to-region. Also there's no error
checking, so you should probably look carefully at what happened to the
buffer before saving...


Rupert


(defun do-hex-incrementing ()
  (interactive)
  (save-excursion
    (re-search-forward "\\[[0-9a-z]+\\]")
    (let ((pt) (base))
      (setf pt (1- (point)))
      (search-backward "\[")
      (setf base
            (string-to-number
             (buffer-substring (1+ (point)) pt) 16))
      (while
          (re-search-forward  "\\[0x[0-9a-z]+\]" nil t)
        (search-backward "[0x")
        (forward-char)
        (insert
         (format "%x"
                 (+ (string-to-number
                     (substring (thing-at-point 'word) 2) 16)
                    base)))
        (setf pt (point))
        (search-forward "]")
        (delete-region pt (1- (point)))))))


       reply	other threads:[~2008-06-26 11:47 UTC|newest]

Thread overview: 10+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <mailman.13859.1214468323.18990.help-gnu-emacs@gnu.org>
2008-06-26 11:47 ` Rupert Swarbrick [this message]
2008-06-26 11:52   ` How to automatically increment an index array Rupert Swarbrick
2008-06-27  2:44 ` Xah
2008-06-27  6:50   ` David Kastrup
2008-06-27  7:52     ` Thien-Thi Nguyen
     [not found]     ` <mailman.13886.1214553354.18990.help-gnu-emacs@gnu.org>
2008-06-27  8:19       ` David Kastrup
2008-06-27  7:23 ` Klaus Zeitler
2008-06-26  7:45 Francis Moreau
2008-06-26 12:51 ` Peter Dyballa
2008-06-27  8:47 ` David

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

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='g3vvjm$keh$1@news.albasani.net' \
    --to=rswarbrick@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.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).