From 4fe9f5e8257770a6b1de1aa94748609acd37f0f6 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 3 Aug 2015 00:49:38 -0700 Subject: 1925 --- html/065duplex_list.mu.html | 120 ++++++++++++++++++++++---------------------- 1 file changed, 60 insertions(+), 60 deletions(-) (limited to 'html/065duplex_list.mu.html') diff --git a/html/065duplex_list.mu.html b/html/065duplex_list.mu.html index cbae7303..50ccbc35 100644 --- a/html/065duplex_list.mu.html +++ b/html/065duplex_list.mu.html @@ -13,14 +13,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; } body { font-family: monospace; color: #eeeeee; background-color: #080808; } * { font-size: 1.05em; } +.muControl { color: #c0a020; } .muRecipe { color: #ff8700; } -.Delimiter { color: #a04060; } .muScenario { color: #00af00; } .Comment { color: #9090ff; } .Constant { color: #00a0a0; } .Special { color: #ff6060; } .CommentedCode { color: #6c6c6c; } -.muControl { color: #c0a020; } +.Delimiter { color: #a04060; } --> @@ -45,13 +45,13 @@ container duplex-list [ local-scope x:location <- next-ingredient in:address:duplex-list <- next-ingredient - result:address:duplex-list <- new duplex-list:type - val:address:location <- get-address *result, value:offset + result:address:duplex-list <- new duplex-list:type + val:address:location <- get-address *result, value:offset *val <- copy x - next:address:address:duplex-list <- get-address *result, next:offset + next:address:address:duplex-list <- get-address *result, next:offset *next <- copy in reply-unless in, result - prev:address:address:duplex-list <- get-address *in, prev:offset + prev:address:address:duplex-list <- get-address *in, prev:offset *prev <- copy result reply result ] @@ -61,7 +61,7 @@ container duplex-list [ local-scope in:address:duplex-list <- next-ingredient reply-unless in, 0 - result:location <- get *in, value:offset + result:location <- get *in, value:offset reply result ] @@ -70,7 +70,7 @@ container duplex-list [ local-scope in:address:duplex-list <- next-ingredient reply-unless in, 0 - result:address:duplex-list <- get *in, next:offset + result:address:duplex-list <- get *in, next:offset reply result ] @@ -79,7 +79,7 @@ container duplex-list [ local-scope in:address:duplex-list <- next-ingredient reply-unless in, 0 - result:address:duplex-list <- get *in, prev:offset + result:address:duplex-list <- get *in, prev:offset reply result ] @@ -93,19 +93,19 @@ container duplex-list [ 3:address:duplex-list <- push-duplex 4, 3:address:duplex-list 3:address:duplex-list <- push-duplex 5, 3:address:duplex-list 4:address:duplex-list <- copy 3:address:duplex-list - 5:number <- first 4:address:duplex-list + 5:number <- first-duplex 4:address:duplex-list 4:address:duplex-list <- next-duplex 4:address:duplex-list - 6:number <- first 4:address:duplex-list + 6:number <- first-duplex 4:address:duplex-list 4:address:duplex-list <- next-duplex 4:address:duplex-list - 7:number <- first 4:address:duplex-list + 7:number <- first-duplex 4:address:duplex-list 8:address:duplex-list <- next-duplex 4:address:duplex-list - 9:number <- first 8:address:duplex-list + 9:number <- first-duplex 8:address:duplex-list 10:address:duplex-list <- next-duplex 8:address:duplex-list 11:address:duplex-list <- prev-duplex 8:address:duplex-list 4:address:duplex-list <- prev-duplex 4:address:duplex-list - 12:number <- first 4:address:duplex-list + 12:number <- first-duplex 4:address:duplex-list 4:address:duplex-list <- prev-duplex 4:address:duplex-list - 13:number <- first 4:address:duplex-list + 13:number <- first-duplex 4:address:duplex-list 14:boolean <- equal 3:address:duplex-list, 4:address:duplex-list #? $dump-trace #? 1 ] @@ -132,23 +132,23 @@ container duplex-list [ local-scope x:location <- next-ingredient in:address:duplex-list <- next-ingredient - new-node:address:duplex-list <- new duplex-list:type - val:address:location <- get-address *new-node, value:offset + new-node:address:duplex-list <- new duplex-list:type + val:address:location <- get-address *new-node, value:offset *val <- copy x - next-node:address:duplex-list <- get *in, next:offset + next-node:address:duplex-list <- get *in, next:offset # in.next = new-node - y:address:address:duplex-list <- get-address *in, next:offset + y:address:address:duplex-list <- get-address *in, next:offset *y <- copy new-node # new-node.prev = in - y <- get-address *new-node, prev:offset + y <- get-address *new-node, prev:offset *y <- copy in # new-node.next = next-node - y <- get-address *new-node, next:offset + y <- get-address *new-node, next:offset *y <- copy next-node # if next-node is not null reply-unless next-node, new-node # next-node.prev = new-node - y <- get-address *next-node, prev:offset + y <- get-address *next-node, prev:offset *y <- copy new-node reply new-node # just signalling something changed; don't rely on the result ] @@ -163,19 +163,19 @@ container duplex-list [ 2:address:duplex-list <- insert-duplex 6, 2:address:duplex-list # check structure like before 2:address:duplex-list <- copy 1:address:duplex-list - 3:number <- first 2:address:duplex-list + 3:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 4:number <- first 2:address:duplex-list + 4:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 5:number <- first 2:address:duplex-list + 5:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 6:number <- first 2:address:duplex-list + 6:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 7:number <- first 2:address:duplex-list + 7:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 8:number <- first 2:address:duplex-list + 8:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 9:number <- first 2:address:duplex-list + 9:number <- first-duplex 2:address:duplex-list 10:boolean <- equal 1:address:duplex-list, 2:address:duplex-list ] memory-should-contain [ @@ -201,19 +201,19 @@ container duplex-list [ 2:address:duplex-list <- insert-duplex 6, 2:address:duplex-list # check structure like before 2:address:duplex-list <- copy 1:address:duplex-list - 3:number <- first 2:address:duplex-list + 3:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 4:number <- first 2:address:duplex-list + 4:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 5:number <- first 2:address:duplex-list + 5:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 6:number <- first 2:address:duplex-list + 6:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 7:number <- first 2:address:duplex-list + 7:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 8:number <- first 2:address:duplex-list + 8:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 9:number <- first 2:address:duplex-list + 9:number <- first-duplex 2:address:duplex-list 10:boolean <- equal 1:address:duplex-list, 2:address:duplex-list ] memory-should-contain [ @@ -237,19 +237,19 @@ container duplex-list [ 2:address:duplex-list <- insert-duplex 6, 1:address:duplex-list # check structure like before 2:address:duplex-list <- copy 1:address:duplex-list - 3:number <- first 2:address:duplex-list + 3:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 4:number <- first 2:address:duplex-list + 4:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 5:number <- first 2:address:duplex-list + 5:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 6:number <- first 2:address:duplex-list + 6:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 7:number <- first 2:address:duplex-list + 7:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 8:number <- first 2:address:duplex-list + 8:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 9:number <- first 2:address:duplex-list + 9:number <- first-duplex 2:address:duplex-list 10:boolean <- equal 1:address:duplex-list, 2:address:duplex-list ] memory-should-contain [ @@ -275,25 +275,25 @@ container duplex-list [ in:address:duplex-list <- next-ingredient # if 'in' is null, return reply-unless in, in - next-node:address:duplex-list <- get *in, next:offset - prev-node:address:duplex-list <- get *in, prev:offset + next-node:address:duplex-list <- get *in, next:offset + prev-node:address:duplex-list <- get *in, prev:offset # null in's pointers - x:address:address:duplex-list <- get-address *in, next:offset + x:address:address:duplex-list <- get-address *in, next:offset *x <- copy 0 - x <- get-address *in, prev:offset + x <- get-address *in, prev:offset *x <- copy 0 { # if next-node is not null break-unless next-node # next-node.prev = prev-node - x <- get-address *next-node, prev:offset + x <- get-address *next-node, prev:offset *x <- copy prev-node } { # if prev-node is not null break-unless prev-node # prev-node.next = next-node - x <- get-address *prev-node, next:offset + x <- get-address *prev-node, next:offset *x <- copy next-node reply prev-node } @@ -311,12 +311,12 @@ container duplex-list [ 3:boolean <- equal 2:address:duplex-list, 0 # check structure like before 2:address:duplex-list <- copy 1:address:duplex-list - 4:number <- first 2:address:duplex-list + 4:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 5:number <- first 2:address:duplex-list + 5:number <- first-duplex 2:address:duplex-list 6:address:duplex-list <- next-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 7:number <- first 2:address:duplex-list + 7:number <- first-duplex 2:address:duplex-list 8:boolean <- equal 1:address:duplex-list, 2:address:duplex-list ] memory-should-contain [ @@ -339,12 +339,12 @@ container duplex-list [ 1:address:duplex-list <- remove-duplex 1:address:duplex-list # check structure like before 2:address:duplex-list <- copy 1:address:duplex-list - 3:number <- first 2:address:duplex-list + 3:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 4:number <- first 2:address:duplex-list + 4:number <- first-duplex 2:address:duplex-list 5:address:duplex-list <- next-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 6:number <- first 2:address:duplex-list + 6:number <- first-duplex 2:address:duplex-list 7:boolean <- equal 1:address:duplex-list, 2:address:duplex-list ] memory-should-contain [ @@ -369,12 +369,12 @@ container duplex-list [ 3:boolean <- equal 2:address:duplex-list, 0 # check structure like before 2:address:duplex-list <- copy 1:address:duplex-list - 4:number <- first 2:address:duplex-list + 4:number <- first-duplex 2:address:duplex-list 2:address:duplex-list <- next-duplex 2:address:duplex-list - 5:number <- first 2:address:duplex-list + 5:number <- first-duplex 2:address:duplex-list 6:address:duplex-list <- next-duplex 2:address:duplex-list 2:address:duplex-list <- prev-duplex 2:address:duplex-list - 7:number <- first 2:address:duplex-list + 7:number <- first-duplex 2:address:duplex-list 8:boolean <- equal 1:address:duplex-list, 2:address:duplex-list ] memory-should-contain [ @@ -392,8 +392,8 @@ container duplex-list [ 1:address:duplex-list <- copy 0 # 1 points to singleton list 1:address:duplex-list <- push-duplex 3, 1:address:duplex-list 2:address:duplex-list <- remove-duplex 1:address:duplex-list - 3:address:duplex-list <- get *1:address:duplex-list, next:offset - 4:address:duplex-list <- get *1:address:duplex-list, prev:offset + 3:address:duplex-list <- get *1:address:duplex-list, next:offset + 4:address:duplex-list <- get *1:address:duplex-list, prev:offset ] memory-should-contain [ 2 <- 0 # remove returned null -- cgit 1.4.1-2-gfad0