cariboujs 2.0.4 → 2.0.6

package/ada/ada2012/AdaParserListener.js

@@ -878,6 +878,15 @@ export default class AdaParserListener extends antlr4.tree.ParseTreeListener {
 	}
 
 
+	// Enter a parse tree produced by AdaParser#choice_simple_expression.
+	enterChoice_simple_expression(ctx) {
+	}
+
+	// Exit a parse tree produced by AdaParser#choice_simple_expression.
+	exitChoice_simple_expression(ctx) {
+	}
+
+
 	// Enter a parse tree produced by AdaParser#term.
 	enterTerm(ctx) {
 	}
@@ -968,6 +977,15 @@ export default class AdaParserListener extends antlr4.tree.ParseTreeListener {
 	}
 
 
+	// Enter a parse tree produced by AdaParser#raise_expression.
+	enterRaise_expression(ctx) {
+	}
+
+	// Exit a parse tree produced by AdaParser#raise_expression.
+	exitRaise_expression(ctx) {
+	}
+
+
 	// Enter a parse tree produced by AdaParser#if_expression.
 	enterIf_expression(ctx) {
 	}
@@ -2606,5 +2624,23 @@ export default class AdaParserListener extends antlr4.tree.ParseTreeListener {
 	}
 
 
+	// Enter a parse tree produced by AdaParser#pragmaRule.
+	enterPragmaRule(ctx) {
+	}
+
+	// Exit a parse tree produced by AdaParser#pragmaRule.
+	exitPragmaRule(ctx) {
+	}
+
+
+	// Enter a parse tree produced by AdaParser#pragma_argument_association.
+	enterPragma_argument_association(ctx) {
+	}
+
+	// Exit a parse tree produced by AdaParser#pragma_argument_association.
+	exitPragma_argument_association(ctx) {
+	}
+
+
 
 }

package/ada/ada2012/AdaParserVisitor.js

@@ -588,6 +588,12 @@ export default class AdaParserVisitor extends antlr4.tree.ParseTreeVisitor {
 	}
 
 
