[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Commit-womb] gnumaint mfupgrade
From: |
Jose E. Marchesi |
Subject: |
[Commit-womb] gnumaint mfupgrade |
Date: |
Thu, 31 Aug 2006 21:58:01 +0000 |
CVSROOT: /cvsroot/womb
Module name: gnumaint
Changes by: Jose E. Marchesi <jemarch> 06/08/31 21:58:01
Modified files:
. : mfupgrade
Log message:
Include the first page contents and the page separator ^L on output
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/mfupgrade?cvsroot=womb&r1=1.1.1.1&r2=1.2
Patches:
Index: mfupgrade
===================================================================
RCS file: /cvsroot/womb/gnumaint/mfupgrade,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -b -r1.1.1.1 -r1.2
--- mfupgrade 30 Aug 2006 00:31:22 -0000 1.1.1.1
+++ mfupgrade 31 Aug 2006 21:58:01 -0000 1.2
@@ -9,6 +9,8 @@
### Global variables
###
+set first_page_contents {}
+
set contact_regexp {(?x)
# A regexp to match contact information
^([^<(]*) # The name of the contact (optional)
@@ -84,6 +86,7 @@
proc build_maintainers_db {} {
+ global first_page_contents
global maintainers_file
global maintainersdb
@@ -95,12 +98,16 @@
exit 1
}
- # Get the first line
+ # Get the first line and collect the info
gets $finput line
+ append first_page_contents $line
+ append first_page_contents "\n"
# Skip until second page
while {(![eof $finput]) && ([string index $line 0] != "\f")} {
gets $finput line
+ append first_page_contents $line
+ append first_page_contents "\n"
}
# Consume the ^L
if {![eof $finput]} then {
@@ -121,8 +128,12 @@
proc do_convert {} {
+ global first_page_contents
global maintainersdb
+ puts $first_page_contents
+ puts {}
+
foreach pkg $maintainersdb {
if {[lindex $pkg 2] == ""} then {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Commit-womb] gnumaint mfupgrade,
Jose E. Marchesi <=