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#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "stdhdr.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef struct
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdisc_t sfdisc; /* sfio discipline */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t* f; /* original wide stream */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char fmt[1]; /* mb fmt */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin} Wide_t;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * wide exception handler
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * free on close
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinwideexcept(Sfio_t* f, int op, void* val, Sfdisc_t* dp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sffileno(f) >= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (op)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SF_ATEXIT:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfdisc(f, SF_POPDISC);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SF_CLOSING:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SF_DPOP:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SF_FINAL:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op != SF_CLOSING)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(dp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * sfio wide discipline read
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * 1 wchar_t at a time
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * go pure multibyte for best performance
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic ssize_t
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinwideread(Sfio_t* f, Void_t* buf, size_t size, Sfdisc_t* dp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Wide_t* w = (Wide_t*)dp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wchar_t wuf[2];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if 0
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sfread(w->f, wuf, sizeof(wuf[0])) != sizeof(wuf[0]))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wuf[1] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return wcstombs(buf, wuf, size);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssize_t r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r = sfread(w->f, wuf, sizeof(wuf[0]));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (r != sizeof(wuf[0]))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wuf[1] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r = wcstombs(buf, wuf, size);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvfwscanf(Sfio_t* f, const wchar_t* fmt, va_list args)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size_t n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int v;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t* t;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Wide_t* w;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char buf[1024];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STDIO_INT(f, "vfwscanf", int, (Sfio_t*, const wchar_t*, va_list), (f, fmt, args))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin FWIDE(f, WEOF);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = wcstombs(NiL, fmt, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (w = newof(0, Wide_t, 1, n))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (t = sfnew(NiL, buf, sizeof(buf), OPEN_MAX+1, SF_READ))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w->sfdisc.exceptf = wideexcept;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w->sfdisc.readf = wideread;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w->f = f;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sfdisc(t, &w->sfdisc) == &w->sfdisc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wcstombs(w->fmt, fmt, n + 1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = sfvscanf(t, w->fmt, args);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(w);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfsetfd(t, -1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(t);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(w);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return v;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}