From owner-freebsd-net@FreeBSD.ORG  Sat Jun  4 00:16:34 2005
Return-Path: <owner-freebsd-net@FreeBSD.ORG>
X-Original-To: freebsd-net@freebsd.org
Delivered-To: freebsd-net@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id D608616A41C;
	Sat,  4 Jun 2005 00:16:34 +0000 (GMT)
	(envelope-from jinmei@isl.rdc.toshiba.co.jp)
Received: from shuttle.wide.toshiba.co.jp (shuttle.wide.toshiba.co.jp
	[202.249.10.124])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 5819A43D49;
	Sat,  4 Jun 2005 00:16:34 +0000 (GMT)
	(envelope-from jinmei@isl.rdc.toshiba.co.jp)
Received: from ocean.jinmei.org (unknown [2001:4f8:3:bb:780b:f29b:bfac:bc60])
	by shuttle.wide.toshiba.co.jp (Postfix) with ESMTP
	id AC83215225; Sat,  4 Jun 2005 09:19:38 +0900 (JST)
Date: Sat, 04 Jun 2005 09:17:29 +0900
Message-ID: <y7vis0vt1pi.wl%jinmei@isl.rdc.toshiba.co.jp>
From: JINMEI Tatuya / =?ISO-2022-JP?B?GyRCP0BMQEMjOkgbKEI=?=
	<jinmei@isl.rdc.toshiba.co.jp>
To: "Li, Qing" <qing.li@bluecoat.com>
In-Reply-To: <48D44BB27BDE3840BDF18E59CB169A5C012A51E0@bcs-mail3.internal.cacheflow.com>
References: <48D44BB27BDE3840BDF18E59CB169A5C012A51E0@bcs-mail3.internal.cacheflow.com>
User-Agent: Wanderlust/2.14.0 (Africa) Emacs/21.3 Mule/5.0 (SAKAKI)
Organization: Research & Development Center, Toshiba Corp., Kawasaki, Japan.
MIME-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka")
Content-Type: text/plain; charset=US-ASCII
Cc: freebsd-net@freebsd.org, Andre Oppermann <andre@freebsd.org>
Subject: Re: issue with route
X-BeenThere: freebsd-net@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Networking and TCP/IP with FreeBSD <freebsd-net.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-net>,
	<mailto:freebsd-net-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-net>
List-Post: <mailto:freebsd-net@freebsd.org>
List-Help: <mailto:freebsd-net-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-net>,
	<mailto:freebsd-net-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sat, 04 Jun 2005 00:16:35 -0000

(I'm afraid we're going to an off-topic.  If this message needs a
response, we should perhaps do that off-list.)

>>>>> On Fri, 3 Jun 2005 15:40:14 -0700, 
>>>>> "Li, Qing" <qing.li@bluecoat.com> said:

>> Are you perhaps asking for .emacs setting which conforms to this (the
>> four-space) style?

>     Yes, do you have one ?

I'm using this one.

					JINMEI, Tatuya
					Communication Platform Lab.
					Corporate R&D Center, Toshiba Corp.
					jinmei@isl.rdc.toshiba.co.jp

(add-hook 'c-mode-common-hook
	  (function
	   (lambda ()
	     (c-set-style "bsd")
	     (c-set-offset 'statement 'netbsd-knf-lineup-statement)
	     (c-set-offset 'arglist-intro 'netbsd-knf-lineup-arglist)
	     (c-set-offset 'arglist-cont 'netbsd-knf-lineup-arglist)
             (c-set-offset 'arglist-cont-nonempty 'netbsd-knf-lineup-arglist)
...;;(other personal settings)
)))

(defun netbsd-knf-lineup-arglist (langelem)
  (let ((syntax (car (c-guess-basic-syntax)))
	(langelem-col (c-langelem-col langelem t))
	(head)
	)
    (save-excursion
      (while (memq (car syntax)
		   '(arglist-cont-nonempty statement-cont
					   arglist-intro arglist-cont))
	(goto-char (cdr syntax))
	(setq syntax (car (c-guess-basic-syntax))))
      (if (eq (car syntax) 'statement)
	  (goto-char (netbsd-knf-statement-head)))
      (beginning-of-line)
      (skip-chars-forward " \t")
      (+ (- (current-column) langelem-col) (/ c-basic-offset 2)))))

(defun netbsd-knf-statement-head ()
  (let ((cp (point)))
    (save-excursion
      (backward-up-list 1)
      (cond ((netbsd-knf-after-for-loop-p (point))
	     (beginning-of-line)
	     (skip-chars-forward " \t")
	     (point))
	   (t cp)))))

(defun netbsd-knf-lineup-statement (langelem)
  (let ((syntax (car (c-guess-basic-syntax))))
    (cond ((and (cdr syntax)	;to handle (comment-intro) (statement . xx)
		(netbsd-knf-after-for-loop-p (cdr syntax)))
	   (save-excursion
	     (goto-char (cdr syntax))
	     (beginning-of-line)
	     (skip-chars-forward " \t")
	     (+ (- (current-column) (c-langelem-col langelem t))
		(/ c-basic-offset 2))))
	(t 0))))

(defun netbsd-knf-after-for-loop-p (pos)
  "True if POS is just after `for ('"
  (save-excursion
    (goto-char pos)
    (condition-case ()
	(progn (backward-word 1)
	       (looking-at "\\bfor ("))
      (beginning-of-buffer nil))))