Adding io:nl

ajlopez · Nov 30, 2014 · 22eb37f · 22eb37f
1 parent 189f225
commit 22eb37f
Show file tree

Hide file tree

Showing 5 changed files with 48 additions and 24 deletions.
diff --git a/Src/AjErl.Tests/EvaluateTests.cs b/Src/AjErl.Tests/EvaluateTests.cs
@@ -278,6 +278,15 @@ public void EvaluateIoWrite()
             Assert.AreEqual("foo", writer.ToString());
         }
 
+        [TestMethod]
+        public void EvaluateIoNl()
+        {
+            StringWriter writer = new StringWriter();
+            this.machine.TextWriter = writer;
+            this.EvaluateTo("io:nl().", "ok");
+            Assert.AreEqual("\r\n", writer.ToString());
+        }
+
         [TestMethod]
         public void EvaluateProcessConversation()
         {

diff --git a/Src/AjErl.Tests/StyleCop.Cache b/Src/AjErl.Tests/StyleCop.Cache
@@ -450,25 +450,25 @@
     <milliseconds>127</milliseconds>
     <violations />
   </sourcecode>
+  <project key="251411062">
+    <configuration>DEBUG;TRACE</configuration>
+  </project>
   <sourcecode name="InputChannelTests.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
     <settings>
       <timestamp>04/21/2013 17:40:52</timestamp>
       <milliseconds>643</milliseconds>
     </settings>
-    <timestamp>04/13/2014 07:11:14</timestamp>
-    <milliseconds>340</milliseconds>
+    <timestamp>05/17/2014 12:33:10</timestamp>
+    <milliseconds>395</milliseconds>
     <violations />
   </sourcecode>
-  <project key="251411062">
-    <configuration>DEBUG;TRACE</configuration>
-  </project>
   <sourcecode name="OutputChannelTests.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
     <settings>
       <timestamp>04/21/2013 17:40:52</timestamp>
       <milliseconds>643</milliseconds>
     </settings>
-    <timestamp>04/13/2014 07:15:07</timestamp>
-    <milliseconds>618</milliseconds>
+    <timestamp>04/26/2014 20:24:46</timestamp>
+    <milliseconds>187</milliseconds>
     <violations />
   </sourcecode>
 </stylecopresultscache>
diff --git a/Src/AjErl/Modules/IoModule.cs b/Src/AjErl/Modules/IoModule.cs
@@ -19,12 +19,20 @@ public IoModule(Machine machine)
             this.SetName("io");
             this.Context.SetValue("write/1", new FuncFunction(this.Write));
             this.AddExportNames(new string[] { "write/1" });
+            this.Context.SetValue("nl/0", new FuncFunction(this.Nl));
+            this.AddExportNames(new string[] { "nl/0" });
         }
 
         private object Write(Context context, IList<object> arguments)
         {
             this.machine.TextWriter.Write(Machine.ToString(arguments[0]));
             return this.ok;
         }
+
+        private object Nl(Context context, IList<object> arguments)
+        {
+            this.machine.TextWriter.WriteLine();
+            return this.ok;
+        }
     }
 }
diff --git a/Src/AjErl/StyleCop.Cache b/Src/AjErl/StyleCop.Cache
@@ -531,52 +531,52 @@
     <milliseconds>795</milliseconds>
     <violations />
   </sourcecode>
-  <project key="2025632572">
-    <configuration>DEBUG;TRACE</configuration>
-  </project>
-  <sourcecode name="InputChannel.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
+  <sourcecode name="ReceiveExpression.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
     <settings>
       <timestamp>04/21/2013 17:37:42</timestamp>
       <milliseconds>101</milliseconds>
     </settings>
-    <timestamp>04/13/2014 07:06:28</timestamp>
-    <milliseconds>65</milliseconds>
+    <timestamp>04/13/2014 06:34:10</timestamp>
+    <milliseconds>803</milliseconds>
     <violations />
   </sourcecode>
-  <sourcecode name="Types.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
+  <sourcecode name="Process.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
     <settings>
       <timestamp>04/21/2013 17:37:42</timestamp>
       <milliseconds>101</milliseconds>
     </settings>
-    <timestamp>04/13/2014 06:54:14</timestamp>
-    <milliseconds>672</milliseconds>
+    <timestamp>04/13/2014 06:33:31</timestamp>
+    <milliseconds>473</milliseconds>
     <violations />
   </sourcecode>
+  <project key="2025632572">
+    <configuration>DEBUG;TRACE</configuration>
+  </project>
   <sourcecode name="OutputChannel.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
     <settings>
       <timestamp>04/21/2013 17:37:42</timestamp>
       <milliseconds>101</milliseconds>
     </settings>
-    <timestamp>04/13/2014 06:57:41</timestamp>
-    <milliseconds>625</milliseconds>
+    <timestamp>04/26/2014 20:25:33</timestamp>
+    <milliseconds>120</milliseconds>
     <violations />
   </sourcecode>
-  <sourcecode name="ReceiveExpression.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
+  <sourcecode name="InputChannel.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
     <settings>
       <timestamp>04/21/2013 17:37:42</timestamp>
       <milliseconds>101</milliseconds>
     </settings>
-    <timestamp>04/13/2014 06:34:10</timestamp>
-    <milliseconds>803</milliseconds>
+    <timestamp>05/17/2014 12:33:10</timestamp>
+    <milliseconds>408</milliseconds>
     <violations />
   </sourcecode>
-  <sourcecode name="Process.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
+  <sourcecode name="Types.cs" parser="Microsoft.StyleCop.CSharp.CsParser">
     <settings>
       <timestamp>04/21/2013 17:37:42</timestamp>
       <milliseconds>101</milliseconds>
     </settings>
-    <timestamp>04/13/2014 06:33:31</timestamp>
-    <milliseconds>473</milliseconds>
+    <timestamp>04/26/2014 20:24:34</timestamp>
+    <milliseconds>937</milliseconds>
     <violations />
   </sourcecode>
 </stylecopresultscache>
diff --git a/Src/StyleCop.Cache b/Src/StyleCop.Cache
@@ -0,0 +1,7 @@
+<stylecopresultscache>
+  <version>10</version>
+  <project key="500189692">
+    <configuration>
+    </configuration>
+  </project>
+</stylecopresultscache>