public void ExecuteCommentBlock()
{
Loader loader = new Loader(new StringReader("\"comment\""), new SimpleCompiler());
Machine machine = new Machine();
loader.LoadAndExecute(machine);
}
public void ExecuteDefineClassSubclassFile()
{
Loader loader = new Loader(@"DefineClassSubclass.st", new VmCompiler());
Machine machine = CreateMachine();
Assert.IsNull(machine.GetGlobalObject("Rectangle"));
loader.LoadAndExecute(machine);
object obj = machine.GetGlobalObject("Rectangle");
Assert.IsNotNull(obj);
Assert.IsInstanceOfType(obj, typeof(IClass));
IClass cls = (IClass)obj;
Assert.AreEqual(0, cls.GetInstanceVariableOffset("x"));
Assert.AreEqual(1, cls.GetInstanceVariableOffset("y"));
Assert.AreEqual(2, cls.GetInstanceVariableOffset("width"));
Assert.AreEqual(3, cls.GetInstanceVariableOffset("height"));
Assert.IsNotNull(cls.GetInstanceMethod("x"));
Assert.IsNotNull(cls.GetInstanceMethod("x:"));
Assert.IsNotNull(cls.GetInstanceMethod("y"));
Assert.IsNotNull(cls.GetInstanceMethod("y:"));
Assert.IsNotNull(cls.GetInstanceMethod("width"));
Assert.IsNotNull(cls.GetInstanceMethod("height"));
}
public void ExecuteBlock()
{
Loader loader = new Loader(new StringReader("One := 1\n!\n"), new VmCompiler());
Machine machine = new Machine();
loader.LoadAndExecute(machine);
Assert.AreEqual(1, machine.GetGlobalObject("One"));
}
public void ExecuteBlockWithTwoCommands()
{
Loader loader = new Loader(new StringReader("One := 1.\nTwo := 2\n!\n"), new SimpleCompiler());
Machine machine = new Machine();
loader.LoadAndExecute(machine);
Assert.AreEqual(1, machine.GetGlobalObject("One"));
Assert.AreEqual(2, machine.GetGlobalObject("Two"));
}
public void DefineAsRemote()
{
Loader loader = new Loader(@"AsRemote.st", new SimpleCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
object result = machine.GetGlobalObject("Object");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(IClass));
IClass cls = (IClass)result;
IMethod mth = cls.GetInstanceMethod("asRemote");
Assert.IsNotNull(mth);
}
public void DefineClassAndGetItsOutputString()
{
Loader loader = new Loader(@"DefineRectangleWithNewAndInitialize.st", new VmCompiler());
Machine machine = new Machine();
loader.LoadAndExecute(machine);
BaseClass rectangle = (BaseClass)machine.GetGlobalObject("Rectangle");
string output = rectangle.ToOutputString();
Assert.IsNotNull(output);
Assert.IsTrue(output.Contains("nil subclass:"));
Assert.IsTrue(output.Contains("category: ''!"));
Assert.IsTrue(output.Contains("!Rectangle class methods!"));
Assert.IsTrue(output.Contains("!Rectangle methods!"));
Assert.IsTrue(output.Contains("! !"));
Assert.IsTrue(output.Contains("^x"));
Assert.IsTrue(output.Contains("^y"));
Assert.IsTrue(output.Contains("x := 10"));
Assert.IsTrue(output.Contains("y := 20"));
}
public void LoadFileOut02()
{
Loader loader = new Loader(@"FileOut02.st", new VmCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
object result = machine.GetGlobalObject("Object");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
}
public void LoadClass()
{
Machine machine = CreateMachine();
Loader loader = new Loader(@"Object.st", new VmCompiler());
loader.LoadAndExecute(machine);
loader = new Loader(@"Behavior.st", new VmCompiler());
loader.LoadAndExecute(machine);
loader = new Loader(@"Class.st", new VmCompiler());
loader.LoadAndExecute(machine);
loader = new Loader(@"ClassTest.st", new VmCompiler());
loader.LoadAndExecute(machine);
object obj = machine.GetGlobalObject("MyClass");
Assert.IsNotNull(obj);
Assert.IsInstanceOfType(obj, typeof(IClass));
IClass cls = (IClass)obj;
Assert.AreEqual("MyClass", cls.Name);
Assert.AreEqual("Object", ((IClass)cls.SuperClass).Name);
object obj2 = machine.GetGlobalObject("Rectangle");
Assert.IsNotNull(obj2);
Assert.IsInstanceOfType(obj2, typeof(IClass));
IClass cls2 = (IClass)obj2;
Assert.AreEqual("Rectangle", cls2.Name);
Assert.AreEqual("Object", ((IClass)cls2.SuperClass).Name);
Assert.AreEqual(2, cls2.NoInstanceVariables);
Assert.AreEqual(0, cls2.Behavior.NoInstanceVariables);
Assert.AreEqual(1, cls2.NoClassVariables);
Assert.AreEqual("width height", cls2.GetInstanceVariableNamesAsString());
Assert.AreEqual("Number", cls2.GetClassVariableNamesAsString());
object obj3 = machine.GetGlobalObject("rect");
Assert.IsNotNull(obj3);
Assert.IsInstanceOfType(obj3, typeof(IObject));
IObject rect = (IObject)obj3;
Assert.AreEqual(cls2, rect.Behavior);
Assert.AreEqual(100, rect[0]);
Assert.AreEqual(50, rect[1]);
}
public void LoadBehavior()
{
Machine machine = CreateMachine();
Loader loader = new Loader(@"Object.st", new VmCompiler());
loader.LoadAndExecute(machine);
loader = new Loader(@"Behavior.st", new VmCompiler());
loader.LoadAndExecute(machine);
loader = new Loader(@"BehaviorTest.st", new VmCompiler());
loader.LoadAndExecute(machine);
object obj = machine.GetGlobalObject("NewBehavior");
Assert.IsNotNull(obj);
Assert.IsInstanceOfType(obj, typeof(IClass));
IClass cls = (IClass)obj;
Assert.AreEqual("Behavior", ((IClass)cls.SuperClass).Name);
Assert.IsNotNull(cls.Behavior.GetInstanceMethod("compile:"));
}
public void ExecuteDefineSubclassWithVariablesFile()
{
Loader loader = new Loader(@"DefineSubclassWithVariables.st", new SimpleCompiler());
Machine machine = CreateMachine();
Assert.IsNull(machine.GetGlobalObject("Rectangle"));
loader.LoadAndExecute(machine);
object obj = machine.GetGlobalObject("Rectangle");
Assert.IsNotNull(obj);
Assert.IsInstanceOfType(obj, typeof(IClass));
IClass cls = (IClass)obj;
Assert.AreEqual(0, cls.GetInstanceVariableOffset("x"));
Assert.AreEqual(1, cls.GetInstanceVariableOffset("y"));
}
public void LoadPharoNumbers()
{
Loader loaderlib = new Loader(@"Library2.st", new VmCompiler());
Loader loaderobj = new Loader(@"PharoCoreKernelObjects.st", new VmCompiler());
Loader loader = new Loader(@"PharoKernelNumbers.st", new VmCompiler());
Machine machine = CreateMachine();
loaderlib.LoadAndExecute(machine);
loaderobj.LoadAndExecute(machine);
loader.LoadAndExecute(machine);
object result = machine.GetGlobalObject("Object");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
result = machine.GetGlobalObject("ProtoObject");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
result = machine.GetGlobalObject("Boolean");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
result = machine.GetGlobalObject("UndefinedObject");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
}
public void LoadNativeBehavior()
{
Loader loader = new Loader(@"NativeBehavior.st", new VmCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
object result = machine.GetGlobalObject("myList");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(ArrayList));
ArrayList list = (ArrayList)result;
Assert.AreEqual(2, list.Count);
Assert.AreEqual(1, list[0]);
Assert.AreEqual("foo", list[1]);
}
public void ExecuteDefineSubclassFile()
{
Loader loader = new Loader(@"DefineSubclass.st", new VmCompiler());
Machine machine = CreateMachine();
Assert.IsNull(machine.GetGlobalObject("Object"));
loader.LoadAndExecute(machine);
Assert.IsNotNull(machine.GetGlobalObject("Object"));
}
public void ExecuteDefineRectangleWithNewAndInitializeFile()
{
Loader loader = new Loader(@"DefineRectangleWithNewAndInitialize.st", new VmCompiler());
Machine machine = CreateMachine();
Assert.IsNull(machine.GetGlobalObject("Rectangle"));
loader.LoadAndExecute(machine);
object obj = machine.GetGlobalObject("result");
Assert.IsNotNull(obj);
Assert.IsInstanceOfType(obj, typeof(IObject));
IObject iobj = (IObject)obj;
Assert.AreEqual(10, iobj[0]);
Assert.AreEqual(20, iobj[1]);
}
public void DuplicateClassInOtherMachine()
{
Loader loader = new Loader(@"DefineRectangleWithNewAndInitialize.st", new SimpleCompiler());
Machine machine = new Machine();
loader.LoadAndExecute(machine);
BaseClass rectangle = (BaseClass)machine.GetGlobalObject("Rectangle");
string output = rectangle.ToOutputString();
Loader loader2 = new Loader(new StringReader(output), new VmCompiler());
Machine machine2 = new Machine();
loader2.LoadAndExecute(machine2);
BaseClass rectangle2 = (BaseClass)machine2.GetGlobalObject("Rectangle");
Assert.IsNotNull(rectangle2);
Assert.IsNotNull(rectangle2.GetClassMethod("new"));
Assert.IsNotNull(rectangle2.GetInstanceMethod("x"));
Assert.IsNotNull(rectangle2.GetInstanceMethod("y"));
Assert.IsNotNull(rectangle2.GetInstanceMethod("x:"));
Assert.IsNotNull(rectangle2.GetInstanceMethod("y:"));
Assert.IsNotNull(rectangle2.GetInstanceMethod("initialize"));
Parser parser = new Parser("Rectangle new");
Block block = parser.CompileBlock();
object result = block.Execute(machine2, null);
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(IObject));
IObject iobj = (IObject)result;
Assert.AreEqual(10, iobj[0]);
Assert.AreEqual(20, iobj[1]);
}
public void LoadRemotingHostServer()
{
Loader loader = new Loader(@"RemotingHostServer.st", new SimpleCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
object result = machine.GetGlobalObject("host");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(RemotingHostServer));
RemotingHostServer host = (RemotingHostServer)result;
Loader loader2 = new Loader(@"RemotingHostClient.st", new SimpleCompiler());
Machine machine2 = CreateMachine();
loader2.LoadAndExecute(machine2);
Assert.IsNotNull(machine2.GetGlobalObject("Rectangle"));
Assert.IsNotNull(host.Machine.GetGlobalObject("Rectangle"));
object obj1 = machine2.GetGlobalObject("rect");
object obj2 = host.Machine.GetGlobalObject("rect");
Assert.IsNotNull(obj1);
Assert.IsNotNull(obj2);
Assert.IsInstanceOfType(obj1, typeof(IObject));
Assert.IsInstanceOfType(obj2, typeof(IObject));
IObject rect1 = (IObject)obj1;
IObject rect2 = (IObject)obj2;
Assert.AreEqual(200, rect1[0]);
Assert.AreEqual(30, rect1[1]);
Assert.AreEqual(300, rect2[0]);
Assert.AreEqual(40, rect2[1]);
host.Stop();
}
public void LoadPharoKernelClassesSkippingReservedMethods()
{
Loader loaderlib = new Loader(@"Library2.st", new SimpleCompiler());
Loader loaderobj = new Loader(@"PharoCoreKernelObjects.st", new SimpleCompiler());
Loader loader = new Loader(@"PharoKernelClasses.st", new SimpleCompiler());
Machine machine = CreateMachine();
loaderlib.LoadAndExecute(machine);
object result = machine.GetGlobalObject("Object");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
result = machine.GetGlobalObject("Behavior");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
var cls = (BaseClass)result;
Assert.IsNotNull(cls.GetInstanceMethod("uses:instanceVariableNames:"));
Assert.IsNotNull(cls.GetInstanceMethod("subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category:"));
loaderobj.LoadAndExecute(machine);
loader.LoadAndExecute(machine);
result = machine.GetGlobalObject("ProtoObject");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
result = machine.GetGlobalObject("Boolean");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
result = machine.GetGlobalObject("UndefinedObject");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
}
public void LoadLibrary()
{
Loader loader = new Loader(@"Library1.st", new VmCompiler());
Machine machine = CreateMachine();
Assert.IsNull(machine.GetGlobalObject("Object"));
Assert.IsNull(machine.GetGlobalObject("Behavior"));
Assert.IsNull(machine.GetGlobalObject("ClassDescription"));
Assert.IsNull(machine.GetGlobalObject("Class"));
Assert.IsNull(machine.GetGlobalObject("Metaclass"));
loader.LoadAndExecute(machine);
Assert.IsNotNull(machine.GetGlobalObject("Object"));
Assert.IsNotNull(machine.GetGlobalObject("Behavior"));
Assert.IsNotNull(machine.GetGlobalObject("ClassDescription"));
Assert.IsNotNull(machine.GetGlobalObject("Class"));
Assert.IsNotNull(machine.GetGlobalObject("Metaclass"));
}
public void LoadLibraryWithBootstrap()
{
Loader loader = new Loader(@"Library1.st", new VmCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
IClass objclass = (IClass)machine.GetGlobalObject("Object");
IClass behaviorclass = (IClass)machine.GetGlobalObject("Behavior");
IClass classdescriptionclass = (IClass)machine.GetGlobalObject("ClassDescription");
IClass classclass = (IClass)machine.GetGlobalObject("Class");
IClass metaclassclass = (IClass)machine.GetGlobalObject("Metaclass");
Assert.AreEqual(objclass, behaviorclass.SuperClass);
Assert.AreEqual(behaviorclass, classdescriptionclass.SuperClass);
Assert.AreEqual(classdescriptionclass, classclass.SuperClass);
Assert.AreEqual(classdescriptionclass, metaclassclass.SuperClass);
Assert.IsNotNull(objclass.MetaClass);
Assert.IsNotNull(behaviorclass.MetaClass);
Assert.IsNotNull(classdescriptionclass.MetaClass);
Assert.IsNotNull(classclass.MetaClass);
Assert.IsNotNull(metaclassclass.MetaClass);
Assert.AreEqual(objclass.MetaClass, behaviorclass.MetaClass.SuperClass);
Assert.AreEqual(behaviorclass.MetaClass, classdescriptionclass.MetaClass.SuperClass);
Assert.AreEqual(classdescriptionclass.MetaClass, classclass.MetaClass.SuperClass);
Assert.AreEqual(classdescriptionclass.MetaClass, metaclassclass.MetaClass.SuperClass);
Assert.AreEqual(metaclassclass, objclass.MetaClass.Behavior);
Assert.AreEqual(metaclassclass, behaviorclass.MetaClass.Behavior);
Assert.AreEqual(metaclassclass, classdescriptionclass.MetaClass.Behavior);
Assert.AreEqual(metaclassclass, classclass.MetaClass.Behavior);
Assert.AreEqual(metaclassclass, metaclassclass.MetaClass.Behavior);
// TODO objclass super should be nil == null, now is object nil
// Assert.IsNull(objclass.SuperClass);
Assert.IsNotNull(objclass.MetaClass.SuperClass);
Assert.AreEqual(classclass, objclass.MetaClass.SuperClass);
}
public void LoadNativeFileInfo()
{
Loader loader = new Loader(@"NativeFileInfo.st", new VmCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
object result = machine.GetGlobalObject("myFileInfo");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(FileInfo));
Assert.IsFalse((bool)machine.GetGlobalObject("result"));
}
public void ExecuteSetDotNetObjectFile()
{
Loader loader = new Loader(@"SetDotNetObject.st", new VmCompiler());
Machine machine = new Machine();
loader.LoadAndExecute(machine);
object obj = machine.GetGlobalObject("FileInfo");
Assert.IsNotNull(obj);
Assert.IsInstanceOfType(obj, typeof(System.IO.FileInfo));
}
public void LoadObject()
{
Machine machine = CreateMachine();
Loader loader = new Loader(@"Object.st", new VmCompiler());
loader.LoadAndExecute(machine);
loader = new Loader(@"ObjectTest.st", new VmCompiler());
loader.LoadAndExecute(machine);
object obj = machine.GetGlobalObject("Object");
Assert.IsNotNull(obj);
Assert.IsInstanceOfType(obj, typeof(IClass));
IClass cls = (IClass)obj;
Assert.IsNotNull(cls.GetClassMethod("new"));
Assert.IsNotNull(cls.GetClassMethod("basicNew"));
object result = machine.GetGlobalObject("result");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(IObject));
Assert.AreEqual(cls, ((IObject)result).Behavior);
object rcls = machine.GetGlobalObject("resultclass");
Assert.AreEqual(cls, rcls);
Assert.AreEqual(true, machine.GetGlobalObject("aresame"));
Assert.AreEqual(false, machine.GetGlobalObject("arenotsame"));
Assert.AreEqual(true, machine.GetGlobalObject("areequal"));
Assert.AreEqual(false, machine.GetGlobalObject("arenotequal"));
Assert.AreEqual(false, machine.GetGlobalObject("notaresame"));
Assert.AreEqual(true, machine.GetGlobalObject("notarenotsame"));
Assert.AreEqual(false, machine.GetGlobalObject("notareequal"));
Assert.AreEqual(true, machine.GetGlobalObject("notarenotequal"));
}
public void LoadNativeRectangle()
{
Loader loader = new Loader(@"NativeRectangle.st", new VmCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
object result1 = machine.GetGlobalObject("Rectangle");
Assert.IsNotNull(result1);
Assert.IsInstanceOfType(result1, typeof(NativeBehavior));
object result2 = machine.GetGlobalObject("rect");
Assert.IsNotNull(result2);
Assert.IsInstanceOfType(result2, typeof(Rectangle));
object result = machine.GetGlobalObject("result");
Assert.AreEqual(200, result);
}
public void ExecuteSetObjectsFile()
{
Loader loader = new Loader(@"SetObjects.st", new VmCompiler());
Machine machine = new Machine();
loader.LoadAndExecute(machine);
Assert.AreEqual(1, machine.GetGlobalObject("One"));
Assert.AreEqual(2, machine.GetGlobalObject("Two"));
}
public void LoadPharoCoreRectangle()
{
Loader loaderlib = new Loader(@"Library2.st", new VmCompiler());
Loader loader = new Loader(@"PharoCoreRectangle.st", new VmCompiler());
Machine machine = CreateMachine();
loaderlib.LoadAndExecute(machine);
loader.LoadAndExecute(machine);
object result = machine.GetGlobalObject("Rectangle");
Assert.IsNotNull(result);
Assert.IsInstanceOfType(result, typeof(BaseClass));
}
public void ExecuteTwoCommands()
{
Loader loader = new Loader(new StringReader("a := 1. b := 2"), new VmCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
Assert.AreEqual(1, machine.GetGlobalObject("a"));
Assert.AreEqual(2, machine.GetGlobalObject("b"));
}
public void ReviewClassGraph()
{
Loader loader = new Loader(@"Library1.st", new VmCompiler());
Machine machine = CreateMachine();
loader.LoadAndExecute(machine);
IBehavior objclass = (IBehavior)machine.GetGlobalObject("Object");
Assert.IsNotNull(objclass);
Assert.IsNotNull(objclass.Behavior);
Assert.IsNotNull(objclass.MetaClass);
Assert.IsNull(objclass.SuperClass);
IBehavior behclass = (IBehavior)machine.GetGlobalObject("Behavior");
Assert.IsNotNull(behclass);
Assert.IsNotNull(behclass.Behavior);
Assert.IsNotNull(behclass.MetaClass);
Assert.IsNotNull(behclass.SuperClass);
Assert.AreEqual(objclass, behclass.SuperClass);
Assert.AreEqual(objclass.MetaClass, behclass.MetaClass.SuperClass);
IClassDescription classdes = (IClassDescription)machine.GetGlobalObject("ClassDescription");
Assert.IsNotNull(classdes);
Assert.IsNotNull(classdes.Behavior);
Assert.IsNotNull(classdes.MetaClass);
Assert.IsNotNull(classdes.SuperClass);
Assert.AreEqual(behclass, classdes.SuperClass);
Assert.AreEqual(behclass.MetaClass, classdes.MetaClass.SuperClass);
IClass clazz = (IClass)machine.GetGlobalObject("Class");
Assert.IsNotNull(clazz);
Assert.IsNotNull(clazz.Behavior);
Assert.IsNotNull(clazz.MetaClass);
Assert.IsNotNull(clazz.SuperClass);
Assert.AreEqual(classdes, clazz.SuperClass);
Assert.AreEqual(classdes.MetaClass, clazz.MetaClass.SuperClass);
}
public void LoadFile(string filename)
{
filename = this.GetFilename(filename);
string originalpath = currentPath;
string filepath = (new FileInfo(filename)).DirectoryName;
try
{
currentPath = filepath;
Loader loader = new Loader(filename, new SimpleCompiler());
loader.LoadAndExecute(this);
}
finally
{
currentPath = originalpath;
}
}