|
Packit Service |
a8c26c |
/***********************************************************************
|
|
Packit Service |
a8c26c |
* *
|
|
Packit Service |
a8c26c |
* This software is part of the ast package *
|
|
Packit Service |
a8c26c |
* Copyright (c) 1985-2011 AT&T Intellectual Property *
|
|
Packit Service |
a8c26c |
* and is licensed under the *
|
|
Packit Service |
a8c26c |
* Eclipse Public License, Version 1.0 *
|
|
Packit Service |
a8c26c |
* by AT&T Intellectual Property *
|
|
Packit Service |
a8c26c |
* *
|
|
Packit Service |
a8c26c |
* A copy of the License is available at *
|
|
Packit Service |
a8c26c |
* http://www.eclipse.org/org/documents/epl-v10.html *
|
|
Packit Service |
a8c26c |
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
|
|
Packit Service |
a8c26c |
* *
|
|
Packit Service |
a8c26c |
* Information and Software Systems Research *
|
|
Packit Service |
a8c26c |
* AT&T Research *
|
|
Packit Service |
a8c26c |
* Florham Park NJ *
|
|
Packit Service |
a8c26c |
* *
|
|
Packit Service |
a8c26c |
* Glenn Fowler <gsf@research.att.com> *
|
|
Packit Service |
a8c26c |
* David Korn <dgk@research.att.com> *
|
|
Packit Service |
a8c26c |
* Phong Vo <kpv@research.att.com> *
|
|
Packit Service |
a8c26c |
* *
|
|
Packit Service |
a8c26c |
***********************************************************************/
|
|
Packit Service |
a8c26c |
#include "sfhdr.h"
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
/* Swap two streams. If the second argument is NULL,
|
|
Packit Service |
a8c26c |
** a new stream will be created. Always return the second argument
|
|
Packit Service |
a8c26c |
** or the new stream. Note that this function will always work
|
|
Packit Service |
a8c26c |
** unless streams are locked by SF_PUSH.
|
|
Packit Service |
a8c26c |
**
|
|
Packit Service |
a8c26c |
** Written by Kiem-Phong Vo.
|
|
Packit Service |
a8c26c |
*/
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
#if __STD_C
|
|
Packit Service |
a8c26c |
Sfio_t* sfswap(reg Sfio_t* f1, reg Sfio_t* f2)
|
|
Packit Service |
a8c26c |
#else
|
|
Packit Service |
a8c26c |
Sfio_t* sfswap(f1,f2)
|
|
Packit Service |
a8c26c |
reg Sfio_t* f1;
|
|
Packit Service |
a8c26c |
reg Sfio_t* f2;
|
|
Packit Service |
a8c26c |
#endif
|
|
Packit Service |
a8c26c |
{
|
|
Packit Service |
a8c26c |
Sfio_t tmp;
|
|
Packit Service |
a8c26c |
int f1pool, f2pool, f1mode, f2mode, f1flags, f2flags;
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
if(!f1 || (f1->mode&SF_AVAIL) || (SFFROZEN(f1) && (f1->mode&SF_PUSH)) )
|
|
Packit Service |
a8c26c |
return NIL(Sfio_t*);
|
|
Packit Service |
a8c26c |
if(f2 && SFFROZEN(f2) && (f2->mode&SF_PUSH) )
|
|
Packit Service |
a8c26c |
return NIL(Sfio_t*);
|
|
Packit Service |
a8c26c |
if(f1 == f2)
|
|
Packit Service |
a8c26c |
return f2;
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
f1mode = f1->mode;
|
|
Packit Service |
a8c26c |
SFLOCK(f1,0);
|
|
Packit Service |
a8c26c |
f1->mode |= SF_PUSH; /* make sure there is no recursion on f1 */
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
if(f2)
|
|
Packit Service |
a8c26c |
{ f2mode = f2->mode;
|
|
Packit Service |
a8c26c |
SFLOCK(f2,0);
|
|
Packit Service |
a8c26c |
f2->mode |= SF_PUSH; /* make sure there is no recursion on f2 */
|
|
Packit Service |
a8c26c |
}
|
|
Packit Service |
a8c26c |
else
|
|
Packit Service |
a8c26c |
{ f2 = f1->file == 0 ? sfstdin :
|
|
Packit Service |
a8c26c |
f1->file == 1 ? sfstdout :
|
|
Packit Service |
a8c26c |
f1->file == 2 ? sfstderr : NIL(Sfio_t*);
|
|
Packit Service |
a8c26c |
if((!f2 || !(f2->mode&SF_AVAIL)) )
|
|
Packit Service |
a8c26c |
{ if(!(f2 = (Sfio_t*)malloc(sizeof(Sfio_t))) )
|
|
Packit Service |
a8c26c |
{ f1->mode = f1mode;
|
|
Packit Service |
a8c26c |
SFOPEN(f1,0);
|
|
Packit Service |
a8c26c |
return NIL(Sfio_t*);
|
|
Packit Service |
a8c26c |
}
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
SFCLEAR(f2,NIL(Vtmutex_t*));
|
|
Packit Service |
a8c26c |
}
|
|
Packit Service |
a8c26c |
f2->mode = SF_AVAIL|SF_LOCK;
|
|
Packit Service |
a8c26c |
f2mode = SF_AVAIL;
|
|
Packit Service |
a8c26c |
}
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
if(!f1->pool)
|
|
Packit Service |
a8c26c |
f1pool = -1;
|
|
Packit Service |
a8c26c |
else for(f1pool = f1->pool->n_sf-1; f1pool >= 0; --f1pool)
|
|
Packit Service |
a8c26c |
if(f1->pool->sf[f1pool] == f1)
|
|
Packit Service |
a8c26c |
break;
|
|
Packit Service |
a8c26c |
if(!f2->pool)
|
|
Packit Service |
a8c26c |
f2pool = -1;
|
|
Packit Service |
a8c26c |
else for(f2pool = f2->pool->n_sf-1; f2pool >= 0; --f2pool)
|
|
Packit Service |
a8c26c |
if(f2->pool->sf[f2pool] == f2)
|
|
Packit Service |
a8c26c |
break;
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
f1flags = f1->flags;
|
|
Packit Service |
a8c26c |
f2flags = f2->flags;
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
/* swap image and pool entries */
|
|
Packit Service |
a8c26c |
memcpy((Void_t*)(&tmp),(Void_t*)f1,sizeof(Sfio_t));
|
|
Packit Service |
a8c26c |
memcpy((Void_t*)f1,(Void_t*)f2,sizeof(Sfio_t));
|
|
Packit Service |
a8c26c |
memcpy((Void_t*)f2,(Void_t*)(&tmp),sizeof(Sfio_t));
|
|
Packit Service |
a8c26c |
if(f2pool >= 0)
|
|
Packit Service |
a8c26c |
f1->pool->sf[f2pool] = f1;
|
|
Packit Service |
a8c26c |
if(f1pool >= 0)
|
|
Packit Service |
a8c26c |
f2->pool->sf[f1pool] = f2;
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
if(f2flags&SF_STATIC)
|
|
Packit Service |
a8c26c |
f2->flags |= SF_STATIC;
|
|
Packit Service |
a8c26c |
else f2->flags &= ~SF_STATIC;
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
if(f1flags&SF_STATIC)
|
|
Packit Service |
a8c26c |
f1->flags |= SF_STATIC;
|
|
Packit Service |
a8c26c |
else f1->flags &= ~SF_STATIC;
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
if(f2mode&SF_AVAIL) /* swapping to a closed stream */
|
|
Packit Service |
a8c26c |
{ if(!(f1->flags&SF_STATIC) )
|
|
Packit Service |
a8c26c |
free(f1);
|
|
Packit Service |
a8c26c |
}
|
|
Packit Service |
a8c26c |
else
|
|
Packit Service |
a8c26c |
{ f1->mode = f2mode;
|
|
Packit Service |
a8c26c |
SFOPEN(f1,0);
|
|
Packit Service |
a8c26c |
}
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
f2->mode = f1mode;
|
|
Packit Service |
a8c26c |
SFOPEN(f2,0);
|
|
Packit Service |
a8c26c |
return f2;
|
|
Packit Service |
a8c26c |
}
|