jacob/scl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Add multiplication.

Browse Source 
Supports negative numbers too.
This commit is contained in:
Jacob Signorovitch 2024-12-21 10:45:43 -05:00
parent e3afe52ab7
commit 653736622f
3 changed files with 36 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/exec.c
View File

@ -23,11 +23,6 @@ ASTNumData exec_call(AST* ast) {
ASTCallData* calldata = (ASTCallData*)ast->data;
if (!strcmp(calldata->to, "+") && calldata->argc == 2) {
/*
ASTNumData* n1 = (ASTNumData*)calldata->argv[0]->data;
ASTNumData* n2 = (ASTNumData*)calldata->argv[1]->data;
*/
ASTNumData n1 = exec_expr(calldata->argv[0]);
ASTNumData n2 = exec_expr(calldata->argv[1]);
@ -37,6 +32,11 @@ ASTNumData exec_call(AST* ast) {
ASTNumData n2 = exec_expr(calldata->argv[1]);
return n1 - n2;
} else if (!strcmp(calldata->to, "*") && calldata->argc == 2) {
ASTNumData n1 = exec_expr(calldata->argv[0]);
ASTNumData n2 = exec_expr(calldata->argv[1]);
return n1 * n2;
}
return -1000;
}

32
src/grammar.y
View File

@ -21,10 +21,13 @@
%define parse.error verbose
%token<fval> NUM
%token NEG
%token<strval> CALL
%token<fval> NUM
%token NEG
%token PLUS
%token MULT
%token NL
%type<ast> exp
@ -63,4 +66,29 @@ exp:
$$ = ast_init(AST_TYPE_CALL, ast_call_data_init("-", 2, argv));
}
| NUM MULT NUM {
AST** argv = calloc(2, sizeof(AST*));
argv[0] = ast_init(AST_TYPE_NUM, ast_num_data_init($1));
argv[1] = ast_init(AST_TYPE_NUM, ast_num_data_init($3));
$$ = ast_init(AST_TYPE_CALL, ast_call_data_init("*", 2, argv));
}
| NEG NUM MULT NUM {
AST** argv = calloc(2, sizeof(AST*));
argv[0] = ast_init(AST_TYPE_NUM, ast_num_data_init(-$2));
argv[1] = ast_init(AST_TYPE_NUM, ast_num_data_init($4));
$$ = ast_init(AST_TYPE_CALL, ast_call_data_init("*", 2, argv));
}
| NEG NUM MULT NEG NUM {
AST** argv = calloc(2, sizeof(AST*));
argv[0] = ast_init(AST_TYPE_NUM, ast_num_data_init(-$2));
argv[1] = ast_init(AST_TYPE_NUM, ast_num_data_init(-$5));
$$ = ast_init(AST_TYPE_CALL, ast_call_data_init("*", 2, argv));
}
| NUM MULT NEG NUM {
AST** argv = calloc(2, sizeof(AST*));
argv[0] = ast_init(AST_TYPE_NUM, ast_num_data_init($1));
argv[1] = ast_init(AST_TYPE_NUM, ast_num_data_init(-$4));
$$ = ast_init(AST_TYPE_CALL, ast_call_data_init("*", 2, argv));
}
%%

1
src/lexer.c
View File

@ -66,6 +66,7 @@ int yylex() {
case '+': return PLUS;
case '\n': return NL;
case '-': return NEG;
case '*': return MULT;
default: return CALL;
}