1
# $Id: prettyseq.pm,v 1.6 2006/07/04 22:23:35 mauricio Exp $
2
# BioPerl module for Bio::Tools::Run::PiseApplication::prettyseq
4
# Cared for by Catherine Letondal <letondal@pasteur.fr>
6
# For copyright and disclaimer see below.
8
# POD documentation - main docs before the code
12
Bio::Tools::Run::PiseApplication::prettyseq
20
Bio::Tools::Run::PiseApplication::prettyseq
24
PRETTYSEQ Output sequence with translated ranges (EMBOSS)
30
http://bioweb.pasteur.fr/seqanal/interfaces/prettyseq.html
31
for available values):
39
sequence -- DNA [single sequence] (-sequence)
43
Range(s) to translate (-range)
46
Codon usage file (-cfile)
49
Width of screen (-width)
55
Number translations (-plabel)
58
Number DNA sequence (-nlabel)
69
User feedback is an integral part of the evolution of this and other
70
Bioperl modules. Send your comments and suggestions preferably to
71
the Bioperl mailing list. Your participation is much appreciated.
73
bioperl-l@bioperl.org - General discussion
74
http://bioperl.org/wiki/Mailing_lists - About the mailing lists
78
Report bugs to the Bioperl bug tracking system to help us keep track
79
of the bugs and their resolution. Bug reports can be submitted via the
82
http://bugzilla.open-bio.org/
86
Catherine Letondal (letondal@pasteur.fr)
90
Copyright (C) 2003 Institut Pasteur & Catherine Letondal.
93
This module is free software; you can redistribute it and/or modify
94
it under the same terms as Perl itself.
98
This software is provided "as is" without warranty of any kind.
106
http://bioweb.pasteur.fr/seqanal/interfaces/prettyseq.html
110
Bio::Tools::Run::PiseApplication
114
Bio::Tools::Run::AnalysisFactory::Pise
118
Bio::Tools::Run::PiseJob
125
package Bio::Tools::Run::PiseApplication::prettyseq;
129
use Bio::Tools::Run::PiseApplication;
131
@ISA = qw(Bio::Tools::Run::PiseApplication);
136
Usage : my $prettyseq = Bio::Tools::Run::PiseApplication::prettyseq->new($location, $email, @params);
137
Function: Creates a Bio::Tools::Run::PiseApplication::prettyseq object.
138
This method should not be used directly, but rather by
139
a Bio::Tools::Run::AnalysisFactory::Pise instance.
140
my $factory = Bio::Tools::Run::AnalysisFactory::Pise->new();
141
my $prettyseq = $factory->program('prettyseq');
143
Returns : An instance of Bio::Tools::Run::PiseApplication::prettyseq.
148
my ($class, $location, $email, @params) = @_;
149
my $self = $class->SUPER::new($location, $email);
151
# -- begin of definitions extracted from /local/gensoft/lib/Pise/5.a/PerlDef/prettyseq.pm
153
$self->{COMMAND} = "prettyseq";
154
$self->{VERSION} = "5.a";
155
$self->{TITLE} = "PRETTYSEQ";
157
$self->{DESCRIPTION} = "Output sequence with translated ranges (EMBOSS)";
159
$self->{OPT_EMAIL} = 0;
161
$self->{CATEGORIES} = [
165
"nucleic:translation",
168
$self->{DOCLINK} = "http://www.uk.embnet.org/Software/EMBOSS/Apps/prettyseq.html";
170
$self->{_INTERFACE_STANDOUT} = undef;
171
$self->{_STANDOUT_FILE} = undef;
173
$self->{TOP_PARAMETERS} = [
184
$self->{PARAMETERS_ORDER} = [
187
"input", # input Section
188
"sequence", # sequence -- DNA [single sequence] (-sequence)
189
"required", # required Section
190
"range", # Range(s) to translate (-range)
191
"advanced", # advanced Section
192
"cfile", # Codon usage file (-cfile)
193
"width", # Width of screen (-width)
194
"ruler", # Add a ruler (-ruler)
195
"plabel", # Number translations (-plabel)
196
"nlabel", # Number DNA sequence (-nlabel)
197
"output", # output Section
198
"outfile", # outfile (-outfile)
204
"prettyseq" => 'String',
206
"input" => 'Paragraph',
207
"sequence" => 'Sequence',
208
"required" => 'Paragraph',
209
"range" => 'Integer',
210
"advanced" => 'Paragraph',
212
"width" => 'Integer',
214
"plabel" => 'Switch',
215
"nlabel" => 'Switch',
216
"output" => 'Paragraph',
217
"outfile" => 'OutFile',
229
"perl" => '" -sequence=$value -sformat=fasta"',
234
"perl" => '" -range=$value"',
239
"perl" => '($value && $value ne $vdef)? " -cfile=$value" : ""',
242
"perl" => '(defined $value && $value != $vdef)? " -width=$value" : ""',
245
"perl" => '($value)? "" : " -noruler"',
248
"perl" => '($value)? "" : " -noplabel"',
251
"perl" => '($value)? "" : " -nonlabel"',
256
"perl" => '" -outfile=$value"',
259
"perl" => '" -auto -stdout"',
262
"perl" => '"prettyseq"',
267
$self->{FILENAMES} = {
291
$self->{BY_GROUP_PARAMETERS} = [
314
$self->{ISHIDDEN} = {
333
$self->{ISCOMMAND} = {
351
$self->{ISMANDATORY} = {
371
"input" => "input Section",
372
"sequence" => "sequence -- DNA [single sequence] (-sequence)",
373
"required" => "required Section",
374
"range" => "Range(s) to translate (-range)",
375
"advanced" => "advanced Section",
376
"cfile" => "Codon usage file (-cfile)",
377
"width" => "Width of screen (-width)",
378
"ruler" => "Add a ruler (-ruler)",
379
"plabel" => "Number translations (-plabel)",
380
"nlabel" => "Number DNA sequence (-nlabel)",
381
"output" => "output Section",
382
"outfile" => "outfile (-outfile)",
387
$self->{ISSTANDOUT} = {
407
"input" => ['sequence',],
408
"required" => ['range',],
409
"advanced" => ['cfile','width','ruler','plabel','nlabel',],
410
"cfile" => ['Ebmo.cut','Ebmo.cut','Etom.cut','Etom.cut','Erat.cut','Erat.cut','Ebsu.cut','Ebsu.cut','Echicken.cut','Echicken.cut','Etob.cut','Etob.cut','Echnt.cut','Echnt.cut','Eyscmt.cut','Eyscmt.cut','Ehin.cut','Ehin.cut','Echmp.cut','Echmp.cut','Ecal.cut','Ecal.cut','Evco.cut','Evco.cut','Epfa.cut','Epfa.cut','Esty.cut','Esty.cut','Echk.cut','Echk.cut','Eaidlav.cut','Eaidlav.cut','Esgi.cut','Esgi.cut','Emtu.cut','Emtu.cut','Ersp.cut','Ersp.cut','Esco.cut','Esco.cut','Ebna.cut','Ebna.cut','Ehuman.cut','Ehuman.cut','Eacc.cut','Eacc.cut','Eyeastcai.cut','Eyeastcai.cut','Eratsp.cut','Eratsp.cut','Ehma.cut','Ehma.cut','Erabbit.cut','Erabbit.cut','Erab.cut','Erab.cut','Emac.cut','Emac.cut','Eysc.cut','Eysc.cut','Emze.cut','Emze.cut','Espi.cut','Espi.cut','Epea.cut','Epea.cut','Ekla.cut','Ekla.cut','Eeca.cut','Eeca.cut','Echzmrubp.cut','Echzmrubp.cut','Eanidmit.cut','Eanidmit.cut','Esv40.cut','Esv40.cut','Epsy.cut','Epsy.cut','Eysc_h.cut','Eysc_h.cut','Eadenovirus5.cut','Eadenovirus5.cut','Espo_h.cut','Espo_h.cut','Eatu.cut','Eatu.cut','Eneu.cut','Eneu.cut','Epot.cut','Epot.cut','Edro_h.cut','Edro_h.cut','Ephix174.cut','Ephix174.cut','Epet.cut','Epet.cut','Ekpn.cut','Ekpn.cut','Ebme.cut','Ebme.cut','Ebovsp.cut','Ebovsp.cut','Esma.cut','Esma.cut','Etetsp.cut','Etetsp.cut','Ephy.cut','Ephy.cut','Exenopus.cut','Exenopus.cut','Eoncsp.cut','Eoncsp.cut','Exel.cut','Exel.cut','Esus.cut','Esus.cut','Eter.cut','Eter.cut','Epig.cut','Epig.cut','Erabsp.cut','Erabsp.cut','Espu.cut','Espu.cut','Ef1.cut','Ef1.cut','Erhm.cut','Erhm.cut','Emussp.cut','Emussp.cut','Engo.cut','Engo.cut','Emus.cut','Emus.cut','Eppu.cut','Eppu.cut','Ecre.cut','Ecre.cut','Esalsp.cut','Esalsp.cut','Easn.cut','Easn.cut','Esmi.cut','Esmi.cut','Eccr.cut','Eccr.cut','Emva.cut','Emva.cut','Esynsp.cut','Esynsp.cut','Espn.cut','Espn.cut','Etobcp.cut','Etobcp.cut','Ebja.cut','Ebja.cut','Ephv.cut','Ephv.cut','Echi.cut','Echi.cut','Efish.cut','Efish.cut','Epombecai.cut','Epombecai.cut','Eanasp.cut','Eanasp.cut','Eyen.cut','Eyen.cut','Ewht.cut','Ewht.cut','Ehum.cut','Ehum.cut','Etcr.cut','Etcr.cut','Emzecp.cut','Emzecp.cut','Esli.cut','Esli.cut','Ezebrafish.cut','Ezebrafish.cut','Emouse.cut','Emouse.cut','Esoy.cut','Esoy.cut','Eham.cut','Eham.cut','Esyhsp.cut','Esyhsp.cut','Eddi.cut','Eddi.cut','Emaize.cut','Emaize.cut','Emixlg.cut','Emixlg.cut','Eric.cut','Eric.cut','Esta.cut','Esta.cut','Eani.cut','Eani.cut','Epolyomaa2.cut','Epolyomaa2.cut','Ecac.cut','Ecac.cut','Eani_h.cut','Eani_h.cut','Echisp.cut','Echisp.cut','Ehha.cut','Ehha.cut','Ecel.cut','Ecel.cut','Encr.cut','Encr.cut','Epae.cut','Epae.cut','Eslm.cut','Eslm.cut','Ebsu_h.cut','Ebsu_h.cut','Eysp.cut','Eysp.cut','Echos.cut','Echos.cut','Etbr.cut','Etbr.cut','Edrosophila.cut','Edrosophila.cut','Erca.cut','Erca.cut','Ebov.cut','Ebov.cut','Eyeast.cut','Eyeast.cut','Emta.cut','Emta.cut','Epombe.cut','Epombe.cut','Esmu.cut','Esmu.cut','Etrb.cut','Etrb.cut','Ebst.cut','Ebst.cut','Erme.cut','Erme.cut','Eath.cut','Eath.cut','Efmdvpolyp.cut','Efmdvpolyp.cut','Ectr.cut','Ectr.cut','Emam_h.cut','Emam_h.cut','Eadenovirus7.cut','Eadenovirus7.cut','Ecpx.cut','Ecpx.cut','Eshpsp.cut','Eshpsp.cut','Espo.cut','Espo.cut','Emsa.cut','Emsa.cut','Eecoli.cut','Eecoli.cut','Edro.cut','Edro.cut','Ebly.cut','Ebly.cut','Eavi.cut','Eavi.cut','Epse.cut','Epse.cut','Epvu.cut','Epvu.cut','Eeco_h.cut','Eeco_h.cut','Erle.cut','Erle.cut','Ella.cut','Ella.cut','Edayhoff.cut','Edayhoff.cut','Eshp.cut','Eshp.cut','Emse.cut','Emse.cut','Ezma.cut','Ezma.cut','Eddi_h.cut','Eddi_h.cut','Esau.cut','Esau.cut','Echzm.cut','Echzm.cut','Edog.cut','Edog.cut','Ecrisp.cut','Ecrisp.cut','Eeco.cut','Eeco.cut',],
411
"output" => ['outfile',],
418
$self->{SEPARATOR} = {
423
"cfile" => 'Ehum.cut',
428
"outfile" => 'outfile.out',
433
"init" => { "perl" => '1' },
434
"input" => { "perl" => '1' },
435
"sequence" => { "perl" => '1' },
436
"required" => { "perl" => '1' },
437
"range" => { "perl" => '1' },
438
"advanced" => { "perl" => '1' },
439
"cfile" => { "perl" => '1' },
440
"width" => { "perl" => '1' },
441
"ruler" => { "perl" => '1' },
442
"plabel" => { "perl" => '1' },
443
"nlabel" => { "perl" => '1' },
444
"output" => { "perl" => '1' },
445
"outfile" => { "perl" => '1' },
446
"auto" => { "perl" => '1' },
458
$self->{WITHPIPEOUT} = {
469
$self->{WITHPIPEIN} = {
491
$self->{ISSIMPLE} = {
509
$self->{PARAMFILE} = {
517
$self->{SCALEMIN} = {
521
$self->{SCALEMAX} = {
525
$self->{SCALEINC} = {
533
# -- end of definitions extracted from /local/gensoft/lib/Pise/5.a/PerlDef/prettyseq.pm
537
$self->_init_params(@params);
544
1; # Needed to keep compiler happy