Some recent small changes. Probably about time I start writing this in C.
This commit is contained in:
parent
9219d44e66
commit
3e2402edc3
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=6553
@ -4,7 +4,7 @@ set CTMname cvs-cur
|
||||
set CTMref /u1/CVS-FreeBSD
|
||||
set CTMdest /u4/ftp/pub/CTM
|
||||
set CTMprefix .
|
||||
set CTMdont {^/CVSROOT/history.*$|^/src/secure|^/src/eBones|^/sup/}
|
||||
set CTMdont {.*\.core$|^/CVSROOT/history.*$|^/src/secure|^/src/eBones|^/sup/}
|
||||
|
||||
set CTMcopy /u1/CTM/$CTMname
|
||||
set CTMtmp /u1/CTM/tmp/_tmp_$CTMname
|
||||
|
@ -4,8 +4,8 @@ set CTMname src-cur
|
||||
set CTMref /u4/ftp/pub/FreeBSD/SRC-current/src
|
||||
set CTMdest /u4/ftp/pub/CTM
|
||||
set CTMprefix .
|
||||
set CTMdont {/CVS$|/CVS/Entries$|/CVS/Repository$|^secure|^eBones}
|
||||
set CTMmail ctm-src-cur
|
||||
set CTMdont {.*\.core$|/CVS$|/CVS/Entries$|/CVS/Repository$|^secure|^eBones}
|
||||
set CTMmail ctm-src-cur@freebsd.org
|
||||
|
||||
set CTMcopy /u1/CTM/$CTMname
|
||||
set CTMtmp /u1/CTM/tmp/_tmp_$CTMname
|
||||
|
@ -4,6 +4,7 @@ set CTMignoreCVS 0
|
||||
set CTMapply 1
|
||||
set CTMdont {^///}
|
||||
set CTMmail {}
|
||||
set CTMsuff {}
|
||||
|
||||
source $argv
|
||||
|
||||
@ -17,32 +18,40 @@ set foo $CTMdate
|
||||
set foo $CTMprefix
|
||||
set foo $CTMname
|
||||
|
||||
####
|
||||
# Find CTM#
|
||||
for {set i 0} {1} {incr i} {
|
||||
if {[file exists [format "%s/$CTMname.%04d" $dd $i]]} continue
|
||||
if {[file exists [format "%s/$CTMname.%04d.gz" $dd $i]]} continue
|
||||
break
|
||||
if { "$d1" != "" } {
|
||||
####
|
||||
# Find CTM#
|
||||
for {set i 0} {1} {incr i} {
|
||||
if {[file exists [format "%s/$CTMname.%04d" $dd $i]]} continue
|
||||
if {[file exists [format "%s/$CTMname.%04d.gz" $dd $i]]} continue
|
||||
break
|
||||
}
|
||||
set CTMnbr $i
|
||||
|
||||
set fo [open $d2/.ctm_status w]
|
||||
puts $fo "$CTMname $CTMnbr"
|
||||
close $fo
|
||||
|
||||
puts "Doing CTMname $CTMname CTMnbr $CTMnbr CTMdate $CTMdate"
|
||||
|
||||
exec sh -x -c "rm -f ${tmp}.*" >&@ stdout
|
||||
|
||||
set f1 [open "| ./ctm_scan $d1"]
|
||||
# set this to minus one, to compensate for .ctm_status
|
||||
set changes -1
|
||||
} else {
|
||||
set CTMnbr [lindex [exec cat $d2/.ctm_status] 1]
|
||||
puts "Doing CTMname $CTMname CTMnbr $CTMnbr CTMdate $CTMdate"
|
||||
exec sh -x -c "rm -f ${tmp}.*" >&@ stdout
|
||||
set f1 [open /dev/null]
|
||||
set changes 0
|
||||
}
|
||||
set CTMnbr $i
|
||||
|
||||
set fo [open $d2/.ctm_status w]
|
||||
puts $fo "$CTMname $CTMnbr"
|
||||
close $fo
|
||||
|
||||
puts "Doing CTMname $CTMname CTMnbr $CTMnbr CTMdate $CTMdate"
|
||||
|
||||
exec sh -x -c "rm -f ${tmp}.*" >&@ stdout
|
||||
|
||||
set f1 [open "| ./ctm_scan $d1"]
|
||||
set f2 [open "| ./ctm_scan $d2"]
|
||||
|
||||
set fo_del [open $tmp.del w]
|
||||
set fo_rmdir [open $tmp.rmdir w]
|
||||
set fo_mkdir [open $tmp.mkdir w]
|
||||
set fo_files [open $tmp.files w]
|
||||
# set this to minus one, to compensate for .ctm_status
|
||||
set changes -1
|
||||
|
||||
#####
|
||||
# Type Name Mode User Group Barf Size Hash
|
||||
@ -164,10 +173,8 @@ while 1 {
|
||||
}
|
||||
}
|
||||
if {$ll1 < $ll2} {
|
||||
puts "<$ll1> < <$ll2>\n <$l1>\n <$l2>"
|
||||
eval CTMadd $l2 ; set l2 "" ; continue
|
||||
} else {
|
||||
puts "<$ll1> > <$ll2>\n <$l1>\n <$l2>"
|
||||
eval CTMdel $l1 ; set l1 "" ; continue
|
||||
}
|
||||
|
||||
@ -191,7 +198,7 @@ if {!$changes} {
|
||||
exit 0
|
||||
}
|
||||
flush stdout
|
||||
set nm [format "%s.%04d" $CTMname $CTMnbr]
|
||||
set nm [format "%s.%04d%s" $CTMname $CTMnbr $CTMsuff]
|
||||
|
||||
exec cat $tmp.begin $tmp.del $tmp.rmdir $tmp.mkdir $tmp.files $tmp.end \
|
||||
| gzip -9 > ${tmp}:${nm}.gz
|
||||
|
Loading…
Reference in New Issue
Block a user