Re: How to indent on LOCK(); macro???

[Alan Mackenzie]

Roy Smith <roy@panix.com> wrote on Wed, 31 Aug 2005 19:50:01 -0400:
> In article <drh4fd.76.ln@acm.acm>, Alan Mackenzie <acm@muc.de> wrote:
>> And if you're not a Lisp hacker (or can't be bothered), say so, and I'll
>> throw some code together for you.

> Wow.  An offer I can't refuse.  Thanks!

OK, here goes!  Put the code into your .emacs.  Both the functions here
get byte compiled (they'll be getting called a _lot_).  To hook up to
your CC Mode, do one of:

(a) If you're a hooker:
  (add-hook 'c-special-indent-hook 'rs-LOCK-reindent)

(b) If you're a touch more stylish:
  Put a line like this into your style definition:
(c-special-indent-hook . rs-LOCK-reindent)

Here's the code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun rs-back-to-LOCK-p ()
  "Search backwards for the LOCK keyword.  If we find it, leave point there
and return non-`nil'.  If we don't find it, return nil, and point is left
undefined."
  (let (in-lit target)
    (while (and (search-backward-regexp "^[ \t]*\\(LOCK[ \t]*(\\)" nil t)
                (setq target (match-beginning 1))
                (setq in-lit (c-in-literal))))
    (when (and target (not in-lit))
      (goto-char target)
      t)))
(byte-compile 'rs-back-to-LOCK-p)

(defun rs-LOCK-reindent ()
  "Function to reindent lines inside and around blocks of lines delimited by
the macros LOCK and END_LOCK, as follows:

1   LOCK (mydatalock)
2       *myData++ = foo;
3       Data_count += 1;
4   END_LOCK
5   do_something_else ();

NOTE:  There are no semicolons terminating the LOCK/END_LOCK lines."
  ;; Another note: c-syntactic-context is bound to the s.c. for the current
  ;; line.
  (let (org-indent new-indent stmt-dpair)
    (save-excursion
      (save-match-data
        (setq org-indent (progn (back-to-indentation) (current-column))
              new-indent org-indent)
        (cond
         ;; L4?
         ((looking-at "END_LOCK")
          (if (rs-back-to-LOCK-p)
            (setq new-indent (current-column))))
         ((setq stmt-dpair (assq 'statement-cont c-syntactic-context))
          (goto-char (if (consp (cdr stmt-dpair))
                         (cadr stmt-dpair) ; cc-mode >= 5.30
                       (cdr stmt-dpair))) ; cc-mode 5.28
          (cond
           ;; L5?
           ((looking-at "END_LOCK\\>\\([^_]\\|$\\)")
            (if (rs-back-to-LOCK-p)
                (setq new-indent (current-column))))
           ;; L2?
           ((looking-at "LOCK[ \t]")
            (setq new-indent (+ (current-column) c-basic-offset)))))
         ;; L3?
         ((and (assq 'statement c-syntactic-context)
               ;; (eq (c-beginning-of-statement-1) 'previous) ; Needs >= 5.30
               (progn (c-beginning-of-statement-1)
                      (looking-at "LOCK[ \t]+(")))
          (setq new-indent (+ (current-column) c-basic-offset))))))
    (c-shift-line-indentation (- new-indent org-indent))))
(byte-compile 'rs-LOCK-reindent)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Just one thing - the code as it stands might not handle labels properly.
I mean, you've not got any goto's in the C code, have you?  Certainly not
in critical sections.  ;-)

Let me know how you get on!

-- 
Alan Mackenzie (Munich, Germany)
Email: aacm@muuc.dee; to decode, wherever there is a repeated letter
(like "aa"), remove half of them (leaving, say, "a").