Annotation of /openisis/current/tcl/doclog

#!/opt/bin/tclsh
# create mikidoc from doc's cvs log
#
#       $Revision: 1.2 $
#

proc mikify {in out {since ""}} {
        set indesc 0
        while {0 <= [gets $in line]} {
                # puts stderr $line
                switch -glob -- $line RCS* {
                        if ![regexp {([^/]*).txt,v} $line - file] { set file "" }
                } revision* {
                        regexp {revision (.*)} $line - rev
                } date:* {
                        if {"" != $file} {
                                regexp {date: ([^;]*);\s*author: ([^;]*);} $line - date author
                                set indesc 1
                                set desc ""
                        }
                } ---* - ===* {
                        if $indesc {
                                set indesc 0
                                set chg($date\t$file\t$rev\t$author) $desc
                        }
                } default {
                        if $indesc { append desc "\n\t" $line }
                }
        }
        set tim [clock seconds]
        puts $out "[clock format $tim -format %Y%m%d%H%M%S -gmt 1]"
        puts $out "(created by doclog on [clock format $tim -format {%a, %d %b %Y %H:%M %Z}])\n\n"
        puts $out "*\tchanges since $since"
        foreach n [lsort -decreasing [array names chg]] {
                foreach {date file rev author} [split $n "\t"] break
                if {[regexp {^(.*)\.(\d*)$} $rev - foo min]
                        && $min && [set prev [expr $min-1]]
                } {
                        set diff "\n>\thttp://cvs.sf.net/cgi-bin/viewcvs.cgi/isis/openisis/doc/$file.txt.diff?r1=$foo.$prev&r2=$rev\t(diff)"
                } else {
                        set diff ""
                }
                puts $out "-\t$date\n>\t$file\n\t$rev$diff$chg($n)"
        }
}

if !$argc {
        mikify stdin stdout
} else {
        switch -glob -- $argv \
        m* {
                set since "1 month ago"
                set txt MonthlyChanges.txt
        } default {
                set since "1 week ago"
                set txt WeeklyChanges.txt
        }
        set in [open "|cvs log {-d>$since} 2>&1"]
        set out [open $txt w]
        mikify $in $out $since
        close $out
        close $in
}
1	dpavlin	237	#!/opt/bin/tclsh
2			# create mikidoc from doc's cvs log
3			#
4			# $Revision: 1.2 $
5			#
6
7			proc mikify {in out {since ""}} {
8			set indesc 0
9			while {0 <= [gets $in line]} {
10			# puts stderr $line
11			switch -glob -- $line RCS* {
12			if ![regexp {([^/]*).txt,v} $line - file] { set file "" }
13			} revision* {
14			regexp {revision (.*)} $line - rev
15			} date:* {
16			if {"" != $file} {
17			regexp {date: ([^;]);\sauthor: ([^;]*);} $line - date author
18			set indesc 1
19			set desc ""
20			}
21			} ---* - ===* {
22			if $indesc {
23			set indesc 0
24			set chg($date\t$file\t$rev\t$author) $desc
25			}
26			} default {
27			if $indesc { append desc "\n\t" $line }
28			}
29			}
30			set tim [clock seconds]
31			puts $out "[clock format $tim -format %Y%m%d%H%M%S -gmt 1]"
32			puts $out "(created by doclog on [clock format $tim -format {%a, %d %b %Y %H:%M %Z}])\n\n"
33			puts $out "*\tchanges since $since"
34			foreach n [lsort -decreasing [array names chg]] {
35			foreach {date file rev author} [split $n "\t"] break
36			if {[regexp {^(.)\.(\d)$} $rev - foo min]
37			&& $min && [set prev [expr $min-1]]
38			} {
39			set diff "\n>\thttp://cvs.sf.net/cgi-bin/viewcvs.cgi/isis/openisis/doc/$file.txt.diff?r1=$foo.$prev&r2=$rev\t(diff)"
40			} else {
41			set diff ""
42			}
43			puts $out "-\t$date\n>\t$file\n\t$rev$diff$chg($n)"
44			}
45			}
46
47			if !$argc {
48			mikify stdin stdout
49			} else {
50			switch -glob -- $argv \
51			m* {
52			set since "1 month ago"
53			set txt MonthlyChanges.txt
54			} default {
55			set since "1 week ago"
56			set txt WeeklyChanges.txt
57			}
58			set in [open "\|cvs log {-d>$since} 2>&1"]
59			set out [open $txt w]
60			mikify $in $out $since
61			close $out
62			close $in
63			}