[Bio] / FigKernelPackages / FIGrpc.pm Repository:
ViewVC logotype

Annotation of /FigKernelPackages/FIGrpc.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : mkubal 1.1 package FIGrpc;
2 :    
3 :     use Carp;
4 :     use Data::Dumper;
5 :    
6 :     use strict;
7 :     use FIG;
8 :     use Frontier::Client;
9 :    
10 :     my $fig = new FIG;
11 :    
12 :     sub new {
13 :     my($class,$url) = @_;
14 :    
15 :     if (! $url)
16 :     {
17 :     my $fig = new FIG;
18 :     return $fig;
19 :     }
20 :     else
21 :     {
22 :     my($proxy);
23 :    
24 :     $proxy = Frontier::Client->new(url => $url);
25 :    
26 :     my $self = {
27 :     _url => $url,
28 :     _proxy => $proxy,
29 :     };
30 :    
31 :     return bless $self, $class;
32 :     }
33 :     }
34 :    
35 :     sub DESTROY {
36 :     my($self) = @_;
37 :     my($fig);
38 :    
39 :     if ($fig = $self->{_fig})
40 :     {
41 :     $fig->DESTROY;
42 :     }
43 :     }
44 :    
45 :     =pod
46 :    
47 :     =head1 set_remote
48 :    
49 :     usage: $fig->set_remote($url)
50 :    
51 :     Sets the remote version of FIG to the one given by $url.
52 :    
53 :     =cut
54 :    
55 :     sub set_remote_FIG {
56 :     my($self,$url) = @_;
57 :    
58 :     $self->{_url} = $url;
59 :     }
60 :    
61 :    
62 :     =pod
63 :    
64 :     =head1 current_FIG
65 :    
66 :     usage: $url = $fig->current_FIG
67 :    
68 :     Returns the URL of the current FIG ("" for a local copy).
69 :    
70 :     =cut
71 :    
72 :     sub current_FIG {
73 :     my($self) = @_;
74 :    
75 :     return $self->{_url} ? $self->{_url} : "";
76 :     }
77 :    
78 :    
79 :     =pod
80 :    
81 :     =head1 genomes
82 :    
83 :     usage: @genome_ids = $fig->genomes;
84 :    
85 :     Genomes are assigned ids of the form X.Y where X is the taxonomic id maintained by
86 :     NCBI for the species (not the specific strain), and Y is a sequence digit assigned to
87 :     this particular genome (as one of a set with the same genus/species). Genomes also
88 :     have versions, but that is a separate issue.
89 :    
90 :     =cut
91 :    
92 :     sub get_proxy
93 :     {
94 :     my($self) = @_;
95 :    
96 :     return $self->{_proxy};
97 :     }
98 :    
99 :     sub genomes {
100 :     my($self) = @_;
101 :     my $gen = $self->get_proxy()->call("genomes");
102 :     return $gen;
103 :     }
104 :    
105 :     sub genome_counts {
106 :     my($self,$complete) = @_;
107 :     my $counts = $self->get_proxy()->call("genome_counts",$complete);
108 :     return $counts;
109 :     }
110 :    
111 :     sub genome_version {
112 :     my($self,$genome) = @_;
113 :     my $version = $self->get_proxy()->call("genome_version",$genome);
114 :     return $version;
115 :    
116 :     }
117 :    
118 :     sub genus_species {
119 :     my($self,$genome) = @_;
120 :     my $gs = $self->get_proxy()->call("genus_species",$genome);
121 :     return $gs;
122 :     }
123 :    
124 :     ############################# KEGG Stuff ####################################
125 :    
126 :    
127 :     =pod
128 :    
129 :     =head1 all_maps
130 :    
131 :     usage: @maps = $fig->all_maps
132 :    
133 :     Returns a list containing all of the KEGG maps that the system knows about (the
134 :     maps need to be periodically updated).
135 :    
136 :     =cut
137 :    
138 :     sub all_maps {
139 :     my($self) = @_;
140 :     return my @results = $self->get_proxy()->call("all_maps");
141 :     }
142 :    
143 :    
144 :     =pod
145 :    
146 :     =head1 map_to_ecs
147 :    
148 :     usage: @ecs = $fig->map_to_ecs($map)
149 :    
150 :     Returns the set of functional roles (usually ECs) that are contained in the functionality
151 :     depicted by $map.
152 :    
153 :     =cut
154 :    
155 :     sub map_to_ecs {
156 :     my($self,$map) = @_;
157 :     return my @results = $self->get_proxy()->call("map_to_ecs",$map);
158 :     }
159 :    
160 :    
161 :     =pod
162 :    
163 :     =head1 all_compounds
164 :    
165 :     usage: @compounds = $fig->all_compounds
166 :    
167 :     Returns a list containing all of the KEGG compounds.
168 :    
169 :     =cut
170 :    
171 :     sub all_compounds {
172 :     my($self) = @_;
173 :     return my @results = $self->get_proxy()->call("all_compounds");
174 :     }
175 :    
176 :     sub names_of_compound {
177 :     my($self,$cid) = @_;
178 :     return my @results = $self->get_proxy()->call("names_of_compound");
179 :     }
180 :    
181 :     =pod
182 :    
183 :     =head1 comp2react
184 :    
185 :    
186 :     usage: @rids = $fig->comp2react($cid)
187 :    
188 :     Returns a list containing all of the reaction IDs for reactions that take $cid
189 :     as either a substrate or a product.
190 :    
191 :     =cut
192 :    
193 :     sub comp2react {
194 :     my($self,$cid) = @_;
195 :     return my $result = $self->get_proxy()->call("comp2react",$cid);
196 :     }
197 :    
198 :    
199 :     =pod
200 :    
201 :     =head1 all_reactions
202 :    
203 :     usage: @rids = $fig->all_reactions
204 :    
205 :     Returns a list containing all of the KEGG reaction IDs.
206 :    
207 :     =cut
208 :    
209 :     sub all_reactions {
210 :     my($self) = @_;
211 :     return my @results = $self->get_proxy()->call("all_reactions");
212 :     }
213 :    
214 :    
215 :     =pod
216 :    
217 :     =head1 reversible
218 :    
219 :     usage: $rev = $fig->reversible($rid)
220 :    
221 :     Returns true iff the reactions had a "main direction" designated as "<=>";
222 :    
223 :     =cut
224 :    
225 :     sub reversible {
226 :     my($self,$rid) = @_;
227 :     return my $result = $self->get_proxy()->call("reversible",$rid);
228 :     }
229 :    
230 :    
231 :     =pod
232 :    
233 :     =head1 catalyzed_by
234 :    
235 :     usage: @ecs = $fig->catalyzed_by($rid)
236 :    
237 :     Returns the ECs that are reputed to catalyze the reaction. Note that we are currently
238 :     just returning the ECs that KEGG gives. We need to handle the incompletely specified forms
239 :     (e.g., 1.1.1.-), but we do not do it yet.
240 :    
241 :     =cut
242 :    
243 :     sub catalyzed_by {
244 :     my($self,$rid) = @_;
245 :     return my @results = $self->get_proxy()->call("catalyzed_by",$rid);
246 :     }
247 :    
248 :    
249 :     =pod
250 :    
251 :     =head1 catalyzes
252 :    
253 :     usage: @ecs = $fig->catalyzes($role)
254 :    
255 :     Returns the rids of the reactions catalyzed by the "role" (normally an EC).
256 :    
257 :     =cut
258 :    
259 :     sub catalyzes {
260 :     my($self,$role) = @_;
261 :     return my @results = $self->get_proxy()->call("catalyzes",$role);
262 :     }
263 :    
264 :     sub reaction2comp {
265 :     my($self,$rid,$which) = @_;
266 :     return my @results = $self->get_proxy()->call("reaction2comp",$rid,$which);
267 :     }
268 :    
269 :     sub seqs_with_roles_in_genomes {
270 :     my($self,$genomes,$roles,$who) = @_;
271 :     return my @results = $self->get_proxy()->call("seqs_with_roles_in_genome",$genomes,$roles,$who);
272 :     }
273 :    
274 :     sub abbrev {
275 :     my($self,$genome_name) = @_;
276 :     return my $result = $self->get_proxy()->call("abbrev",$genome_name);
277 :     }
278 :    
279 :     sub fast_coupling {
280 :     my($self,$peg,$bound,$coupling_cutoff) = @_;
281 :     return my @results = $self->get_proxy()->call("fast_coupling",$peg,$bound,$coupling_cutoff);
282 :     }
283 :    
284 :    
285 :     sub family_function {
286 :     my($self,$family) = @_;
287 :     return my $result = $self->get_proxy()->call("family_function",$family);
288 :     }
289 :    
290 :     sub feature_annotations {
291 :     my($self,$feature_id) = @_;
292 :     return my @results = $self->get_proxy()->call("feature_annotations",$feature_id);
293 :     }
294 :    
295 :     sub dna_seq {
296 :     my($self,$genome,@locations) = @_;
297 :     return my $result = $self->get_proxy()->call("dna_seq",$genome,@locations);
298 :     }
299 :    
300 :     sub all_protein_families {
301 :     my($self) = @_;
302 :     return my @results = $self->get_proxy()->call("all_protein_families");
303 :     }
304 :    
305 :     sub all_sets {
306 :     my($self,$relation,$set_name) = @_;
307 :     return my @results = $self->get_proxy()->call("all_sets",$relation,$set_name);
308 :     }
309 :    
310 :     sub db_handle {
311 :     my($self) = @_;
312 :     return my $result = $self->get_proxy()->call("db_handle");
313 :     }
314 :    
315 :     sub all_features {
316 :     my($self,$genome,$type) = @_;
317 :     return my @results = $self->get_proxy()->call("all_features",$genome,$type);
318 :     }
319 :    
320 :     sub sz_family {
321 :     my($self,$family) = @_;
322 :     return my $result = $self->get_proxy()->call("sz_family",$family);
323 :     }
324 :    
325 :     sub sz_set {
326 :     my($self,$which,$relation,$set_name) = @_;
327 :     return my $result = $self->get_proxy()->call("sz_set",$which,$relation,$set_name);
328 :     }
329 :    
330 :     sub cgi_url {
331 :     my($self) = @_;
332 :     return my $result = $self->get_proxy()->call("cgi_url");
333 :     }
334 :    
335 :     sub function_of {
336 :     my($self,$id,$user) = @_;
337 :     return my $result = $self->get_proxy()->call("function_of",$id,$user);
338 :     }
339 :    
340 :     sub get_translation {
341 :     my($self,$id) = @_;
342 :     return my $result = $self->get_proxy()->call("get_translation",$id);
343 :     }
344 :    
345 :     sub org_of {
346 :     my($self,$prot_id) = @_;
347 :     return my $result = $self->get_proxy()->call("org_of",$prot_id);
348 :     }
349 :    
350 :     sub by_alias {
351 :     my($self,$alias) = @_;
352 :     return my $result = $self->get_proxy()->call("by_alias",$alias);
353 :     }
354 :    
355 :     sub by_fig_id {
356 :     my($self,$a,$b) = @_;
357 :     return my $result = $self->get_proxy()->call("by_fig_id",$a,$b);
358 :     }
359 :    
360 :     sub cas {
361 :     my($self,$cid) = @_;
362 :     return my $result = $self->get_proxy()->call("cas",$cid);
363 :     }
364 :    
365 :     sub cas_to_cid {
366 :     my($self,$cas) = @_;
367 :     return my $result = $self->get_proxy()->call("cas_to_cid",$cas);
368 :     }
369 :    
370 :     sub close_genes {
371 :     my($self,$fid,$dist) = @_;
372 :     return my @results = $self->get_proxy()->call("close_genes",$fid,$dist);
373 :     }
374 :    
375 :     sub contig_ln {
376 :     my($self,$genome,$contig) = @_;
377 :     return my $result = $self->get_proxy()->call("contig_ln",$genome,$contig);
378 :     }
379 :    
380 :     sub coupling_and_evidence {
381 :     my($self,$fid,$bound,$sim_cutoff,$coup_cutoff) = @_;
382 :     return my @results = $self->get_proxy()->call("coupling_and_evidence",$fid,$bound,$sim_cutoff,$coup_cutoff);
383 :     }
384 :    
385 :     sub crude_estimate_of_distance {
386 :     my($self,$genome1,$genome2) = @_;
387 :     return my $result = $self->get_proxy()->call("crude_estimate_of_distance",$genome1,$genome2);
388 :     }
389 :    
390 :     sub displayable_reaction {
391 :     my($self,$rid) = @_;
392 :     return my $result = $self->get_proxy()->call("displayable_reaction",$rid);
393 :     }
394 :    
395 :     sub add_annotation {
396 :     my($self,$feature_id,$user,$annotation) = @_;
397 :     return my $result = $self->get_proxy()->call("add_annotation",$feature_id,$user,$annotation);
398 :     }
399 :    
400 :     sub add_chromosomal_clusters {
401 :     my($self,$file) = @_;
402 :     return my $result = $self->get_proxy()->call("add_chromosomal_clusters",$file);
403 :     }
404 :    
405 :     sub add_genome {
406 :     my($self,$genomeF) = @_;
407 :     return my $result = $self->get_proxy()->call("add_genome",$genomeF);
408 :     }
409 :    
410 :     sub add_pch_pins {
411 :     my($self,$file) = @_;
412 :     return my $result = $self->get_proxy()->call("add_pch_pins",$file);
413 :     }
414 :    
415 :     sub min {
416 :     my($self,@x) = @_;
417 :     return my $result = $self->get_proxy()->call("min",@x);
418 :     }
419 :    
420 :     sub all_roles {
421 :     my($self) = @_;
422 :     return my @results = $self->get_proxy()->call("all_roles");
423 :     }
424 :    
425 :     sub assign_function {
426 :     my($self,$peg,$user,$function,$confidence) = @_;
427 :     return my $result = $self->get_proxy()->call("assign_function",$peg,$user,$function,$confidence);
428 :     }
429 :    
430 :     sub assignments_made {
431 :     my($self,$genomes,$who,$date) = @_;
432 :     return my @results = $self->get_proxy()->call("assignments_made",$genomes,$who,$date);
433 :     }
434 :    
435 :     sub auto_assign {
436 :     my($self,$peg,$seq) = @_;
437 :     return my $result = $self->get_proxy()->call("auto_assign",$peg,$seq);
438 :    
439 :     }
440 :    
441 :     sub between {
442 :     my($self,$x,$y,$z) = @_;
443 :     return my $result = $self->get_proxy()->call("between",$x,$y,$z);
444 :     }
445 :    
446 :     sub delete_genomes {
447 :     my($self,$genomes) = @_;
448 :     return my $result = $self->get_proxy()->call("delete_genomes",$genomes);
449 :     }
450 :    
451 :     sub dsims {
452 :     my($self,$id,$seq,$maxN,$maxP,$select) = @_;
453 :     return my @results = $self->get_proxy()->call("dsims",$id,$seq,$maxN,$maxP,$select);
454 :     }
455 :    
456 :     sub ec_to_maps {
457 :     my($self,$ec) = @_;
458 :     return my @results = $self->get_proxy()->call("ec_to_maps",$ec);
459 :     }
460 :    
461 :     sub ec_name {
462 :     my($self,$ec) = @_;
463 :     return my $result = $self->get_proxy()->call("ec_name",$ec);
464 :     }
465 :    
466 :     sub expand_ec {
467 :     my($self,$ec) = @_;
468 :     return my $result = $self->get_proxy()->call("expand_ec",$ec);
469 :     }
470 :    
471 :     sub epoch_to_readable {
472 :     my($epoch) = @_;
473 :     my($sec,$min,$hr,$dd,$mm,$yr) = localtime($epoch);
474 :     $mm++;
475 :     $yr += 1900;
476 :     return "$mm-$dd-$yr:$hr:$min:$sec";
477 :     }
478 :    
479 :     sub export_chromosomal_clusters {
480 :     my($self) = @_;
481 :     return my $result = $self->get_proxy()->call("expand_ec");
482 :     }
483 :    
484 :     sub export_pch_pins {
485 :     my($self) = @_;
486 :     return my $result = $self->get_proxy()->call("export_pch_pins");
487 :     }
488 :    
489 :     sub extract_seq {
490 :     my($self,$contigs,$loc) = @_;
491 :     return my $result = $self->get_proxy()->call("extract_seq",$contigs,$loc);
492 :     }
493 :    
494 :     sub all_exchangable_subsystems {
495 :     my($self) = @_;
496 :     return my @results = $self->get_proxy()->call("all_exchangable_subsystems");
497 :     }
498 :    
499 :     sub feature_aliases {
500 :     my($self,$feature_id) = @_;
501 :     return my @results = $self->get_proxy()->call("feature_aliases",$feature_id);
502 :     }
503 :    
504 :     sub feature_location {
505 :     my($self,$feature_id) = @_;
506 :     return my $result = $self->get_proxy()->call("feature_location",$feature_id);
507 :     }
508 :    
509 :     sub file2N {
510 :     my($self,$file) = @_;
511 :     return my $result = $self->get_proxy()->call("file2N",$file);
512 :     }
513 :    
514 :     sub ftype {
515 :     my($self,$feature_id) = @_;
516 :     return my $result = $self->get_proxy()->call("ftype",$feature_id);
517 :     }
518 :    
519 :     sub genes_in_region {
520 :     my($self,$genome,$contig,$beg,$end) = @_;
521 :     return my @results = $self->get_proxy()->call("genes_in_region",$genome,$contig,$beg,$end);
522 :     }
523 :    
524 :     sub blastit {
525 :     my($self,$id,$seq,$db,$maxP) = @_;
526 :     return my @results = $self->get_proxy()->call("blastit",$id,$seq,$db,$maxP);
527 :     }
528 :    
529 :     sub boundaries_of {
530 :     my($self,$location) = (@_ == 1) ? $_[0] : $_[1];
531 :     return my $result = $self->get_proxy()->call("boundaries_of",$location);
532 :     }
533 :    
534 :     sub build_tree_of_complete {
535 :     my($self,$min_for_label) = @_;
536 :     return my @results = $self->get_proxy()->call("build_tree_of_complete",$min_for_label);
537 :     }
538 :    
539 :     sub clean_tmp {
540 :     my($self,$file);
541 :     return my $result = $self->get_proxy()->call("clean_tmp",$file);
542 :     }
543 :    
544 :     sub hypo {
545 :     my $x = (@_ == 1) ? $_[0] : $_[1];
546 :    
547 :     if (! $x) { return 1 }
548 :     if ($x =~ /hypoth/i) { return 1 }
549 :     if ($x =~ /conserved protein/i) { return 1 }
550 :     if ($x =~ /gene product/i) { return 1 }
551 :     if ($x =~ /interpro/i) { return 1 }
552 :     if ($x =~ /B[sl][lr]\d/i) { return 1 }
553 :     if ($x =~ /^U\d/) { return 1 }
554 :     if ($x =~ /^orf/i) { return 1 }
555 :     if ($x =~ /uncharacterized/i) { return 1 }
556 :     if ($x =~ /psedogene/i) { return 1 }
557 :     if ($x =~ /^predicted/i) { return 1 }
558 :     if ($x =~ /AGR_/) { return 1 }
559 :     if ($x =~ /similar to/i) { return 1 }
560 :     if ($x =~ /similarity/i) { return 1 }
561 :     if ($x =~ /glimmer/i) { return 1 }
562 :     if ($x =~ /unknown/i) { return 1 }
563 :     return 0;
564 :     }
565 :    
566 :     sub ids_in_family {
567 :     my($self,$family) = @_;
568 :     return my @results = $self->get_proxy()->call("ids_in_family",$family);
569 :     }
570 :    
571 :     sub ids_in_set {
572 :     my($self,$which,$relation,$set_name) = @_;
573 :     return my @results = $self->get_proxy()->call("ids_in_set",$which,$relation,$set_name);
574 :     }
575 :    
576 :     sub in_cluster_with {
577 :     my($self,$peg) = @_;
578 :     return my @results = $self->get_proxy()->call("in_cluster_with",$peg);
579 :     }
580 :    
581 :     sub in_family {
582 :     my($self,$id) = @_;
583 :     return my $result = $self->get_proxy()->call("in_family",$id);
584 :     }
585 :    
586 :     sub in_pch_pin_with {
587 :     my($self,$peg) = @_;
588 :     return my @results = $self->get_proxy()->call("in_pch_with",$peg);
589 :     }
590 :    
591 :     sub in_sets {
592 :     my($self,$id,$relation,$set_name) = @_;
593 :     return my @results = $self->get_proxy()->call("in_sets",$id,$relation,$set_name);
594 :     }
595 :    
596 :     sub is_archaeal {
597 :     my($self,$genome) = @_;
598 :     return my $result = $self->get_proxy()->call("is_archaeal",$genome);
599 :     }
600 :    
601 :     sub is_bacterial {
602 :     my($self,$genome) = @_;
603 :     return my $result = $self->get_proxy()->call("is_bacterial",$genome);
604 :     }
605 :    
606 :     sub is_eukaryotic {
607 :     my($self,$genome) = @_;
608 :     return my $result = $self->get_proxy()->call("is_eukaryotic",$genome);
609 :     }
610 :    
611 :     sub is_prokaryotic {
612 :     my($self,$genome) = @_;
613 :     return my $result = $self->get_proxy()->call("is_prokayotic",$genome);
614 :     }
615 :    
616 :     sub is_exchangable_subsystem {
617 :     my($self,$subsystem) = @_;
618 :     return my $result = $self->get_proxy()->call("is_exchangable_subsystem",$subsystem);
619 :     }
620 :    
621 :     sub is_real_feature {
622 :     my($self,$fid) = @_;
623 :     return my $result = $self->get_proxy()->call("is_real_feature",$fid);
624 :     }
625 :    
626 :     sub largest_clusters {
627 :     my($self,$roles,$user,$sort_by_unique_functions) = @_;
628 :     return my @results = $self->get_proxy()->call("largest_clusters",$roles,$user,$sort_by_unique_functions);
629 :     }
630 :    
631 :     sub load_all {
632 :     my($self) = @_;
633 :     $self->get_proxy()->call("load_all");
634 :     }
635 :    
636 :     sub map_name {
637 :     my($self,$map) = @_;
638 :     return my $result = $self->get_proxy()->call("map_name",$map);
639 :     }
640 :    
641 :     sub mapped_prot_ids {
642 :     my($self,$id) = @_;
643 :     return my @results = $self->get_proxy()->call("mapped_prot_ids",$id);
644 :     }
645 :    
646 :     sub maps_to_id {
647 :     my($self,$id) = @_;
648 :     return my @results = $self->get_proxy()->call("maps_to_id",$id);
649 :     }
650 :    
651 :     sub max {
652 :     my($self,@x) = @_;
653 :     return my $result = $self->get_proxy()->call("max",@x);
654 :     }
655 :    
656 :     sub merged_related_annotations {
657 :     my($self,$fids) = @_;
658 :     return my @results = $self->get_proxy()->call("merged_related_annotations",$fids);
659 :     }
660 :    
661 :     sub neighborhood_of_role {
662 :     my($self,$role) = @_;
663 :     return my @results = $self->get_proxy()->call("neighborhood_of_role",$role);
664 :     }
665 :    
666 :     sub pegs_of {
667 :     my($self,$genome) = @_;
668 :     return my @results = $self->get_proxy()->call("pegs_of",$genome);
669 :     }
670 :    
671 :     sub possibly_truncated {
672 :     my($self,$feature_id) = @_;
673 :     return my $result = $self->get_proxy()->call("possibly_truncated",$feature_id);
674 :     }
675 :    
676 :     sub related_by_func_sim {
677 :     my($self,$peg,$user) = @_;
678 :     return my @results = $self->get_proxy()->call("related_by_func_sim",$peg,$user);
679 :     }
680 :    
681 :     sub rnas_of {
682 :     my($self,$genome) = @_;
683 :     return my @results = $self->get_proxy()->call("rnas_of",$genome);
684 :     }
685 :    
686 :     sub roles_of_function {
687 :     my($self,$func) = @_;
688 :     return my @results = $self->get_proxy()->call("roles_of_function",$func);
689 :     }
690 :    
691 :     sub search_index {
692 :     my($self,$pattern) = @_;
693 :     return my @results = $self->get_proxy()->call("search_index",$pattern);
694 :     }
695 :    
696 :     sub seqs_with_role {
697 :     my($self,$role,$who,$genome) = @_;
698 :     return my @results = $self->get_proxy()->call("seqs_with_role",$role,$who,$genome);
699 :     }
700 :    
701 :     sub sims {
702 :     my ($self,$id,$maxN,$maxP,$select,$max_expand) = @_;
703 :     return my @results = $self->get_proxy()->call("sims",$id,$maxN,$maxP,$select,$max_expand);
704 :     }
705 :    
706 :     sub sort_genomes_by_taxonomy {
707 :     my($self,@genomes) = @_;
708 :     return my @results = $self->get_proxy()->call("sort_genomes_by_taxonomy",@genomes);
709 :     }
710 :    
711 :     sub sort_fids_by_taxonomy {
712 :     my($self,@fids) = @_;
713 :     return my @results = $self->get_proxy()->call("sort_fids_by_taxonomy",@fids);
714 :     }
715 :    
716 :     sub taxonomic_groups_of_complete {
717 :     my($self,$min_for_labels) = @_;
718 :     return my @results = $self->get_proxy()->call("taxonomic_groups_of_complete",$min_for_labels);
719 :     }
720 :    
721 :     sub taxonomy_of {
722 :     my($self,$genome) = @_;
723 :     return my $result = $self->get_proxy()->call("taxonomy_of",$genome);
724 :     }
725 :    
726 :     sub translatable {
727 :     my($self,$prot) = @_;
728 :     return my $result = $self->get_proxy()->call("translatable",$prot);
729 :     }
730 :    
731 :     sub translate_function {
732 :     my($self,$function) = @_;
733 :     return my $result = $self->get_proxy()->call("translate_function",$function);
734 :     }
735 :    
736 :     sub translated_function_of {
737 :     my($self,$id,$user) = @_;
738 :     return my $result = $self->get_proxy()->call("translated_function_of",$id,$user);
739 :     }
740 :    
741 :     sub translation_length {
742 :     my($self,$fid) = @_;
743 :     return my $result = $self->get_proxy()->call("translation_length",$fid);
744 :     }
745 :    
746 :     sub unique_functions {
747 :     my($self,$pegs,$user) = @_;
748 :     return my @results = $self->get_proxy()->call("unique_functions",$pegs,$user);
749 :     }
750 :    
751 :     sub verify_dir {
752 :     my($self,$dir) = @_;
753 :     return my $result = $self->get_proxy()->call("verify_dir",$dir);
754 :     }
755 :    
756 :     sub reverse_comp {
757 :     my($self,$seq) = @_;
758 :     return my $result = $self->get_proxy()->call("reverse_comp",$seq);
759 :     }
760 :    
761 :     sub rev_comp {
762 :     my($self, $seqP ) = @_;
763 :     return my $result = $self->get_proxy()->call("rev_comp",$seqP);
764 :     }
765 :    
766 :     sub display_id_and_seq {
767 :     my($self,$id, $seq, $fh ) = @_;
768 :     return my $result = $self->get_proxy()->call("display_id_and_seq",$id,$seq,$fh);
769 :     }
770 :    
771 :     sub standard_genetic_code {
772 :    
773 :     my($self) = @_;
774 :    
775 :     my $code = {};
776 :    
777 :     $code->{"AAA"} = "K";
778 :     $code->{"AAC"} = "N";
779 :     $code->{"AAG"} = "K";
780 :     $code->{"AAT"} = "N";
781 :     $code->{"ACA"} = "T";
782 :     $code->{"ACC"} = "T";
783 :     $code->{"ACG"} = "T";
784 :     $code->{"ACT"} = "T";
785 :     $code->{"AGA"} = "R";
786 :     $code->{"AGC"} = "S";
787 :     $code->{"AGG"} = "R";
788 :     $code->{"AGT"} = "S";
789 :     $code->{"ATA"} = "I";
790 :     $code->{"ATC"} = "I";
791 :     $code->{"ATG"} = "M";
792 :     $code->{"ATT"} = "I";
793 :     $code->{"CAA"} = "Q";
794 :     $code->{"CAC"} = "H";
795 :     $code->{"CAG"} = "Q";
796 :     $code->{"CAT"} = "H";
797 :     $code->{"CCA"} = "P";
798 :     $code->{"CCC"} = "P";
799 :     $code->{"CCG"} = "P";
800 :     $code->{"CCT"} = "P";
801 :     $code->{"CGA"} = "R";
802 :     $code->{"CGC"} = "R";
803 :     $code->{"CGG"} = "R";
804 :     $code->{"CGT"} = "R";
805 :     $code->{"CTA"} = "L";
806 :     $code->{"CTC"} = "L";
807 :     $code->{"CTG"} = "L";
808 :     $code->{"CTT"} = "L";
809 :     $code->{"GAA"} = "E";
810 :     $code->{"GAC"} = "D";
811 :     $code->{"GAG"} = "E";
812 :     $code->{"GAT"} = "D";
813 :     $code->{"GCA"} = "A";
814 :     $code->{"GCC"} = "A";
815 :     $code->{"GCG"} = "A";
816 :     $code->{"GCT"} = "A";
817 :     $code->{"GGA"} = "G";
818 :     $code->{"GGC"} = "G";
819 :     $code->{"GGG"} = "G";
820 :     $code->{"GGT"} = "G";
821 :     $code->{"GTA"} = "V";
822 :     $code->{"GTC"} = "V";
823 :     $code->{"GTG"} = "V";
824 :     $code->{"GTT"} = "V";
825 :     $code->{"TAA"} = "*";
826 :     $code->{"TAC"} = "Y";
827 :     $code->{"TAG"} = "*";
828 :     $code->{"TAT"} = "Y";
829 :     $code->{"TCA"} = "S";
830 :     $code->{"TCC"} = "S";
831 :     $code->{"TCG"} = "S";
832 :     $code->{"TCT"} = "S";
833 :     $code->{"TGA"} = "*";
834 :     $code->{"TGC"} = "C";
835 :     $code->{"TGG"} = "W";
836 :     $code->{"TGT"} = "C";
837 :     $code->{"TTA"} = "L";
838 :     $code->{"TTC"} = "F";
839 :     $code->{"TTG"} = "L";
840 :     $code->{"TTT"} = "F";
841 :    
842 :     return $code;
843 :     }
844 :    
845 :     1

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3