Changeset 37f527b in mainline for uspace/dist/sysel/list.sy

Timestamp:

2010-03-26T21:55:23Z (14 years ago)

Author:

Jiri Svoboda <jiri@…>

Branches:

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

Children:

4204ad9

Parents:

b535aeb

Message:

Update SBI to rev. 144.

File:

• uspace/dist/sysel/list.sy (modified) (7 diffs)

uspace/dist/sysel/list.sy

@@ -27 +27 @@
 --
 
+-- Doubly-linked list implementation.
 class List is
         var head : ListNode;
 
+        -- Initialize list.
         fun Init() is
                 head = new ListNode();
@@ -36 +38 @@
         end
 
+        -- Append new entry at the end of the list.
         fun Append(data : int) is
                 var n : ListNode;
@@ -53 +56 @@
         end
 
-        fun GetFirst() : ListNode is
-                return head.next;
+        -- Return first node in the list or @c nil if there is none.
+        prop First : ListNode is
+                get is
+                    return get_first();
+                end
+        end
+
+        -- Return first node in the list or @c nil if there is none.
+        fun get_first() : ListNode is
+                if head.next == head then
+                        return nil;
+                else
+                        return head.next;
+                end
         end
 end
@@ -65 +80 @@
         var head : ListNode;
 
-        fun GetNext() : ListNode is
+        -- Value stored in this node.
+        prop Value : int is
+                get is
+                        return value;
+                end
+        end
+
+        -- Previous node in list.
+        prop Prev : ListNode is
+                get is
+                        return get_prev();
+                end
+        end
+
+        -- Next node in list.
+        prop Next : ListNode is
+                get is
+                        return get_next();
+                end
+        end
+
+        -- Get next node.
+        fun get_next() : ListNode is
                 if next != head then
                         return next;
@@ -73 +110 @@
         end
 
-        fun GetPrev() : ListNode is
+        -- Get previous node.
+        fun get_prev() : ListNode is
                 if prev != head then
                         return next;
@@ -81 +119 @@
         end
 
-        fun GetValue() : int is
-                return value;
-        end
 end
 
@@ -100 +135 @@
                 var n : ListNode;
 
-                n = list.GetFirst();
+                n = list.First;
                 while n != nil do
                         Builtin.WriteLine(n.value);
-                        n = n.GetNext();
+                        n = n.Next;
                 end
         end