1#!/usr/local/bin/tclsh 2 3set CTMname src-cur 4set CTMref $CTMSW/../$CTMname 5set CTMcopy /c/phk/20R/usr/src 6set CTMdont {\.core$|/CVS$|/CVS/|^/secure|^/eBones|/#cvs|/\.#} 7set CTMtest 1 8set CTMspecial 1 9set CTMsuff R20 10