# List all the files or directories in the current directory that # do not occur in the specified directory. # Copyright (c) 1990-2012 by Hamilton Laboratories. All rights reserved. proc newfiles(olddir) local i if ( $#olddir == 0 ) @ olddir = "." foreach i (*) if (! -e $olddir\$i) calc i end end newfiles $argv |