nlmfile.c

开放源码的编译器open watcom 1.6.0版的源代码

/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include "debugme.h"
#include <stddef.h>
#include <string.h>     /* may only call functions defined in nlmstrt.c */
#include <fcntl.h>
#include <stdio.h>
#include <nwtypes.h>

#include "miniproc.h"
#include "loader.h"
#include "nwsemaph.h"

#undef TRUE
#undef FALSE

#include "trpimp.h"
#include "packet.h"

#include "nlmport.h"
#include "nw3to4.h"

/* from NLMIO.C */
extern int IOCreat( char *name );
extern int IOOpen( char *openname, int openmode );
extern int IOClose( int closehandle );
extern int IOWrite( int writehandle, char *buff, int buff_len );
extern int IOWriteConsole( char *buff, int buff_len );
extern int IOSeek( int seekhandle, int seekmode, long seekpos );
extern int IORead( int readhandle, char *buff, int len );
extern void StringToNLMPath( char *name, char *res );

unsigned ReqFile_get_config()
{
    file_get_config_ret *ret;

    ret = GetOutPtr( 0 );

    ret->file.ext_separator = '.';
    ret->file.path_separator[0] = '\\';
    ret->file.path_separator[1] = '/';
    ret->file.path_separator[2] = ':';
    ret->file.newline[0] = '\r';
    ret->file.newline[1] = '\n';
    return( sizeof( *ret ) );
}

unsigned ReqFile_open()
{
    file_open_req       *acc;
    file_open_ret       *ret;
    int             retval;
    static int MapAcc[] = { O_RDONLY, O_WRONLY, O_RDWR };

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );
    if( acc->mode & TF_CREATE ) {
        retval = IOCreat( GetInPtr( sizeof( *acc ) ) );
    } else {
        retval = IOOpen( GetInPtr( sizeof( *acc ) ),
                         MapAcc[acc->mode - 1] );
    }
    if( retval < 0 ) {
        ret->err = retval;
        ret->handle = 0;
    } else {
        ret->err = 0;
        ret->handle = retval;
    }
    return( sizeof( *ret ) );
}

unsigned ReqFile_close()
{
    file_close_req      *acc;
    file_close_ret      *ret;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );
    ret->err = IOClose( acc->handle );
    return( sizeof( *ret ) );
}

unsigned ReqFile_write()
{
    int          retval;
    file_write_req      *acc;
    file_write_ret      *ret;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );

    retval = IOWrite( acc->handle, GetInPtr( sizeof(*acc) ),
                      ( GetTotalSize() - sizeof( *acc ) ) );
    if( retval < 0 ) {
        ret->err = retval;
        ret->len = 0;
    } else {
        ret->err = 0;
        ret->len = retval;
    }
    return( sizeof( *ret ) );
}

unsigned ReqFile_write_console()
{
    int          retval;
    file_write_console_req      *acc;
    file_write_console_ret      *ret;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );

    retval = IOWriteConsole( GetInPtr( sizeof(*acc) ),
                             ( GetTotalSize() - sizeof( *acc ) ) );
    if( retval < 0 ) {
        ret->err = retval;
        ret->len = 0;
    } else {
        ret->err = 0;
        ret->len = retval;
    }
    return( sizeof( *ret ) );
}

unsigned ReqFile_seek()
{
    file_seek_req       *acc;
    file_seek_ret       *ret;
    long            retval;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );
    retval = IOSeek( acc->handle, acc->mode, acc->pos );
    if( retval < 0 ) {
        ret->err = retval;
        ret->pos = 0;
    } else {
        ret->err = 0;
        ret->pos = retval;
    }
    return( sizeof( *ret ) );
}

unsigned ReqFile_read()
{
    file_read_req       *acc;
    file_read_ret       *ret;
    int           retval;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );
    retval = IORead( acc->handle, GetOutPtr( sizeof( *ret ) ),
                     acc->len );
    if( retval < 0 ) {
        ret->err = retval;
        retval = 0;
    } else {
        ret->err = 0;
    }
    return( sizeof( *ret ) + retval );
}

unsigned ReqFile_string_to_fullpath()
{
    char               *name;
    char               *fullname;
    file_string_to_fullpath_req *acc;
    file_string_to_fullpath_ret *ret;
    int                len;

    acc = GetInPtr( 0 );
    name = GetInPtr( sizeof( *acc ) );
    ret = GetOutPtr( 0 );
    fullname = GetOutPtr( sizeof( *ret ) );
    if( acc->file_type == TF_TYPE_EXE ) {
        StringToNLMPath( name, fullname );
    } else {
        strcpy( fullname, name );
    }
    len = strlen( fullname );
    ret->err = ( len == 0 ) ? 1 : 0;
    return( sizeof( *ret ) + len + 1 );
}

unsigned ReqFile_erase()
{
    file_erase_ret      *ret;

    ret = GetOutPtr( 0 );
    ret->err = 1;       //NYI:
    return( sizeof( *ret ) );
}

unsigned ReqFile_run_cmd()
{
    file_run_cmd_ret *ret;

    ret = GetOutPtr( 0 );
    ret->err = 0;  //NYI: No error?
    return( sizeof( *ret ) );
}