mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2025-12-21 21:17:37 -08:00
56bd759df1
This commit represents a new era for Gentoo: Storing the gentoo-x86 tree in Git, as converted from CVS. This commit is the start of the NEW history. Any historical data is intended to be grafted onto this point. Creation process: 1. Take final CVS checkout snapshot 2. Remove ALL ChangeLog* files 3. Transform all Manifests to thin 4. Remove empty Manifests 5. Convert all stale $Header$/$Id$ CVS keywords to non-expanded Git $Id$ 5.1. Do not touch files with -kb/-ko keyword flags. Signed-off-by: Robin H. Johnson <robbat2@gentoo.org> X-Thanks: Alec Warner <antarus@gentoo.org> - did the GSoC 2006 migration tests X-Thanks: Robin H. Johnson <robbat2@gentoo.org> - infra guy, herding this project X-Thanks: Nguyen Thai Ngoc Duy <pclouds@gentoo.org> - Former Gentoo developer, wrote Git features for the migration X-Thanks: Brian Harring <ferringb@gentoo.org> - wrote much python to improve cvs2svn X-Thanks: Rich Freeman <rich0@gentoo.org> - validation scripts X-Thanks: Patrick Lauer <patrick@gentoo.org> - Gentoo dev, running new 2014 work in migration X-Thanks: Michał Górny <mgorny@gentoo.org> - scripts, QA, nagging X-Thanks: All of other Gentoo developers - many ideas and lots of paint on the bikeshed
32 lines
891 B
Diff
32 lines
891 B
Diff
diff -ur a/visual_regexp.tcl b/visual_regexp.tcl
|
|
--- a/visual_regexp.tcl 2013-11-12 23:23:59.730171882 +0100
|
|
+++ b/visual_regexp.tcl 2013-11-12 23:24:42.134085257 +0100
|
|
@@ -380,19 +380,17 @@
|
|
}
|
|
# do it
|
|
set in [open $file "r"]
|
|
- $data(w:menu) delete [expr 4+[llength $::regexp_db]/2] end
|
|
- while {![eof $in]} {
|
|
- set name [gets $in]
|
|
- while {$name == ""} {
|
|
- set name [gets $in]
|
|
- }
|
|
- set pattern [gets $in]
|
|
- while {$pattern == ""} {
|
|
- set pattern [gets $in]
|
|
+ set contents {}
|
|
+ foreach line [split [read $in] \n] {
|
|
+ if {$line != ""} {
|
|
+ lappend contents $line
|
|
}
|
|
- $data(w:menu) add command -label $name -command "regexp::regexp:insert [list $pattern]"
|
|
}
|
|
close $in
|
|
+ $data(w:menu) delete [expr 4+[llength $::regexp_db]/2] end
|
|
+ foreach {name pattern} $contents {
|
|
+ $data(w:menu) add command -label $name -command "regexp::regexp:insert [list $pattern]"
|
|
+ }
|
|
}
|
|
|
|
|