16777Sphk#!/usr/local/bin/tclsh 26777Sphk 36777Sphkset CTMname src-cur 46777Sphkset CTMref $CTMSW/../$CTMname 56777Sphkset CTMcopy /c/phk/20R/usr/src 66777Sphkset CTMdont {\.core$|/CVS$|/CVS/|^/secure|^/eBones|/#cvs|/\.#} 76777Sphkset CTMtest 1 86777Sphkset CTMspecial 1 96777Sphkset CTMsuff R20 10