Changeset 1780

Timestamp:

11/25/08 06:08:11 (3 years ago)

Author:

Chuck.Esterbrook

Message:

Fixed: Cannot use for expressions on non-generic enumerables.
ticket:85

Location:

cobra/trunk

Files:

• Developer/IntermediateReleaseNotes.text (modified) (1 diff)
• Source/Cobra.Lang/Native.cs (modified) (1 diff)
• Tests/240-generics/100-use-generics-collections/610-for-expr-generic-list.cobra (modified) (1 diff)

cobra/trunk/Developer/IntermediateReleaseNotes.text

@@ -226 +226 @@
 
 * Fixed: Cannot properly invoke delegates whose delegate types come from binary libraries.
+
+* Fixed: Cannot use `for` expressions on non-generic enumerables. ticket:85

cobra/trunk/Source/Cobra.Lang/Native.cs

@@ -758 +758 @@
     }
 
+    static public List<TOut> For<TIn, TOut>(IEnumerable list, ForGet<TIn, TOut> forGet) {
+        List<TOut> results = new List<TOut>();
+        foreach (TIn item in list)
+            results.Add(forGet(item));
+        return results;
+    }
+
+    static public List<TOut> For<TIn, TOut>(IEnumerable list, ForWhereGet<TIn, TOut> forWhereGet) {
+        List<TOut> results = new List<TOut>();
+        foreach (TIn item in list) {
+            TOut value;
+            if (forWhereGet(item, out value))
+                results.Add(value);
+        }
+        return results;
+    }
+
     static private void ProcessGetSliceArgs(int count, ref int? start, ref int? stop, ref int? step) {
         if (start==null)

cobra/trunk/Tests/240-generics/100-use-generics-collections/610-for-expr-generic-list.cobra

@@ -47 +47 @@
         words = for word in words where word <> 'asdf'   # assign for expr back to source variable
         assert words == ['aoeu']
+
+        # okay sneak in a non-generic for expr
+        ie as System.Collections.IEnumerable = [1, 2, 3]
+        assert [2, 4, 6] == for i in ie get 2*(i to int)
+        assert [4, 6] == for i in ie where (i to int) > 1 get 2*(i to int)