Esempio n. 1
0
// A global will always be returned.
FObject EnvironmentBind(FObject env, FObject sym)
{
    FAssert(EnvironmentP(env));
    FAssert(SymbolP(sym));

    FObject gl = EqHashMapRef(AsEnvironment(env)->HashMap, sym, FalseObject);
    if (gl == FalseObject)
    {
        gl = MakeGlobal(sym, AsEnvironment(env)->Name, AsEnvironment(env)->Interactive);
        EqHashMapSet(AsEnvironment(env)->HashMap, sym, gl);
    }

    FAssert(GlobalP(gl));
    return(gl);
}
Esempio n. 2
0
 Interpreter::Interpreter(IInterpreterHost & host)
 :   mHost(host)
 {
     // Build the global scope.
     
     // Object.
     mObject = MakeGlobal("Object");
     AddPrimitive(mObject, "===",             ObjectSame);
     AddPrimitive(mObject, "to-string",       ObjectToString);
     AddPrimitive(mObject, "parent",          ObjectGetParent);
     
     // Arrays.
     mArrayPrototype = MakeGlobal("Arrays");
     AddPrimitive(mArrayPrototype, "count",       ArrayCount);
     AddPrimitive(mArrayPrototype, "add:",        ArrayAdd);
     AddPrimitive(mArrayPrototype, "at:",         ArrayAt);
     AddPrimitive(mArrayPrototype, "at:put:",     ArrayAtPut);
     AddPrimitive(mArrayPrototype, "remove-at:",  ArrayRemoveAt);
     
     // Blocks.
     mBlockPrototype = MakeGlobal("Blocks");
     AddPrimitive(mBlockPrototype, "call", BlockCall);
     AddPrimitive(mBlockPrototype, "call:", BlockCall);
     AddPrimitive(mBlockPrototype, "call::", BlockCall);
     AddPrimitive(mBlockPrototype, "call:::", BlockCall);
     AddPrimitive(mBlockPrototype, "call::::", BlockCall);
     AddPrimitive(mBlockPrototype, "call:::::", BlockCall);
     AddPrimitive(mBlockPrototype, "call::::::", BlockCall);
     AddPrimitive(mBlockPrototype, "call:::::::", BlockCall);
     AddPrimitive(mBlockPrototype, "call::::::::", BlockCall);
     AddPrimitive(mBlockPrototype, "call:::::::::", BlockCall);
     AddPrimitive(mBlockPrototype, "call::::::::::", BlockCall);
     
     // Fibers.
     mFiberPrototype = MakeGlobal("Fibers");
     AddPrimitive(mFiberPrototype, "running?", FiberRunning);
     AddPrimitive(mFiberPrototype, "done?", FiberDone);
     
     // Numbers.
     mNumberPrototype = MakeGlobal("Numbers");
     AddPrimitive(mNumberPrototype, "abs", NumberAbs);
     AddPrimitive(mNumberPrototype, "neg", NumberNeg);
     AddPrimitive(mNumberPrototype, "mod:", NumberMod);
     AddPrimitive(mNumberPrototype, "floor", NumberFloor);
     AddPrimitive(mNumberPrototype, "ceiling", NumberCeiling);
     AddPrimitive(mNumberPrototype, "sqrt",  NumberSqrt);
     AddPrimitive(mNumberPrototype, "sin",   NumberSin);
     AddPrimitive(mNumberPrototype, "cos",   NumberCos);
     AddPrimitive(mNumberPrototype, "tan",   NumberTan);
     AddPrimitive(mNumberPrototype, "asin",  NumberAsin);
     AddPrimitive(mNumberPrototype, "acos",  NumberAcos);
     AddPrimitive(mNumberPrototype, "atan",  NumberAtan);
     AddPrimitive(mNumberPrototype, "atan:", NumberAtan2);
     AddPrimitive(mNumberPrototype, "+number:", NumberAdd);
     AddPrimitive(mNumberPrototype, "-number:", NumberSubtract);
     AddPrimitive(mNumberPrototype, "*number:", NumberMultiply);
     AddPrimitive(mNumberPrototype, "/number:", NumberDivide);
     AddPrimitive(mNumberPrototype, "=number:", NumberEquals);
     AddPrimitive(mNumberPrototype, "!=",  NumberNotEquals);
     AddPrimitive(mNumberPrototype, "<",   NumberLessThan);
     AddPrimitive(mNumberPrototype, ">",   NumberGreaterThan);
     AddPrimitive(mNumberPrototype, "<=",  NumberLessThanOrEqual);
     AddPrimitive(mNumberPrototype, ">=",  NumberGreaterThanOrEqual);
     
     // Strings.
     mStringPrototype = MakeGlobal("Strings");
     AddPrimitive(mStringPrototype, "count",       StringCount);
     AddPrimitive(mStringPrototype, "at:",         StringAt);
     AddPrimitive(mStringPrototype, "from:count:", StringFromCount);
     AddPrimitive(mStringPrototype, "hash-code",   StringHashCode);
     AddPrimitive(mStringPrototype, "index-of:",   StringIndexOf);
     
     // Ether.
     MakeGlobal("Ether");
     
     // Io.
     Value io = MakeGlobal("Io");
     AddPrimitive(io, "read-file:", IoReadFile);
     
     // Bare primitive object.
     Value primitives = MakeGlobal("*primitive*");
     AddPrimitive(primitives, "string-concat:and:",       PrimitiveStringConcat);
     AddPrimitive(primitives, "string-compare:to:",       PrimitiveStringCompare);
     AddPrimitive(primitives, "write:",                   PrimitiveWrite);
     /*
      AddPrimitive(primitives, "new-fiber:",               PrimitiveNewFiber);
      AddPrimitive(primitives, "current-fiber",            PrimitiveGetCurrentFiber);
      AddPrimitive(primitives, "switch-to-fiber:passing:", PrimitiveSwitchToFiber);
      */
     AddPrimitive(primitives, "callstack-depth",          PrimitiveGetCallstackDepth);
     
     // The special singleton values.
     mNil = MakeGlobal("nil");
     mTrue = MakeGlobal("true");
     mFalse = MakeGlobal("false");
 }