/* -The syntax is meant to ressemble assembly a little bit. -A document will contain all code internally, with numbered/indexable lines like Basic, so we can jump to and fro anywhere -No parameters passed inside parentheses. -Parameters are setup prior to calling a function as such: = param1 42 = param2 24 () function -Maximum of 4 parameters(although one could use global variables) -function blocks and labels are declared with :, functions end with @, as such: : add_42 param2 = 42 + //adds params 1 and 2 @ -functions can return up to 2 values, like : get2 = return1 911 = return2 119 @ -Printing on standard output with one parameter: = param1 42 # //output 42 -To print a character = param1 97 ## //output 'a' -names of variables and functions cannot contain whitespaces, unprintable characters or operators. -Operators are : = assignment == eq != neq + add - sub * mult / div : label -> jump () call label # print ## printchar @ return */ /* comments multiline -Operators must be surrounded by whitespaces -Results of operations naturally go in result1 -Only one operator, one instruction per line -Data types: number -number: unsigned integer -All variables are mutable, global and must be assigned a value, may it be zero = myvar 0 -All variables are global -Conditions are expressed as such == for equality of params 1 and 2 != for inequality of params 1 and 2 -True conditions will execute the following one line -False conditions will skip the following one line -Jumps are made as such -> label -Labels are declared with colons : label */ /* The lexer will read through the code and tokenize it. It will decorticate the code in pieces and assign each piece a category. */ /* the parser parses the tokens and builds up commands in the document. */ #include #include #include //for code document #include //for call stack #include //for varmaps using namespace std; string code{ R"( @ /* function label */ : printnum3times /* assign 3 to variable "loop" */ = loops 3 /* loop label */ : loop /* print 42 instruction */ = param1 42 # /* print newline character instruction */ = param1 10 ## /* subtract 1 from loops */ = param1 loops = param2 1 - /* store result in loops */ = loops return1 /* loop if loops is not equal to 0 */ = param1 loops = param2 0 != -> loop @ : start () printnum3times : end )" }; string code2{ R"( @ : fib = a 0 = b 1 = temp 0 = loops 80 : loop = param1 a # = param1 10 ## = temp b = param1 a = param2 b + = b return1 = a temp = param1 loops = param2 1 - = loops return1 = param1 loops = param2 0 != -> loop @ : start () fib : end )" }; typedef unsigned long long var; var param1, param2, param3, param4; var return1, return2; var programCounter = 0; map globals; stackcallstack; //contains return document indices. map varmap; //contains variable registry map labelmap; //contains label indices registry map functionIndices; //indices of function blocks class Token{ public: string type; string value; void print()const{ cout<<"["<document; //Interpreter functions vector lex(string text); void parse(const vector&tokens); void execute(); void clearAll(); void clearDocument(); void clearVars(); void clearLabels(); void clearCallStack(); int main() { try{ auto tokens = lex(code); parse(tokens); }catch(const char * err){ cerr< & tokens){ var index; for(index=0;index"){ Token next = tokens[++index]; if(next.type!="id") throw "Jump label error\n"; Command * c = new jump(next.value); document.push_back(c); ++programCounter; }else if(t.value == "()"){ Token next = tokens[++index]; if(next.type!="id") throw "Call label error\n"; Command * c = new call(next.value); document.push_back(c); ++programCounter; }else if(t.value == "@"){ Command * c = new ret(); document.push_back(c); ++programCounter; }else if(t.value == "/*"){ Token next = tokens[++index]; while(next.value!="*/") next = tokens[++index]; } }else{ throw "Line should start with operator\n"; } } } vector lex (string text){ stringstream ss{text}; string sbuf{}; vector tokens; while(ss>>sbuf){ Token t; char first = sbuf[0]; if(isdigit(first)){ t.type = "number"; }else if(isalpha(first)){ t.type = "id"; }else{ t.type = "operator"; } t.value = sbuf; tokens.push_back(t); } return tokens; }

Globo Language