mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-03-09 15:50:02 +00:00
4dcf5c5066
This now makes ksh build on DragonFly BSD. bin/package, src/cmd/INIT/package.sh: - DragonFly also needs the -lm hack for LDFLAGS. src/cmd/ksh93/sh/main.c, src/cmd/ksh93/tests/basic.sh: - fixargs() doesn't work on DragonFly either (re:9b7c392a,159fb9ee,cefe087d). The following are backported from: https://github.com/att/ast/issues/26#issuecomment-313927854 https://github.com/att/ast/pull/19 src/lib/libast/comp/setlocale.c: - Add missing #include <errno.h> since errno is used. src/lib/libast/features/standards: - Do not set any standards macros (_POSIX_SOURCE etc) on FreeBSD or DragonflyBSD; they disable too much functionality on those. src/lib/libast/features/wchar: - Set _STDFILE_DECLARED on DragonFly, too. src/lib/libast/include/sfio.h, src/lib/libast/include/sfio_t.h, src/lib/libast/sfio/_sfopen.c, src/lib/libast/sfio/sfclrlock.c, src/lib/libast/sfio/sfhdr.h, src/lib/libast/sfio/sfnew.c, src/lib/libast/sfio/sfset.c: - Rename SF_* macros to SFIO_* to avoid a conflict with system headers. src/lib/libast/string/strexpr.c: - Rename error() to err() to avoid a conflict.
63 lines
2.3 KiB
C
63 lines
2.3 KiB
C
/***********************************************************************
|
|
* *
|
|
* This software is part of the ast package *
|
|
* Copyright (c) 1985-2011 AT&T Intellectual Property *
|
|
* and is licensed under the *
|
|
* Eclipse Public License, Version 1.0 *
|
|
* by AT&T Intellectual Property *
|
|
* *
|
|
* A copy of the License is available at *
|
|
* http://www.eclipse.org/org/documents/epl-v10.html *
|
|
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
|
|
* *
|
|
* Information and Software Systems Research *
|
|
* AT&T Research *
|
|
* Florham Park NJ *
|
|
* *
|
|
* Glenn Fowler <gsf@research.att.com> *
|
|
* David Korn <dgk@research.att.com> *
|
|
* Phong Vo <kpv@research.att.com> *
|
|
* *
|
|
***********************************************************************/
|
|
#include "sfhdr.h"
|
|
|
|
/* Function to clear a locked stream.
|
|
** This is useful for programs that longjmp from the mid of an sfio function.
|
|
** There is no guarantee on data integrity in such a case.
|
|
**
|
|
** Written by Kiem-Phong Vo
|
|
*/
|
|
#if __STD_C
|
|
int sfclrlock(Sfio_t* f)
|
|
#else
|
|
int sfclrlock(f)
|
|
Sfio_t *f;
|
|
#endif
|
|
{
|
|
int rv;
|
|
SFMTXDECL(f); /* declare a local stream variable for multithreading */
|
|
|
|
/* already closed */
|
|
if(f && (f->mode&SF_AVAIL))
|
|
return 0;
|
|
|
|
SFMTXENTER(f,0);
|
|
|
|
/* clear error bits */
|
|
f->flags &= ~(SF_ERROR|SF_EOF);
|
|
|
|
/* clear peek locks */
|
|
if(f->mode&SF_PKRD)
|
|
{ f->here -= f->endb-f->next;
|
|
f->endb = f->next;
|
|
}
|
|
|
|
SFCLRBITS(f);
|
|
|
|
/* throw away all lock bits except for stacking state SF_PUSH */
|
|
f->mode &= (SF_RDWR|SF_INIT|SF_POOL|SF_PUSH|SF_SYNCED|SF_STDIO);
|
|
|
|
rv = (f->mode&SF_PUSH) ? 0 : (f->flags&SFIO_FLAGS);
|
|
|
|
SFMTXRETURN(f, rv);
|
|
}
|