From 3950ffe2a485479f6561c27364d3d7df5a21d124 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Sun, 24 Jun 2012 22:28:35 +0000 Subject: Imported Upstream version 93u+ --- src/lib/libast/sfio/_sfgetl.c | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 src/lib/libast/sfio/_sfgetl.c (limited to 'src/lib/libast/sfio/_sfgetl.c') diff --git a/src/lib/libast/sfio/_sfgetl.c b/src/lib/libast/sfio/_sfgetl.c new file mode 100644 index 0000000..cc66462 --- /dev/null +++ b/src/lib/libast/sfio/_sfgetl.c @@ -0,0 +1,42 @@ +/*********************************************************************** +* * +* 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 * +* David Korn * +* Phong Vo * +* * +***********************************************************************/ +#include "sfhdr.h" + +/* + * for backwards compatibility with pre-threaded sfgetl() inline + */ + +#ifdef __EXPORT__ +#define extern __EXPORT__ +#endif + +extern +#if __STD_C +Sflong_t _sfgetl(reg Sfio_t* f) +#else +Sflong_t _sfgetl(f) +reg Sfio_t* f; +#endif +{ + sfungetc(f, (unsigned char)_SF_(f)->val); + return sfgetl(f); +} -- cgit v1.2.3