Changeset 883fedc in mainline for uspace/dist/src/sysel/lib/list.sy

Timestamp:

2010-04-23T23:09:56Z (14 years ago)

Author:

Jiri Svoboda <jiri@…>

Branches:

lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export

Children:

37c9fc8

Parents:

80badbe (diff), 6c39a907 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge from lp:~jsvoboda/helenos/sysel. New: generic classes, autoboxing, delegates.

File:

• uspace/dist/src/sysel/lib/list.sy (modified) (9 diffs)

uspace/dist/src/sysel/lib/list.sy

@@ -27 +27 @@
 --
 
--- Doubly-linked non-generic list.
-class List is
-        var head : ListNode;
+-- Doubly-linked list.
+class List/t is
+        var head : ListNode/t;
 
         -- Initialize list.
         fun Init() is
-                head = new ListNode();
+                head = new ListNode/t();
                 head.prev = head;
                 head.next = head;
@@ -39 +39 @@
 
         -- Append new entry at the end of the list.
-        fun Append(data : Object) is
-                var n : ListNode;
-                var ntl : ListNode;
+        fun Append(data : t) is
+                var n : ListNode/t;
+                var ntl : ListNode/t;
 
                 ntl = head.prev;
 
-                n = new ListNode();
+                n = new ListNode/t();
                 n.value = data;
 
@@ -57 +57 @@
 
         -- Return first node in the list or @c nil if there is none.
-        prop First : ListNode is
+        prop First : ListNode/t is
                 get is
                     return get_first();
@@ -64 +64 @@
 
         -- Return first node in the list or @c nil if there is none.
-        fun get_first() : ListNode is
+        fun get_first() : ListNode/t is
                 if head.next == head then
                         return nil;
@@ -73 +73 @@
 end
 
-class ListNode is
-        var value : Object;
+class ListNode/t is
+        var value : t;
 
-        var prev : ListNode;
-        var next : ListNode;
-        var head : ListNode;
+        var prev : ListNode/t;
+        var next : ListNode/t;
+        var head : ListNode/t;
 
         -- Value stored in this node.
-        prop Value : Object is
+        prop Value : t is
                 get is
                         return value;
@@ -88 +88 @@
 
         -- Previous node in list.
-        prop Prev : ListNode is
+        prop Prev : ListNode/t is
                 get is
                         return get_prev();
@@ -95 +95 @@
 
         -- Next node in list.
-        prop Next : ListNode is
+        prop Next : ListNode/t is
                 get is
                         return get_next();
@@ -102 +102 @@
 
         -- Get next node.
-        fun get_next() : ListNode is
+        fun get_next() : ListNode/t is
                 if next != head then
                         return next;
@@ -111 +111 @@
 
         -- Get previous node.
-        fun get_prev() : ListNode is
+        fun get_prev() : ListNode/t is
                 if prev != head then
                         return next;