new file mode 100644
--- /dev/null
+++ b/packages/language/c/libc/stdio/current/src/common/fopen.cxx
@@ -0,0 +1,250 @@
+//===========================================================================
+//
+//      fopen.cxx
+//
+//      Implementation of C library file open function as per ANSI 7.9.5.3
+//
+//===========================================================================
+//####COPYRIGHTBEGIN####
+//                                                                          
+// -------------------------------------------                              
+// The contents of this file are subject to the Red Hat eCos Public License 
+// Version 1.1 (the "License"); you may not use this file except in         
+// compliance with the License.  You may obtain a copy of the License at    
+// http://www.redhat.com/                                                   
+//                                                                          
+// Software distributed under the License is distributed on an "AS IS"      
+// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.  See the 
+// License for the specific language governing rights and limitations under 
+// the License.                                                             
+//                                                                          
+// The Original Code is eCos - Embedded Configurable Operating System,      
+// released September 30, 1998.                                             
+//                                                                          
+// The Initial Developer of the Original Code is Red Hat.                   
+// Portions created by Red Hat are                                          
+// Copyright (C) 1998, 1999, 2000 Red Hat, Inc.                             
+// All Rights Reserved.                                                     
+// -------------------------------------------                              
+//                                                                          
+//####COPYRIGHTEND####
+//===========================================================================
+//#####DESCRIPTIONBEGIN####
+//
+// Author(s):     jlarmour
+// Contributors:  
+// Date:          2000-04-20
+// Purpose:       Implements ISO C fopen() function
+// Description: 
+// Usage:       
+//
+//####DESCRIPTIONEND####
+//
+//===========================================================================
+
+// CONFIGURATION
+
+#include <pkgconf/libc_stdio.h>   // Configuration header
+
+
+// Do we want fopen()?
+#if defined(CYGPKG_LIBC_STDIO_OPEN)
+
+// INCLUDES
+
+#include <cyg/infra/cyg_type.h>     // Common project-wide type definitions
+#include <stddef.h>                 // NULL and size_t from compiler
+#include <errno.h>                  // Error codes
+#include <stdio.h>                  // header for fopen()
+#include <stdlib.h>                 // malloc()
+#include <string.h>                 // strncmp() and strcmp()
+#include <cyg/libc/stdio/stdiofiles.hxx> // C library files
+#include <cyg/libc/stdio/stream.hxx>     // C library streams
+
+#include <cyg/libc/stdio/io.inl>     // I/O system inlines
+
+// FUNCTIONS
+
+// process the mode string. Return true on error
+static cyg_bool
+process_mode( const char *mode, Cyg_StdioStream::OpenMode *rw,
+              cyg_bool *binary, cyg_bool *append )
+{
+    *binary = *append = false; // default
+
+    switch (mode[0]) {
+    case 'r':
+        *rw = Cyg_StdioStream::CYG_STREAM_READ;
+        break;
+
+    case 'a':
+        *append = true;
+    case 'w':
+        *rw = Cyg_StdioStream::CYG_STREAM_WRITE;
+        break;
+        
+    default:
+        return true;
+    } // switch
+
+    // ANSI says additional characters may follow the sequences, that we
+    // don't necessarily recognise so we just ignore them, and pretend that
+    // its the end of the string
+
+    switch (mode[1]) {
+    case 'b':
+        *binary = true;
+        break;
+    case '+':
+        *rw = Cyg_StdioStream::CYG_STREAM_READWRITE;
+        break;
+    default:
+        return false;
+    } // switch
+
+    switch (mode[2]) {
+    case 'b':
+        *binary = true;
+        break;
+    case '+':
+        *rw = Cyg_StdioStream::CYG_STREAM_READWRITE;
+        break;
+    default:
+        return false;
+    } // switch
+    
+    return false;
+} // process_mode()
+
+
+static FILE *fopen_inner( cyg_stdio_handle_t dev,
+                          Cyg_StdioStream::OpenMode open_mode,
+                          cyg_bool binary,
+                          cyg_bool append)
+{
+    Cyg_StdioStream *curr_stream;
+    int i;
+    Cyg_ErrNo err;
+    int bufmode = _IOFBF;
+    cyg_ucount32 bufsize = BUFSIZ;
+    
+    Cyg_libc_stdio_files::lock();
+
+    // find an empty slot
+    for (i=0; i < FOPEN_MAX; i++) {
+        curr_stream = Cyg_libc_stdio_files::get_file_stream(i);
+        if (curr_stream == NULL)
+            break;
+    } // for
+
+    if (i == FOPEN_MAX) { // didn't find an empty slot
+        errno = EMFILE;
+        cyg_stdio_close( dev );
+        return NULL;
+    } // if
+
+    // Decide the buffering mode. The default is fully buffered, but if
+    // this is an interactive stream then set it to non buffered. 
+    if( (dev != CYG_STDIO_HANDLE_NULL) &&
+        cyg_stdio_interactive( dev ) )
+        bufmode = _IONBF, bufsize = 0;
+    
+    // Allocate it some memory and construct it.
+    curr_stream = new Cyg_StdioStream( dev, open_mode, append, binary,
+                                       bufmode, bufsize );
+
+    if (curr_stream == NULL) {
+        cyg_stdio_close( dev );
+        errno = ENOMEM;
+        return NULL;
+    } // if
+
+
+    // it puts any error in its own error flag
+    if (( err=curr_stream->get_error() )) {
+
+        Cyg_libc_stdio_files::unlock();
+        
+        free( curr_stream );
+
+        cyg_stdio_close( dev );
+        
+        errno = err;
+
+        return NULL;
+
+    } // if
+
+    Cyg_libc_stdio_files::set_file_stream(i, curr_stream);
+        
+    Cyg_libc_stdio_files::unlock();
+
+    return (FILE *)(curr_stream);
+
+} // fopen_inner()
+
+externC FILE *
+fopen( const char *filename, const char *mode )
+{
+    cyg_stdio_handle_t dev;
+    Cyg_ErrNo err;
+    Cyg_StdioStream::OpenMode open_mode;
+    cyg_bool binary, append;
+    
+    // process_mode returns true on error
+    if (process_mode( mode, &open_mode, &binary, &append )) {
+        errno = EINVAL;
+        return NULL;
+    } // if
+
+    err = cyg_stdio_open( filename, open_mode, binary, append, &dev );
+
+    // if not found
+    if (err != ENOERR) {
+        errno = ENOENT;
+        return NULL;
+    } // if
+
+    return fopen_inner( dev, open_mode, binary, append );
+    
+} // fopen()
+
+
+#endif // defined(CYGPKG_LIBC_STDIO_OPEN)
+
+#ifdef CYGPKG_LIBC_STDIO_FILEIO
+
+externC int fileno( FILE *stream )
+{
+    Cyg_StdioStream *real_stream = (Cyg_StdioStream *)stream;
+
+    return real_stream->get_dev();
+}
+
+externC FILE *fdopen( int fd, const char *mode )
+{
+    Cyg_StdioStream::OpenMode open_mode;
+    cyg_bool binary, append;
+    FILE *f;
+    
+    // process_mode returns true on error
+    if (process_mode( mode, &open_mode, &binary, &append )) {
+        errno = EINVAL;
+        return NULL;
+    } // if
+
+    f = fopen_inner( (cyg_stdio_handle_t)fd, open_mode, binary, append );
+
+    if( f == NULL )
+        return f;
+
+    // Do a null seek to initialize the file position.
+    Cyg_StdioStream *real_stream = (Cyg_StdioStream *)f;
+    fpos_t pos = 0;
+    real_stream->set_position( pos, SEEK_CUR );
+}
+
+#endif // def CYGPKG_LIBC_STDIO_FILEIO
+
+
+// EOF fopen.cxx