]>
git.saurik.com Git - apple/security.git/blob - Security/libsecurity_codesigning/antlr2/scripts/make_change_log.tcl
2 # the next line restarts using tclsh \
6 # Sort the (C++) changes recorded in the repository by change number and
9 set depots
{//depot
/code
/org.antlr
/dev
/klaren.dev
//depot
/code
/org.antlr
/main
/main
}
10 set files
{ /lib
/cpp
/...
/antlr
/...
}
12 foreach depot
$depots {
14 append filespec
"$depot$file "
18 puts stderr
"Gettting changes from: $filespec"
20 catch {set file [open "|p4 changes -l $filespec" r
]}
27 while {![eof $file]} {
30 if { [regexp -- {^Change
([0-9]+).
*$} $line dummy tmp
] } {
31 # append the number to the list of found changes
34 if { $change_nr != -1 } {
35 # were already working on change..
36 # so we have text to store..
37 set description
($change_nr) $text
43 set text "[string trim $line]\n"
45 append text " [string trim $line]\n"
49 set description
($change_nr) $text
53 set sorted_changes
[lsort -unique -integer -decreasing $changes]
55 foreach change
$sorted_changes {
56 puts $description($change)