Initial 80386 microcode commit.

2026-06-16 13:07:07 +03:00 · 2026-05-23 11:01:52 +01:00
parent e355b03ce3
commit 79596c4c8b
139 changed files with 47172 additions and 2 deletions
@@ -0,0 +1,59 @@
+#include "alfe/main.h"
+
+#ifndef INCLUDED_ARRAY_FUNCTIONS_H
+#define INCLUDED_ARRAY_FUNCTIONS_H
+
+#include "alfe/function.h"
+
+class IndexArray : public Nullary<Funco, IndexArray>
+{
+public:
+    class Body : public Nullary::Body
+    {
+    public:
+        Value evaluate(List<Value> arguments, Span span) const
+        {
+            auto i = arguments.begin();
+            auto l = i->value<List<Value>>();
+            ++i;
+            Value r = *i;
+            if (r.type() != IntegerType()) {
+                span.throwError("Evaluating arrays with a non-integer indexer "
+                    "has not been implemented.");
+            }
+            int rr = r.value<int>();
+            if (rr < 0 || rr >= l.count()) {
+                span.throwError("Array access out of bounds: " + decimal(rr) +
+                    " is not in the range 0 to " + l.count() + ".");
+            }
+            auto x = l.begin();
+            while (rr > 0) {
+                ++x;
+                --rr;
+            }
+            return *x;
+        }
+        Identifier identifier() const { return OperatorIndex(); }
+        bool argumentsMatch(List<Type> argumentTypes) const
+        {
+            if (argumentTypes.count() != 2)
+                return false;
+            auto i = argumentTypes.begin();
+            ArrayType l(*i);
+            if (!l.valid())
+                return false;
+            ++i;
+            Type indexType(*i);
+            return indexType.canConvertTo(l.indexer());
+        }
+        List<Tyco> parameterTycos() const
+        {
+            List<Tyco> r;
+            r.add(ArrayTemplate());
+            r.add(Type());
+            return r;
+        }
+    };
+};
+
+#endif // INCLUDED_ARRAY_FUNCTIONS_H