## putting the environment together out of editors
#
# Consists of one editor on the left for recipes and one on the right for the
# sandbox.
def! main [
local-scope
open-console
initial-recipe:address:array:character <- restore [recipes.mu]
initial-sandbox:address:array:character <- new []
hide-screen 0/screen
env:address:programming-environment-data <- new-programming-environment 0/screen, initial-recipe, initial-sandbox
render-all 0/screen, env
event-loop 0/screen, 0/console, env
# never gets here
]
container programming-environment-data [
recipes:address:editor-data
current-sandbox:address:editor-data
sandbox-in-focus?:boolean # false => cursor in recipes; true => cursor in current-sandbox
]
def new-programming-environment screen:address:screen, initial-recipe-contents:address:array:character, initial-sandbox-contents:address:array:character -> result:address:programming-environment-data, screen:address:screen [
local-scope
load-ingredients
width:number <- screen-width screen
height:number <- screen-height screen
# top menu
result <- new programming-environment-data:type
draw-horizontal screen, 0, 0/left, width, 32/space, 0/black, 238/grey
button-start:number <- subtract width, 20
button-on-screen?:boolean <- greater-or-equal button-start, 0
assert button-on-screen?, [screen too narrow for menu]
screen <- move-cursor screen, 0/row, button-start
print screen, [ run (F4) ], 255/white, 161/reddish
# dotted line down the middle
divider:number, _ <- divide-with-remainder width, 2
draw-vertical screen, divider, 1/top, height, 9482/vertical-dotted
# recipe editor on the left
recipes:address:editor-data <- new-editor initial-recipe-contents, screen, 0/left, divider/right
# sandbox editor on the right
sandbox-left:number <- add divider, 1
current-sandbox:address:editor-data <- new-editor initial-sandbox-contents, screen, sandbox-left, width/right
*result <- put *result, recipes:offset, recipes
*result <- put *result, current-sandbox:offset, current-sandbox
*result <- put *result, sandbox-in-focus?:offset, 0/false
<programming-environment-initialization>
]
def event-loop screen:address:screen, console:address:console, env:address:programming-environment-data -> screen:address:screen, console:address:console, env:address:programming-environment-data [
local-scope
load-ingredients
recipes:address:editor-data <- get *env, recipes:offset
current-sandbox:address:editor-data <- get *env, current-sandbox:offset
sandbox-in-focus?:boolean <- get *env, sandbox-in-focus?:offset
# if we fall behind we'll stop updating the screen, but then we have to
# render the entire screen when we catch up.
# todo: test this
render-all-on-no-more-events?:boolean <- copy 0/false
{
# looping over each (keyboard or touch) event as it occurs
+next-event
e:event, console, found?:boolean, quit?:boolean <- read-event console
loop-unless found?
break-if quit? # only in tests
trace 10, [app], [next-event]
<handle-event>
# check for global events that will trigger regardless of which editor has focus
{
k:number, is-keycode?:boolean <- maybe-convert e:event, keycode:variant
break-unless is-keycode?
<global-keypress>
}
{
c:character, is-unicode?:boolean <- maybe-convert e:event, text:variant
break-unless is-unicode?
<global-type>
}
# 'touch' event - send to both sides, see what picks it up
{
t:touch-event, is-touch?:boolean <- maybe-convert e:event, touch:variant
break-unless is-touch?
# ignore all but 'left-click' events for now
# todo: test this
touch-type:number <- get t, type:offset
is-left-click?:boolean <- equal touch-type, 65513/mouse-left
loop-unless is-left-click?, +next-event:label
click-row:number <- get t, row:offset
click-column:number <- get t, column:offset
# later exceptions for non-editor touches will go here
<global-touch>
# send to both editors
_ <- move-cursor-in-editor screen, recipes, t
sandbox-in-focus?:boolean <- move-cursor-in-editor screen, current-sandbox, t
*env <- put *env, sandbox-in-focus?:offset, sandbox-in-focus?
screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
loop +next-event:label
}
# 'resize' event - redraw editor
# todo: test this after supporting resize in assume-console
{
r:resize-event, is-resize?:boolean <- maybe-convert e:event, resize:variant
break-unless is-resize?
# if more events, we're still resizing; wait until we stop
more-events?:boolean <- has-more-events? console
{
break-unless more-events?
render-all-on-no-more-events? <- copy 1/true # no rendering now, full rendering on some future event
}
{
break-if more-events?
env, screen <- resize screen, env
screen <- render-all screen, env
render-all-on-no-more-events? <- copy 0/false # full render done
}
loop +next-event:label
}
# if it's not global and not a touch event, send to appropriate editor
{
hide-screen screen
sandbox-in-focus?:boolean <- get *env, sandbox-in-focus?:offset
{
break-if sandbox-in-focus?
screen, recipes, render?:boolean <- handle-keyboard-event screen, recipes, e:event
# refresh screen only if no more events
# if there are more events to process, wait for them to clear up, then make sure you render-all afterward.
more-events?:boolean <- has-more-events? console
{
break-unless more-events?
render-all-on-no-more-events? <- copy 1/true # no rendering now, full rendering on some future event
jump +finish-event:label
}
{
break-if more-events?
{
break-unless render-all-on-no-more-events?
# no more events, and we have to force render
screen <- render-all screen, env
render-all-on-no-more-events? <- copy 0/false
jump +finish-event:label
}
# no more events, no force render
{
break-unless render?
screen <- render-recipes screen, env
jump +finish-event:label
}
}
}
{
break-unless sandbox-in-focus?
screen, current-sandbox, render?:boolean <- handle-keyboard-event screen, current-sandbox, e:event
# refresh screen only if no more events
# if there are more events to process, wait for them to clear up, then make sure you render-all afterward.
more-events?:boolean <- has-more-events? console
{
break-unless more-events?
render-all-on-no-more-events? <- copy 1/true # no rendering now, full rendering on some future event
jump +finish-event:label
}
{
break-if more-events?
{
break-unless render-all-on-no-more-events?
# no more events, and we have to force render
screen <- render-all screen, env
render-all-on-no-more-events? <- copy 0/false
jump +finish-event:label
}
# no more events, no force render
{
break-unless render?
screen <- render-sandbox-side screen, env
jump +finish-event:label
}
}
}
+finish-event
screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
show-screen screen
}
loop
}
]
def resize screen:address:screen, env:address:programming-environment-data -> env:address:programming-environment-data, screen:address:screen [
local-scope
load-ingredients
clear-screen screen # update screen dimensions
width:number <- screen-width screen
divider:number, _ <- divide-with-remainder width, 2
# update recipe editor
recipes:address:editor-data <- get *env, recipes:offset
right:number <- subtract divider, 1
*recipes <- put *recipes, right:offset, right
# reset cursor (later we'll try to preserve its position)
*recipes <- put *recipes, cursor-row:offset, 1
*recipes <- put *recipes, cursor-column:offset, 0
# update sandbox editor
current-sandbox:address:editor-data <- get *env, current-sandbox:offset
left:number <- add divider, 1
*current-sandbox <- put *current-sandbox, left:offset, left
right:number <- subtract width, 1
*current-sandbox <- put *current-sandbox, right:offset, right
# reset cursor (later we'll try to preserve its position)
*current-sandbox <- put *current-sandbox, cursor-row:offset, 1
*current-sandbox <- put *current-sandbox, cursor-column:offset, left
]
scenario point-at-multiple-editors [
trace-until 100/app # trace too long
assume-screen 30/width, 5/height
# initialize both halves of screen
1:address:array:character <- new [abc]
2:address:array:character <- new [def]
3:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character, 2:address:array:character
# focus on both sides
assume-console [
left-click 1, 1
left-click 1, 17
]
# check cursor column in each
run [
event-loop screen:address:screen, console:address:console, 3:address:programming-environment-data
4:address:editor-data <- get *3:address:programming-environment-data, recipes:offset
5:number <- get *4:address:editor-data, cursor-column:offset
6:address:editor-data <- get *3:address:programming-environment-data, current-sandbox:offset
7:number <- get *6:address:editor-data, cursor-column:offset
]
memory-should-contain [
5 <- 1
7 <- 17
]
]
scenario edit-multiple-editors [
trace-until 100/app # trace too long
assume-screen 30/width, 5/height
# initialize both halves of screen
1:address:array:character <- new [abc]
2:address:array:character <- new [def]
3:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character, 2:address:array:character
render-all screen, 3:address:programming-environment-data
# type one letter in each of them
assume-console [
left-click 1, 1
type [0]
left-click 1, 17
type [1]
]
run [
event-loop screen:address:screen, console:address:console, 3:address:programming-environment-data
4:address:editor-data <- get *3:address:programming-environment-data, recipes:offset
5:number <- get *4:address:editor-data, cursor-column:offset
6:address:editor-data <- get *3:address:programming-environment-data, current-sandbox:offset
7:number <- get *6:address:editor-data, cursor-column:offset
]
screen-should-contain [
. run (F4) . # this line has a different background, but we don't test that yet
.a0bc ┊d1ef .
.┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━.
. ┊ .
]
memory-should-contain [
5 <- 2 # cursor column of recipe editor
7 <- 18 # cursor column of sandbox editor
]
# show the cursor at the right window
run [
8:character/cursor <- copy 9251/␣
print screen:address:screen, 8:character/cursor
]
screen-should-contain [
. run (F4) .
.a0bc ┊d1␣f .
.┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━.
. ┊ .
]
]
scenario multiple-editors-cover-only-their-own-areas [
trace-until 100/app # trace too long
assume-screen 60/width, 10/height
run [
1:address:array:character <- new [abc]
2:address:array:character <- new [def]
3:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character, 2:address:array:character
render-all screen, 3:address:programming-environment-data
]
# divider isn't messed up
screen-should-contain [
. run (F4) .
.abc ┊def .
.┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━━━━━━━━━━━━━━━━.
. ┊ .
. ┊ .
]
]
scenario editor-in-focus-keeps-cursor [
trace-until 100/app # trace too long
assume-screen 30/width, 5/height
1:address:array:character <- new [abc]
2:address:array:character <- new [def]
3:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character, 2:address:array:character
render-all screen, 3:address:programming-environment-data
# initialize programming environment and highlight cursor
assume-console []
run [
event-loop screen:address:screen, console:address:console, 3:address:programming-environment-data
4:character/cursor <- copy 9251/␣
print screen:address:screen, 4:character/cursor
]
# is cursor at the right place?
screen-should-contain [
. run (F4) .
.␣bc ┊def .
.┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━.
. ┊ .
]
# now try typing a letter
assume-console [
type [z]
]
run [
event-loop screen:address:screen, console:address:console, 3:address:programming-environment-data
4:character/cursor <- copy 9251/␣
print screen:address:screen, 4:character/cursor
]
# cursor should still be right
screen-should-contain [
. run (F4) .
.z␣bc ┊def .
.┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━.
. ┊ .
]
]
scenario backspace-in-sandbox-editor-joins-lines [
trace-until 100/app # trace too long
assume-screen 30/width, 5/height
# initialize sandbox side with two lines
1:address:array:character <- new []
2:address:array:character <- new [abc
def]
3:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character, 2:address:array:character
render-all screen, 3:address:programming-environment-data
screen-should-contain [
. run (F4) .
. ┊abc .
.┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊def .
. ┊━━━━━━━━━━━━━━.
. ┊ .
]
# position cursor at start of second line and hit backspace
assume-console [
left-click 2, 16
press backspace
]
run [
event-loop screen:address:screen, console:address:console, 3:address:programming-environment-data
4:character/cursor <- copy 9251/␣
print screen:address:screen, 4:character/cursor
]
# cursor moves to end of old line
screen-should-contain [
. run (F4) .
. ┊abc␣ef .
.┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━.
. ┊ .
]
]
def render-all screen:address:screen, env:address:programming-environment-data -> screen:address:screen, env:address:programming-environment-data [
local-scope
load-ingredients
trace 10, [app], [render all]
hide-screen screen
# top menu
trace 11, [app], [render top menu]
width:number <- screen-width screen
draw-horizontal screen, 0, 0/left, width, 32/space, 0/black, 238/grey
button-start:number <- subtract width, 20
button-on-screen?:boolean <- greater-or-equal button-start, 0
assert button-on-screen?, [screen too narrow for menu]
screen <- move-cursor screen, 0/row, button-start
print screen, [ run (F4) ], 255/white, 161/reddish
# dotted line down the middle
trace 11, [app], [render divider]
divider:number, _ <- divide-with-remainder width, 2
height:number <- screen-height screen
draw-vertical screen, divider, 1/top, height, 9482/vertical-dotted
#
screen <- render-recipes screen, env
screen <- render-sandbox-side screen, env
<render-components-end>
#
recipes:address:editor-data <- get *env, recipes:offset
current-sandbox:address:editor-data <- get *env, current-sandbox:offset
sandbox-in-focus?:boolean <- get *env, sandbox-in-focus?:offset
screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
#
show-screen screen
]
def render-recipes screen:address:screen, env:address:programming-environment-data -> screen:address:screen, env:address:programming-environment-data [
local-scope
load-ingredients
trace 11, [app], [render recipes]
recipes:address:editor-data <- get *env, recipes:offset
# render recipes
left:number <- get *recipes, left:offset
right:number <- get *recipes, right:offset
row:number, column:number, screen <- render screen, recipes
clear-line-until screen, right
row <- add row, 1
<render-recipe-components-end>
# draw dotted line after recipes
draw-horizontal screen, row, left, right, 9480/horizontal-dotted
row <- add row, 1
clear-screen-from screen, row, left, left, right
]
# replaced in a later layer
def render-sandbox-side screen:address:screen, env:address:programming-environment-data -> screen:address:screen, env:address:programming-environment-data [
local-scope
load-ingredients
current-sandbox:address:editor-data <- get *env, current-sandbox:offset
left:number <- get *current-sandbox, left:offset
right:number <- get *current-sandbox, right:offset
row:number, column:number, screen, current-sandbox <- render screen, current-sandbox
clear-line-until screen, right
row <- add row, 1
# draw solid line after code (you'll see why in later layers)
draw-horizontal screen, row, left, right, 9473/horizontal
row <- add row, 1
clear-screen-from screen, row, left, left, right
]
def update-cursor screen:address:screen, recipes:address:editor-data, current-sandbox:address:editor-data, sandbox-in-focus?:boolean, env:address:programming-environment-data -> screen:address:screen [
local-scope
load-ingredients
<update-cursor-special-cases>
{
break-if sandbox-in-focus?
cursor-row:number <- get *recipes, cursor-row:offset
cursor-column:number <- get *recipes, cursor-column:offset
}
{
break-unless sandbox-in-focus?
cursor-row:number <- get *current-sandbox, cursor-row:offset
cursor-column:number <- get *current-sandbox, cursor-column:offset
}
screen <- move-cursor screen, cursor-row, cursor-column
]
# print a text 's' to 'editor' in 'color' starting at 'row'
# clear rest of last line, move cursor to next line
def render screen:address:screen, s:address:array:character, left:number, right:number, color:number, row:number -> row:number, screen:address:screen [
local-scope
load-ingredients
return-unless s
column:number <- copy left
screen <- move-cursor screen, row, column
screen-height:number <- screen-height screen
i:number <- copy 0
len:number <- length *s
{
+next-character
done?:boolean <- greater-or-equal i, len
break-if done?
done? <- greater-or-equal row, screen-height
break-if done?
c:character <- index *s, i
{
# at right? wrap.
at-right?:boolean <- equal column, right
break-unless at-right?
# print wrap icon
wrap-icon:character <- copy 8617/loop-back-to-left
print screen, wrap-icon, 245/grey
column <- copy left
row <- add row, 1
screen <- move-cursor screen, row, column
loop +next-character:label # retry i
}
i <- add i, 1
{
# newline? move to left rather than 0
newline?:boolean <- equal c, 10/newline
break-unless newline?
# clear rest of line in this window
{
done?:boolean <- greater-than column, right
break-if done?
space:character <- copy 32/space
print screen, space
column <- add column, 1
loop
}
row <- add row, 1
column <- copy left
screen <- move-cursor screen, row, column
loop +next-character:label
}
print screen, c, color
column <- add column, 1
loop
}
was-at-left?:boolean <- equal column, left
clear-line-until screen, right
{
break-if was-at-left?
row <- add row, 1
}
move-cursor screen, row, left
]
# like 'render' for texts, but with colorization for comments like in the editor
def render-code screen:address:screen, s:address:array:character, left:number, right:number, row:number -> row:number, screen:address:screen [
local-scope
load-ingredients
return-unless s
color:number <- copy 7/white
column:number <- copy left
screen <- move-cursor screen, row, column
screen-height:number <- screen-height screen
i:number <- copy 0
len:number <- length *s
{
+next-character
done?:boolean <- greater-or-equal i, len
break-if done?
done? <- greater-or-equal row, screen-height
break-if done?
c:character <- index *s, i
<character-c-received> # only line different from render
{
# at right? wrap.
at-right?:boolean <- equal column, right
break-unless at-right?
# print wrap icon
wrap-icon:character <- copy 8617/loop-back-to-left
print screen, wrap-icon, 245/grey
column <- copy left
row <- add row, 1
screen <- move-cursor screen, row, column
loop +next-character:label # retry i
}
i <- add i, 1
{
# newline? move to left rather than 0
newline?:boolean <- equal c, 10/newline
break-unless newline?
# clear rest of line in this window
{
done?:boolean <- greater-than column, right
break-if done?
space:character <- copy 32/space
print screen, space
column <- add column, 1
loop
}
row <- add row, 1
column <- copy left
screen <- move-cursor screen, row, column
loop +next-character:label
}
print screen, c, color
column <- add column, 1
loop
}
was-at-left?:boolean <- equal column, left
clear-line-until screen, right
{
break-if was-at-left?
row <- add row, 1
}
move-cursor screen, row, left
]
# ctrl-l - redraw screen (just in case it printed junk somehow)
after <global-type> [
{
redraw-screen?:boolean <- equal c, 12/ctrl-l
break-unless redraw-screen?
screen <- render-all screen, env:address:programming-environment-data
sync-screen screen
loop +next-event:label
}
]
# ctrl-n - switch focus
# todo: test this
after <global-type> [
{
switch-side?:boolean <- equal c, 14/ctrl-n
break-unless switch-side?
sandbox-in-focus?:boolean <- get *env, sandbox-in-focus?:offset
sandbox-in-focus? <- not sandbox-in-focus?
*env <- put *env, sandbox-in-focus?:offset, sandbox-in-focus?
screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
loop +next-event:label
}
]
## helpers
def draw-vertical screen:address:screen, col:number, y:number, bottom:number -> screen:address:screen [
local-scope
load-ingredients
style:character, style-found?:boolean <- next-ingredient
{
break-if style-found?
style <- copy 9474/vertical
}
color:number, color-found?:boolean <- next-ingredient
{
# default color to white
break-if color-found?
color <- copy 245/grey
}
{
continue?:boolean <- lesser-than y, bottom
break-unless continue?
screen <- move-cursor screen, y, col
print screen, style, color
y <- add y, 1
loop
}
]