summaryrefslogtreecommitdiff
path: root/src/sexpr
diff options
context:
space:
mode:
authorBen Longbons <b.r.longbons@gmail.com>2014-04-13 13:35:56 -0700
committerBen Longbons <b.r.longbons@gmail.com>2014-04-13 14:03:12 -0700
commit1a1bfc8fd8a3613bf7d3c320dcaff29a9402f50c (patch)
tree398975857261b4922c5c9fb8460691f0876a9766 /src/sexpr
parenta0b4eda32a3c6ccf012fccd7e2b0f126d595a81b (diff)
downloadtmwa-1a1bfc8fd8a3613bf7d3c320dcaff29a9402f50c.tar.gz
tmwa-1a1bfc8fd8a3613bf7d3c320dcaff29a9402f50c.tar.bz2
tmwa-1a1bfc8fd8a3613bf7d3c320dcaff29a9402f50c.tar.xz
tmwa-1a1bfc8fd8a3613bf7d3c320dcaff29a9402f50c.zip
Remove last traces of generated source files
Diffstat (limited to 'src/sexpr')
-rw-r--r--src/sexpr/main.cpp148
1 files changed, 0 insertions, 148 deletions
diff --git a/src/sexpr/main.cpp b/src/sexpr/main.cpp
deleted file mode 100644
index 18cb8c2..0000000
--- a/src/sexpr/main.cpp
+++ /dev/null
@@ -1,148 +0,0 @@
-// sexpr/main.cpp - Driver for new magic formatter.
-//
-// Copyright © 2014 Ben Longbons <b.r.longbons@gmail.com>
-//
-// This file is part of The Mana World (Athena server)
-//
-// This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation, either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>.
-#include <stack>
-#include <map>
-
-#include "../io/cxxstdio.hpp"
-
-#include "lexer.hpp"
-#include "parser.hpp"
-
-#include "../poison.hpp"
-
-enum Spacing
-{
- LINES,
- SIMPLE,
- SPACES,
- SPACES_1,
- SPACES_2,
- SPACES_3,
- SPACES_4,
-};
-
-static
-void do_spacing(bool& first, Spacing& sp, int depth)
-{
- if (first)
- {
- first = false;
- return;
- }
- switch (sp)
- {
- case LINES:
- PRINTF("\n%*s", (depth - 1) * 4, "");
- return;
- case SPACES:
- case SIMPLE:
- PRINTF(" ");
- return;
- case SPACES_1:
- PRINTF(" ");
- sp = LINES;
- return;
- case SPACES_2:
- PRINTF(" ");
- sp = SPACES_1;
- return;
- case SPACES_3:
- PRINTF(" ");
- sp = SPACES_2;
- return;
- case SPACES_4:
- PRINTF(" ");
- sp = SPACES_3;
- return;
- }
-}
-
-static
-void adjust_spacing(Spacing& sp, ZString val)
-{
- std::map<ZString, Spacing> spaces =
- {
- {"BLOCK", LINES},
- {"GUARD", LINES},
- {"DISABLED", LINES},
- {"PROCEDURE", SPACES_2},
- {"SPELL", SPACES_4},
- {"IF", SPACES_1},
- {"set_script_variable", SPACES_2},
- };
- auto it = spaces.find(val);
- if (it != spaces.end())
- sp = it->second;
-}
-
-int main()
-{
- if (1 == 1)
- {
- sexpr::Lexer lexer("/dev/stdin");
- sexpr::SExpr sexpr;
- while (sexpr::parse(lexer, sexpr))
- {
- PRINTF("");
- }
- if (lexer.peek() != sexpr::TOK_EOF)
- {
- lexer.span().error(STRPRINTF("Incomplete: %s: %s\n",
- sexpr::token_name(lexer.peek()), lexer.val_string()));
- }
- return 0;
- }
-
- std::stack<Spacing> spacing;
- spacing.push(LINES);
- sexpr::Lexer lexer("/dev/stdin");
- bool first = true;
- while (sexpr::Lexeme tok = lexer.peek())
- {
- switch (tok)
- {
- case sexpr::TOK_OPEN:
- if (spacing.top() == SIMPLE)
- spacing.top() = LINES;
- do_spacing(first, spacing.top(), spacing.size());
- PRINTF("(");
- spacing.push(SIMPLE);
- first = true;
- break;
- case sexpr::TOK_CLOSE:
- PRINTF(")");
- spacing.pop();
- first = false;
- break;
- case sexpr::TOK_STRING:
- do_spacing(first, spacing.top(), spacing.size());
- PRINTF("%s", sexpr::escape(lexer.val_string()));
- break;
- case sexpr::TOK_TOKEN:
- do_spacing(first, spacing.top(), spacing.size());
- PRINTF("%s", lexer.val_string());
- adjust_spacing(spacing.top(), lexer.val_string());
- break;
- default:
- abort();
- }
- lexer.adv();
- }
- PRINTF("\n");
-}