+	// Visit a parse tree produced by AdaParser#choice_simple_expression.
+	visitChoice_simple_expression(ctx) {
+	  return this.visitChildren(ctx);
+	}
+
+
 	// Visit a parse tree produced by AdaParser#term.
 	visitTerm(ctx) {
 	  return this.visitChildren(ctx);
@@ -648,6 +654,12 @@ export default class AdaParserVisitor extends antlr4.tree.ParseTreeVisitor {
 	}
 
 
+	// Visit a parse tree produced by AdaParser#raise_expression.
+	visitRaise_expression(ctx) {
+	  return this.visitChildren(ctx);
+	}
+
+
 	// Visit a parse tree produced by AdaParser#if_expression.
 	visitIf_expression(ctx) {
 	  return this.visitChildren(ctx);
@@ -1740,5 +1752,17 @@ export default class AdaParserVisitor extends antlr4.tree.ParseTreeVisitor {
 	}
 
 
+	// Visit a parse tree produced by AdaParser#pragmaRule.
+	visitPragmaRule(ctx) {
+	  return this.visitChildren(ctx);
+	}
+
+
+	// Visit a parse tree produced by AdaParser#pragma_argument_association.
+	visitPragma_argument_association(ctx) {
+	  return this.visitChildren(ctx);
+	}
+
+
 
 }

package/ada/ada2012/Symbol.js

@@ -0,0 +1,20 @@
+export default class Symbol {
+    constructor() {
+        this.name = "";
+        this.classification = new Set();
+        this.members = new Map();
+        this.parent = null;
+        this.predefined = false;
+        this.isComposite = false;
+        this.definedFile = "";
+        this.definedLine = 0;
+        this.definedColumn = 0;
+    }
+    toString() {
+        let result = this.name;
+        result += " (with classification " + Array.from(this.classification).join(", ") + ")";
+        if (this.isComposite) result += " [composite]";
+        if (this.definedFile) result += " defined at " + this.definedFile + ":" + this.definedLine + ":" + this.definedColumn;
+        return result;
+    }
+}

package/ada/ada2012/SymbolTable.js

@@ -0,0 +1,144 @@
+import Symbol from './Symbol.js';
+import TypeClassification from './TypeClassification.js';
+
+export default class SymbolTable {
+    constructor() {
+        this.scopeStack = [];
+        this.blockCounter = 0;
+
+        var globalScope = new Symbol();
+        globalScope.name = "global";
+        globalScope.classification = new Set([TypeClassification.Global_]);
+        this.scopeStack.push(globalScope);
+
+        // Predefined scalar types
+        this._defineType("integer", false);
+        this._defineType("natural", false);
+        this._defineType("positive", false);
+        this._defineType("float", false);
+        this._defineType("long_float", false);
+        this._defineType("character", false);
+        this._defineType("wide_character", false);
+        this._defineType("wide_wide_character", false);
+        this._defineType("boolean", false);
+        this._defineType("duration", false);
+
+        // Predefined composite types
+        this._defineType("string", true);
+        this._defineType("wide_string", true);
+        this._defineType("wide_wide_string", true);
+
+        // Predefined exceptions
+        this._definePredefined("constraint_error", TypeClassification.ExceptionName_);
+        this._definePredefined("program_error", TypeClassification.ExceptionName_);
+        this._definePredefined("storage_error", TypeClassification.ExceptionName_);
+        this._definePredefined("tasking_error", TypeClassification.ExceptionName_);
+        this._definePredefined("numeric_error", TypeClassification.ExceptionName_);
+
+        // Predefined enumeration literals
+        this._definePredefined("true", TypeClassification.EnumerationLiteral_);
+        this._definePredefined("false", TypeClassification.EnumerationLiteral_);
+    }
+
+    _defineType(name, isComposite) {
+        var sym = new Symbol();
+        sym.name = name;
+        sym.classification = new Set([TypeClassification.TypeName_]);
+        sym.predefined = true;
+        sym.isComposite = isComposite;
+        this.define(sym);
+    }
+
+    _definePredefined(name, classification) {
+        var sym = new Symbol();
+        sym.name = name;
+        sym.classification = new Set([classification]);
+        sym.predefined = true;
+        this.define(sym);
+    }
+
+    currentScope() {
+        if (this.scopeStack.length === 0) return null;
+        return this.scopeStack[this.scopeStack.length - 1];
+    }
+
+    define(symbol) {
+        var currentScope = this.currentScope();
+        if (currentScope === null) return false;
+        // Case-insensitive: normalize name to lowercase
+        symbol.name = symbol.name.toLowerCase();
+        if (currentScope.members.has(symbol.name)) {
+            return false;
+        }
+        symbol.parent = currentScope;
+        currentScope.members.set(symbol.name, symbol);
+        return true;
+    }
+
+    resolve(name) {
+        // Case-insensitive: normalize to lowercase
+        name = name.toLowerCase();
+        for (var i = this.scopeStack.length - 1; i >= 0; i--) {
+            var scope = this.scopeStack[i];
+            if (scope.members.has(name)) {
+                return scope.members.get(name);
+            }
+        }
+        return null;
+    }
+
+    pushBlockScope() {
+        var blockScope = new Symbol();
+        blockScope.name = "block" + (++this.blockCounter);
+        blockScope.classification = new Set([TypeClassification.Block_]);
+        blockScope.predefined = true;
+        var current = this.currentScope();
+        if (current !== null && blockScope !== current) {
+            this.scopeStack.push(blockScope);
+        }
+        return blockScope;
+    }
+
+    popBlockScope() {
+        if (this.scopeStack.length <= 1) {
+            throw new Error("SymbolTable: scope stack underflow");
+        }
+        this.scopeStack.pop();
+    }
+
+    getExportedSymbols() {
+        var result = [];
+        if (this.scopeStack.length === 0) return result;
+        var global = this.scopeStack[0]; // bottom of stack = global scope
+        for (var [key, sym] of global.members) {
+            if (!sym.predefined) {
+                result.push(sym);
+            }
+        }
+        return result;
+    }
+
+    toString() {
+        var result = "";
+        if (this.scopeStack.length > 0) {
+            result = this._toStringHelper(this.scopeStack[0], 0);
+        }
+        return result;
+    }
+
+    _toStringHelper(scope, depth) {
+        var result = "";
+        var indent = "  ".repeat(depth);
+        for (var [key, sym] of scope.members) {
+            if (!sym.predefined) {
+                result += indent + sym.toString() + "\n";
+            }
+            if (sym.classification.has(TypeClassification.Block_) ||
+                sym.classification.has(TypeClassification.SubprogramName_) ||
+                sym.classification.has(TypeClassification.PackageName_)) {
+                result += this._toStringHelper(sym, depth + 1);
+            }
+        }
+        return result;
+    }
+}

package/ada/ada2012/TypeClassification.js

@@ -0,0 +1,15 @@
+const TypeClassification = Object.freeze({
+    Global_: 'Global_',
+    Block_: 'Block_',
+    TypeName_: 'TypeName_',
+    ObjectName_: 'ObjectName_',
+    SubprogramName_: 'SubprogramName_',
+    PackageName_: 'PackageName_',
+    ExceptionName_: 'ExceptionName_',
+    GenericName_: 'GenericName_',
+    EnumerationLiteral_: 'EnumerationLiteral_',
+    ComponentName_: 'ComponentName_',
+    LabelName_: 'LabelName_',
+});
+
+export default TypeClassification;