xref: /minix3/external/bsd/lutok/dist/examples/interpreter.cpp (revision 11be35a165022172ed3cea20f2b5df0307540b0e)
1*11be35a1SLionel Sambuc // Copyright 2012 Google Inc.
2*11be35a1SLionel Sambuc // All rights reserved.
3*11be35a1SLionel Sambuc //
4*11be35a1SLionel Sambuc // Redistribution and use in source and binary forms, with or without
5*11be35a1SLionel Sambuc // modification, are permitted provided that the following conditions are
6*11be35a1SLionel Sambuc // met:
7*11be35a1SLionel Sambuc //
8*11be35a1SLionel Sambuc // * Redistributions of source code must retain the above copyright
9*11be35a1SLionel Sambuc //   notice, this list of conditions and the following disclaimer.
10*11be35a1SLionel Sambuc // * Redistributions in binary form must reproduce the above copyright
11*11be35a1SLionel Sambuc //   notice, this list of conditions and the following disclaimer in the
12*11be35a1SLionel Sambuc //   documentation and/or other materials provided with the distribution.
13*11be35a1SLionel Sambuc // * Neither the name of Google Inc. nor the names of its contributors
14*11be35a1SLionel Sambuc //   may be used to endorse or promote products derived from this software
15*11be35a1SLionel Sambuc //   without specific prior written permission.
16*11be35a1SLionel Sambuc //
17*11be35a1SLionel Sambuc // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
18*11be35a1SLionel Sambuc // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
19*11be35a1SLionel Sambuc // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
20*11be35a1SLionel Sambuc // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
21*11be35a1SLionel Sambuc // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
22*11be35a1SLionel Sambuc // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
23*11be35a1SLionel Sambuc // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24*11be35a1SLionel Sambuc // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25*11be35a1SLionel Sambuc // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26*11be35a1SLionel Sambuc // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
27*11be35a1SLionel Sambuc // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28*11be35a1SLionel Sambuc 
29*11be35a1SLionel Sambuc /// \file examples/interpreter.cpp
30*11be35a1SLionel Sambuc /// Implementation of a basic command-line Lua interpreter.
31*11be35a1SLionel Sambuc 
32*11be35a1SLionel Sambuc #include <cstdlib>
33*11be35a1SLionel Sambuc #include <iostream>
34*11be35a1SLionel Sambuc #include <string>
35*11be35a1SLionel Sambuc 
36*11be35a1SLionel Sambuc #include <lutok/exceptions.hpp>
37*11be35a1SLionel Sambuc #include <lutok/operations.hpp>
38*11be35a1SLionel Sambuc #include <lutok/state.ipp>
39*11be35a1SLionel Sambuc 
40*11be35a1SLionel Sambuc 
41*11be35a1SLionel Sambuc /// Executes a Lua statement provided by the user with error checking.
42*11be35a1SLionel Sambuc ///
43*11be35a1SLionel Sambuc /// \param state The Lua state in which to process the statement.
44*11be35a1SLionel Sambuc /// \param line The textual statement provided by the user.
45*11be35a1SLionel Sambuc static void
run_statement(lutok::state & state,const std::string & line)46*11be35a1SLionel Sambuc run_statement(lutok::state& state, const std::string& line)
47*11be35a1SLionel Sambuc {
48*11be35a1SLionel Sambuc     try {
49*11be35a1SLionel Sambuc         // This utility function allows us to feed a given piece of Lua code to
50*11be35a1SLionel Sambuc         // the interpreter and process it.  The piece of code can include
51*11be35a1SLionel Sambuc         // multiple statements separated by a semicolon or by a newline
52*11be35a1SLionel Sambuc         // character.
53*11be35a1SLionel Sambuc         lutok::do_string(state, line);
54*11be35a1SLionel Sambuc     } catch (const lutok::error& error) {
55*11be35a1SLionel Sambuc         std::cerr << "ERROR: " << error.what() << '\n';
56*11be35a1SLionel Sambuc     }
57*11be35a1SLionel Sambuc }
58*11be35a1SLionel Sambuc 
59*11be35a1SLionel Sambuc 
60*11be35a1SLionel Sambuc /// Program's entry point.
61*11be35a1SLionel Sambuc ///
62*11be35a1SLionel Sambuc /// \return A system exit code.
63*11be35a1SLionel Sambuc int
main(void)64*11be35a1SLionel Sambuc main(void)
65*11be35a1SLionel Sambuc {
66*11be35a1SLionel Sambuc     // Create a new session and load some standard libraries.
67*11be35a1SLionel Sambuc     lutok::state state;
68*11be35a1SLionel Sambuc     state.open_base();
69*11be35a1SLionel Sambuc     state.open_string();
70*11be35a1SLionel Sambuc     state.open_table();
71*11be35a1SLionel Sambuc 
72*11be35a1SLionel Sambuc     for (;;) {
73*11be35a1SLionel Sambuc         std::cout << "lua> ";
74*11be35a1SLionel Sambuc         std::cout.flush();
75*11be35a1SLionel Sambuc 
76*11be35a1SLionel Sambuc         std::string line;
77*11be35a1SLionel Sambuc         if (!std::getline(std::cin, line).good())
78*11be35a1SLionel Sambuc             break;
79*11be35a1SLionel Sambuc         run_statement(state, line);
80*11be35a1SLionel Sambuc     }
81*11be35a1SLionel Sambuc 
82*11be35a1SLionel Sambuc     return EXIT_SUCCESS;
83*11be35a1SLionel Sambuc }
84