177 lines
4.8 KiB
Plaintext
177 lines
4.8 KiB
Plaintext
%{
|
|
#include <string>
|
|
#include <iostream>
|
|
#include <map>
|
|
#include "ast.hpp"
|
|
#include "definition.hpp"
|
|
#include "parser.hpp"
|
|
#include "parsed_type.hpp"
|
|
|
|
definition_group global_defs;
|
|
|
|
extern yy::parser::symbol_type yylex();
|
|
|
|
%}
|
|
|
|
%token BACKSLASH
|
|
%token PLUS
|
|
%token TIMES
|
|
%token MINUS
|
|
%token DIVIDE
|
|
%token <int> INT
|
|
%token DEFN
|
|
%token DATA
|
|
%token CASE
|
|
%token OF
|
|
%token LET
|
|
%token IN
|
|
%token OCURLY
|
|
%token CCURLY
|
|
%token OPAREN
|
|
%token CPAREN
|
|
%token COMMA
|
|
%token ARROW
|
|
%token EQUAL
|
|
%token <std::string> LID
|
|
%token <std::string> UID
|
|
|
|
%language "c++"
|
|
%define api.value.type variant
|
|
%define api.token.constructor
|
|
|
|
%locations
|
|
|
|
%type <std::vector<std::string>> lowercaseParams
|
|
%type <std::vector<branch_ptr>> branches
|
|
%type <std::vector<constructor_ptr>> constructors
|
|
%type <std::vector<parsed_type_ptr>> typeList
|
|
%type <definition_group> definitions
|
|
%type <parsed_type_ptr> type nonArrowType typeListElement
|
|
%type <ast_ptr> aAdd aMul case let lambda app appBase
|
|
%type <definition_data_ptr> data
|
|
%type <definition_defn_ptr> defn
|
|
%type <branch_ptr> branch
|
|
%type <pattern_ptr> pattern
|
|
%type <constructor_ptr> constructor
|
|
|
|
%start program
|
|
|
|
%%
|
|
|
|
program
|
|
: definitions { global_defs = std::move($1); global_defs.vis = visibility::global; }
|
|
;
|
|
|
|
definitions
|
|
: definitions defn { $$ = std::move($1); auto name = $2->name; $$.defs_defn[name] = std::move($2); }
|
|
| definitions data { $$ = std::move($1); auto name = $2->name; $$.defs_data[name] = std::move($2); }
|
|
| %empty { $$ = definition_group(); }
|
|
;
|
|
|
|
defn
|
|
: DEFN LID lowercaseParams EQUAL OCURLY aAdd CCURLY
|
|
{ $$ = definition_defn_ptr(
|
|
new definition_defn(std::move($2), std::move($3), std::move($6))); }
|
|
;
|
|
|
|
lowercaseParams
|
|
: %empty { $$ = std::vector<std::string>(); }
|
|
| lowercaseParams LID { $$ = std::move($1); $$.push_back(std::move($2)); }
|
|
;
|
|
|
|
aAdd
|
|
: aAdd PLUS aMul { $$ = ast_ptr(new ast_binop(PLUS, std::move($1), std::move($3), @$)); }
|
|
| aAdd MINUS aMul { $$ = ast_ptr(new ast_binop(MINUS, std::move($1), std::move($3), @$)); }
|
|
| aMul { $$ = std::move($1); }
|
|
;
|
|
|
|
aMul
|
|
: aMul TIMES app { $$ = ast_ptr(new ast_binop(TIMES, std::move($1), std::move($3), @$)); }
|
|
| aMul DIVIDE app { $$ = ast_ptr(new ast_binop(DIVIDE, std::move($1), std::move($3), @$)); }
|
|
| app { $$ = std::move($1); }
|
|
;
|
|
|
|
app
|
|
: app appBase { $$ = ast_ptr(new ast_app(std::move($1), std::move($2), @$)); }
|
|
| appBase { $$ = std::move($1); }
|
|
;
|
|
|
|
appBase
|
|
: INT { $$ = ast_ptr(new ast_int($1, @$)); }
|
|
| LID { $$ = ast_ptr(new ast_lid(std::move($1), @$)); }
|
|
| UID { $$ = ast_ptr(new ast_uid(std::move($1), @$)); }
|
|
| OPAREN aAdd CPAREN { $$ = std::move($2); }
|
|
| case { $$ = std::move($1); }
|
|
| let { $$ = std::move($1); }
|
|
| lambda { $$ = std::move($1); }
|
|
;
|
|
|
|
let
|
|
: LET OCURLY definitions CCURLY IN OCURLY aAdd CCURLY
|
|
{ $$ = ast_ptr(new ast_let(std::move($3), std::move($7), @$)); }
|
|
;
|
|
|
|
lambda
|
|
: BACKSLASH lowercaseParams ARROW OCURLY aAdd CCURLY
|
|
{ $$ = ast_ptr(new ast_lambda(std::move($2), std::move($5), @$)); }
|
|
;
|
|
|
|
case
|
|
: CASE aAdd OF OCURLY branches CCURLY
|
|
{ $$ = ast_ptr(new ast_case(std::move($2), std::move($5), @$)); }
|
|
;
|
|
|
|
branches
|
|
: branches branch { $$ = std::move($1); $$.push_back(std::move($2)); }
|
|
| branch { $$ = std::vector<branch_ptr>(); $$.push_back(std::move($1));}
|
|
;
|
|
|
|
branch
|
|
: pattern ARROW OCURLY aAdd CCURLY
|
|
{ $$ = branch_ptr(new branch(std::move($1), std::move($4))); }
|
|
;
|
|
|
|
pattern
|
|
: LID { $$ = pattern_ptr(new pattern_var(std::move($1))); }
|
|
| UID lowercaseParams
|
|
{ $$ = pattern_ptr(new pattern_constr(std::move($1), std::move($2))); }
|
|
;
|
|
|
|
data
|
|
: DATA UID lowercaseParams EQUAL OCURLY constructors CCURLY
|
|
{ $$ = definition_data_ptr(new definition_data(std::move($2), std::move($3), std::move($6))); }
|
|
;
|
|
|
|
constructors
|
|
: constructors COMMA constructor { $$ = std::move($1); $$.push_back(std::move($3)); }
|
|
| constructor
|
|
{ $$ = std::vector<constructor_ptr>(); $$.push_back(std::move($1)); }
|
|
;
|
|
|
|
constructor
|
|
: UID typeList
|
|
{ $$ = constructor_ptr(new constructor(std::move($1), std::move($2))); }
|
|
;
|
|
|
|
type
|
|
: nonArrowType ARROW type { $$ = parsed_type_ptr(new parsed_type_arr(std::move($1), std::move($3))); }
|
|
| nonArrowType { $$ = std::move($1); }
|
|
;
|
|
|
|
nonArrowType
|
|
: UID typeList { $$ = parsed_type_ptr(new parsed_type_app(std::move($1), std::move($2))); }
|
|
| LID { $$ = parsed_type_ptr(new parsed_type_var(std::move($1))); }
|
|
| OPAREN type CPAREN { $$ = std::move($2); }
|
|
;
|
|
|
|
typeListElement
|
|
: OPAREN type CPAREN { $$ = std::move($2); }
|
|
| UID { $$ = parsed_type_ptr(new parsed_type_app(std::move($1), {})); }
|
|
| LID { $$ = parsed_type_ptr(new parsed_type_var(std::move($1))); }
|
|
;
|
|
|
|
typeList
|
|
: %empty { $$ = std::vector<parsed_type_ptr>(); }
|
|
| typeList typeListElement { $$ = std::move($1); $$.push_back(std::move($2)); }
|
|
;
|