about summary refs log tree commit diff stats
path: root/lil/play.lil
Commit message (Expand)AuthorAgeFilesLines
* fixed to support more modern versions of lilelioat2023-11-151-1/+1
* *elioat2022-10-281-0/+2
* *elioat2022-10-281-0/+56
s='alt'>
f0fbbf79 ^
4c3e1f07 ^

455fbac6 ^
87ef6a67 ^

1ead3562 ^
77d5b5d6 ^
4c3e1f07 ^
455fbac6 ^
81b6ab03 ^
1ead3562 ^
87ef6a67 ^

1ead3562 ^
77d5b5d6 ^
4c3e1f07 ^

87ef6a67 ^

1ead3562 ^
77d5b5d6 ^
4c3e1f07 ^



87ef6a67 ^

455fbac6 ^








87ef6a67 ^







fca48e92 ^
1ead3562 ^
fca48e92 ^
fca48e92 ^
455fbac6 ^
fca48e92 ^



afb467ea ^
1ead3562 ^
afb467ea ^
afb467ea ^
455fbac6 ^
afb467ea ^



1ead3562 ^
fca48e92 ^
fca48e92 ^


fca48e92 ^
1ead3562 ^
fca48e92 ^




455fbac6 ^
fca48e92 ^
1ead3562 ^
44bab2e4 ^
fca48e92 ^
afb467ea ^




1ead3562 ^
afb467ea ^





1ead3562 ^
afb467ea ^

44bab2e4 ^
fca48e92 ^
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

                                                                          

                                                                              
 

                      
                                

 
                                                                                
             
                  
                                                              
                        
                                                                                  

 
                                                        
             

                                 

 
                                                                                           
             



                                

                        








                                                                        







                                            
 
                                                                                   
             
                  
                                            



                               
                                                                                             
                                                                                        
             
                  
                                            



                                                        
                                                                                                    
             


                  
                           
          




                                    
                                           
                           
                    
                           
               




                                                                         
          





                                         
          

                                                  
                   
 
# A list links up multiple objects together to make them easier to manage.
#
# The objects must be of the same type. If you want to store multiple types in
# a single list, use an exclusive-container.

container list:_elem [
  value:_elem
  next:address:shared:list:_elem
]

def push x:_elem, in:address:shared:list:_elem -> in:address:shared:list:_elem [
  local-scope
  load-ingredients
  result:address:shared:list:_elem <- new {(list _elem): type}
  *result <- merge x, in
  return result  # needed explicitly because we need to replace 'in' with 'result'
]

def first in:address:shared:list:_elem -> result:_elem [
  local-scope
  load-ingredients
  result <- get *in, value:offset
]

def rest in:address:shared:list:_elem -> result:address:shared:list:_elem/contained-in:in [
  local-scope
  load-ingredients
  result <- get *in, next:offset
]

scenario list-handling [
  run [
    1:address:shared:list:number <- push 3, 0
    1:address:shared:list:number <- push 4, 1:address:shared:list:number
    1:address:shared:list:number <- push 5, 1:address:shared:list:number
    2:number <- first 1:address:shared:list:number
    1:address:shared:list:number <- rest 1:address:shared:list:number
    3:number <- first 1:address:shared:list:number
    1:address:shared:list:number <- rest 1:address:shared:list:number
    4:number <- first 1:address:shared:list:number
    1:address:shared:list:number <- rest 1:address:shared:list:number
  ]
  memory-should-contain [
    1 <- 0  # empty to empty, dust to dust..
    2 <- 5
    3 <- 4
    4 <- 3
  ]
]

def to-text in:address:shared:list:_elem -> result:address:shared:array:character [
  local-scope
  load-ingredients
  buf:address:shared:buffer <- new-buffer 80
  buf <- to-buffer in, buf
  result <- buffer-to-array buf
]

# variant of 'to-text' which stops printing after a few elements (and so is robust to cycles)
def to-text-line in:address:shared:list:_elem -> result:address:shared:array:character [
  local-scope
  load-ingredients
  buf:address:shared:buffer <- new-buffer 80
  buf <- to-buffer in, buf, 6  # max elements to display
  result <- buffer-to-array buf
]

def to-buffer in:address:shared:list:_elem, buf:address:shared:buffer -> buf:address:shared:buffer [
  local-scope
  load-ingredients
  {
    break-if in
    buf <- append buf, 48/0
    return
  }
  # append in.value to buf
  val:_elem <- get *in, value:offset
  buf <- append buf, val
  # now prepare next
  next:address:shared:list:_elem <- rest in
  nextn:number <- copy next
  return-unless next
  buf <- append buf, [ -> ]
  # and recurse
  remaining:number, optional-ingredient-found?:boolean <- next-ingredient
  {
    break-if optional-ingredient-found?
    # unlimited recursion
    buf <- to-buffer next, buf
    return
  }
  {
    break-unless remaining
    # limited recursion
    remaining <- subtract remaining, 1
    buf <- to-buffer next, buf, remaining
    return
  }
  # past recursion depth; insert ellipses and stop
  append buf, [...]
]