Changeset 94d484a in mainline for uspace/dist/sysel/list.sy
- Timestamp:
- 2010-03-07T17:45:33Z (14 years ago)
- Branches:
- lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export
- Children:
- d0febca
- Parents:
- fa36f29
- 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 -- 29 28 30 29 class List is … … 59 58 end 60 59 60 class 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 86 end 87 61 88 class ListDemo is 62 89 fun Main() is
Note:
See TracChangeset
for help on using the changeset viewer.