pro diff,dir1,dir2

; C See 10/9/98
;This program lists the differences in the files of dir1 vs dir2

cd,dir1
files1=findfile('*',count=nfiles1)

cd,dir2
files2=findfile('*',count=nfiles2)

if nfiles1 ne nfiles2 then print,'There are a different number of files in the two directories'


for i=0,nfiles1-1 do begin
 exist=where(files1(i) eq files2)
 if exist(0) eq -1 then goto,next
 print,string(10B),'Comparing ',files1(i),' to ',files2(i)
 command='diff '+dir1+'/'+files1(i)+' '+dir2+'/'+files2(i)
 spawn,command,out
 print,out
 next:
endfor

end