home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 1.ddi / REGEXP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-27  |  2.0 KB  |  60 lines
  1. {************************************************}
  2. {                                                }
  3. {   Grep Demo DLL Interface Unit                 }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. { The grep text search programs consist of 3 binary files:
  9.  
  10.     REGEXP.DLL    - Text search engine dynamic link library (DLL)
  11.                     that is written in Borland C++ 3.1 and
  12.                     shared by both TVGREP.EXE and OWLGREP.EXE
  13.     OWLGREP.EXE   - Windows grep program (uses ObjectWindows)
  14.     TVGREP.EXE    - DOS text mode grep program (uses Turbo Vision)
  15.  
  16.   REGEXP.DLL is a Windows format DLL and comes already built. To rebuild
  17.   it, make sure Borland C++ 3.1 is on your DOS path, change to the
  18.   \BP\EXAMPLES\GREP\DLL directory and then run MAKE.
  19.  
  20.   OWLGREP is a Windows application. To build it, set Compile|Target to
  21.   Windows from inside the IDE or type the following command-line at a
  22.   DOS prompt:
  23.  
  24.     bpc /m /cw owlgrep
  25.  
  26.   TVGREP is a DOS protected mode application (DPMI). To build
  27.   it, set Compile|Target to Protected from inside the IDE or type the
  28.   following command-line at a DOS prompt:
  29.  
  30.     bpc /m /cp tvgrep
  31.  
  32. }
  33.  
  34. unit Regexp;
  35.  
  36. interface
  37.  
  38. type
  39.   HRegexp = Word;
  40.  
  41.   TRegMatch = record
  42.     Start: Word;        { Start of match }
  43.     Stop:  Word;        { End of match }
  44.   end;
  45.  
  46. function RegComp(Pattern: PChar; var Error: Integer): HRegexp;
  47. function RegExec(Regex: HRegexp; Str: PChar; var Match: TRegMatch): Integer;
  48. function RegError(Regex: HRegexp; Error: Integer;
  49.   ErrorBuf: array of Char): Integer;
  50. procedure RegFree(Regex: HRegexp);
  51.  
  52. implementation
  53.  
  54. procedure RegFree;              external 'REGEXP' index 2;
  55. function RegError;              external 'REGEXP' index 3;
  56. function RegExec;               external 'REGEXP' index 4;
  57. function RegComp;               external 'REGEXP' index 5;
  58.  
  59. end.
  60.