1N/A/***********************************************************************
1N/A* *
1N/A* This software is part of the ast package *
1N/A* Copyright (c) 1985-2011 AT&T Intellectual Property *
1N/A* and is licensed under the *
1N/A* Common Public License, Version 1.0 *
1N/A* by AT&T Intellectual Property *
1N/A* *
1N/A* A copy of the License is available at *
1N/A* http://www.opensource.org/licenses/cpl1.0.txt *
1N/A* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
1N/A* *
1N/A* Information and Software Systems Research *
1N/A* AT&T Research *
1N/A* Florham Park NJ *
1N/A* *
1N/A* Glenn Fowler <gsf@research.att.com> *
1N/A* David Korn <dgk@research.att.com> *
1N/A* Phong Vo <kpv@research.att.com> *
1N/A* *
1N/A***********************************************************************/
1N/A#pragma prototyped
1N/A
1N/A#include "stdhdr.h"
1N/A
1N/Atypedef struct
1N/A{
1N/A Sfdisc_t sfdisc; /* sfio discipline */
1N/A Sfio_t* f; /* original wide stream */
1N/A char fmt[1]; /* mb fmt */
1N/A} Wide_t;
1N/A
1N/A/*
1N/A * wide exception handler
1N/A * free on close
1N/A */
1N/A
1N/Astatic int
1N/Awideexcept(Sfio_t* f, int op, void* val, Sfdisc_t* dp)
1N/A{
1N/A if (sffileno(f) >= 0)
1N/A return -1;
1N/A switch (op)
1N/A {
1N/A case SF_ATEXIT:
1N/A sfdisc(f, SF_POPDISC);
1N/A break;
1N/A case SF_CLOSING:
1N/A case SF_DPOP:
1N/A case SF_FINAL:
1N/A if (op != SF_CLOSING)
1N/A free(dp);
1N/A break;
1N/A }
1N/A return 0;
1N/A}
1N/A
1N/A/*
1N/A * sfio wide discipline read
1N/A * 1 wchar_t at a time
1N/A * go pure multibyte for best performance
1N/A */
1N/A
1N/Astatic ssize_t
1N/Awideread(Sfio_t* f, Void_t* buf, size_t size, Sfdisc_t* dp)
1N/A{
1N/A register Wide_t* w = (Wide_t*)dp;
1N/A wchar_t wuf[2];
1N/A
1N/A#if 0
1N/A if (sfread(w->f, wuf, sizeof(wuf[0])) != sizeof(wuf[0]))
1N/A return -1;
1N/A wuf[1] = 0;
1N/A return wcstombs(buf, wuf, size);
1N/A#else
1N/A ssize_t r;
1N/A
1N/A r = sfread(w->f, wuf, sizeof(wuf[0]));
1N/A if (r != sizeof(wuf[0]))
1N/A return -1;
1N/A wuf[1] = 0;
1N/A r = wcstombs(buf, wuf, size);
1N/A return r;
1N/A#endif
1N/A}
1N/A
1N/Aint
1N/Avfwscanf(Sfio_t* f, const wchar_t* fmt, va_list args)
1N/A{
1N/A size_t n;
1N/A int v;
1N/A Sfio_t* t;
1N/A Wide_t* w;
1N/A char buf[1024];
1N/A
1N/A STDIO_INT(f, "vfwscanf", int, (Sfio_t*, const wchar_t*, va_list), (f, fmt, args))
1N/A
1N/A FWIDE(f, WEOF);
1N/A n = wcstombs(NiL, fmt, 0);
1N/A if (w = newof(0, Wide_t, 1, n))
1N/A {
1N/A if (t = sfnew(NiL, buf, sizeof(buf), OPEN_MAX+1, SF_READ))
1N/A {
1N/A w->sfdisc.exceptf = wideexcept;
1N/A w->sfdisc.readf = wideread;
1N/A w->f = f;
1N/A if (sfdisc(t, &w->sfdisc) == &w->sfdisc)
1N/A {
1N/A wcstombs(w->fmt, fmt, n + 1);
1N/A v = sfvscanf(t, w->fmt, args);
1N/A }
1N/A else
1N/A {
1N/A free(w);
1N/A v = -1;
1N/A }
1N/A sfsetfd(t, -1);
1N/A sfclose(t);
1N/A }
1N/A else
1N/A {
1N/A free(w);
1N/A v = -1;
1N/A }
1N/A }
1N/A else
1N/A v = -1;
1N/A return v;
1N/A}