xref: /titanic_51/usr/src/lib/libast/common/stdio/_stdfun.c (revision 3e14f97f673e8a630f076077de35afdd43dc1587)
1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin *                                                                      *
3da2e3ebdSchin *               This software is part of the ast package               *
4*3e14f97fSRoger A. Faulkner *          Copyright (c) 1985-2010 AT&T Intellectual Property          *
5da2e3ebdSchin *                      and is licensed under the                       *
6da2e3ebdSchin *                  Common Public License, Version 1.0                  *
77c2fbfb3SApril Chin *                    by AT&T Intellectual Property                     *
8da2e3ebdSchin *                                                                      *
9da2e3ebdSchin *                A copy of the License is available at                 *
10da2e3ebdSchin *            http://www.opensource.org/licenses/cpl1.0.txt             *
11da2e3ebdSchin *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12da2e3ebdSchin *                                                                      *
13da2e3ebdSchin *              Information and Software Systems Research               *
14da2e3ebdSchin *                            AT&T Research                             *
15da2e3ebdSchin *                           Florham Park NJ                            *
16da2e3ebdSchin *                                                                      *
17da2e3ebdSchin *                 Glenn Fowler <gsf@research.att.com>                  *
18da2e3ebdSchin *                  David Korn <dgk@research.att.com>                   *
19da2e3ebdSchin *                   Phong Vo <kpv@research.att.com>                    *
20da2e3ebdSchin *                                                                      *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #pragma prototyped
23da2e3ebdSchin 
24da2e3ebdSchin #include <ast.h>
25da2e3ebdSchin 
26da2e3ebdSchin #if !_UWIN
27da2e3ebdSchin 
_STUB_stdfun()28da2e3ebdSchin void _STUB_stdfun(){}
29da2e3ebdSchin 
30da2e3ebdSchin #else
31da2e3ebdSchin 
32da2e3ebdSchin #include <ast_windows.h>
33da2e3ebdSchin #include <uwin.h>
34da2e3ebdSchin #include <dlfcn.h>
35da2e3ebdSchin #include "FEATURE/uwin"
36da2e3ebdSchin 
37da2e3ebdSchin #if _lib___iob_func
38da2e3ebdSchin #define IOB		((char*)__iob_func())
3934f9b3eeSRoland Mainz #elif _lib___p__iob
4034f9b3eeSRoland Mainz #define IOB		((char*)__p__iob())
41da2e3ebdSchin #elif _dat__iob
42da2e3ebdSchin #define IOB		((char*)_iob)
43da2e3ebdSchin #else
4434f9b3eeSRoland Mainz #define IOB		((char*)_p__iob())
45da2e3ebdSchin #endif
46da2e3ebdSchin 
47da2e3ebdSchin #define IOBMAX		(512*32)
48da2e3ebdSchin 
49da2e3ebdSchin #include "stdhdr.h"
50da2e3ebdSchin 
51da2e3ebdSchin int
_stdfun(Sfio_t * f,Funvec_t * vp)52da2e3ebdSchin _stdfun(Sfio_t* f, Funvec_t* vp)
53da2e3ebdSchin {
54da2e3ebdSchin 	static char*	iob;
55da2e3ebdSchin 	static int	init;
56da2e3ebdSchin 	static void*	bp;
57da2e3ebdSchin 	static void*	np;
58da2e3ebdSchin 
59da2e3ebdSchin 	if (!iob && !(iob = IOB))
60da2e3ebdSchin 		return 0;
61da2e3ebdSchin 	if (f && ((char*)f < iob || (char*)f > iob+IOBMAX))
62da2e3ebdSchin 		return 0;
63da2e3ebdSchin 	if (!vp->vec[1])
64da2e3ebdSchin 	{
65da2e3ebdSchin 		if (!init)
66da2e3ebdSchin 		{
67da2e3ebdSchin 			init = 1;
68da2e3ebdSchin 			bp = dlopen("/usr/bin/stdio.dll", 0);
69da2e3ebdSchin 		}
70da2e3ebdSchin 		if (bp && (vp->vec[1] = (Fun_f)dlsym(bp, vp->name)))
71da2e3ebdSchin 			return 1;
72da2e3ebdSchin 		if (!np && !(np = dlopen("/sys/msvcrt.dll", 0)))
73da2e3ebdSchin 			return -1;
74da2e3ebdSchin 		if (!(vp->vec[1] = (Fun_f)dlsym(np, vp->name)))
75da2e3ebdSchin 			return -1;
76da2e3ebdSchin 	}
77da2e3ebdSchin 	return 1;
78da2e3ebdSchin }
79da2e3ebdSchin 
80da2e3ebdSchin #endif
81