1 |
5169
|
aaronmk
|
# TNRS
|
2 |
4990
|
aaronmk
|
|
3 |
14540
|
aaronmk
|
import json
|
4 |
13464
|
aaronmk
|
import os.path
|
5 |
4990
|
aaronmk
|
import re
|
6 |
|
|
import sys
|
7 |
|
|
import time
|
8 |
|
|
import urllib2
|
9 |
|
|
|
10 |
5149
|
aaronmk
|
import csvs
|
11 |
5107
|
aaronmk
|
import exc
|
12 |
5120
|
aaronmk
|
import profiling
|
13 |
4990
|
aaronmk
|
import streams
|
14 |
5144
|
aaronmk
|
import strings
|
15 |
4990
|
aaronmk
|
|
16 |
|
|
# Config
|
17 |
|
|
initial_pause = 0.35 # sec
|
18 |
|
|
pause_growth_factor = 1.3
|
19 |
5125
|
aaronmk
|
max_pause = 30*60 # sec; = 30 min; TNRS sometimes freezes for ~10 min
|
20 |
4990
|
aaronmk
|
assert initial_pause <= max_pause
|
21 |
13548
|
aaronmk
|
#max_names = 5000 #according to http://tnrs.iplantcollaborative.org/TNRSapp.html
|
22 |
13636
|
aaronmk
|
max_names = 500 # the maximum above crashes the live and dev TNRS servers
|
23 |
4990
|
aaronmk
|
|
24 |
|
|
# Protocol params
|
25 |
13464
|
aaronmk
|
server = streams.file_get_contents(os.path.dirname(__file__)+"/tnrs.url")
|
26 |
|
|
#server = 'tnrs.iplantcollaborative.org' # live server
|
27 |
13462
|
aaronmk
|
url_base = 'http://'+server+'/tnrsdemo/'
|
28 |
4990
|
aaronmk
|
url = url_base+'search'
|
29 |
|
|
initial_headers = {
|
30 |
|
|
'Content-Type': 'text/x-gwt-rpc; charset=utf-8',
|
31 |
|
|
'X-GWT-Module-Base': url_base,
|
32 |
|
|
'X-GWT-Permutation': '574AA16D15D917C7704646FD92AFF6B3',
|
33 |
|
|
}
|
34 |
|
|
submission_request_template = ('7|0|7|'+url_base+
|
35 |
9912
|
aaronmk
|
'|1E87C78041CEFBF0992F46BDF84D7D60|org.iplantc.tnrs.demo.client.SearchService|\
|
36 |
13544
|
aaronmk
|
doSearch|java.lang.String/2004016611|{"sources":"gcc,tpl,tropicos,usda", \
|
37 |
9912
|
aaronmk
|
"names":"[names]", "type":"matching", "taxonomic":"true", \
|
38 |
|
|
"classification":"tropicos", "match_to_rank":"true"}|0.05|1|2|3|4|2|5|5|6|7|')
|
39 |
4990
|
aaronmk
|
submission_response_pattern = r'^//OK\[1,\["(\w+)"\],0,7\]$'
|
40 |
|
|
retrieval_request_template = ('7|0|15|'+url_base+
|
41 |
|
|
'|1E87C78041CEFBF0992F46BDF84D7D60|org.iplantc.tnrs.demo.client.SearchService\
|
42 |
|
|
|getRemoteData|com.extjs.gxt.ui.client.data.PagingLoadConfig|\
|
43 |
|
|
java.lang.String/2004016611|com.extjs.gxt.ui.client.data.BasePagingLoadConfig/\
|
44 |
|
|
2011366567|com.extjs.gxt.ui.client.data.RpcMap/3441186752|sortField|sortDir|\
|
45 |
|
|
com.extjs.gxt.ui.client.Style$SortDir/640452531|offset|java.lang.Integer/\
|
46 |
|
|
3438268394|limit|{"email":"tnrs@lka5jjs.orv", "key":"[key]", \
|
47 |
13597
|
aaronmk
|
"taxonomic_constraint":"true", "source_sorting":"true", "first":"false"}\
|
48 |
4990
|
aaronmk
|
|1|2|3|4|2|5|6|7|0|1|8|4|9|0|10|11|0|12|13|0|14|13|100|15|')
|
49 |
13436
|
aaronmk
|
# taxonomic_constraint (Constrain by Higher Taxonomy): selects lower ranks
|
50 |
|
|
# only from within the matched higher ranks. must be turned on, to ensure
|
51 |
|
|
# that higher ranks are always authoritative.
|
52 |
14470
|
aaronmk
|
# source_sorting (Constrain by Source): always puts matches in the order of
|
53 |
|
|
# the sources, regardless of match score. should never be turned on,
|
54 |
|
|
# because it selects worse matches instead of better ones. *however*, since
|
55 |
|
|
# this is currently broken and always forced on, we turn it on so that the
|
56 |
|
|
# download settings reflect what TNRS actually used.
|
57 |
4990
|
aaronmk
|
retrieval_response_pattern = '^//OK\[.*?\["com.extjs.gxt.ui.client.data.\
|
58 |
|
|
BasePagingLoadResult/496878394","java.util.ArrayList/4159755760","org.iplantc.\
|
59 |
|
|
tnrs.demo.shared.BeanTNRSEntry/1039545748",".*"\],0,7\]$'
|
60 |
|
|
retrieval_response_info_pattern = r'(?ms).*^Set-Cookie: JSESSIONID=(\w+);'
|
61 |
|
|
download_request_template = ('7|0|6|'+url_base+
|
62 |
|
|
'|1E87C78041CEFBF0992F46BDF84D7D60|org.iplantc.tnrs.demo.client.SearchService|\
|
63 |
|
|
downloadRemoteResults|java.lang.String/2004016611|{"name":"tnrs_results.txt", \
|
64 |
13855
|
aaronmk
|
"mode":"All", "type":"Detailed", "encoding":"utf8", "dirty":"false", \
|
65 |
9911
|
aaronmk
|
"sources":"false", "taxonomic":"true", "email":"tnrs@lka5jjs.orv", \
|
66 |
4990
|
aaronmk
|
"key":"[key]"}|1|2|3|4|1|5|6|')
|
67 |
13856
|
aaronmk
|
# dirty:
|
68 |
|
|
# when on, sometimes marks multiple names as Selected. must be turned *off*
|
69 |
13860
|
aaronmk
|
# so that only one name is marked as Selected. note that this actually used
|
70 |
|
|
# to be on in the web app (see r9910, 2013-6-18), but does not appear to be
|
71 |
|
|
# needed (the source_sorting bug alluded to in r9910 is not fixed by
|
72 |
|
|
# enabling the dirty setting).
|
73 |
4990
|
aaronmk
|
download_response_pattern = '^//OK\[1,\["(.*)"\],0,7\]$'
|
74 |
|
|
download_url_suffix = '&name=tnrs_results.txt&encoding=utf8'
|
75 |
|
|
|
76 |
5083
|
aaronmk
|
class InvalidResponse(Exception): pass
|
77 |
|
|
|
78 |
5144
|
aaronmk
|
def gwt_encode(str_):
|
79 |
14539
|
aaronmk
|
# embedded strs within GWT sections additionally have " JSON-escaped
|
80 |
5144
|
aaronmk
|
return strings.esc_quotes(strings.json_encode(str_), '|', quote_esc='\!')
|
81 |
4990
|
aaronmk
|
|
82 |
14539
|
aaronmk
|
def gwt_decode(str_):
|
83 |
|
|
# embedded strs within GWT sections additionally have " JSON-escaped
|
84 |
|
|
return strings.json_decode(strings.unesc_quotes(str_, '|', quote_esc='\!'))
|
85 |
|
|
|
86 |
5149
|
aaronmk
|
def make_spliced_decode_map(decode_map):
|
87 |
|
|
return [(r'(?: |(?<=\t)|^)'+re.escape(from_.strip())+r'(?: |(?=\t)|$)',
|
88 |
|
|
strings.regexp_repl_esc(to)) for from_, to in decode_map]
|
89 |
|
|
|
90 |
5154
|
aaronmk
|
padding = ' !pad ' # prepend to empty and whitespace-only strings
|
91 |
5149
|
aaronmk
|
encode_map = [
|
92 |
5167
|
aaronmk
|
('!', ' !exc '), # our escape char
|
93 |
|
|
('\t', ' !tab '), # TNRS replaces with " "
|
94 |
|
|
('\n', ' !nl '), # used to separate multiple names
|
95 |
|
|
('\r', ' !cr '), # used to separate multiple names
|
96 |
5168
|
aaronmk
|
('"', ' !quo '), # TNRS removes it when at the beginning or end
|
97 |
5167
|
aaronmk
|
('%', ' !pct '), # TNRS URL-decodes it in matched fields
|
98 |
5168
|
aaronmk
|
("'", ' !apo '), # TNRS removes it when at the beginning or end
|
99 |
5167
|
aaronmk
|
(';', ' !sem '), # changes TNRS response format
|
100 |
|
|
('\\', ' !bsl '), # TNRS removes it
|
101 |
5165
|
aaronmk
|
('_', ' !und '), # TNRS replaces with " "
|
102 |
5171
|
aaronmk
|
('', ' !sub '), # TNRS removes it
|
103 |
5169
|
aaronmk
|
('×', ' !mul '), # TNRS replaces with "x"
|
104 |
5149
|
aaronmk
|
]
|
105 |
|
|
decode_map = strings.flip_map(encode_map)
|
106 |
5154
|
aaronmk
|
decode_map.append((padding, ''))
|
107 |
5149
|
aaronmk
|
spliced_decode_map = make_spliced_decode_map(decode_map)
|
108 |
|
|
|
109 |
5154
|
aaronmk
|
def encode(str_):
|
110 |
|
|
str_ = strings.replace_all(encode_map, str_)
|
111 |
|
|
# Empty and whitespace-only strings are ignored by TNRS (no response row)
|
112 |
|
|
if str_.strip() == '': str_ = padding+str_
|
113 |
|
|
return str_
|
114 |
5149
|
aaronmk
|
|
115 |
|
|
def decode(str_): return strings.replace_all_re(spliced_decode_map, str_)
|
116 |
|
|
|
117 |
|
|
decode_for_tsv_map = make_spliced_decode_map([(from_, strings.replace_all(
|
118 |
|
|
csvs.tsv_encode_map, to)) for from_, to in decode_map])
|
119 |
|
|
|
120 |
|
|
def decode_for_tsv(str_):
|
121 |
|
|
return strings.replace_all_re(decode_for_tsv_map, str_)
|
122 |
|
|
|
123 |
|
|
class TnrsOutputStream(streams.FilterStream):
|
124 |
|
|
'''Decodes a TNRS response whose names were encoded with encode()'''
|
125 |
|
|
def __init__(self, stream):
|
126 |
|
|
streams.FilterStream.__init__(self, decode_for_tsv, stream)
|
127 |
|
|
|
128 |
5106
|
aaronmk
|
def parse_response(name, pattern, str_, response, response_info):
|
129 |
|
|
match = re.match(pattern, str_)
|
130 |
|
|
if not match:
|
131 |
|
|
raise InvalidResponse('Invalid '+name+' response:\n'+response_info+'\n'
|
132 |
|
|
+response)
|
133 |
4990
|
aaronmk
|
return match.groups()
|
134 |
|
|
|
135 |
14540
|
aaronmk
|
def single_tnrs_request(names, debug=False, cumulative_profiler=None,
|
136 |
|
|
use_tnrs_export=True):
|
137 |
5127
|
aaronmk
|
'''
|
138 |
|
|
Note that names containing only whitespace characters (after gwt_encode())
|
139 |
|
|
are ignored by TNRS and do not receive a response row. Thus, you should
|
140 |
|
|
always match up the Name_submitted returned by TNRS with the actual
|
141 |
|
|
submitted name to determine the corresponding TNRS response row.
|
142 |
14540
|
aaronmk
|
|
143 |
|
|
@param use_tnrs_export whether to use TNRS's TSV export feature, which
|
144 |
|
|
currently returns incorrect selected matches (vegpath.org/issues/943)
|
145 |
5127
|
aaronmk
|
'''
|
146 |
5121
|
aaronmk
|
name_ct = len(names)
|
147 |
|
|
assert name_ct <= max_names
|
148 |
4990
|
aaronmk
|
|
149 |
|
|
# Logging
|
150 |
|
|
def debug_log(label, str_=''):
|
151 |
|
|
if debug: sys.stderr.write('\n'+label+':\n'+str_+'\n')
|
152 |
|
|
|
153 |
|
|
## HTTP
|
154 |
5119
|
aaronmk
|
headers = initial_headers.copy() # don't modify global constant!
|
155 |
4990
|
aaronmk
|
|
156 |
5005
|
aaronmk
|
def do_request(request):
|
157 |
13857
|
aaronmk
|
request_obj = urllib2.Request(url, request, headers)
|
158 |
13859
|
aaronmk
|
debug_log('request URL', str(url))
|
159 |
13857
|
aaronmk
|
debug_log('request info', str(request_obj.header_items()))
|
160 |
|
|
debug_log('request str', str(request_obj.get_data()))
|
161 |
|
|
response = urllib2.urlopen(request_obj)
|
162 |
4990
|
aaronmk
|
response_str = streams.read_all(response)
|
163 |
|
|
response_info = str(response.info())
|
164 |
|
|
debug_log('response info', response_info)
|
165 |
|
|
debug_log('response str', response_str)
|
166 |
|
|
return response_str, response_info
|
167 |
|
|
|
168 |
|
|
def do_repeated_request(request):
|
169 |
|
|
pause = initial_pause
|
170 |
|
|
total_pause = 0
|
171 |
|
|
while True:
|
172 |
|
|
total_pause += pause
|
173 |
|
|
if total_pause > max_pause: raise # error is not temporary
|
174 |
|
|
debug_log('total_pause', str(total_pause)+'s')
|
175 |
|
|
time.sleep(pause) # wait for job to complete
|
176 |
|
|
|
177 |
|
|
try: return do_request(request)
|
178 |
|
|
except urllib2.HTTPError: pass # try again
|
179 |
|
|
pause *= pause_growth_factor
|
180 |
|
|
|
181 |
5120
|
aaronmk
|
profiler = profiling.ItersProfiler(start_now=True, iter_text='name')
|
182 |
|
|
try:
|
183 |
|
|
debug_log('Submit')
|
184 |
5121
|
aaronmk
|
request = submission_request_template.replace('[names]',
|
185 |
5150
|
aaronmk
|
gwt_encode('\n'.join(map(encode, names))))
|
186 |
5120
|
aaronmk
|
response, response_info = do_request(request)
|
187 |
5151
|
aaronmk
|
key, = parse_response('submission', submission_response_pattern,
|
188 |
|
|
response, response, response_info)
|
189 |
5120
|
aaronmk
|
debug_log('key', key)
|
190 |
|
|
key_enc = gwt_encode(key)
|
191 |
|
|
|
192 |
|
|
debug_log('Retrieve')
|
193 |
|
|
request = retrieval_request_template.replace('[key]', key_enc)
|
194 |
|
|
response, response_info = do_repeated_request(request)
|
195 |
5151
|
aaronmk
|
parse_response('retrieval', retrieval_response_pattern, response,
|
196 |
|
|
response, response_info)
|
197 |
|
|
session_id, = parse_response('retrieval info',
|
198 |
|
|
retrieval_response_info_pattern, response_info, response,
|
199 |
5120
|
aaronmk
|
response_info)
|
200 |
|
|
debug_log('session_id', session_id)
|
201 |
|
|
headers['Cookie'] = 'JSESSIONID='+session_id
|
202 |
|
|
|
203 |
14511
|
aaronmk
|
# the output of the retrieve step is unusable because the array does not
|
204 |
|
|
# contain all the columns, contains no column names, and has different
|
205 |
|
|
# lengths depending on the taxonomic ranks present in the provided taxon
|
206 |
|
|
# name. the extra download step is therefore necessary.
|
207 |
5120
|
aaronmk
|
|
208 |
14540
|
aaronmk
|
if use_tnrs_export:
|
209 |
|
|
debug_log('Prepare download')
|
210 |
|
|
request = download_request_template.replace('[key]', key_enc)
|
211 |
|
|
response, response_info = do_request(request)
|
212 |
|
|
csv_url, = parse_response('download', download_response_pattern,
|
213 |
|
|
response, response, response_info)
|
214 |
|
|
csv_url += download_url_suffix
|
215 |
|
|
debug_log('csv_url', csv_url)
|
216 |
|
|
|
217 |
|
|
debug_log('Download')
|
218 |
|
|
request_obj = urllib2.Request(csv_url)
|
219 |
|
|
debug_log('request URL', str(csv_url))
|
220 |
|
|
debug_log('request info', str(request_obj.header_items()))
|
221 |
|
|
debug_log('request str', str(request_obj.get_data()))
|
222 |
|
|
response = urllib2.urlopen(request_obj)
|
223 |
|
|
response_info = str(response.info())
|
224 |
|
|
debug_log('response info', response_info)
|
225 |
|
|
return TnrsOutputStream(response)
|
226 |
|
|
else:
|
227 |
|
|
debug_log('Expand')
|
228 |
|
|
request = ('7|0|6|http://tnrs.iplantcollaborative.org/tnrsdemo/|\
|
229 |
|
|
1E87C78041CEFBF0992F46BDF84D7D60|org.iplantc.tnrs.demo.client.SearchService|\
|
230 |
|
|
requestGroupMembers|java.lang.String/2004016611|{"group":"0", \
|
231 |
|
|
"email":"tnrs@lka5jjs.orv", "key":"[key]", "source_sorting":"false", \
|
232 |
|
|
"taxonomic_constraint":"false"}|1|2|3|4|1|5|6|'.replace('[key]', key_enc))
|
233 |
|
|
response, response_info = do_request(request)
|
234 |
|
|
data_gwt, = parse_response('expand', r'^//OK\[1,\["(.*)"\],0,7\]$',
|
235 |
|
|
response, response, response_info)
|
236 |
|
|
data_json = json.loads(gwt_decode(data_gwt))
|
237 |
|
|
raise NotImplementedError()
|
238 |
5120
|
aaronmk
|
finally:
|
239 |
5121
|
aaronmk
|
profiler.stop(name_ct)
|
240 |
5120
|
aaronmk
|
sys.stderr.write(profiler.msg()+'\n')
|
241 |
9525
|
aaronmk
|
|
242 |
|
|
if cumulative_profiler != None:
|
243 |
|
|
cumulative_profiler.add_subprofiler(profiler)
|
244 |
|
|
sys.stderr.write('Cumulatively: '+cumulative_profiler.msg()+'\n')
|
245 |
5088
|
aaronmk
|
|
246 |
9520
|
aaronmk
|
def tnrs_request(names, debug=False, **kw_args):
|
247 |
5108
|
aaronmk
|
for try_num in xrange(2):
|
248 |
9519
|
aaronmk
|
try: return single_tnrs_request(names, debug, **kw_args)
|
249 |
5160
|
aaronmk
|
except (urllib2.HTTPError, InvalidResponse), e:
|
250 |
5107
|
aaronmk
|
exc.print_ex(e, detail=False)
|
251 |
5108
|
aaronmk
|
debug = True
|
252 |
|
|
# try again with debug turned on
|
253 |
5088
|
aaronmk
|
raise # error is not temporary
|