Shell Programming and Scripting

nawk 'NF==1&&(length($1)>3){print $0;next}{x=y;y=$0}/^ID|^P[AT]/{sub(".*"$2,$2);v=$0;w=w?w" \; "v:">"v}/^\/\//{print w"\n"x;w=z}' tst

ID   WO2010013789-0068
PS   TBD
OO   Bacillus thuringiensis
OS   Bacillus thuringiensis
OX   
SI   68
RA  
RL   Patent: WO 2010013789-A/68 04-FEB-2010. OKAYAMA UNIVERSITY,JAPAN LAMB CO LTD
FT   source          1..1176
MT  
AC   DD967106
SV  
CT  
PN   WO2010013789
PT   PROTEIN PRODUCTION METHOD, FUSION PROTEIN, AND ANTISERUM
PA   OKAYAMA UNIVERSITY,JAPAN LAMB CO LTD.
PI   SAKAI HIROSHI (JP); HAYAKAWA TORU (JP) SAKAI, HIROSHI, HAYAKAWA, TORU
P8  
P4   WO2010013789
P5   0
PC   International Classification: \nUS Classification: \nEuropean Classification: C12N15/62; C07K14/47A25
PR   20080801 JP20080199166;
PE   JP20080199166
AN   WO2009JP63603
KC   A1
P1   Disclosed is a high-throues the following steps (a) to (c): (a) producing DNA encoding a fusion protein which is composed of a peptide chain constituting the protein (A) and a C-terminal peptide chain of Cry protein produced by Bacillus thuringiensis or a fragment of the C-terminal peptep of removing the peptide chain (B) from the fusion protein. \n \n 
P7   
P9   112
PO   
PM   WO2010013789; 
PB   WO2010013789
PQ   WO2010013789; 
EM   representative
W1   GQPAT.PRT
D1   20100204
D2   20100217
D3   20090730
D4   20080801
D5   20100204
HL   [L[PN_PN_WIPOPAT;0;12,WO2010013789,A1]] [L[P9_GQ;0;3,WO2010013789,45,67]] [L[PM_PN_GQNUC;0;12,WO2010013789]] [L[PQ_PN_GQNUC;0;12,WO2010013789]]
CC   OS   Artificial CC   Primer C1-1-f FH   Key             Location/Qualifiers Copyright (c) GenomeQuest, Inc. 2011
LS   Application
L2   Publ. Of int. appl. with int. search rep.; 2010-02-04

  MDNNPNINECIPYNCLSNPEVEVLGGERIETGYTPIDISLSLTQFLLSEFVPGAGFVLGLVDIIWGIFGPSQWDAFPVQI
  EQLINQRIEEFARNQAISRLEGLSNLYQIYAESFREWEADPTNPALREEMRIQFNDMNSALTTAIPLLAVQNYQVPLLSV
  YVQAANLHLSVLRDVSVFGQRWGFDAATINSRYNDLTRLIGNYTDYAVRWYNTGLERVWGPDSRDWVRYNQFRRELTLTV
  LDIVALFSNYDSRRYPIRTVSQLTREIYTNPVLENFDGSFRGMAQRIEQNIRQPHLMDILNSITIYTDVHRGFNYWSGHQ
  ITASPVGFSGPEFAFPLFGNAGNAAPPVLVSLTGLGIFRTLSSPLYRRIILGSGPNNQELFVLDGTEFSFASLTTNLPST
  IYRQRGTVDSLDVIPPQDNSVPPRAGFSHRLSHVTMLSQAAGAVYTLRAPTFSWQHRSAEFNNIIPSSQITQIPLTKSTN
  LGSGTSVVKGPGFTGGDILRRTSPGQISTLRVNITAPLSQRYRVRIRYASTTNLQFHTSIDGRPINQGNFSATMSSGSNL
  QSGSFRTVGFTTPFNFSNGSSVFTLSAHVFNSGNEVYIDRIEFVPAEVTFEAEYDLERAQKAVNELFTSSNQIGLKTDVT
  DYHIDQVSNLVECLSDEFCLDEKQELSEKVKHAKRLSDERNLLQDPNFRGINRQLDRGWRGSTDITIQGGDDVFKENYVT
  LLGTFDECYPTYLYQKIDESKLKAYTRYQLRGYIEDSQDLEIYLIRYNAKHETVNVPGTGSLWPLSAQSPIGKCGEPNRC

