libbuild2/cc/lexer.test.cxx


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

// file      : libbuild2/cc/lexer.test.cxx -*- C++ -*-
// license   : MIT; see accompanying LICENSE file

#include <iostream>

#include <libbuild2/types.hxx>
#include <libbuild2/utility.hxx>

#include <libbuild2/cc/types.hxx>
#include <libbuild2/cc/lexer.hxx>

#undef NDEBUG
#include <cassert>

using namespace std;
using namespace butl;

namespace build2
{
  namespace cc
  {
    // Usage: argv[0] [-l] [-f] [<file>]
    //
    // -l
    //   Print location.
    //
    // -f
    //   Print first flag.
    //
    int
    main (int argc, char* argv[])
    {
      bool loc (false);
      bool first (false);
      path file;

      for (int i (1); i != argc; ++i)
      {
        string a (argv[i]);

        if (a == "-l")
          loc = true;
        else if (a == "-f")
          first = true;
        else
        {
          file = path (argv[i]);
          break;
        }
      }

      try
      {
        path_name in;
        ifdstream is;

        if (!file.empty ())
        {
          in = path_name (file);
          is.open (file);
        }
        else
        {
          in = path_name ("<stdin>");
          is.open (fddup (stdin_fd ()));
        }

        lexer l (is, in);

        // No use printing eos since we will either get it or loop forever.
        //
        for (token t; l.next (t) != token_type::eos; )
        {
          cout << t;

          if (first)
            cout << ' ' << (t.first ? 't' : 'f');

          if (loc)
            cout << ' ' << *t.file << ':' << t.line << ':' << t.column;

          cout << endl;
        }
      }
      catch (const failed&)
      {
        return 1;
      }

      return 0;
    }
  }
}

int
main (int argc, char* argv[])
{
  return build2::cc::main (argc, argv);
}