amsn-data 0.98.9-1 / usr / share / amsn / plugins / whatis / whatis.tcl

This file is indexed.

/usr/share/amsn/plugins/whatis/whatis.tcl is in amsn-data 0.98.9-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  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
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
##
# License: GNU General Public License
#
# Plugin written by: Jasper Huzen
# Comments: feaster@xs4all.nl
# Version: 1.0 
##	

namespace eval ::whatis {
	
	#
   # The initial procedure called when the plugin is started by AMSN
	#	
	proc init { dir }	{
		::plugins::RegisterPlugin "whatis"
      
		# Register event when change status
		::plugins::RegisterEvent "whatis" new_chatwindow addButtons
			
		plugins_log "whatis" "plugin registered"
	}

	proc manual_langpair { w } {
		toplevel .whatislp
		pack [label .whatislp.lbl -text "Enter from and to language codes, separated by space\n(From language code can also be \"auto\")"]
		pack [entry .whatislp.en]
		pack [button .whatislp.btn -text "OK"]
		bind .whatislp.en <Return> [list ::whatis::validateAns $w]
		bind .whatislp.btn <ButtonRelease-1> [list ::whatis::validateAns $w]
	}

	proc validateAns { w } {
		set langpair [string trim [.whatislp.en get]]
		if { $langpair == "" } {
			destroy .whatislp
			return
		}
		set spacepos [string first " " $langpair]
		if { $spacepos < 0 } {
			tk_messageBox -message "Please enter a valid language pair, separated by space" -type ok
			return
		}
		set fromLang [string range $langpair 0 [expr {$spacepos - 1}]]
		set toLang [string range $langpair [expr {$spacepos + 1}] end]
		translateText $w $fromLang $toLang
		destroy .whatislp
	}
	
	#
	# Get the selected text from the chatWindow
	# 
	proc getSelectedText { w } {
	   if { $::version == "0.94" } {
			set window $w.f.bottom.in.input
		
			if { [ catch {$window tag ranges sel}]} {
				set window $w
			}
		
			set index [$window tag ranges sel]
		
			if { $index == "" } {
				set window $w.f.out.text
				catch {set index [$window tag ranges sel]}
				if { $index == "" } {  return }
			}
		} else { 
			if { [ catch {set window [::ChatWindow::GetInputText $w]} ]} {
				set window $w
			}
			
			set index [$window tag ranges sel]
		
			if { $index == "" } {
				set window [::ChatWindow::GetOutText $w]
				catch {set index [$window tag ranges sel]}
				if { $index == "" } {  return }
			}
		}
			
		set dump [$window dump -text [lindex $index 0] [lindex $index 1]]
		
		if { $dump == "" } return
		
		foreach { text output index } $dump {
			append tpmVar $output
		}
		
		return $tpmVar  
			
	}
	
	#
	# Add menu items to the rightbutton menu
	#
	proc addButtons { event evpar } {
		upvar 2 $evpar args
		
		plugins_log "whatis" "Add buttons to window"
			
		#Define variables
		set w $args(win)
		set copymenu $w.copy
		addEntriesToMenu $copymenu $w
		set copypastemenu $w.copypaste
		addEntriesToMenu $copypastemenu $w
	}

