ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection
(Generate patch)

Comparing rxvt-unicode/src/perl/selection (file contents):
Revision 1.44 by root, Mon Nov 19 09:27:08 2007 UTC vs.
Revision 1.51 by root, Sat Dec 26 09:42:16 2009 UTC

32 () 32 ()
33} 33}
34 34
35# "find interesting things"-patterns 35# "find interesting things"-patterns
36my @mark_patterns = ( 36my @mark_patterns = (
37 qr{ ([[:word:]]+) }x, 37# qr{ ([[:word:]]+) }x,
38 qr{ ([^[:space:]]+) }x, 38 qr{ ([^[:space:]]+) }x,
39 39
40 # common types of "parentheses" 40 # common types of "parentheses"
41 qr{ (?<![^[:space:]]) ` ([^‘’]+) ` (?![^[:space:]]) }x, 41 qr{ (?<![^[:space:]]) [`'] ([^`']+) [`'] (?![^[:space:]]) }x,
42 qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space:]]) }x, 42 qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space:]]) }x,
43 qr{ (?<![^[:space:]]) ` ([^`']+) ' (?![^[:space:]]) }x, 43 qr{ (?<![^[:space:]]) ([^“”]+) (?![^[:space:]]) }x,
44 qr{ (?<![^[:space:]]) “ ([^“”]+) ” (?![^[:space:]]) }x,
44 45
45 qr{ (?<![^[:space:]]) ‘ ([^`']+) ’ (?![^[:space:]]) }x,
46 qr{ (?<![^[:space:]]) “ ([^`']+) ” (?![^[:space:]]) }x,
47
48 qr{ (?<![^[:space:]]) (' [^[:space:]] [^']* ') }x, 46 qr{ (?<![^[:space:]]) (' [^[:space:]] [^']* ') }x,
49 qr{ (' [^']* [^[:space:]] ') (?![^[:space:]]) }x, 47 qr{ (' [^']* [^[:space:]] ') (?![^[:space:]]) }x,
50 qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ") }x, 48 qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ") }x,
51 qr{ (" [^"]* [^[:space:]] ") (?![^[:space:]]) }x, 49 qr{ (" [^"]* [^[:space:]] ") (?![^[:space:]]) }x,
52 50
53 qr{ \< ([^>]+) \> }x,
54 qr{ \( ([^)]+) \) }x,
55 qr{ \{ ([^}]+) \} }x, 51 qr{ \{ ([^\{\}]+) \} }x,
52 qr{ \( ([^\(\)]+) \) }x,
56 qr{ \[ ([^]]+) \] }x, 53 qr{ \[ ([^\[\]]+) \] }x,
54 qr{ \< ([^\<\>]+) \> }x,
57 55
58 # urls, just a heuristic 56 # urls, just a heuristic
59 qr{( 57 qr{(
60 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.)[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~#]+ 58 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.)[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~#]+
61 [ab-zA-Z0-9\-\@;\/?:&=%\$_+*()~] # exclude some trailing characters (heuristic) 59 [ab-zA-Z0-9\-\@;\/?:&=%\$_+*()~] # exclude some trailing characters (heuristic)

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines