home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / src / scandrv1.c < prev    next >
Text File  |  1993-07-08  |  581b  |  29 lines
  1. /* $Id: ScanDrv.c,v 2.0 91/03/08 18:13:07 grosch rel $ */
  2.  
  3. # include "Scanner.h"
  4.  
  5. main ()
  6. {
  7.    int Token, Count = 0;
  8.    char Word [256];
  9.  
  10.    BeginScanner ();
  11.    do {
  12.       Token = GetToken ();
  13.       Count ++;
  14. # ifdef debug
  15.       if (Token != EofToken) (void) GetWord (Word); else Word [0] = '\0';
  16.       (void) printf ("%5d%5d%5d %s\n",
  17.      Attribute.Position.Line, Attribute.Position.Column, Token, Word);
  18. # endif debug
  19.    } while (Token != EofToken);
  20.    CloseScanner ();
  21.    (void) printf ("%d\n", Count);
  22.    return 0;
  23. }
  24.  
  25. int NextPos ()
  26. {
  27.   return (0);
  28. }
  29.