da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1985-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "sfhdr.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* Get the size of a stream.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin**
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** Written by Kiem-Phong Vo.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
7c2fbfb345896881c631598ee3852ce9ce33fb07April ChinSfoff_t sfsize(Sfio_t* f)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinSfoff_t sfsize(f)
7c2fbfb345896881c631598ee3852ce9ce33fb07April ChinSfio_t* f;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdisc_t* disc;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg int mode;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfoff_t s;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin SFMTXDECL(f);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin SFMTXENTER(f, (Sfoff_t)(-1));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((mode = f->mode&SF_RDWR) != (int)f->mode && _sfmode(f,mode,0) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMTXRETURN(f, (Sfoff_t)(-1));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f->flags&SF_STRING)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFSTRSIZE(f);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMTXRETURN(f, f->extent);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFLOCK(f,0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = f->here;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f->extent >= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(f->flags&(SF_SHARE|SF_APPENDWR))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { for(disc = f->disc; disc; disc = disc->disc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(disc->seekf)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!_sys_stat || disc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { Sfoff_t e;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((e = SFSK(f,0,SEEK_END,disc)) >= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->extent = e;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(SFSK(f,f->here,SEEK_SET,disc) != f->here)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->here = SFSK(f,(Sfoff_t)0,SEEK_CUR,disc);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _sys_stat
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { sfstat_t st;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sysfstatf(f->file,&st) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->extent = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if((f->extent = st.st_size) < f->here)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->here = SFSK(f,(Sfoff_t)0,SEEK_CUR,disc);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((f->flags&(SF_SHARE|SF_PUBLIC)) == (SF_SHARE|SF_PUBLIC))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->here = SFSK(f,(Sfoff_t)0,SEEK_CUR,f->disc);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f->here != s && (f->mode&SF_READ) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* buffered data is known to be invalid */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_TYPE
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((f->bits&SF_MMAP) && f->data)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFMUNMAP(f,f->data,f->endb-f->data);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->data = NIL(uchar*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->next = f->endb = f->endr = f->endw = f->data;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f->here < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->extent = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(f->extent < f->here)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->extent = f->here;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((s = f->extent) >= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(f->flags&SF_APPENDWR)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s += (f->next - f->data);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(f->mode&SF_WRITE)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { s = f->here + (f->next - f->data);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(s < f->extent)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = f->extent;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFOPEN(f,0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMTXRETURN(f, s);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}