;; -*- 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-add-gpl ()
  "add the gpl notice to the front of the file"
  (interactive)
  (insert-file 
   (gift-de-double-slash 
    (concat (getenv "GIFT") "/notice"
	    (progn
	      (beginning-of-buffer)
	      (substring (buffer-file-name)
			 (string-match "\\(\\(\\.el\\)\\|\\(\\.pre-pl\\)\\|\\(\\.pre-pm\\)\\|\\(\\.cc\\)\\|\\(\\.c\\)\\|\\(\\.h\\)\\|\\(\\.am\\)\\)$" 
				       (buffer-file-name)
				       )
			 )
	      )
	    ))
   )
  )
