/*++

Copyright (c) 1991  Microsoft Corporation

Module Name:

    Vdmtib.c

Abstract:

    This module contains routines for manipulating the vdmtib.

Author:

    Dave Hastings (daveh) 1-Apr-1992

Notes:

    The routines in this module assume that the pointers to the ntsd
    routines have already been set up.

Revision History:

--*/

#include <precomp.h>
#pragma hdrstop
#include <stdio.h>

VOID
PrintEventInfo(
    IN PVDMEVENTINFO EventInfo
    );

VOID
PrintContext(PCONTEXT Context);

ULONG
GetCurrentVdmTib(
     VOID
     )
/*++

Routine Description:

    Retrives the Wx86Tib for a specified thread.

Arguments:

   None.

Return Value:

    Address of Wx86 (Teb.Vdm) in the debuggee if success

--*/
{
   TEB Teb;
   NTSTATUS Status;
   THREAD_BASIC_INFORMATION ThreadInformation;

   ThreadInformation.TebBaseAddress = NULL;
   Status = NtQueryInformationThread( hCurrentThread,
                                      ThreadBasicInformation,
                                      &ThreadInformation,
                                      sizeof( ThreadInformation ),
                                      NULL
                                      );
   if (!NT_SUCCESS(Status)) {
       (*Print)("Unable to get current thread's TEB Status %x\n", Status);
       return 0;
       }

   Status = READMEM(ThreadInformation.TebBaseAddress, &Teb, sizeof(TEB));
   if (!NT_SUCCESS(Status)) {
       (*Print)("Unable to read TEB %x Status %x\n",
               ThreadInformation.TebBaseAddress,
               Status
               );
       return 0;;
       }

   if ( Teb.Vdm == 0 ) {
       (*Print)("Current thread has no vdmtib (Teb.Vdm == NULL) \n"
               );
       } 
   return (ULONG)Teb.Vdm;

}

VOID
VdmTibp(
    VOID
    )
/*++

Routine Description:

    This routine dumps out the contents of the register block, and
    event info from the vdmtib.  If no address is specified (normal case),
    then the vdmtib is looked up (symbol VdmTib).

Arguments:

    None.

Return Value:

    None.

Notes:

    This routine assumes that the pointers to the ntsd routines have already
    been set up.

--*/
{
    BOOL Status;
    ULONG Address;
    CONTEXT Context;
    VDMEVENTINFO EventInfo;

    //
    // Get the address of the vdmtib
    //
    if (sscanf(lpArgumentString,"%lx",&Address) <= 0) {
        Address = GetCurrentVdmTib();
    }

    if (!Address) {
        (*Print)("Error geting VdmTib address\n");
        return;
    }

    //
    // Get the 32 bit context and print it out
    //

    Status = READMEM(
        &(((PVDM_TIB)Address)->MonitorContext),
        &Context,
        sizeof(CONTEXT)
        );

    if (!Status) {
        GetLastError();
        (*Print)("Could not get MonitorContext\n");
    } else {
        (*Print)("\n32 bit context\n");
        PrintContext(&Context);
    }

    //
    // Get the 16 bit context and print it out
    //

    Status = READMEM(
        &(((PVDM_TIB)Address)->VdmContext),
        &Context,
        sizeof(CONTEXT)
        );

    if (!Status) {
        GetLastError();
        (*Print)("Could not get VdmContext\n");
    } else {
        (*Print)("\n16 bit context\n");
        PrintContext(&Context);
    }

    //
    // Get the event info and print it out
    //

    Status = READMEM(
        &(((PVDM_TIB)Address)->EventInfo),
        &EventInfo,
        sizeof(VDMEVENTINFO)
        );

    if (!Status) {
        GetLastError();
        (*Print)("Could not get EventInfo\n");
    } else {
        (*Print)("\nEvent Info\n");
        PrintEventInfo(&EventInfo);
    }
}

VOID
EventInfop(
    VOID
    )
/*++

Routine Description:

    This routine dumps the contents of an event info structure.  If no
    address is specifed (normal case), the event info from the Vdmtib is
    dumped.

Arguments:

    None.

Return Value:

    None.

Notes:

    This routine assumes that the pointers to the ntsd routines have already
    been set up.

--*/
{
    BOOL Status;
    ULONG Address;
    VDMEVENTINFO EventInfo;

    //
    // Get the address of the eventinfo
    //
    if (sscanf(lpArgumentString,"%lx",&Address) <= 0) {
        Address = GetCurrentVdmTib();
        if (Address) {
            Address = (ULONG)(&(((PVDM_TIB)Address)->EventInfo));
        }
    }

    if (!Address) {
        (*Print)("Error geting VdmTib address\n");
        return;
    }

    //
    // Get the event info and print it out
    //

    Status = READMEM(
        (PVOID)Address,
        &EventInfo,
        sizeof(VDMEVENTINFO)
        );

    if (!Status) {
        GetLastError();
        (*Print)("Could not get EventInfo\n");
    } else {
        (*Print)("\nEvent Info\n");
        PrintEventInfo(&EventInfo);
    }
}

VOID
PrintEventInfo(
    IN PVDMEVENTINFO EventInfo
    )
/*++

Routine Description:

    This routine prints out the contents of an event info structure

Arguments:

    EventInfo -- Supplies a pointer to the eventinfo

Return Value:

    None.

--*/
{
    switch (EventInfo->Event) {
    case VdmIO :

        (*Print)("IO Instruction Event\n");

        if (EventInfo->IoInfo.Read) {
            (*Print)("Read from ");
        } else {
            (*Print)("Write to ");
        }

        switch (EventInfo->IoInfo.Size) {
        case 1 :
            (*Print)("Byte port ");
            break;
        case 2 :
            (*Print)("Word port ");
            break;
        case 4 :
            (*Print)("Dword port ");
            break;
        default:
            (*Print)("Unknown size port ");
        }

        (*Print)(" number %x\n", EventInfo->IoInfo.PortNumber);
        break;

    case VdmStringIO :

        (*Print)("String IO Instruction Event\n");

        if (EventInfo->StringIoInfo.Read) {
            (*Print)("Read from ");
        } else {
            (*Print)("Write to ");
        }

        switch (EventInfo->StringIoInfo.Size) {
        case 1 :
            (*Print)("Byte port ");
            break;
        case 2 :
            (*Print)("Word port ");
            break;
        case 4 :
            (*Print)("Dword port ");
            break;
        default:
            (*Print)("Unknown size port ");
        }

        (*Print)(" number %x, ", EventInfo->StringIoInfo.PortNumber);
        (*Print)(
            " Count = %lx, Address = %lx\n",
            EventInfo->StringIoInfo.Count,
            EventInfo->StringIoInfo.Address
            );
        break;

    case VdmIntAck :

        (*Print)("Interrupt Acknowlege Event\n");
        break;

    case VdmBop:

        (*Print)("Bop Event\n");
        (*Print)("Bop number %x\n",EventInfo->BopNumber);
        break;

    case VdmError :

        (*Print)("Error Event\n");
        (*Print)("Error Status %lx\n",EventInfo->ErrorStatus);

    case VdmIrq13 :

        (*Print)("IRQ 13 Event\n");
        break;

    default:

        (*Print)("Unknown Event %x\n",EventInfo->Event);

    }

}