	proc addEntriesToMenu { copymenu w } {

		$copymenu add cascade -label "What is" -menu $copymenu.whatis
		menu $copymenu.whatis -tearoff 0 -type normal
		
		$copymenu.whatis add cascade -label "Wikipedia" -menu $copymenu.whatis.wikipedia
		menu $copymenu.whatis.wikipedia -tearoff 0 -type normal
		$copymenu.whatis.wikipedia add command -label "English encyclopedia" -command "whatis::getFromWikipida $w en"	
		$copymenu.whatis.wikipedia add command -label "Dutch encyclopedia" -command "whatis::getFromWikipida $w nl"	
		$copymenu.whatis.wikipedia add command -label "Spanish encyclopedia" -command "whatis::getFromWikipida $w es"	
		$copymenu.whatis.wikipedia add command -label "German encyclopedia" -command "whatis::getFromWikipida $w de"	
		$copymenu.whatis.wikipedia add command -label "French encyclopedia" -command "whatis::getFromWikipida $w fr"	
		$copymenu.whatis.wikipedia add command -label "Italian encyclopedia" -command "whatis::getFromWikipida $w it"	
		$copymenu.whatis.wikipedia add command -label "Portuguese encyclopedia" -command "whatis::getFromWikipida $w pt"	
		$copymenu.whatis.wikipedia add command -label "Polish encyclopedia" -command "whatis::getFromWikipida $w pl"	
		$copymenu.whatis.wikipedia add command -label "Sweden encyclopedia" -command "whatis::getFromWikipida $w sv"	
		
		$copymenu.whatis add cascade -label "Translate" -menu $copymenu.whatis.translate
		menu $copymenu.whatis.translate -tearoff 0 -type normal
		$copymenu.whatis.translate add command -label "Auto-detect to English" -command "whatis::translateText $w auto en"
		$copymenu.whatis.translate add command -label "English to Spanish" -command "whatis::translateText $w en es"	
		$copymenu.whatis.translate add command -label "English to French" -command "whatis::translateText $w en fr"
		$copymenu.whatis.translate add command -label "English to German" -command "whatis::translateText $w en de"	
		$copymenu.whatis.translate add command -label "English to Italian" -command "whatis::translateText $w en it"
		$copymenu.whatis.translate add command -label "English to Dutch" -command "whatis::translateText $w en nl"	
		$copymenu.whatis.translate add command -label "English to Portuguese" -command "whatis::translateText $w en pt"
		$copymenu.whatis.translate add command -label "English to Russian" -command "whatis::translateText $w en ru"	
		$copymenu.whatis.translate add command -label "English to Greek" -command "whatis::translateText $w en el"
		$copymenu.whatis.translate add command -label "English to Japanese"  -command "whatis::translateText $w en ja"
		$copymenu.whatis.translate add command -label "English to Chinese (simpl)" -command "whatis::translateText $w en zh"
		$copymenu.whatis.translate add command -label "Dutch to English" -command "whatis::translateText $w nl en"
		$copymenu.whatis.translate add command -label "Spanish to English" -command "whatis::translateText $w es en"	
		$copymenu.whatis.translate add command -label "German to English" -command "whatis::translateText $w de en"	
		$copymenu.whatis.translate add command -label "Italian to English" -command "whatis::translateText $w it en"	
		$copymenu.whatis.translate add command -label "Portuguese to English" -command "whatis::translateText $w pt en"	
		$copymenu.whatis.translate add command -label "French to English" -command "whatis::translateText $w fr en"		
		$copymenu.whatis.translate add command -label "Russian to English" -command "whatis::translateText $w ru en"	
		$copymenu.whatis.translate add command -label "Greek to English" -command "whatis::translateText $w el en"
		$copymenu.whatis.translate add command -label "Japanese to English" -command "whatis::translateText $w ja en"
		$copymenu.whatis.translate add command -label "Chinese (simpl) to English" -command "whatis::translateText $w zh en"
		$copymenu.whatis.translate add command -label "Other..." -command "whatis::manual_langpair $w"
	}
	
	#
	# This proc will call a Wikipedia page
	#
	proc getFromWikipida { w dict} {
		set searchText [getSelectedText $w]
		status_log "whatis" "Check Wikipedia: $searchText"
	
		launch_browser "http://$dict.wikipedia.org/wiki/[string tolower [ urlencode $searchText]]" 
		
		# Write a seperated line to the chat window
		# Versions above 0.94 can use a graphical build-in line so I use this call
		::amsn::WinWrite [::ChatWindow::Name $w] "\n" green
			
		# Write a seperated line to the chat window
		# Versions above 0.94 can use a graphical build-in line so I use this call
		if { $::version == "0.94" } {
				::amsn::WinWrite [::ChatWindow::Name $w] "--------------------------------------------------" gray_italic	 
		} else {
				::amsn::WinWriteIcon [::ChatWindow::Name $w] greyline 3 
		} 
		::amsn::WinWrite [::ChatWindow::Name $w] "\n" green
		::amsn::WinWriteIcon [::ChatWindow::Name $w] miniinfo 
		::amsn::WinWrite [::ChatWindow::Name $w] " Encyclopedia started at internet browser!\n" green
		
		# Write a seperated line to the chat window
		# Versions above 0.94 can use a graphical build-in line so I use this call
		if { $::version == "0.94" } {
				::amsn::WinWrite [::ChatWindow::Name $w] "--------------------------------------------------\n" gray_italic	 
		} else {
				::amsn::WinWriteIcon [::ChatWindow::Name $w] greyline 3 
		} 
	}

	#Thanks to the Translate plugin for this one!
        proc convert {string} {

                set x [string length $string]
                for {set i 0} {$i<$x} {incr i} {
                        append output "&#[scan [string range $string $i $i] %c];"
                }
                return $output
        }
	
