Changeset 1780

Timestamp:

11/25/08 06:08:11 (22 months 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)