Add StringBuilder compiler support

IronScheme · Sep 15, 2019 · 8f7dcea · 8f7dcea
1 parent 0850577
commit 8f7dcea
Show file tree

Hide file tree

Showing 3 changed files with 35 additions and 0 deletions.
diff --git a/IronScheme/IronScheme/Compiler/Generator.cs b/IronScheme/IronScheme/Compiler/Generator.cs
@@ -16,6 +16,7 @@
 using Microsoft.Scripting.Utils;
 using BigInteger = Oyster.Math.IntX;
 using System.Reflection.Emit;
+using System.Text;
 
 namespace IronScheme.Compiler
 {
@@ -102,6 +103,11 @@ protected static Expression GetCons(object args, CodeBlock cb)
         SchemeChar f = (SchemeChar)args;
         return Ast.Constant(new SchemeCharConstant(f));
       }
+      else if (args is StringBuilder)
+      {
+        StringBuilder f = (StringBuilder)args;
+        return Ast.Constant(new StringBuilderConstant(f));
+      }
       else
       {
         if (args is long)

diff --git a/IronScheme/IronScheme/Compiler/IronSchemeConstant.cs b/IronScheme/IronScheme/Compiler/IronSchemeConstant.cs
@@ -15,6 +15,7 @@
 using Microsoft.Scripting.Generation;
 using BigInteger = Oyster.Math.IntX;
 using System.Diagnostics;
+using System.Text;
 
 namespace IronScheme.Compiler
 {
@@ -317,6 +318,32 @@ public override object Create()
     }
   }
 
+  sealed class StringBuilderConstant : CompilerConstant
+  {
+    readonly StringBuilder value;
+
+    public StringBuilderConstant(StringBuilder f)
+    {
+      value = f;
+    }
+
+    public override Type Type
+    {
+      get { return typeof(StringBuilder); }
+    }
+
+    public override void EmitCreation(CodeGen cg)
+    {
+      cg.EmitConstant(value.ToString());
+      cg.EmitNew(typeof(StringBuilder), new Type[] { typeof(string) });
+    }
+
+    public override object Create()
+    {
+      return value;
+    }
+  }
+
   sealed class SchemeCharConstant : CompilerConstant
   {
     readonly SchemeChar value;

diff --git a/IronScheme/IronScheme/Runtime/Numbers.cs b/IronScheme/IronScheme/Runtime/Numbers.cs
@@ -604,6 +604,7 @@ static double SafeConvert(object obj)
       }
     }
 
+    // todo: this can probably be easily ported to Scheme
     //based on lsqrt()
     [Builtin("bignum-sqrt", AllowConstantFold = true)]
     public static object SqrtBigInteger(object num)
@@ -633,6 +634,7 @@ public static object SqrtBigInteger(object num)
       return x1;
     }
 
+    // todo: this can probably be easily ported to Scheme
     [Builtin("bignum-sqrt-exact", AllowConstantFold = true)]
     public static object ExactSqrtBigInteger(object num)
     {