//
ID  US7482432-0005
PS  disclosure
OO  Bacillus thuringiensis
OS  Bacillus thuringiensis
OX  
SI  5
RA  
RL  
FT  
MT  
AC  
SV  
CT  \n That which is claimed: \n 1. An isolated polypheterologous \n  amino acid sequences. \n 3. A composition comprising the polypeptide of claim <centrifugation, sedimentation, or concentration of a \n  culture of <I>ling a Lepidopteran or Coleopteran pest, \n  comprising contacting said pest with, or feeding to said pest, a \n  pesticidally-effective amount of the polypeptide of claim <B>1</B>. \n 
PN  US7482432
PT  AXMI-003, a delta-endotoxin gene and methods for its use
PA  ATHENIX CORPORATION RESEARCH TRIANGLE PARK, NC 
PI  Carozzi; Nadine (Raleigh, NC); Hargiss; Tracy (Cary, NC); Koziel; Michael G. (Raleigh, NC); Duck; Nicholas B. (Apex, NC); Carr; Brian (Raleigh, NC);
P8  
P4  
P5  0
PC  International Classification: C07K 014/00; C07H 021/04;\nUS Classification: 530/350; 536/023.71; 435/320.1; 435/069.1;\nEuropean Classification: C07H21/04; C07K14/325
PR  20030828 US20030498518P; 20040826 US20040926819; 20070620 US20070765494;
PE  US20030498518P
AN  20070765494
KC  B2
P1  Compositions and methods for conferring pesticidal activity to bacteria, plants, plant cells, tissues and seeds are provided. Compositions comprising a coding sequence for a delta-endotoxin polypeptide are provided. The coding sequences can be used in DNA constructs or expression cassettes for transformation and expression in plants and bacteria. Compositions also comprise transformed bacteria, plants, plant cells, tissues, and seeds. In particular, isolated delta-endotoxin nucleic acid molecules are provided. w Pat. No. 7,253,343. Provisional application No. 60/498,518, filed on 2003/08/28. Previously published as US 2007/0238646 A1, 2007/10/11.
P7  8
P9  31
PO  1-4; 
PM  US20050049410; US20070238646; US20070240239; US7253343; US7482432; WO2005021585; 
PB  US20050049410
PQ  US20050049410; US20070238646; US7253343; US7482432; WO2005021585; 
EM  member
W1  GQPAT.PRT
D1  20090127
D2  20090206
D3  20070620
D4  20030828
D5  20071011
HL  [L[PN_PN_USPTOPAT;0;9,US7482432,B2]] [L[P9_GQ;0;2,US7482432,2,29]] [L[PO_GQ;0;5,US7482432]] [L[PM_PN_GQNUC;0;13,US20050049410]] [L[PM_PN_GQNUC;15;13,US20070238646]] [L[PM_PN_GQNUC;45;9,US7253343]] [L[PM_PN_GQNUC;56;9,US7482432]] [L[PM_PN_GQNUC;67;12,WO2005021585]] [L[PQ_PN_GQNUC;0;13,US20050049410]] [L[PQ_PN_GQNUC;15;13,US20070238646]] [L[PQ_PN_GQNUC;30;9,US7253343]] [L[PQ_PN_GQNUC;41;9,US7482432]] [L[PQ_PN_GQNUC;52;12,WO2005021585]]
CC  Copyright (c) GenomeQuest, Inc. 2011
LS  Granted
L2  Granted patent as second publication / Reexam. certif. 2nd reexam.; 2009-01-27

  MDNNPNINECIPYNCLSNPEVEVLGGERIETGYTPIDISLSLTQFLLSEFVPGAGFVLGLVDIIWGIFGPSQWDAFPVQI
  EQLINQRIEEFARNQAISRLEGLSNLYQIYAESFREWEADPTNPALREEMRIQFNDMNSALTTAIPLLAVQNYQVPLLSV
  YVQAANLHLSVLRDVSVFGQRWGFDAATINSRYNDLTRLIGNYTDYAVRWYNTGLERVWGPDSRDWVRYNQFRRELTLTV
  LDIVALFSNYDSRRYPIRTVSQLTREIYTNPVLENFDGSFRGMAQRIEQNIRQPHLMDILNSITIYTDVHRGFNYWSGHQ
  ITASPVGFSGPEFAFPLFGNAGNAAPPVLVSLTGLGIFRTLSSPLYRRIILGSGPNNQELFVLDGTEFSFASLTTNLPST
  IYRQRGTVDSLDVIPPQDNSVPPRAGFSHRLSHVTMLSQAAGAVYTLRAPTFSWQHRSAEFNNIIPSSQITQIPLTKSTN
  LGSGTSVVKGPGFTGGDILRRTSPGQISTLRVNITAPLSQRYRVRIRYASTTNLQFHTSIDGRPINQGNFSATMSSGSNL
  QSGSFRTVGFTTPFNFSNGSSVFTLSAHVFNSGNEVYIDRIEFVPAEVTFEAEYDLERAQKAVNELFTSSNQIGLKTDVT
  DYHIDQVSNLVECLSDEFCLDEKQELSEKVKHAKRLSDERNLLQDPNFRGINRQLDRGWRGSTDITIQGGDDVFKENYVT
  LLGTFDECYPTYLYQKIDESKLKAYTRYQLRGYIEDSQDLEIYLIRYNAKHETVNVPGTGSLWPLSAQSPIGKCGEPNRC
  APHLEWNPDLDCSCRDGEKCAHHSHHFSLDIDVGCTDLNEDLGVWVIFKIKTQDGHARLGNLEFLEEKPLVGEALARVKR
//

#!/bin/sh

sed -r 's/\ +/\ /' "$1" | while read l; do
    f1=$(echo "$l" | cut -d\  -f1)
    f2=$(echo "$l" | cut -d\  -f2-)
    case "$f1" in
        'ID')
            s1=">$f2"
        ;;
        'PA' | 'PT')
            s1="$s1 ; $f2"
        ;;
        '//')
            echo "$s1$s2"
            s1=; s2=;
        ;;
    esac
    [ "${#f1}" -gt 3 ] && s2="$s2\n$f1"
done

exit 0

awk '{n=NF}/^ID|^P[AT]/{sub(".*"$2,$2);v=$0;w=w?w" \; "v:">"v}n==1&&(length($1)>3){a[c++]=$0}/^\/\//{print w;w=z;for(i in a){print a[i];delete a[i]}}' tst

awk '{n=NF}/^ID|^P[AT]/{sub(".*"$2,$2);v=$0;w=w?w" \; "v:">"v}n==1&&(length($1)>3){g=$0;l=l?l"\n"g:g}/^\/\//{print w"\n"l;w=l=z}' tst

awk '{n=NF}/^ID|^P[AT]/{sub(".*"$2,$2);v=$0;w=w?w" \; "v:">"v}n==1&&(length($1)>3){if(w){print w;w=z};print}' tst