Progress!

This commit is contained in:
Markus Hauschild
2013-05-31 23:51:44 +02:00
parent 713b5078cd
commit 28ca85b94e
9 changed files with 129 additions and 17 deletions

View File

@@ -18,7 +18,7 @@ INCLUDE_DIRECTORIES (${CMAKE_SOURCE_DIR}/inc)
ADD_DEFINITIONS("-std=c++0x") ADD_DEFINITIONS("-std=c++0x")
ADD_EXECUTABLE (lemon grammar/lemon.c) ADD_EXECUTABLE (lemon grammar/lemon.c)
#ADD_EXECUTABLE (makeheaders grammar/makeheaders.c) ADD_EXECUTABLE (makeheaders grammar/makeheaders.c)
ADD_CUSTOM_COMMAND( ADD_CUSTOM_COMMAND(
COMMAND cp COMMAND cp
@@ -26,18 +26,18 @@ ADD_CUSTOM_COMMAND(
COMMAND cp COMMAND cp
ARGS ${CMAKE_CURRENT_SOURCE_DIR}/grammar/lempar.c ${CMAKE_CURRENT_BINARY_DIR} ARGS ${CMAKE_CURRENT_SOURCE_DIR}/grammar/lempar.c ${CMAKE_CURRENT_BINARY_DIR}
COMMAND ${CMAKE_CURRENT_BINARY_DIR}/lemon COMMAND ${CMAKE_CURRENT_BINARY_DIR}/lemon
# ARGS -q -m ${CMAKE_CURRENT_BINARY_DIR}/grammar.y ARGS -q -m ${CMAKE_CURRENT_BINARY_DIR}/grammar.y
ARGS -q ${CMAKE_CURRENT_BINARY_DIR}/grammar.y # ARGS -q ${CMAKE_CURRENT_BINARY_DIR}/grammar.y
COMMAND rm COMMAND rm
ARGS ${CMAKE_CURRENT_BINARY_DIR}/lempar.c ARGS ${CMAKE_CURRENT_BINARY_DIR}/lempar.c
COMMAND rm COMMAND rm
ARGS ${CMAKE_CURRENT_BINARY_DIR}/grammar.y ARGS ${CMAKE_CURRENT_BINARY_DIR}/grammar.y
# COMMAND ${CMAKE_CURRENT_BINARY_DIR}/makeheaders COMMAND ${CMAKE_CURRENT_BINARY_DIR}/makeheaders
# ARGS ${CMAKE_CURRENT_BINARY_DIR}/grammar.c ARGS ${CMAKE_CURRENT_BINARY_DIR}/grammar.c
COMMAND mv COMMAND mv
ARGS ${CMAKE_CURRENT_BINARY_DIR}/grammar.c ${CMAKE_CURRENT_BINARY_DIR}/grammar.cpp ARGS ${CMAKE_CURRENT_BINARY_DIR}/grammar.c ${CMAKE_CURRENT_BINARY_DIR}/grammar.cpp
DEPENDS lemon DEPENDS lemon
# DEPENDS makeheaders DEPENDS makeheaders
DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/grammar/grammar.y DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/grammar/grammar.y
OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/grammar.cpp OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/grammar.cpp
OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/grammar.h OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/grammar.h
@@ -56,6 +56,11 @@ ENDIF (SCULLY_DEBUG)
SET(SCULLY_SOURCE SET(SCULLY_SOURCE
src/test.cpp src/test.cpp
src/Token.cpp
src/AST/ASTElement.cpp
src/AST/ASTVisitor.cpp
${CMAKE_CURRENT_BINARY_DIR}/grammar.cpp ${CMAKE_CURRENT_BINARY_DIR}/grammar.cpp
) )

View File

@@ -5,9 +5,15 @@
#include <string> #include <string>
#include <assert.h> #include <assert.h>
#include "Token.h"
#include "AST/ASTElement.h"
} }
%token_type {int} %name scullyParser
%token_type {Token*}
// whitespace and comments // whitespace and comments
%type T_WHITESPACE {int} %type T_WHITESPACE {int}
@@ -19,40 +25,53 @@
%left T_TIMES T_DIV. %left T_TIMES T_DIV.
%syntax_error { %syntax_error {
std::cout << "Syntax error!" << std::endl; std::cerr << "Syntax error!" << std::endl;
} }
programm(A) ::= fundefs(B). { A = B; } %parse_failure {
std::cerr << "Parser Failed!" << std::endl;
}
%type program {int}
program ::= fundefs(F). { std::cout << F << std::endl; }
program ::= expr(E). { std::cout << E << std::endl; }
%type fundefs {int}
fundefs(A) ::= . { A = 0; } fundefs(A) ::= . { A = 0; }
fundefs(A) ::= fundefs fundef(B). { A = A + B; } fundefs(A) ::= fundefs fundef(B). { A = A + B; }
fundef(A) ::= type(T) T_IDENTIFIER(ID) params(P) T_BEGIN statements(S) T_END. { A = T + ID + P + S; } %type fundef {int}
fundef(A) ::= type(T) T_IDENTIFIER(ID) params(P) T_BEGIN statements(S) T_END. { A = T + 1 + P + S; /* ID */ }
%type type {int}
type(A) ::= T_BOOL. { A = 1; } type(A) ::= T_BOOL. { A = 1; }
type(A) ::= T_INT. { A = 1; } type(A) ::= T_INT. { A = 1; }
type(A) ::= T_STRING. { A = 1; } type(A) ::= T_STRING. { A = 1; }
type(A) ::= T_VOID. { A = 1; } type(A) ::= T_VOID. { A = 1; }
%type params {int}
params(A) ::= . { A = 0; } params(A) ::= . { A = 0; }
params(A) ::= type(T) T_IDENTIFIER(ID). { A = T + ID; } params(A) ::= type(T) T_IDENTIFIER(ID). { A = T + 1; /* ID */ }
params(A) ::= params(B) T_COMMA type(T) T_IDENTIFIER(ID). { A = B + T + ID; } params(A) ::= params(B) T_COMMA type(T) T_IDENTIFIER(ID). { A = B + T + 1; /* ID */ }
%type statement {int}
statement(A) ::= T_IF T_LPAREN expr(E) T_RPAREN statement(S). { A = E + S; } statement(A) ::= T_IF T_LPAREN expr(E) T_RPAREN statement(S). { A = E + S; }
statement(A) ::= T_RIF T_LPAREN T_CINT(P) T_RPAREN statement(S). { A = P + S; } statement(A) ::= T_RIF T_LPAREN T_CINT(P) T_RPAREN statement(S). { A = 1 + S; /* P */ }
statement(A) ::= T_FOR T_LPAREN expr(INIT) T_SEMICOLON expr(COND) T_SEMICOLON expr(STEP) T_RPAREN statement(S). statement(A) ::= T_FOR T_LPAREN expr(INIT) T_SEMICOLON expr(COND) T_SEMICOLON expr(STEP) T_RPAREN statement(S).
{ A = INIT + COND + STEP + S; } { A = INIT + COND + STEP + S; }
statement(A) ::= T_RFOR T_LPAREN expr(INIT) T_SEMICOLON T_CINT(P) T_SEMICOLON expr(STEP) T_RPAREN statement(S). statement(A) ::= T_RFOR T_LPAREN expr(INIT) T_SEMICOLON T_CINT(P) T_SEMICOLON expr(STEP) T_RPAREN statement(S).
{ A = INIT + P + STEP + S; } { A = INIT + 1 + STEP + S; /* P */ }
statement(A) ::= T_RETURN expr(E) T_SEMICOLON. { A = E; } statement(A) ::= T_RETURN expr(E) T_SEMICOLON. { A = E; }
statement(A) ::= T_BEGIN statements(S) T_END. { A = S; } statement(A) ::= T_BEGIN statements(S) T_END. { A = S; }
statement(A) ::= vardef(V) T_SEMICOLON. { A = V; } statement(A) ::= vardef(V) T_SEMICOLON. { A = V; }
statement(A) ::= expr(E) T_SEMICOLON. { A = E; } statement(A) ::= expr(E) T_SEMICOLON. { A = E; }
%type statements {int}
statements(A) ::= . { A = 0; } statements(A) ::= . { A = 0; }
statements(A) ::= statements(B) statement(C). { A = B + C; } statements(A) ::= statements(B) statement(C). { A = B + C; }
expr(A) ::= T_IDENTIFIER(ID) T_ASSIGN expr(E). { A = ID + E; } %type expr {int}
expr(A) ::= T_IDENTIFIER(ID) T_ASSIGN expr(E). { A = 1 + E; /* ID */ }
expr(A) ::= expr(B) T_EQUALS expr(C). { A = B + C; } expr(A) ::= expr(B) T_EQUALS expr(C). { A = B + C; }
expr(A) ::= expr(B) T_LESS expr(C). { A = B + C; } expr(A) ::= expr(B) T_LESS expr(C). { A = B + C; }
expr(A) ::= expr(B) T_PLUS expr(C). { A = B + C; } expr(A) ::= expr(B) T_PLUS expr(C). { A = B + C; }
@@ -62,10 +81,12 @@ expr(A) ::= expr(B) T_DIV expr(C). { A = B + C; }
expr(A) ::= T_CINT. { A = 1; } expr(A) ::= T_CINT. { A = 1; }
expr(A) ::= T_TRUE. { A = 1; } expr(A) ::= T_TRUE. { A = 1; }
expr(A) ::= T_FALSE. { A = 1; } expr(A) ::= T_FALSE. { A = 1; }
expr(A) ::= T_IDENTIFIER(ID) T_LPAREN values(V) T_RPAREN. { A = ID + V; } expr(A) ::= T_IDENTIFIER(ID) T_LPAREN values(V) T_RPAREN. { A = 1 + V; /* ID */ }
vardef(A) ::= type(T) T_IDENTIFIER(ID). { A = T + ID; } %type vardef {int}
vardef(A) ::= type(T) T_IDENTIFIER(ID). { A = T + 1; /* ID */ }
%type values {int}
values(A) ::= . { A = 0; } values(A) ::= . { A = 0; }
values(A) ::= expr(E). { A = E; } values(A) ::= expr(E). { A = E; }
values(A) ::= values(B) T_COMMA expr(E). { A = B + E; } values(A) ::= values(B) T_COMMA expr(E). { A = B + E; }

14
inc/AST/ASTElement.h Normal file
View File

@@ -0,0 +1,14 @@
#ifndef ASTELEMENT_H
#define ASTELEMENT_H
#include "AST/ASTVisitor.h"
class ASTElement {
public:
ASTElement();
virtual ~ASTElement();
virtual void accept(ASTVisitor* visitor) = 0;
};
#endif // ASTELEMENT_H

10
inc/AST/ASTVisitor.h Normal file
View File

@@ -0,0 +1,10 @@
#ifndef ASTVISITOR_H
#define ASTVISITOR_H
class ASTVisitor {
public:
ASTVisitor();
virtual ~ASTVisitor();
};
#endif // ASTVISITOR_H

20
inc/Token.h Normal file
View File

@@ -0,0 +1,20 @@
/* The scully programming language.
*
* Copyright (c) Peter Dahlberg, Markus Hauschild and Florian Sattler, 2013.
* Licensed under the GNU GPL v2.
*/
#ifndef TOKEN_H
#define TOKEN_H
#include <string>
class Token {
public:
Token(std::string text);
std::string getText();
private:
std::string text_;
};
#endif // TOKEN_H

10
src/AST/ASTElement.cpp Normal file
View File

@@ -0,0 +1,10 @@
#include "AST/ASTElement.h"
#include "AST/ASTVisitor.h"
ASTElement::ASTElement() {
//
}
ASTElement::~ASTElement() {
//
}

10
src/AST/ASTVisitor.cpp Normal file
View File

@@ -0,0 +1,10 @@
#include "AST/ASTVisitor.h"
ASTVisitor::ASTVisitor() {
//
}
ASTVisitor::~ASTVisitor() {
//
}

15
src/Token.cpp Normal file
View File

@@ -0,0 +1,15 @@
/* The scully programming language.
*
* Copyright (c) Peter Dahlberg, Markus Hauschild and Florian Sattler, 2013.
* Licensed under the GNU GPL v2.
*/
#include "Token.h"
Token::Token(std::string text) : text_(text) {
//
}
std::string Token::getText() {
return text_;
}

View File

@@ -4,6 +4,8 @@
* Licensed under the GNU GPL v2. * Licensed under the GNU GPL v2.
*/ */
#include "Token.h"
// this file is auto generated from grammar/grammar.y // this file is auto generated from grammar/grammar.y
#include "grammar.h" #include "grammar.h"
@@ -59,6 +61,8 @@ int main() {
std::cout << "The scully programming languae v0.1" << std::endl; std::cout << "The scully programming languae v0.1" << std::endl;
void* parser = scullyParserAlloc(malloc);
while (true) { while (true) {
std::cout << "> "; std::cout << "> ";
std::string input; std::string input;
@@ -77,8 +81,11 @@ int main() {
std::string s(results.start, results.end); std::string s(results.start, results.end);
if (results.id != T_WHITESPACE) { if (results.id != T_WHITESPACE) {
std::cout << "Id: " << results.id << ", Token: " << s << std::endl; std::cout << "Id: " << results.id << ", Token: " << s << std::endl;
scullyParser(parser, results.id, new Token(s));
} }
} while (results.id != 0); } while (results.id != 0);
} }
scullyParserFree(parser, free);
return 0; return 0;
} }