/* blimp.c PEH, RAP, CJP Version 4 01/08/07 */

#include<stdio.h>
#include<stdlib.h>
#include"blimp.h"

int tmpgp[GRPSIZ];

int ReadGroup(int *g, FILE *f)
{
    int i,len,j,*pt,ct;
    ct=0;
    pt=(int*)g;
    while(1)
    {
        fscanf(f,"%d",&i);
        if(i==0) return -1;
        ct++;
        if(ct>GRPSIZ)
        {
            printf("run out of group space\n");
            exit(23);
	}
	*(pt++)=i;
    	if(i==999) break;
    	fscanf(f,"%d",&len);
	ct+=len+1;
	if(ct>GRPSIZ)
	{
    	    printf("run out of group space\n");
	    exit(23);
	}
	*(pt++)=len;
	for(i=0;i<len;i++) 
	{
	    fscanf(f,"%d",&j);
	    *(pt++)=j;
	}
    }
    return 0; 
}

void WriteGroup(int *g, FILE *f)
{
    int *p1;
    int i,len;
    p1=(int*)g;
    while(*p1!=999)
    {
    	fprintf(f,"%d ",*(p1++));
    	len=*p1;
        for(i=0;i<=len;i++) fprintf(f,"%d ",*(p1++));
   	fprintf(f,"\n");
    }
    fprintf(f,"%d\n",*(p1++));
}

int ListBlimps(int *g, int *t)
{
    int n,tp,len;
    int *p1, *p2;
    p1 = (int*)g;
    p2 = (int*)t;
    n=0;
    while(1)
    {
	tp=*(p1++);
	if(tp==999) break;
	n++;
	*(p2++)=tp;
	len=*(p1++);
	p1+=len; 
    }
    return n;
}

void InsertBlimp(int *g, int *b)
{
    int i,len,ct;
    int *p1,*p2,*p3;
    DeleteBlimp(g,b[0]);
    p1 = (int*)g;
    p2 = (int*)b;
    p3 = (int*)tmpgp;
    ct=0;
    while(*p1<b[0])
    {
	*(p3++)=*(p1++);
	len=*p1;
	ct+=len+2;
    	for(i=0;i<=len;i++) *(p3++)=*(p1++);
    }
    ct+=b[1]+2;
    if(ct>GRPSIZ)
    {
    	printf("run out of blimp space\n");
	exit(23);
    }
    len=b[1];
    for(i=0;i<=len+1;i++) *(p3++)=*(p2++);
    while(*p1!=999)
    {
	*(p3++)=*(p1++);
	len=*p1;
	ct+=len+2;
	if(ct>GRPSIZ)
	{
	    printf("run out of blimp space\n");
	    exit(23);
	}
    	for(i=0;i<=len;i++) *(p3++)=*(p1++);
    }
    p1 = (int*)g;
    p3 = (int*)tmpgp;
    for(i=0;i<ct;i++) *(p1++)=*(p3++); 
    *(p1++)=999;
}

void DeleteBlimp(int *g, int t)
{
    int *p1,*p2,len,i;
    p1 = (int*)g;
    while(*p1!=t)
    {
	if(*p1==999) return;
	p1++;
	len=*(p1++);
	p1=(int*)(len+p1);
    }
    p2=(int*)p1;
    p2++; 
    len=*(p2++);
    p2+=len;
    while(*p2!=999)
    {
	*(p1++)=*(p2++);
	len=*p2;
	for(i=0;i<=len;i++) *(p1++)=*(p2++);
    }
    *(p1++)=999;
}

void ExtractBlimp(int *g, int t, int *b)
{
    int *p1, *p2;
    int i,len;
    p1 = (int*)g;
    p2 = (int*)b;
    while(*p1!=t)
    {
	len=*(p1+1);
	p1+=len+2;
    }
    *(p2++)=*(p1++);
    len=*p1;
    for(i=0;i<=len;i++) *(p2++)=*(p1++);
}

void WriteEOF(FILE *f)
{
    fprintf(f,"0\n");    
}

/* end of blimp.c */