/**
* CTRWalkerExpression
*
* Processes an expression.
*/
ctr_object *
ctr_cwlk_expr (ctr_tnode * node, char *wasReturn)
{
if (!node)
{
CtrStdFlow = ctr_build_string_from_cstring ("Encounered null parse node");
return NULL;
}
ctr_object *result;
switch (node->type)
{
case CTR_AST_NODE_LTRSTRING:
result = ctr_build_string (node->value, node->vlen);
break;
case CTR_AST_NODE_LTRBOOLTRUE:
result = ctr_build_bool (1);
break;
case CTR_AST_NODE_LTRBOOLFALSE:
result = ctr_build_bool (0);
break;
case CTR_AST_NODE_LTRNIL:
result = ctr_build_nil ();
break;
case CTR_AST_NODE_LTRNUM:
result = ctr_build_number_from_string (node->value, node->vlen);
break;
case CTR_AST_NODE_CODEBLOCK:
result = ctr_build_block (node);
break;
case CTR_AST_NODE_REFERENCE:
if (ctr_cwlk_replace_refs && ctr_cwlk_msg_level <= ctr_cwlk_last_msg_level)
{
// printf("%.*s\n", node->vlen, node->value);
result = ctr_build_string (node->value, node->vlen);
break;
}
if (CtrStdFlow == NULL)
{
ctr_callstack[ctr_callstack_index++] = node;
}
if (node->modifier == 1 || node->modifier == 3)
{
result = ctr_find_in_my (ctr_build_string (node->value, node->vlen));
}
else
result = ctr_find (ctr_build_string (node->value, node->vlen));
if (CtrStdFlow == NULL)
{
ctr_callstack_index--;
}
break;
case CTR_AST_NODE_EXPRMESSAGE:
result = ctr_cwlk_message (node);
break;
case CTR_AST_NODE_EXPRASSIGNMENT:
result = ctr_cwlk_assignment (node);
break;
case CTR_AST_NODE_IMMUTABLE:
result = ctr_build_immutable (node);
break;
case CTR_AST_NODE_SYMBOL:
result = (ctr_object *) (node->value);
break;
case CTR_AST_NODE_RETURNFROMBLOCK:
result = ctr_cwlk_return (node);
*wasReturn = 1;
break;
case CTR_AST_NODE_NESTED:
result = ctr_cwlk_expr (node->nodes->node, wasReturn);
break;
case CTR_AST_NODE_LISTCOMP:
result = ctr_build_listcomp (node);
break;
case CTR_AST_NODE_ENDOFPROGRAM:
if (CtrStdFlow && CtrStdFlow != CtrStdExit && ctr_cwlk_subprogram == 0)
{
printf ("Uncaught error has occurred.\n");
if (CtrStdFlow->info.type == CTR_OBJECT_TYPE_OTSTRING)
{
fwrite (CtrStdFlow->value.svalue->value, sizeof (char), CtrStdFlow->value.svalue->vlen, stdout);
printf ("\n");
}
ctr_print_stack_trace ();
}
result = ctr_build_nil ();
break;
default:
printf ("Runtime Error. Invalid parse node: %d %s \n", node->type, node->value);
exit (1);
break;
}
return result;
}
/**
* CTRWalkerExpression
*
* Processes an expression.
*/
ctr_object* ctr_cwlk_expr(ctr_tnode* node, char* wasReturn) {
ctr_object* result;
uint8_t i;
int line;
char* currentProgram = "?";
ctr_tnode* stackNode;
ctr_source_map* mapItem;
if (ctr_flag_sandbox && ++ctr_sandbox_steps>CTR_MAX_STEPS_LIMIT) exit(1);
switch (node->type) {
case CTR_AST_NODE_LTRSTRING:
result = ctr_build_string(node->value, node->vlen);
break;
case CTR_AST_NODE_LTRBOOLTRUE:
result = ctr_build_bool(1);
break;
case CTR_AST_NODE_LTRBOOLFALSE:
result = ctr_build_bool(0);
break;
case CTR_AST_NODE_LTRNIL:
result = ctr_build_nil();
break;
case CTR_AST_NODE_LTRNUM:
result = ctr_build_number_from_string(node->value, node->vlen);
break;
case CTR_AST_NODE_CODEBLOCK:
result = ctr_build_block(node);
break;
case CTR_AST_NODE_REFERENCE:
if (CtrStdFlow == NULL) {
ctr_callstack[ctr_callstack_index++] = node;
}
if (node->modifier == 1) {
result = ctr_find_in_my(ctr_build_string(node->value, node->vlen));
} else {
result = ctr_find(ctr_build_string(node->value, node->vlen));
}
if (CtrStdFlow == NULL) {
ctr_callstack_index--;
}
break;
case CTR_AST_NODE_EXPRMESSAGE:
result = ctr_cwlk_message(node);
break;
case CTR_AST_NODE_EXPRASSIGNMENT:
result = ctr_cwlk_assignment(node);
break;
case CTR_AST_NODE_RETURNFROMBLOCK:
result = ctr_cwlk_return(node);
*wasReturn = 1;
break;
case CTR_AST_NODE_NESTED:
result = ctr_cwlk_expr(node->nodes->node, wasReturn);
break;
case CTR_AST_NODE_ENDOFPROGRAM:
if (CtrStdFlow && CtrStdFlow != CtrStdExit && ctr_cwlk_subprogram == 0) {
fprintf(stderr, CTR_ERR_UNCAUGHT );
if (CtrStdFlow->info.type == CTR_OBJECT_TYPE_OTSTRING) {
fwrite(CtrStdFlow->value.svalue->value, sizeof(char), CtrStdFlow->value.svalue->vlen, stderr);
fprintf(stderr,"\n");
}
for ( i = ctr_callstack_index; i > 0; i--) {
fprintf(stderr,"#%d ", i);
stackNode = ctr_callstack[i-1];
fwrite(stackNode->value, sizeof(char), stackNode->vlen, stderr);
mapItem = ctr_source_map_head;
line = -1;
while(mapItem) {
if (line == -1 && mapItem->node == stackNode) {
line = mapItem->line;
}
if (line > -1 && mapItem->node->type == CTR_AST_NODE_PROGRAM) {
currentProgram = mapItem->node->value;
fprintf(stderr," (%s: %d)", currentProgram, line+1);
break;
}
mapItem = mapItem->next;
}
fprintf(stderr,"\n");
}
}
result = ctr_build_nil();
break;
default:
fprintf(stderr, CTR_ERR_NODE, node->type,node->value);
exit(1);
break;
}
return result;
}
