blob: e5e0c5b16bb136f65c6911f95e2c6f7ead523dec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
This patch makes wnb use man(1) to access its own man-pages instead
of relying on textual copies of them being in the $resourcedir.
Similarly, it looks for the compiled-in license instead of opening
its textual copy.
These leave wn.xbm as the only "resource" file, thus removing the need
for a separate resource directory. FreeBSD port installs all -- the
dictionaries and the bitmap into ${PREFIX}/share/WordNet.
-mi
--- src/wnb Tue Jun 7 15:19:22 2005
+++ src/wnb Sun Jan 15 07:42:38 2006
@@ -103,9 +100,15 @@
if {$tcl_platform(platform) == "unix"} {
- if {[lsearch -exact [array names env] WNHOME] == -1} {
- set resourcedir "/usr/local/WordNet-3.0/lib/wnres"
- } else {
- set resourcedir "$env(WNHOME)/lib/wnres"
+ set resourcedirs {
+ /usr/local/WordNet-3.0
+ /usr/local/WordNet-3.0/lib/wnres
+ }
+ if {[info exists env(WNHOME)]} {
+ lappend resourcedirs $env(WNHOME) $env(WNHOME)/lib/wnres
}
+ foreach resourcedir $resourcedirs {
+ if {[file exists $resourcedir/wn.xbm]} break
+ }
+ unset resourcedirs
set configfile "$env(HOME)/.wnrc"
if [ file exists $configfile ] {
@@ -575,7 +578,19 @@
.$w.top.text configure \
-state normal
- set fileid [open $filename "r"]
- set filetext [read $fileid]
- close $fileid
+ switch -glob -- $filename {
+ *.man {
+ set manpage [file tail $filename]
+ set manpage [string range $manpage 0 end-4]
+ set fileid [open "|man $manpage"]
+ } */license.txt {
+ set filetext [wnlicense]
+ } default {
+ set fileid [open $filename]
+ }
+ }
+ if {[info exists fileid]} {
+ set filetext [read $fileid]
+ close $fileid
+ }
regsub -all ".\b" $filetext "" filetext
.$w.top.text insert end $filetext
|
