FASTA format: Difference between revisions

<syntaxhighlight lang="rexx">/*REXX program reads a (bio-informational) FASTA file and displays the contents. */

parseParse argArg iFIDifid . /* iFID: the input file to be read. */

name= ifid='FASTA.IN' /* Not specified? Then use /*the namedefault of an output file (so far). */

$name='' /* the name of an output file (so far) /*the value of the output file's stuff.*/

d='' do while lines(iFID)\==0 /*process the value FASTAof the output file's contents. */

Do While lines(ifid)\==0 x=strip( linein(iFID), 'T') /* process the FASTA file /*readcontents a line (a record) from the file,*/

/* and strip trailing blanks /*───────── and strip trailing blanks. */

If left(x,1)=='>' Then Do /* a new file id if $\=='' then say name':' $*/

Call out /* show output name=substr(x, and data 2)*/

name=substr(x,2) /* and get the new (or first) $=output name */

d='' end /* start with empty contents */

Else end /*j*/ /* a line with data /* [↓] show output of last file used. */

if $\= d=''d||x then say name':' $ /*stick aappend it to output fork in it, we're all done. */</syntaxhighlight>