DiamondNether90/ground_fork
1
0
Fork 0
forked from ground/ground
Code Pull Requests Activity

Compare commits

base: DiamondNether90:a4eba4ae479e576e7cfae362118c6ce6cc4969be
Branches Tags
DiamondNether90:master ground:master
DiamondNether90:0.0.2 DiamondNether90:0.0.1 ground:0.0.1 ground:0.0.2
...
compare: DiamondNether90:master
Branches Tags
DiamondNether90:master ground:master
DiamondNether90:0.0.2 DiamondNether90:0.0.1 ground:0.0.1 ground:0.0.2

5 Commits
a4eba4ae47 ... master

Author SHA1 Message Date
Maxwell Jeffress
9e329968d1 Error types, print lists, better fn calling 2025-09-13 15:47:24 +10:00
Maxwell
e56c560514 Merge pull request 'Add Error Function' (#18) from DiamondNether90/ground_fork:master into master 
Reviewed-on: max/ground#18
 2025-09-12 12:05:05 +10:00
DiamondNether90
9cbe546e8a Error function 2025-09-12 11:57:45 +10:00
DiamondNether90
d9790711c6 Merge pull request 'Merge pull request 'Update docs/highlight.py' (#15) from DiamondNether90/ground_fork:master into master' (#1) from max/ground:master into master 
Reviewed-on: https://git.maxwellj.xyz/DiamondNether90/ground_fork/pulls/1
 2025-09-12 11:15:42 +10:00
Maxwell
310fede3ec Merge pull request 'Update docs/highlight.py' (#15) from DiamondNether90/ground_fork:master into master 
Reviewed-on: https://git.maxwellj.xyz/max/ground/pulls/15
 2025-09-02 20:42:39 +10:00
6 changed files with 213 additions and 98 deletions
Expand all files Collapse all files

2
docs/highlight.py
View File

@@ -15,7 +15,7 @@ def isnumber(num):
allstr = ""
color = ""
keywords = ["if", "jump", "end", "stdin", "stdout", "stdlnout", "set", "gettype", "exists", "setlist", "setlistat", "getlistat", "getlistsize", "listappend", "getstrsize", "getstrcharat", "add", "subtract", "multiply", "divide", "equal", "inequal", "not", "greater", "lesser", "stoi", "stod", "tostring", "fun", "return", "endfun", "pusharg", "call", "use", "extern"]
keywords = ["if", "jump", "end", "stdin", "stdout", "stdlnout", "set", "gettype", "exists", "setlist", "setlistat", "getlistat", "getlistsize", "listappend", "getstrsize", "getstrcharat", "add", "subtract", "multiply", "divide", "equal", "inequal", "not", "greater", "lesser", "stoi", "stod", "tostring", "fun", "return", "endfun", "pusharg", "call", "use", "extern", "error"]
for line in thefile:
allstr += line + " <br> "

300
src/main.cpp
View File

@@ -13,7 +13,7 @@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
along with this program. If not, see <https://www.gnu.org/licenses/>.
*/
/*
@@ -78,7 +78,7 @@ enum class Instructions {
Getstrcharat, Getstrsize,
Stoi, Stod, Tostring,
Fun, Return, Endfun, Pusharg, Call, Local,
Use, Extern
Use, Extern, Error, Catch, Try, Exception
};
/*
@@ -123,7 +123,7 @@ struct Literal;
val = 13
},
}
}
}
All elements in the list must be of the same type. See also Literal struct.
*/
struct List {
@@ -280,7 +280,7 @@ struct Function {
// C-compatible enum and types for developing libraries for Ground in C
typedef enum {
GROUND_INT,
GROUND_DOUBLE,
GROUND_DOUBLE,
GROUND_BOOL,
GROUND_STRING,
GROUND_CHAR
@@ -305,7 +305,7 @@ map<string, Function> functions;
/*
fnArgs vector
Containst the arguments to be passed to a function
Containst the arguments to be passed to a function
*/
vector<Literal> fnArgs;
@@ -367,10 +367,10 @@ Literal groundValueToLiteral(const GroundValue& gv) {
/*
error function
Takes a string (which is a debug message) and prints it to the console, letting the
user know what went wrong with the program.
user know what went wrong with the program.
*/
void error(string in, int exitc = 1) {
cout << "\033[31mError: \033[39m" << in << endl;
void error(string in, string errCode = "syntaxError", int exitc = 1) {
cout << "\033[31m" + errCode + ": \033[39m" << in << endl;
exit(exitc);
}
@@ -441,7 +441,7 @@ bool isListRef(string in) {
bool isType(string in) {
if (in.size() >= 1 && in[0] == '-') {
string type = in.substr(1);
if (type == "string" || type == "char" || type == "bool" || type == "double" || type == "int" || type == "list") return true;
if (type == "string" || type == "char" || type == "bool" || type == "double" || type == "int" || type == "list") return true;
else return false;
} else return false;
}
@@ -484,6 +484,7 @@ Types getLitType(Literal in) {
if (holds_alternative<bool>(in.val)) return Types::Bool;
if (holds_alternative<string>(in.val)) return Types::String;
if (holds_alternative<char>(in.val)) return Types::Char;
if (holds_alternative<List>(in.val)) return Types::List;
error("Literal for some reason has a weird type. This is not an issue with your program, but an issue with the Ground interpreter.");
return Types::Int;
}
@@ -594,7 +595,42 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
cout << get<char>(get<Literal>(l.args[0]).val);
}
else {
error("Couldn't print that");
error("Couldn't print that", "printError");
}
} else if (holds_alternative<ListRef>(l.args[0])) {
if (variables.find(get<ListRef>(l.args[0]).listName) != variables.end()) {
List list = get<List>(variables[get<ListRef>(l.args[0]).listName].val);
cout << "[";
for (int l = 0; l < list.val.size(); l++) {
if (holds_alternative<string>(list.val[l].val)) {
cout << '"' << get<string>(list.val[l].val) << '"';
}
else if (holds_alternative<int>(list.val[l].val)) {
cout << get<int>(list.val[l].val);
}
else if (holds_alternative<double>(list.val[l].val)) {
cout << get<double>(list.val[l].val);
}
else if (holds_alternative<bool>(list.val[l].val)) {
if (get<bool>(list.val[l].val) == true) {
cout << "true";
} else {
cout << "false";
}
}
else if (holds_alternative<char>(list.val[l].val)) {
cout << '\'' << get<char>(list.val[l].val) << '\'';
}
else {
error("Couldn't print that", "printError");
}
if (l != list.val.size() - 1) {
cout << ", ";
}
}
cout << "]";
} else {
error("Couldn't find list named " + get<ListRef>(l.args[0]).listName);
}
} else {
error("Argument of stdlnout must be a value (literal or a value reference)");
@@ -630,12 +666,78 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
cout << get<char>(get<Literal>(l.args[0]).val) << endl;
}
else {
error("Couldn't print that");
error("Couldn't print that", "printError");
}
} else if (holds_alternative<ListRef>(l.args[0])) {
if (variables.find(get<ListRef>(l.args[0]).listName) != variables.end()) {
List list = get<List>(variables[get<ListRef>(l.args[0]).listName].val);
cout << "[";
for (int l = 0; l < list.val.size(); l++) {
if (holds_alternative<string>(list.val[l].val)) {
cout << '"' << get<string>(list.val[l].val) << '"';
}
else if (holds_alternative<int>(list.val[l].val)) {
cout << get<int>(list.val[l].val);
}
else if (holds_alternative<double>(list.val[l].val)) {
cout << get<double>(list.val[l].val);
}
else if (holds_alternative<bool>(list.val[l].val)) {
if (get<bool>(list.val[l].val) == true) {
cout << "true";
} else {
cout << "false";
}
}
else if (holds_alternative<char>(list.val[l].val)) {
cout << '\'' << get<char>(list.val[l].val) << '\'';
}
else {
error("Couldn't print that", "printError");
}
if (l != list.val.size() - 1) {
cout << ", ";
}
}
cout << "]" << endl;
} else {
error("Couldn't find list named " + get<ListRef>(l.args[0]).listName);
}
} else {
error("Argument of stdlnout must be a value (literal or a value reference)");
error("Argument of stdlnout must be a value (literal or a value reference) or a list reference");
}
break;
/*
error instruction
This instruction outputs a custom error message.
*/
case Instructions::Error:
if (l.args.size() < 2) {
error("Could not find arguments for Error inbuilt");
}
if (holds_alternative<Literal>(l.args[0])) {
if (holds_alternative<string>(get<Literal>(l.args[0]).val) && holds_alternative<string>(get<Literal>(l.args[1]).val)) {
error(get<string>(get<Literal>(l.args[0]).val), get<string>(get<Literal>(l.args[1]).val));
} else {
error("Argument of error must be a string");
}
} else {
error("Argument of error must be a string");
}
break;
/*
catch instruction
This instruction ensures that errors in programs are caught and dealt with appropriately.
*/
case Instructions::Catch:
if (l.args.size() < 2) {
error("Could not find all arguments for Catch inbuilt");
}
if (holds_alternative<Literal>(l.args[0])) {
if (holds_alternative<string>(get<Literal>(l.args[0]).val)) {
}
}
/*
set instruction
This instruction sets a variable to a provided value.
@@ -659,7 +761,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else {
error("Second argument of set must be a value (literal or value reference)");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = varContents;
}
@@ -718,7 +820,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
if (holds_alternative<Literal>(l.args[1])) {
if (holds_alternative<int>(get<Literal>(l.args[1]).val)) {
ref = get<int>(get<Literal>(l.args[1]).val);
} else {
} else {
error("Second argument of getlistat must be an integer literal");
}
} else {
@@ -737,7 +839,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
bool existed = variables.count(var.varName) > 0;
variables[var.varName] = get<List>(variables[listref.listName].val).val[ref];
} else {
error("Index " + to_string(ref) + " out of range of list " + listref.listName);
error("Index " + to_string(ref) + " out of range of list " + listref.listName, "rangeError");
}
} else {
error("Found a normal variable in place of a list");
@@ -774,7 +876,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
if (holds_alternative<Literal>(l.args[1])) {
if (holds_alternative<int>(get<Literal>(l.args[1]).val)) {
ref = get<int>(get<Literal>(l.args[1]).val);
} else {
} else {
error("Second argument of getstrcharat must be an integer literal");
}
} else {
@@ -793,7 +895,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
bool existed = variables.count(var.varName) > 0;
variables[var.varName] = newLit;
} else {
error("Index " + to_string(ref) + " out of range of string " + instr);
error("Index " + to_string(ref) + " out of range of string " + instr, "rangeError");
}
}
break;
@@ -819,7 +921,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
if (holds_alternative<Literal>(l.args[1])) {
if (holds_alternative<int>(get<Literal>(l.args[1]).val)) {
ref = get<int>(get<Literal>(l.args[1]).val);
} else {
} else {
error("Second argument of setlistat must be an integer literal");
}
} else {
@@ -838,7 +940,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
tmpList.val[ref] = value;
variables[listref.listName].val = tmpList;
} else {
error("Index " + to_string(ref) + " out of range of list " + listref.listName);
error("Index " + to_string(ref) + " out of range of list " + listref.listName, "rangeError");
}
}
} else {
@@ -893,7 +995,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
{
ListRef ref;
Direct var;
if (holds_alternative<ListRef>(l.args[0])) {
ref = get<ListRef>(l.args[0]);
} else {
@@ -914,7 +1016,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else {
error("Couldn't find the list " + ref.listName);
}
break;
}
/*
@@ -928,7 +1030,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
{
string ref;
Direct var;
if (holds_alternative<Literal>(l.args[0])) {
if (holds_alternative<string>(get<Literal>(l.args[0]).val)) {
ref = get<string>(get<Literal>(l.args[0]).val);
@@ -949,7 +1051,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
newLit.val = int(ref.size());
bool existed = variables.count(var.varName) > 0;
variables[var.varName] = newLit;
break;
}
/*
@@ -964,7 +1066,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
{
string toConv;
Direct ref;
if (holds_alternative<Literal>(l.args[0])) {
if (holds_alternative<string>(get<Literal>(l.args[0]).val)) {
toConv = get<string>(get<Literal>(l.args[0]).val);
@@ -987,7 +1089,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
bool existed = variables.count(ref.varName) > 0;
variables[ref.varName] = newLit;
} else {
error("Cannot convert the value " + toConv + " to an int");
error("Cannot convert the value " + toConv + " to an int", "conversionError");
}
}
break;
@@ -1003,7 +1105,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
{
string toConv;
Direct ref;
if (holds_alternative<Literal>(l.args[0])) {
if (holds_alternative<string>(get<Literal>(l.args[0]).val)) {
toConv = get<string>(get<Literal>(l.args[0]).val);
@@ -1026,7 +1128,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
bool existed = variables.count(ref.varName) > 0;
variables[ref.varName] = newLit;
} else {
error("Cannot convert the value " + toConv + " to a decimal");
error("Cannot convert the value " + toConv + " to a decimal", "conversionError");
}
}
break;
@@ -1041,7 +1143,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
{
Literal toConv;
Direct ref;
if (holds_alternative<Literal>(l.args[0])) {
toConv = get<Literal>(l.args[0]);
} else {
@@ -1069,7 +1171,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else {
newLit.val = "false";
}
}
}
bool existed = variables.count(ref.varName) > 0;
variables[ref.varName] = newLit;
@@ -1148,9 +1250,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<char>(left.val) && holds_alternative<char>(right.val)) {
final.val = string().append(&get<char>(left.val)).append(&get<char>(right.val));
} else {
error("Cannot add those two values");
error("Cannot add those two values", "mathError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1198,9 +1300,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<double>(left.val) && holds_alternative<int>(right.val)) {
final.val = get<double>(left.val) - double(get<int>(right.val));
} else {
error("Cannot subtract those two values");
error("Cannot subtract those two values", "mathError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1248,9 +1350,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<double>(left.val) && holds_alternative<int>(right.val)) {
final.val = get<double>(left.val) * double(get<int>(right.val));
} else {
error("Cannot multiply those two values");
error("Cannot multiply those two values", "mathError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1291,12 +1393,12 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
// Ensure we aren't dividing by zero
if (holds_alternative<int>(right.val)) {
if (get<int>(right.val) == 0) {
error("Division by zero is not allowed");
error("Division by zero is not allowed", "divisionByZeroError");
}
}
if (holds_alternative<double>(right.val)) {
if (get<double>(right.val) == 0) {
error("Division by zero is not allowed");
error("Division by zero is not allowed", "divisionByZeroError");
}
}
@@ -1310,9 +1412,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<double>(left.val) && holds_alternative<int>(right.val)) {
final.val = get<double>(left.val) / double(get<int>(right.val));
} else {
error("Cannot divide those two values");
error("Cannot divide those two values", "mathError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1366,9 +1468,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<bool>(left.val) && holds_alternative<bool>(right.val)) {
final.val = get<bool>(left.val) == get<bool>(right.val);
} else {
error("Cannot equal those two values");
error("Cannot equal those two values", "comparisonError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1422,9 +1524,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<bool>(left.val) && holds_alternative<bool>(right.val)) {
final.val = get<bool>(left.val) != get<bool>(right.val);
} else {
error("Cannot inequal those two values");
error("Cannot inequal those two values", "comparisonError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1441,7 +1543,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
Literal boolean;
Direct varRef;
if (holds_alternative<Literal>(l.args[0])) {
if (holds_alternative<bool>(get<Literal>(l.args[0]).val)) {
boolean.val = !(get<bool>(get<Literal>(l.args[0]).val));
@@ -1511,9 +1613,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<bool>(left.val) && holds_alternative<bool>(right.val)) {
final.val = get<bool>(left.val) > get<bool>(right.val);
} else {
error("Cannot greater those two values");
error("Cannot greater those two values", "comparisonError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1567,9 +1669,9 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
} else if (holds_alternative<bool>(left.val) && holds_alternative<bool>(right.val)) {
final.val = get<bool>(left.val) < get<bool>(right.val);
} else {
error("Cannot lesser those two values");
error("Cannot lesser those two values", "comparisonError");
}
bool existed = variables.count(varRef.varName) > 0;
variables[varRef.varName] = final;
}
@@ -1674,10 +1776,10 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
variables[ref.varName].val = "char";
break;
default:
error("Could not get type?? This should never be reached. Please report this issue");
error("Could not get type?? This should never be reached. Please report this issue", "undefinedError");
break;
}
}
break;
@@ -1729,7 +1831,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
}
{
Function newFunction;
if (holds_alternative<TypeRef>(l.args[0])) {
newFunction.returnType = get<TypeRef>(l.args[0]).type;
} else {
@@ -1737,7 +1839,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
}
string fnName;
if (holds_alternative<FunctionRef>(l.args[1])) {
fnName = get<FunctionRef>(l.args[1]).fnName;
} else {
@@ -1755,24 +1857,24 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
for (int m = 2; m < l.args.size(); m += 2) {
FnArg newArg;
// Get type
if (holds_alternative<TypeRef>(l.args[m])) {
newArg.type = get<TypeRef>(l.args[m]).type;
} else {
error("Expected type reference in function argument definition");
}
// Get direct reference
if (m + 1 < l.args.size() && holds_alternative<Direct>(l.args[m + 1])) {
newArg.ref = get<Direct>(l.args[m + 1]);
} else {
error("Expected direct reference after type reference in function argument definition");
}
newFunction.args.push_back(newArg);
}
functions[fnName] = newFunction;
processingFunction = true;
procFnName = fnName;
@@ -1796,7 +1898,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
break;
/*
endfun instruction
This should not be reached during normal execution.
This should not be reached during normal execution.
*/
case Instructions::Endfun:
error("No function is being defined. Cannot end function declaration here");
@@ -1826,12 +1928,12 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
if (l.args.size() < 2) {
error("Could not find all arguments required for Call inbuilt");
}
FunctionRef ref;
string returnRef;
bool expectList = true;
if (holds_alternative<FunctionRef>(l.args[0])) {
ref = get<FunctionRef>(l.args[0]);
} else {
@@ -1852,19 +1954,19 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
// Call external function
typedef GroundValue (*ExtFunc)(GroundValue*, int);
ExtFunc extFunc = (ExtFunc)externalFunctions[ref.fnName];
// Convert arguments
vector<GroundValue> gvArgs;
for (const Literal& arg : fnArgs) {
gvArgs.push_back(literalToGroundValue(arg));
}
// Call function
GroundValue result = extFunc(gvArgs.data(), gvArgs.size());
// Convert result back
Literal resultLit = groundValueToLiteral(result);
// Clear arguments and store result
fnArgs.clear();
variables[returnRef] = resultLit;
@@ -1879,8 +1981,8 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
// Check argument count
if (fnArgs.size() != functions[ref.fnName].args.size()) {
error("Function " + ref.fnName + " expects " +
to_string(functions[ref.fnName].args.size()) +
error("Function " + ref.fnName + " expects " +
to_string(functions[ref.fnName].args.size()) +
" arguments, got " + to_string(fnArgs.size()));
}
@@ -1890,17 +1992,17 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
// Create function arguments with type checking
for (int m = 0; m < functions[ref.fnName].args.size(); m++) {
FnArg arg = functions[ref.fnName].args[m];
// Type checking - now with error reporting
if (arg.type != getLitType(fnArgs[m])) {
error("Function " + ref.fnName + " argument " + to_string(m + 1) +
" type mismatch. Expected type does not match provided argument type.");
error("Function " + ref.fnName + " argument " + to_string(m + 1) +
" type mismatch. Expected type does not match provided argument type.", "typeError");
}
// Create the variable
variables[arg.ref.varName] = fnArgs[m];
variables[arg.ref.varName] = fnArgs[m];
}
// Clear function arguments for next call
fnArgs.clear();
@@ -1932,7 +2034,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
}
{
string useName;
if (holds_alternative<Literal>(l.args[0])) {
if (holds_alternative<string>(get<Literal>(l.args[0]).val)) {
useName = get<string>(get<Literal>(l.args[0]).val) + ".grnd";
@@ -1957,11 +2059,11 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
string groundLibsDir = getenv("GROUND_LIBS");
if (filesystem::exists(useName)) {
} else if (groundLibsDir != "" && filesystem::exists(groundLibsDir + useName)) {
useName = groundLibsDir + useName;
// no need to do anything here
} else if (groundLibsDir != "" && filesystem::exists(groundLibsDir + useName + ".grnd")) {
useName = groundLibsDir + useName + ".grnd";
} else {
error("Could not find external Ground library in $GROUND_LIBS or current directory.");
error("Could not find external Ground library in $GROUND_LIBS (currently set to " + groundLibsDir +") or current directory.", "libraryError");
}
ifstream file(useName);
@@ -2018,7 +2120,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
// Check multiple locations for the library
string libPath;
bool found = false;
// Check GROUND_LIBS directory
const char* groundLibsDir = getenv("GROUND_LIBS");
if (groundLibsDir) {
@@ -2033,16 +2135,16 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
found = true;
}
}
if (!found) {
error("Could not find external library: " + fullLibName +
" (searched current directory and GROUND_LIBS)");
error("Could not find external library: " + fullLibName +
" (searched current directory and GROUND_LIBS)", "libraryError");
}
// Try to open the library
void* handle = DLOPEN(libPath.c_str());
if (!handle) {
error("Failed to load library " + libPath + ": " + string(DLERROR()));
error("Failed to load library " + libPath + ": " + string(DLERROR()), "libraryError");
}
// Store handle for cleanup later
@@ -2056,7 +2158,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
GetFunctionFunc getFunction = (GetFunctionFunc)DLSYM(handle, "ground_get_function");
if (!getFunctions || !getFunction) {
error("Library " + libName + " is not Ground-compatible (missing required functions: ground_get_functions or ground_get_function)");
error("Library " + libName + " is not Ground-compatible (missing required functions: ground_get_functions or ground_get_function)", "libraryError");
}
// Optional initialization
@@ -2071,7 +2173,7 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
if (!functionNames) {
error("Library " + libName + " returned null function list");
}
int functionCount = 0;
for (int i = 0; functionNames[i] != nullptr; i++) {
void* funcPtr = getFunction(functionNames[i]);
@@ -2079,12 +2181,12 @@ Literal exec(vector<Instruction> in, bool executingFunction) {
externalFunctions[libName + ":" + string(functionNames[i])] = funcPtr;
functionCount++;
} else {
error("Failed to get function pointer for: " + string(functionNames[i]));
error("Failed to get function pointer for: " + string(functionNames[i]), "libraryError");
}
}
if (functionCount == 0) {
error("No functions were loaded from library: " + libName);
error("No functions were loaded from library: " + libName, "libraryError");
}
}
break;
@@ -2142,7 +2244,7 @@ vector<vector<string>> lexer(string in) {
bool procString = false;
bool procChar = false;
bool isComment = false;
for (char i : in) {
switch (i) {
case '"':
@@ -2212,7 +2314,7 @@ vector<vector<string>> lexer(string in) {
vector<Instruction> parser(vector<vector<string>> in) {
vector<Instruction> out;
int lineNum = 0;
for (vector<string> lineTokens : in) {
lineNum ++;
Instruction newInst;
@@ -2221,7 +2323,7 @@ vector<Instruction> parser(vector<vector<string>> in) {
continue;
};
bool firstInst = true;
for (string i : lineTokens) {
if (firstInst) {
firstInst = false;
@@ -2229,9 +2331,19 @@ vector<Instruction> parser(vector<vector<string>> in) {
newInst.isLabel = true;
newInst.label.id = i.substr(1);
}
else if (isFunction(i)){
newInst.inst = Instructions::Call;
FunctionRef newFnRef;
newFnRef.fnName = i.substr(1);
newInst.args.push_back(newFnRef);
}
else if (i == "stdin") newInst.inst = Instructions::Stdin;
else if (i == "stdout") newInst.inst = Instructions::Stdout;
else if (i == "stdlnout") newInst.inst = Instructions::Stdlnout;
else if (i == "error") newInst.inst = Instructions::Error;
else if (i == "try") newInst.inst = Instructions::Try;
else if (i == "catch") newInst.inst = Instructions::Catch;
else if (i == "exception") newInst.inst = Instructions::Exception;
else if (i == "jump") newInst.inst = Instructions::Jump;
else if (i == "if") newInst.inst = Instructions::If;
else if (i == "add") newInst.inst = Instructions::Add;
@@ -2295,7 +2407,7 @@ vector<Instruction> parser(vector<vector<string>> in) {
else if (type == "int") newType.type = Types::Int;
else if (type == "bool") newType.type = Types::Bool;
else if (type == "list") newType.type = Types::List;
else error("Ground could not find type. This is an error with the interpreter, not your code. This line of code should never be reached.");
else error("Ground could not find type. This is an error with the interpreter, not your code. This line of code should never be reached.", "undefinedError");
newInst.args.push_back(newType);
}
break;
@@ -2303,7 +2415,7 @@ vector<Instruction> parser(vector<vector<string>> in) {
{
FunctionRef newFunction;
newFunction.fnName = i.substr(1);
newInst.args.push_back(newFunction);
newInst.args.push_back(newFunction);
}
break;
case Types::Line:
@@ -2366,10 +2478,10 @@ vector<Instruction> parser(vector<vector<string>> in) {
}
break;
default:
error("This type should not be obtained in normal execution");
error("This type should not be obtained in normal execution", "undefinedError");
break;
}
}
}
}
out.push_back(newInst);
}
@@ -2396,7 +2508,7 @@ int main(int argc, char** argv) {
argsList.val.push_back(lit);
}
variables["args"].val = argsList;
ifstream file(argv[1]);
string lns;
string in;

1
tests/error.grnd Normal file
View File

@@ -0,0 +1 @@
error "Hello, world!" "sillyError"

2
tests/functions.grnd
View File

@@ -14,7 +14,7 @@ fun -bool !jumpy
return true
endfun
call !jumpy &tmp
!jumpy &tmp
stdlnout "I called a function"

1
tests/lists.grnd
View File

@@ -1,5 +1,6 @@
# A cool list
setlist *favWords "hello" "there" "general" "kenobi"
stdlnout *favWords
set &count 0
set &passedThrough true

5
tests/to1000.grnd
View File

@@ -1,5 +1,6 @@
set &var 0
@jump
add 1 $var &var
stdlnout $var
greater 1000 $var &cond
if $cond %2
greater 10000 $var &cond
if $cond %jump