Bioperl: SEQIO package: Tcl extension

[Catherine Letondal]

Hi,

I have developped for my own use a Tcl extension that use SEQIO 
input/output functions to read, write, convert sequence files and
alignments. This extension is available at: 
	http://www.pasteur.fr/~letondal/Programs/seqiotcl.tar.gz

Examples of use (the function have the same names than in the C package):
# open pir
set p [seqfopen2 pir]
# get the next sequence
seqfgetseq $p
# get information on this sequence
set i [seqfinfo $p]
# return a line line description, given informations accessible via $i
seqfoneline $i 80 0
# return the organism
seqforganism $p
# open another file for writing
set q [seqfopen newfile w fasta]
# get the current pir sequence
set seq [seqfsequence $p]
set len [string length $seq]
# write it
seqfwrite $q $seq $len
seqfclose $q
seqfclose $p

BTW, I would be very happy to contact the "molecular Tcl" author
but this url does not exist any more :
	http://evolution.bmc.uu.se/~thomas/tcl/index.html
I know that the new location of "molecular linux", which is related is
here:
	http://linnaeus.bmc.uu.se/software/mol_linux/
but the author (Thomas.Sicheritz@ebc.uu.se) does not respond and biowish
is not available at the indicated url.
Any idea? Thanks!!

-- 
Catherine Letondal -- Pasteur Institute Computing Center
=========== Bioperl Project Mailing List Message Footer =======
Project URL: http://bio.perl.org/
For info about how to (un)subscribe, where messages are archived, etc:
http://www.techfak.uni-bielefeld.de/bcd/Perl/Bio/vsns-bcd-perl.html
====================================================================