pmlock.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 <stddef.h>
#include <stdio.h>
#include <string.h>
#include <env.h>
#define INCL_BASE
#define INCL_DOSDEVICES
#define INCL_DOSFILEMGR
#define INCL_DOSMEMMGR
#define INCL_DOSSIGNALS
#include <os2.h>
#include <os2dbg.h>
#include "os2trap.h"
#include "dosdebug.h"
#include "trpimp.h"
#include "trperr.h"
#include "wdpmhelp.h"

static HFILE            PmInh;
static HFILE            PmOuth;
static HFILE            HisInh;
static HFILE            HisOuth;
static bool             Response;
static bool             HaveHelper;
static USHORT   SID;

static int SpawnLocker( HFILE inh, HFILE outh )
{
    NEWSTARTDATA        start;
    char        parms[20];
    PID         pid;

    parms[0] = inh + ADJUST_HFILE;
    parms[1] = ' ';
    parms[2] = outh + ADJUST_HFILE;
    parms[3] = '\0';
    start.Length = offsetof( NEWSTARTDATA, IconFile );
    start.Related = 1;
    start.FgBg = 1;
    start.TraceOpt = 0;
    start.PgmTitle = TRP_The_WATCOM_Debugger;
    start.PgmName = "WDPMHELP.EXE";
    start.PgmInputs = parms;
    start.TermQ = 0;
    start.Environment = NULL;
    start.InheritOpt = 1;
    start.SessionType = SSF_TYPE_PM;
    return( DosStartSession( (void far *) &start, &SID, &pid ) );
}

static void PmHelp( int command )
{
    USHORT      dummy;
    pmhelp_packet       data;

    if( !HaveHelper ) return;
    data.command = command;
    DosWrite( PmOuth, &data, sizeof( data ), &dummy );
}


static VOID far SwitchBack( VOID )
{
    USHORT      rc;
    pmhelp_packet       data;
    USHORT      dummy;

    for( ;; ) {
        rc = DosRead( PmInh, &data, sizeof( data ), &dummy );
        if( data.command == PMHELP_SWITCHBACK ) {
            Response = 1;
            DosSelectSession( 0, 0 );
        }
    }
}

void StopPMHelp()
{
    if( !HaveHelper ) return;
    PmHelp( PMHELP_EXIT );
    DosClose( PmInh );
    DosClose( PmOuth );
    DosClose( HisOuth );
    DosClose( HisInh );
}

void PMLock( unsigned long pid, unsigned long tid )
{
    pid=pid;tid=tid;
    PmHelp( PMHELP_LOCK );
}

void PMUnLock()
{
    PmHelp( PMHELP_UNLOCK );
}

int PMFlip()
{
    if( !HaveHelper ) return( FALSE );
    Response = 0;
    DosSelectSession( SID, 0 );
    while( !Response ) DosSleep( 100 );
    return( TRUE );
}

#define STACK_SIZE 8192
char    thestack[STACK_SIZE];
void StartPMHelp()
{
    TID         tid;

    HaveHelper = FALSE;
    if( DosMakePipe( &PmInh, &HisOuth, sizeof( pmhelp_packet ) ) ) return;
    if( DosMakePipe( &HisInh, &PmOuth, sizeof( pmhelp_packet ) ) ) return;
    if( SpawnLocker( HisInh, HisOuth ) ) return;
    if( DosCreateThread( SwitchBack, &tid, thestack+STACK_SIZE ) ) return;
    HaveHelper = TRUE;
}