reinit the tree, so we can have metadata

8 files changed, 189 insertions, 0 deletions

diff --git a/dev-util/visual-regexp/files/visual-regexp-3.0-help-font-fix.patch b/dev-util/visual-regexp/files/visual-regexp-3.0-help-font-fix.patch
new file mode 100644
index 000000000000..ec3763cc9dd1
--- /dev/null
+++ b/dev-util/visual-regexp/files/visual-regexp-3.0-help-font-fix.patch
@@ -0,0 +1,26 @@
+diff -ur a/visual_regexp.tcl b/visual_regexp.tcl
+--- a/visual_regexp.tcl	2013-11-10 01:35:49.959609478 +0100
++++ b/visual_regexp.tcl	2013-11-10 01:34:10.491151352 +0100
+@@ -494,15 +494,18 @@
+ 	pack .help.l -side top -padx 10 -pady 10
+ 	# help text
+ 	if {$tcl_platform(platform) == "windows"} {
+-		text .help.t -bd 2 -relief groove -font {Courier 10}
++        set hfont {Courier 10}
++        set hbfont {Courier 10 bold}
+ 	} else {
+-		text .help.t -bd 2 -relief groove
++        set hfont {9x15}
++        set hbfont {9x15bold}
+ 	}
++    text .help.t -bd 2 -relief groove -font $hfont
+ 	pack .help.t -side top -padx 20
+-	.help.t tag configure bold -font "[.help.t cget -font] bold"
++	.help.t tag configure bold -font $hbfont
+ 	.help.t insert 1.0 "Version:" bold " $::version
+ 
+-" normal "Usage:" bold " tkregexp <sampleFile>
++" normal "Usage:" bold " [file tail $::argv0] <sampleFile>
+ 
+ " normal "Key bindings:" bold " Alt-q               exit
+               Alt-a               toggle 'all' flag
diff --git a/dev-util/visual-regexp/files/visual-regexp-3.0-home-conf-fix.patch b/dev-util/visual-regexp/files/visual-regexp-3.0-home-conf-fix.patch
new file mode 100644
index 000000000000..c86202ae05fb
--- /dev/null
+++ b/dev-util/visual-regexp/files/visual-regexp-3.0-home-conf-fix.patch
@@ -0,0 +1,56 @@
+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
+@@ -1062,27 +1060,38 @@
+ #==============================================================================================
+ 
+ # try to get customization from 'visual_regexp.ini'
+-puts "[file exists visual_regexp.ini]"
+-set filename [file dirname [info nameofexecutable]]/visual_regexp.ini
+-if {[file exists $filename]} {
+-	source $filename
+-} elseif {[file exists visual_regexp.ini]} {
+-	source visual_regexp.ini
++set localfilename visual_regexp.ini
++set homefilename ""
++if {[info exists ::env(HOME)]} {
++	set homefilename [file join $::env(HOME) .visual_regexp visual_regexp.ini]
+ }
+-
+-# try to auto user patterns
+-set filename [file dirname [info nameofexecutable]]/regexp.txt
+-if {[file exists $filename]} {
+-	regexp::pattern:load $filename
+-} elseif {[file exists regexp.txt]} {
+-	regexp::pattern:load regexp.txt
++set binfilename [file join [file dirname [info nameofexecutable]] visual_regexp.ini]
++foreach filename [list $localfilename $homefilename $binfilename] {
++	if {[file exists $filename]} {
++		source $filename
++		break
++	}
+ }
+ 
+-# buld the GUI
++# build the GUI
+ regexp::history:init
+ regexp::gui
+ regexp::go
+ 
++# try to auto user patterns
++set localfilename regexp.txt
++set homefilename ""
++if {[info exists ::env(HOME)]} {
++	set homefilename [file join $::env(HOME) .visual_regexp regexp.txt]
++}
++set binfilename [file join [file dirname [info nameofexecutable]] regexp.txt]
++foreach filename [list $localfilename $homefilename $binfilename] {
++	if {[file exists $filename]} {
++		regexp::pattern:load $filename
++		break
++	}
++}
++
+ if {$argc > 1} {
+ 	puts "Usage: $argv0 <sampleFile>"
+ } elseif {$argc == 1} {
diff --git a/dev-util/visual-regexp/files/visual-regexp-3.0-pattern-load-fix.patch b/dev-util/visual-regexp/files/visual-regexp-3.0-pattern-load-fix.patch
new file mode 100644
index 000000000000..18dbf509f45a
--- /dev/null
+++ b/dev-util/visual-regexp/files/visual-regexp-3.0-pattern-load-fix.patch
@@ -0,0 +1,31 @@
+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]"
++	}
+ }
+ 
+ 
diff --git a/dev-util/visual-regexp/files/visual-regexp-3.0-wish-fix.patch b/dev-util/visual-regexp/files/visual-regexp-3.0-wish-fix.patch
new file mode 100644
index 000000000000..bfb7478d1fec
--- /dev/null
+++ b/dev-util/visual-regexp/files/visual-regexp-3.0-wish-fix.patch
@@ -0,0 +1,12 @@
+diff -ur visual_regexp-3.0/visual_regexp.tcl visual_regexp-current/visual_regexp.tcl
+--- visual_regexp-3.0/visual_regexp.tcl	2002-09-01 08:24:56.000000000 -0500
++++ visual_regexp-current/visual_regexp.tcl	2004-03-29 23:20:43.000000000 -0500
+@@ -1,7 +1,7 @@
+ #!/bin/sh  
+ #-*-tcl-*-  
+ # the next line restarts using wish \
+-exec wish8.3 "$0" -- ${1+"$@"}
++exec wish "$0" -- ${1+"$@"}
+ 
+ 
+ set version 3.0
diff --git a/dev-util/visual-regexp/files/visual-regexp-3.1-help-font-fix.patch b/dev-util/visual-regexp/files/visual-regexp-3.1-help-font-fix.patch
new file mode 100644
index 000000000000..1dd7e7021b4f
--- /dev/null
+++ b/dev-util/visual-regexp/files/visual-regexp-3.1-help-font-fix.patch
@@ -0,0 +1,32 @@
+diff -ur a/visual_regexp.tcl b/visual_regexp.tcl
+--- a/visual_regexp.tcl	2013-11-10 01:49:14.987065220 +0100
++++ b/visual_regexp.tcl	2013-11-10 01:49:04.177341077 +0100
+@@ -740,10 +740,13 @@
+ 	frame .help.text;
+ 
+ 	if {$tcl_platform(platform) == "windows"} {
+-		text .help.text.t -borderwidth 2 -relief groove -font {Courier 10} -yscrollcommand [list .help.text.sy set];
++        set hfont {Courier 10}
++        set hbfont {Courier 10 bold}
+ 	} else {
+-		text .help.text.t -borderwidth 2 -relief groove -yscrollcommand [list .help.text.sy set];
++        set hfont {9x15}
++        set hbfont {9x15bold}
+ 	}
++    text .help.text.t -borderwidth 2 -relief groove -font $hfont -yscrollcommand [list .help.text.sy set];
+ 
+ 	scrollbar	.help.text.sy \
+ 		-command			".help.text.t yview" \
+@@ -755,10 +758,10 @@
+ 
+ 	pack .help.text -side top -fill both -expand 1 -padx 20
+ 
+-	.help.text.t tag configure bold -font "[.help.text.t cget -font] bold"
++	.help.text.t tag configure bold -font $hbfont
+ 	.help.text.t insert 1.0 "Version:" bold " $::version
+ 
+-" normal "Usage:" bold " tkregexp <sampleFile>
++" normal "Usage:" bold " [file tail $::argv0] <sampleFile>
+ 
+ " normal "Key bindings:" bold " Alt-q               exit
+               Alt-a               toggle 'all' flag
diff --git a/dev-util/visual-regexp/files/visual-regexp-3.1-make-regexp-fix.patch b/dev-util/visual-regexp/files/visual-regexp-3.1-make-regexp-fix.patch
new file mode 100644
index 000000000000..6610b16e76ff
--- /dev/null
+++ b/dev-util/visual-regexp/files/visual-regexp-3.1-make-regexp-fix.patch
@@ -0,0 +1,12 @@
+diff -ur a/visual_regexp.tcl b/visual_regexp.tcl
+--- a/visual_regexp.tcl	2013-11-11 12:11:34.256631106 +0100
++++ b/visual_regexp.tcl	2013-11-11 11:50:46.614881803 +0100
+@@ -1437,7 +1439,7 @@
+ 		set output [text	$f.output \
+ 			-wrap						char \
+ 			-undo						1 \
+-			-background				white 
++			-background				white \
+ 			-font						$::font_regexp \
+ 			-selectbackground		lightblue \
+ 			-selectborderwidth	0 \
diff --git a/dev-util/visual-regexp/files/visual-regexp-3.1-wish-fix.patch b/dev-util/visual-regexp/files/visual-regexp-3.1-wish-fix.patch
new file mode 100644
index 000000000000..3fae9d095025
--- /dev/null
+++ b/dev-util/visual-regexp/files/visual-regexp-3.1-wish-fix.patch
@@ -0,0 +1,13 @@
+diff -ur a/visual_regexp.tcl b/visual_regexp.tcl
+--- a/visual_regexp.tcl	2013-10-29 03:42:43.443932232 +0100
++++ b/visual_regexp.tcl	2013-10-29 03:35:35.441951822 +0100
+@@ -1,7 +1,6 @@
+-package require starkit
+-starkit::startup
++#!/usr/bin/wish
+ 
+-set version 3.0
++set version 3.1
+ 
+ ###############################################################################################
+ #
diff --git a/dev-util/visual-regexp/files/visualregexp.desktop b/dev-util/visual-regexp/files/visualregexp.desktop
new file mode 100644
index 000000000000..1d66181bc2c1
--- /dev/null
+++ b/dev-util/visual-regexp/files/visualregexp.desktop
@@ -0,0 +1,7 @@
+[Desktop Entry]
+Type=Application
+Exec=visualregexp
+Icon=visualregexp-icon
+Name=Visual Regexp
+Comment=An interactive regular expression editor
+Categories=Development;