home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / adaptor / src / scandrv.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-08  |  542 b   |  24 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.