Changeset 94d484a in mainline for uspace/dist/sysel/list.sy


Ignore:
Timestamp:
2010-03-07T17:45:33Z (14 years ago)
Author:
Jiri Svoboda <jiri@…>
Branches:
lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export
Children:
d0febca
Parents:
fa36f29
Message:

Update SBI to rev. 90.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • uspace/dist/sysel/list.sy

    rfa36f29 r94d484a  
    1 
    2 class ListNode is
    3         var value : int;
    4 
    5         var prev : ListNode;
    6         var next : ListNode;
    7         var head : ListNode;
    8 
    9         fun GetNext() : ListNode is
    10                 if next != head then
    11                         return next;
    12                 else
    13                         return nil;
    14                 end
    15         end
    16 
    17         fun GetPrev() : ListNode is
    18                 if prev != head then
    19                         return next;
    20                 else
    21                         return nil;
    22                 end
    23         end
    24 
    25         fun GetValue() : int is
    26                 return value;
    27         end
    28 end
     1--
     2-- Copyright (c) 2010 Jiri Svoboda
     3-- All rights reserved.
     4--
     5-- Redistribution and use in source and binary forms, with or without
     6-- modification, are permitted provided that the following conditions
     7-- are met:
     8--
     9-- o Redistributions of source code must retain the above copyright
     10--   notice, this list of conditions and the following disclaimer.
     11-- o Redistributions in binary form must reproduce the above copyright
     12--   notice, this list of conditions and the following disclaimer in the
     13--   documentation and/or other materials provided with the distribution.
     14-- o The name of the author may not be used to endorse or promote products
     15--   derived from this software without specific prior written permission.
     16--
     17-- THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     18-- IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     19-- OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     20-- IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     21-- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     22-- NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     23-- DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     24-- THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     25-- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     26-- THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     27--
    2928
    3029class List is
     
    5958end
    6059
     60class ListNode is
     61        var value : int;
     62
     63        var prev : ListNode;
     64        var next : ListNode;
     65        var head : ListNode;
     66
     67        fun GetNext() : ListNode is
     68                if next != head then
     69                        return next;
     70                else
     71                        return nil;
     72                end
     73        end
     74
     75        fun GetPrev() : ListNode is
     76                if prev != head then
     77                        return next;
     78                else
     79                        return nil;
     80                end
     81        end
     82
     83        fun GetValue() : int is
     84                return value;
     85        end
     86end
     87
    6188class ListDemo is
    6289        fun Main() is
Note: See TracChangeset for help on using the changeset viewer.