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()28da2e3ebdSchinvoid _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