Changes in libcfa/src/bits/sequence.hfa [7d4ce2a:8a81b09]

File:

• libcfa/src/bits/sequence.hfa (modified) (7 diffs)

libcfa/src/bits/sequence.hfa

@@ -2 +2 @@
 
 #include "bits/collection.hfa"
+#include "bits/defs.hfa"
 
 struct Seqable {
-        inline Colable;
-        Seqable * back;                                                                         // pointer to previous node in the list
+        __cfa_anonymous_object(Colable);
+        struct Seqable * back;                                                                          // pointer to previous node in the list
 };
 
-inline {
+#ifdef __cforall
+static inline {
         // PUBLIC
 
@@ -26 +28 @@
         }
 
-        // wrappers to make Collection have T
-        forall( dtype T ) {
-                T *& Back( T * n ) {
-                        return (T *)Back( (Seqable *)n );
-                }
-        } // distribution
+        // // wrappers to make Collection have T
+        // forall( dtype T ) {
+        //      T *& Back( T * n ) {
+        //              return (T *)Back( (Seqable *)n );
+        //      }
+        // } // distribution
 } // distribution
 
-forall( dtype T ) {
+forall( dtype T | { T *& Back ( T * ); T *& Next ( T * ); bool listed ( T * ); } ) {
         struct Sequence {
                 inline Collection;                                                              // Plan 9 inheritance
         };
 
-        inline {
+        static inline {
                 // wrappers to make Collection have T
                 T & head( Sequence(T) & s ) with( s ) {
@@ -184 +186 @@
                                 T * toEnd = Back( &head( s ) );
                                 T * fromEnd = Back( &head( from ) );
-                                Back( root ) = fromEnd;
+                                Back( (T *)root ) = fromEnd;
                                 Next( fromEnd ) = &head( s );
-                                Back( from.root ) = toEnd;
+                                Back( (T *)from.root ) = toEnd;
                                 Next( toEnd ) = &head( from );
                         } // if
@@ -214 +216 @@
 } // distribution
 
-forall( dtype T ) {
+forall( dtype T | { T *& Back ( T * ); T *& Next ( T * ); bool listed ( T * ); } ) {
         // SeqIter(T) is used to iterate over a Sequence(T) in head-to-tail order.
         struct SeqIter {
@@ -224 +226 @@
         };
 
-        inline {
+        static inline {
                 void ?{}( SeqIter(T) & si ) with( si ) {
                         ((ColIter &)si){};
@@ -265 +267 @@
         };
 
-        inline {
+        static inline {
                 void ?{}( SeqIterRev(T) & si ) with( si ) {     
                         ((ColIter &)si){};
@@ -298 +300 @@
         } // distribution
 } // distribution
+
+#endif