	#
	# This proc will translate a text 
	#
	proc translateText { w fromLang toLang } {
		set searchText [getSelectedText $w]
		set html ""
		if { $searchText == "" } {
			::amsn::messageBox "No text selected for translation!" ok error 
		} else { 
		#set searchText [encoding convertto utf-8 $searchText]
		
			set url "http://translate.google.com/translate_t?sl=$fromLang&tl=$toLang"
			set query [::http::formatQuery hl "en" ie "UTF8" text [convert $searchText] sl $fromLang tl $toLang]
			if {[catch {::http::geturl $url -query $query -timeout 72500 -headers {User-Agent "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.6) Gecko/20091215 Ubuntu/9.10 (karmic) Firefox/3.5.6"} -command [list ::whatis::translateCB $w $fromLang $toLang]} res ]} {
		                # Write translated text to the chatwindow
	        	        ::amsn::WinWrite [::ChatWindow::Name $w] "\n" green
        	        	if { $::version == "0.94" } {
                	        	        ::amsn::WinWrite [::ChatWindow::Name $w] "--------------------------------------------------" gray_italic
	                	} else {
        	                	        ::amsn::WinWriteIcon [::ChatWindow::Name $w] greyline 3
	                	}
		                ::amsn::WinWrite [::ChatWindow::Name $w] "\n" green
        		        ::amsn::WinWriteIcon [::ChatWindow::Name $w] miniinfo
		                ::amsn::WinWrite [::ChatWindow::Name $w] "\nError in translation: $res\n" red
        		        if { $::version == "0.94" } {
                		                ::amsn::WinWrite [::ChatWindow::Name $w] "--------------------------------------------------\n" gray_italic
	                	} else {
	        	                        ::amsn::WinWriteIcon [::ChatWindow::Name $w] greyline 3
        	        	}
				
			}
		}
	}

	proc translateCB {w fromLang toLang http} {
		set html [::http::data $http]
		# Set a language title
		switch $toLang {
				"nl" { set langTitle "Dutch" } 
				"es" { set langTitle "Spanish" }		
				"de" { set langTitle "German" }		
				"fr" { set langTitle "French"}		
				"it" { set langTitle "Italian"}		
				"pt" { set langTitle "Portuguese" }		
				"ru" { set langTitle "Russian" }		
				"el" { set langTitle "Greek" }
				"ja" { set langTitle "Japanese" }
				"zh" { set langTitle "Chinese (simpl)" }
				"en" { set langTitle "English" }
				default { set langTitle "selected language" }
		}
		# Strip HTML before translated text 
		set substring "<span id=result_box"
		set start [string first $substring $html]
		if { $start == -1 } {
			set translation "Problem parsing return text. Translation engine probably returned an error"
		} else {
			set start [expr { $start + [string length $substring]} ]
			set direction [string range $html $start [expr { [string first "\"" $html $start] - 1}]]
			set start [string first ">" $html $start]
			set substring "<span title=\""
			set start [expr { $start + [string length $substring]} ]
			set start [string first ">" $html $start]
			set start [expr { $start + 1 }]
		
			# Stript HTML after translated text
			set htmlPart [string range $html $start end]
			set end [expr { [string first "</" $htmlPart] - 1}]
			set translation [string range $htmlPart 0 $end]
			if { $direction == "rtl" } { set translation [string reverse $translation] }
			#set translation [encoding convertfrom utf-8 $translation]
		}
		# Write translated text to the chatwindow
		::amsn::WinWrite [::ChatWindow::Name $w] "\n" green
		if { $::version == "0.94" } {
				::amsn::WinWrite [::ChatWindow::Name $w] "--------------------------------------------------" gray_italic	 
		} else {
				::amsn::WinWriteIcon [::ChatWindow::Name $w] greyline 3 
		} 
		::amsn::WinWrite [::ChatWindow::Name $w] "\n" green
		::amsn::WinWriteIcon [::ChatWindow::Name $w] miniinfo 
		::amsn::WinWrite [::ChatWindow::Name $w] " Translated text to $langTitle:" green
		::amsn::WinWrite [::ChatWindow::Name $w] "\n$translation\n" gray
		if { $::version == "0.94" } {
				::amsn::WinWrite [::ChatWindow::Name $w] "--------------------------------------------------\n" gray_italic	 
		} else {
				::amsn::WinWriteIcon [::ChatWindow::Name $w] greyline 3 
		} 
	}

	#
   # The deinitial procedure called when the plugin is unload by AMSN
	#
	proc deInit { } {
		
		# Unregister the events from the plugin
		::plugins::UnRegisterEvents "whatis"
		plugins_log "whatis" "plugin unregistered"
		
	}
	
}

APT Browse - Built by Thomas Orozco.