summaryrefslogtreecommitdiff
path: root/libc/misc
diff options
context:
space:
mode:
Diffstat (limited to 'libc/misc')
-rw-r--r--libc/misc/wchar/wstdio.c457
1 files changed, 0 insertions, 457 deletions
diff --git a/libc/misc/wchar/wstdio.c b/libc/misc/wchar/wstdio.c
deleted file mode 100644
index 84d98b64a..000000000
--- a/libc/misc/wchar/wstdio.c
+++ /dev/null
@@ -1,457 +0,0 @@
-/* Copyright (C) 2002 Manuel Novoa III
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the Free
- * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- */
-
-/* ATTENTION! ATTENTION! ATTENTION! ATTENTION! ATTENTION!
- *
- * Besides uClibc, I'm using this code in my libc for elks, which is
- * a 16-bit environment with a fairly limited compiler. It would make
- * things much easier for me if this file isn't modified unnecessarily.
- * In particular, please put any new or replacement functions somewhere
- * else, and modify the makefile to use your version instead.
- * Thanks. Manuel
- *
- * ATTENTION! ATTENTION! ATTENTION! ATTENTION! ATTENTION! */
-
-/* Nov 21, 2002
- *
- * Reimplement fputwc and fputws in terms of internal function _wstdio_fwrite.
- */
-
-
-
-
-/*
- * ANSI/ISO C99 says
-
- 9 Although both text and binary wide­oriented streams are conceptually sequences of wide
- characters, the external file associated with a wide­oriented stream is a sequence of
- multibyte characters, generalized as follows:
- --- Multibyte encodings within files may contain embedded null bytes (unlike multibyte
- encodings valid for use internal to the program).
- --- A file need not begin nor end in the initial shift state. 225)
-
- * How do we deal with this?
-
- * Should auto_wr_transition init the mbstate object?
-*/
-
-#include <stdio.h>
-#include <wchar.h>
-#include <limits.h>
-#include <errno.h>
-#include <assert.h>
-
-libc_hidden_proto(fgetwc_unlocked)
-libc_hidden_proto(fputwc_unlocked)
-
-#ifndef __UCLIBC_HAS_THREADS__
-
-#ifdef __BCC__
-#define UNLOCKED_STREAM(RETURNTYPE,NAME,PARAMS,ARGS,STREAM) \
-asm(".text\nexport _" "NAME" "_unlocked\n_" "NAME" "_unlocked = _" "NAME"); \
-RETURNTYPE NAME PARAMS
-#else
-#define UNLOCKED_STREAM(RETURNTYPE,NAME,PARAMS,ARGS,STREAM) \
-strong_alias(NAME,NAME##_unlocked) \
-RETURNTYPE NAME PARAMS
-#endif
-
-#define UNLOCKED(RETURNTYPE,NAME,PARAMS,ARGS) \
- UNLOCKED_STREAM(RETURNTYPE,NAME,PARAMS,ARGS,stream)
-
-#ifdef __BCC__
-#define UNLOCKED_VOID_RETURN(NAME,PARAMS,ARGS) \
-asm(".text\nexport _" "NAME" "_unlocked\n_" "NAME" "_unlocked = _" "NAME"); \
-void NAME PARAMS
-#else
-#define UNLOCKED_VOID_RETURN(NAME,PARAMS,ARGS) \
-strong_alias(NAME,NAME##_unlocked) \
-void NAME PARAMS
-#endif
-
-#define __STDIO_THREADLOCK_OPENLIST
-#define __STDIO_THREADUNLOCK_OPENLIST
-
-#else /* __UCLIBC_HAS_THREADS__ */
-
-#include <pthread.h>
-
-#define UNLOCKED_STREAM(RETURNTYPE,NAME,PARAMS,ARGS,STREAM) \
-RETURNTYPE NAME PARAMS \
-{ \
- RETURNTYPE retval; \
- __STDIO_THREADLOCK(STREAM); \
- retval = NAME##_unlocked ARGS ; \
- __STDIO_THREADUNLOCK(STREAM); \
- return retval; \
-} \
-RETURNTYPE NAME##_unlocked PARAMS
-
-#define UNLOCKED(RETURNTYPE,NAME,PARAMS,ARGS) \
- UNLOCKED_STREAM(RETURNTYPE,NAME,PARAMS,ARGS,stream)
-
-#define UNLOCKED_VOID_RETURN(NAME,PARAMS,ARGS) \
-void NAME PARAMS \
-{ \
- __STDIO_THREADLOCK(stream); \
- NAME##_unlocked ARGS ; \
- __STDIO_THREADUNLOCK(stream); \
-} \
-void NAME##_unlocked PARAMS
-
-#define __STDIO_THREADLOCK_OPENLIST \
- __pthread_mutex_lock(&_stdio_openlist_lock)
-
-#define __STDIO_THREADUNLOCK_OPENLIST \
- __pthread_mutex_unlock(&_stdio_openlist_lock)
-
-#define __STDIO_THREADTRYLOCK_OPENLIST \
- __pthread_mutex_trylock(&_stdio_openlist_lock)
-
-#endif /* __UCLIBC_HAS_THREADS__ */
-
-#ifndef __STDIO_BUFFERS
-#error stdio buffers are currently required for wide i/o
-#endif
-
-/**********************************************************************/
-#ifdef L_fwide
-
-/* TODO: According to SUSv3 should return EBADF if invalid stream. */
-
-int fwide(register FILE *stream, int mode)
-{
- __STDIO_THREADLOCK(stream);
-
- if (mode && !(stream->modeflags & (__FLAG_WIDE|__FLAG_NARROW))) {
- stream->modeflags |= ((mode > 0) ? __FLAG_WIDE : __FLAG_NARROW);
- }
-
- mode = (stream->modeflags & __FLAG_WIDE)
- - (stream->modeflags & __FLAG_NARROW);
-
- __STDIO_THREADUNLOCK(stream);
-
- return mode;
-}
-
-#endif
-/**********************************************************************/
-#ifdef L_fgetwc
-
-static void munge_stream(register FILE *stream, unsigned char *buf)
-{
-#ifdef __STDIO_GETC_MACRO
- stream->bufgetc =
-#endif
-#ifdef __STDIO_PUTC_MACRO
- stream->bufputc =
-#endif
- stream->bufpos = stream->bufread = stream->bufend = stream->bufstart = buf;
-}
-
-libc_hidden_proto(mbrtowc)
-
-UNLOCKED(wint_t,fgetwc,(register FILE *stream),(stream))
-{
- wint_t wi;
- wchar_t wc[1];
- int n;
- size_t r;
- unsigned char c[1];
- unsigned char sbuf[1];
-
- wi = WEOF; /* Prepare for failure. */
-
- if (stream->modeflags & __FLAG_NARROW) {
- stream->modeflags |= __FLAG_ERROR;
- __set_errno(EBADF);
- goto DONE;
- }
- stream->modeflags |= __FLAG_WIDE;
-
- if (stream->modeflags & __MASK_UNGOT) {/* Any ungetwc()s? */
-
- assert(stream->modeflags & __FLAG_READING);
-
-/* assert( (stream->modeflags & (__FLAG_READING|__FLAG_ERROR)) */
-/* == __FLAG_READING); */
-
- if ((((stream->modeflags & __MASK_UNGOT) > 1) || stream->ungot[1])) {
- stream->ungot_width[0] = 0; /* Application ungot... */
- } else {
- stream->ungot_width[0] = stream->ungot_width[1]; /* scanf ungot */
- }
-
- wi = stream->ungot[(--stream->modeflags) & __MASK_UNGOT];
- stream->ungot[1] = 0;
- goto DONE;
- }
-
- if (!stream->bufstart) { /* Ugh... stream isn't buffered! */
- /* Munge the stream temporarily to use a 1-byte buffer. */
- munge_stream(stream, sbuf);
- ++stream->bufend;
- }
-
- if (stream->state.mask == 0) { /* If last was a complete char */
- stream->ungot_width[0] = 0; /* then reset the width. */
- }
-
- LOOP:
- if ((n = stream->bufread - stream->bufpos) == 0) {
- goto FILL_BUFFER;
- }
-
- r = mbrtowc(wc, stream->bufpos, n, &stream->state);
- if (((ssize_t) r) >= 0) { /* Success... */
- if (r == 0) { /* Nul wide char... means 0 byte for us so */
- ++r; /* increment r and handle below as single. */
- }
- stream->bufpos += r;
- stream->ungot_width[0] += r;
- wi = *wc;
- goto DONE;
- }
-
- if (r == ((size_t) -2)) {
- /* Potentially valid but incomplete and no more buffered. */
- stream->bufpos += n; /* Update bufpos for stream. */
- stream->ungot_width[0] += n;
- FILL_BUFFER:
- if (_stdio_fread(c, (size_t) 1, stream) > 0) {
- assert(stream->bufpos == stream->bufstart + 1);
- *--stream->bufpos = *c; /* Insert byte into buffer. */
- goto LOOP;
- }
- if (!__FERROR(stream)) { /* EOF with no error. */
- if (!stream->state.mask) { /* No partially complete wchar. */
- goto DONE;
- }
- /* EOF but partially complete wchar. */
- /* TODO: should EILSEQ be set? */
- __set_errno(EILSEQ);
- }
- }
-
- /* If we reach here, either r == ((size_t)-1) and mbrtowc set errno
- * to EILSEQ, or r == ((size_t)-2) and stream is in an error state
- * or at EOF with a partially complete wchar. Make sure stream's
- * error indicator is set. */
- stream->modeflags |= __FLAG_ERROR;
-
- DONE:
- if (stream->bufstart == sbuf) { /* Need to un-munge the stream. */
- munge_stream(stream, NULL);
- }
-
- return wi;
-}
-libc_hidden_def(fgetwc_unlocked)
-
-strong_alias(fgetwc_unlocked,getwc_unlocked)
-strong_alias(fgetwc,getwc)
-
-#endif
-/**********************************************************************/
-#ifdef L_getwchar
-
-UNLOCKED_STREAM(wint_t,getwchar,(void),(),stdin)
-{
- register FILE *stream = stdin; /* This helps bcc optimize. */
-
- return fgetwc_unlocked(stream);
-}
-
-#endif
-/**********************************************************************/
-#ifdef L_fgetws
-
-UNLOCKED(wchar_t *,fgetws,(wchar_t *__restrict ws, int n,
- FILE *__restrict stream),(ws, n, stream))
-{
- register wchar_t *p = ws;
- wint_t wi;
-
- while ((n > 1)
- && ((wi = fgetwc_unlocked(stream)) != WEOF)
- && ((*p++ = wi) != '\n')
- ) {
- --n;
- }
- if (p == ws) {
- /* TODO -- should we set errno? */
-/* if (n <= 0) { */
-/* errno = EINVAL; */
-/* } */
- return NULL;
- }
- *p = 0;
- return ws;
-}
-
-#endif
-/**********************************************************************/
-#ifdef L_fputwc
-
-/* libc_hidden_proto(wcrtomb) */
-
-UNLOCKED(wint_t,fputwc,(wchar_t wc, FILE *stream),(wc, stream))
-{
-#if 1
- return _wstdio_fwrite(&wc, 1, stream) ? wc : WEOF;
-#else
- size_t n;
- char buf[MB_LEN_MAX];
-
- if (stream->modeflags & __FLAG_NARROW) {
- stream->modeflags |= __FLAG_ERROR;
- __set_errno(EBADF);
- return WEOF;
- }
- stream->modeflags |= __FLAG_WIDE;
-
- return (((n = wcrtomb(buf, wc, &stream->state)) != ((size_t)-1)) /* !EILSEQ */
- && (_stdio_fwrite(buf, n, stream) == n))/* and wrote everything. */
- ? wc : WEOF;
-#endif
-}
-libc_hidden_def(fputwc_unlocked)
-
-strong_alias(fputwc_unlocked,putwc_unlocked)
-strong_alias(fputwc,putwc)
-
-#endif
-/**********************************************************************/
-#ifdef L_putwchar
-
-UNLOCKED_STREAM(wint_t,putwchar,(wchar_t wc),(wc),stdout)
-{
- register FILE *stream = stdout; /* This helps bcc optimize. */
-
- return fputwc_unlocked(wc, stream);
-}
-
-#endif
-/**********************************************************************/
-#ifdef L_fputws
-
-libc_hidden_proto(wcslen)
-/* libc_hidden_proto(wcsrtombs) */
-
-UNLOCKED(int,fputws,(const wchar_t *__restrict ws,
- register FILE *__restrict stream),(ws, stream))
-{
-#if 1
- size_t n = wcslen(ws);
-
- return (_wstdio_fwrite(ws, n, stream) == n) ? 0 : -1;
-#else
- size_t n;
- char buf[64];
-
- if (stream->modeflags & __FLAG_NARROW) {
- stream->modeflags |= __FLAG_ERROR;
- __set_errno(EBADF);
- return -1;
- }
- stream->modeflags |= __FLAG_WIDE;
-
- while ((n = wcsrtombs(buf, &ws, sizeof(buf), &stream->state)) != 0) {
- /* Wasn't an empty wide string. */
- if ((n == ((size_t) -1))/* Encoding error! */
- || (_stdio_fwrite(buf, n, stream) != n)/* Didn't write everything. */
- ) {
- return -1;
- }
- if (!ws) { /* Done? */
- break;
- }
- }
-
- return 1;
-#endif
-}
-
-#endif
-/**********************************************************************/
-#ifdef L_ungetwc
-/*
- * Note: This is the application-callable ungetwc. If wscanf calls this, it
- * should also set stream->ungot[1] to 0 if this is the only ungot, as well
- * as reset stream->ungot_width[1] for use by _stdio_adjpos().
- */
-
-/* Reentrant. */
-
-libc_hidden_proto(fflush_unlocked)
-
-wint_t ungetwc(wint_t c, register FILE *stream)
-{
- __STDIO_THREADLOCK(stream);
-
- __stdio_validate_FILE(stream); /* debugging only */
-
- if (stream->modeflags & __FLAG_NARROW) {
- stream->modeflags |= __FLAG_ERROR;
- c = WEOF;
- goto DONE;
- }
- stream->modeflags |= __FLAG_WIDE;
-
- /* If can't read or c == WEOF or ungot slots already filled, then fail. */
- if ((stream->modeflags
- & (__MASK_UNGOT2|__FLAG_WRITEONLY
-#ifndef __UCLIBC_HAS_STDIO_AUTO_RW_TRANSITION__
- |__FLAG_WRITING /* Note: technically no, but yes in spirit */
-#endif /* __UCLIBC_HAS_STDIO_AUTO_RW_TRANSITION__ */
- ))
- || ((stream->modeflags & __MASK_UNGOT1) && (stream->ungot[1]))
- || (c == WEOF) ) {
- c = WEOF;
- goto DONE;;
- }
-
-/* ungot_width */
-
-#ifdef __STDIO_BUFFERS
-#ifdef __UCLIBC_HAS_STDIO_AUTO_RW_TRANSITION__
- if (stream->modeflags & __FLAG_WRITING) {
- fflush_unlocked(stream); /* Commit any write-buffered chars. */
- }
-#endif /* __UCLIBC_HAS_STDIO_AUTO_RW_TRANSITION__ */
-#endif /* __STDIO_BUFFERS */
-
- /* Clear EOF and WRITING flags, and set READING FLAG */
- stream->modeflags &= ~(__FLAG_EOF|__FLAG_WRITING);
-#ifdef __UCLIBC_MJN3_ONLY__
-#warning CONSIDER: Is setting the reading flag after an ungetwc necessary?
-#endif /* __UCLIBC_MJN3_ONLY__ */
- stream->modeflags |= __FLAG_READING;
- stream->ungot[1] = 1; /* Flag as app ungetc call; wscanf fixes up. */
- stream->ungot[(stream->modeflags++) & __MASK_UNGOT] = c;
-
- __stdio_validate_FILE(stream); /* debugging only */
-
- DONE:
- __STDIO_THREADUNLOCK(stream);
-
- return c;
-}
-
-#endif
-/**********************************************************************/