#
# Copia una serie de ficheros en el directorio $1.
# Supone que el directorio ha sido creado en algun momento.

# Se analiza la sintaxis del comando.
if ($#argv < 2) then
	echo Requiere una lista de file names o ptahnames
	echo el primer argumento es el directorio donde se
	echo copiaran los restantes ficheros de la lista.
	echo
	exit(1)
endif

if !(-d $1) then
	echo el fichero $1 no existe o no es un directorio
	exit(1)
endif

foreach arg ($argv[*])
	# Si el fichero no es un prog. C se pasa a otro
	if (($arg:e != "c") && ($arg:e != "h")) then
		continue	
	endif
	set nom_arg = $arg:t
	cmp -s $arg $1/$nom_arg
	# Se comparan los ficheros y se comprueba la variable
	# predefinida status.
	switch ($status)
		case 0: # Ficheros identicos
			echo Copia del fichero $nom_arg ya \
			actualizada
			breaksw
		case 1: # Ficheros diferentes
		case 2: # Fichero del backup inacesible o
			# error del sistema al comparar
			cp $arg $1/$nom_arg
			breaksw
	endsw
end
exit(0)

