;; -*- mode: emacs-lisp -*-

;    GIFT, a flexible content based image retrieval system.
;    Copyright (C) 1998, 1999, 2000 CUI, University of Geneva

;    This program is free software; you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation; either version 2 of the License, or
;    (at your option) any later version.

;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.

;    You should have received a copy of the GNU General Public License
;    along with this program; if not, write to the Free Software
;    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

(defun gift-kill-param ()
  "Kill the c++ parameter containing the cursor "
  (progn
    (search-backward-regexp "[(,]")
    (forward-char)
    (search-forward-regexp "[),]")
    (backward-char)
    (exchange-point-and-mark)
    (kill-region)
    )
  )

(defun gift-transpose-params ()
  "Transpose the c++ parameter containing the cursor with the following one"
  (interactive)
  (progn
    (gift-kill-param)
    (forward-char)
    (gift-kill-param)
    (kill-region)
    (backward-char)
    (yank 2)
    (forward-char)
    (yank 1)))