Finish CLI

Tesses.CrossLang.Shell/src/webapp-test.tcross

@@ -0,0 +1,38 @@
+func Tesses.CrossLang.Shell.WebAppTest(dd)
+{
+    var port = 4206;
+
+    each(var item : dd.Options)
+    {
+        if(item.Key == "port")
+        {
+            var thePort = ParseLong(item.Value);
+            if(TypeOf(thePort) == "Long") port = thePort;
+        }
+    }
+
+
+    var pm = Tesses.CrossLang.PackageManager();
+    pm.Offline = false;
+    var bt = Tesses.CrossLang.BuildTool(pm);
+    
+           
+    var proj=bt.BuildProject(".");
+
+    var output = proj.Output;
+
+    var env = VM.CreateEnvironment({});
+    env.RegisterEverything();
+    env.LockRegister();
+
+    env.LoadFileWithDependencies(FS.Local,output);
+    var myArgs = [output.ToString()];
+    for(var i = 1; i < dd.Arguments.Count; i++)
+    {
+        myArgs.Add(dd.Arguments[i]);
+    }
+    var res = env.GetDictionary().WebAppMain(myArgs);
+
+
+    Net.Http.ListenSimpleWithLoop(res, port);
+}