Liren Large Software Subsidy 7/07.iso/c/c083/14.ddi/FILTER.PAK/GREP2MSG.C

C/C++ Source or Header | 1993-12-02 | 5.2 KB | 259 lines

/*
   Grep2Msg.C      copyright (c) 1993 Borland International
*/

#include "ToolApi.H"

#include <stdlib.h>
#include <mem.h>
#include <dos.h>
#include <dir.h>
#include <string.h>

#include <windows.h>

// Name the intermediate "PIPE" through which output will be captured
#define PIPEID "c:\\$$PIPE$$.TC$"

char NewFileText[] = "File ";

int posted = 0;

/* Declare an array of function pointers to store the IDE tool API */
IDE_ToolAPIFunc IDE_ToolAPI[IDE_NumFunctions];

/* Global variables use to parse program output */
FileHandle Pipefh;

HMEM       hBuffer;
LPSTR      Buffer;
WORD       curpos;
WORD       bufLen;

char       inLine[255];
LPSTR      lineptr;

/*
  InitBuffer - allocate memory for filtering the piped output from grep to the IDE
*/
void InitBuffer( void )
{
  hBuffer = IDE_memalloc( MEM_MOVEABLE, 8192 );
  Buffer = IDE_memlock( hBuffer );
  bufLen = 0;
  curpos = 0;
}

/*
  ReleaseBuffer - cleanup allocated buffers and open file handles
*/
void ReleaseBuffer( void )
{
  /* cleanup allocated buffers */
  IDE_memunlock( hBuffer );
  IDE_memfree( hBuffer );
  IDE_Close( Pipefh );

  /* delete the pipe */
  IDE_Delete( PIPEID );
}

/*
   nextchar - returns the next character from the pipe input

   returns: next character from the pipe associated with handle Pipefh
*/
char nextchar( void )
{
  if (curpos < bufLen)
  {
    return Buffer[curpos++];
  }
  Buffer[0] = '\0';
  bufLen = IDE_Read( Pipefh, Buffer, 7000 );
  if (bufLen == 0)
    return 0;
  curpos = 0;
  return nextchar();
}

/*
  GetLine - get the next line of text from the pipe

  returns: far pointer to string containing next line of text from the current opened
       pipe file
*/
LPSTR GetLine( void )
{
  char ch;
  int  count;

  lineptr = inLine;
  count = 0;
  while ( ((ch = nextchar()) != '\x0D') &&
           (ch != '\x0A')               &&
           (ch != 0)                    &&
           (count < 133))
  {
    *lineptr = ch;
    lineptr++;
    count++;
  }
  if (count >= 133)
  {
    strcpy( &inLine[125], "......" );
    lineptr = &inLine[133];

    // strip remainder of long line
    while ( ((ch = nextchar()) != '\x0D') &&
             (ch != '\x0A')               &&
             (ch != 0))
           {
           }
  }
  if ((lineptr == inLine) && (ch == 0))
  {
    return NULL;
  }
  *lineptr = '\0';
  return inLine;
}

/*
  ProcessLine - dissect line of input and post it as a message to the IDE

  Input:  LPSTR line    the line to dissect and post
*/
char curFile[MAXPATH];

void ProcessLine( LPSTR Line )
{
  unsigned i;
  char *s;
  Msg M;

  if (Line[0] == '\0')                            /* ignore blank line */
    return;

  if (Line[0] == '\x0A')
    return;

  /* check for new file name */
  if (strncmp(Line,NewFileText,strlen(NewFileText)) == 0)
  {
    Line[strlen(Line)-1] = 0;                /* remove ":" */
    memmove(curFile,&Line[strlen(NewFileText)],strlen(Line));
  }
  else
  {
    s = strchr(Line,' ');
    if (s != NULL)
    {
      s++;
      if (strncmp(s,"lines match",11) == 0)  /* special case lines matching */
      {
      }
      else
      {
    s--;
    *s = 0;
    i = atoi(Line);
    *s = ' ';
    if (i != 0)
    {
      s++;
      memmove(Line,s,strlen(s)+1);
      while (Line[0] == ' ' && Line[0] != 0)  /* strip leading spaces */
        memmove(Line,&Line[1],strlen(Line));  /* from remaining line */

      M.message = Line;
      M.filename = curFile;
      M.column = 1;
      M.line = i;

      IDE_PostMessage( CUR_MSG_GROUP, &M );
      posted++;
    }
      }
    }
  }
}

/*
  FilterToIDE - Open the pipe output from the program, read and post each line
        to the IDE
*/
void FilterToIDE( void )
{
  LPSTR line;

  Pipefh = IDE_Open( PIPEID, READ_WRITE );
  if (Pipefh < 0)
  {
    IDE_ErrorBox( "Grep2Msg.DLL: Cannot filter output." );
    return;
  }

  InitBuffer();

  while ((line = GetLine()) != NULL)
  {
    ProcessLine( line );
  }

  ReleaseBuffer();
}

/*
  CheckVersion - Check IDE version
*/
BOOL CheckVersion( void )
{
  // If the DLL is specific to a particular version of the IDE
  // or if it only works for DOS platform or Windows Platform
  // this is the place to check.

  return 1;
}

/*
   Run  -  exported entry point to the filter DLL

   Input:  pTransferBlock TransBlock    contains information about the program to
                    be run, its command line, and the IDE tool API
*/
int far pascal _export Run( pTransferBlock TransBlock )
{
  // Store the IDE tool API
  memcpy( IDE_ToolAPI, TransBlock->IDE_ToolAPI, sizeof(IDE_ToolAPI) );

  if (!CheckVersion())
  {
    return NO_TASK;
  }

  // Try to run Grep.COM capturing output to an intermediate file
  IDE_CaptureToPipe( TransBlock->program,
             TransBlock->cmdline,
             PIPEID );

  // post the captured output to the IDE
  FilterToIDE();

  return 1; // always bring up message window
}

#pragma argsused
int far pascal LibMain( HINSTANCE hInstance, WORD wDataSegment,
            WORD wHeapSize, LPSTR lpszCmdLine )
{
  return 1;
}

#pragma argsused
int FAR PASCAL WEP ( int bSystemExit )
{
    return 1;
}