suckless/dwm - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff stats

diff options

Diffstat (limited to 'dwm.png')

0 files changed, 0 insertions, 0 deletions

mmit/081print.mu?h=hlt&id=104854ca941be75b187ed49f94e96e06113d0fb5'>104854ca ^

77d5b5d6 ^

104854ca ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

104854ca ^

a63ebc92 ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

104854ca ^

502d2ea5 ^

bc643692 ^

a63ebc92 ^

502d2ea5 ^

a0fc38c9 ^

502d2ea5 ^

a63ebc92 ^

8e41a2b8 ^

104854ca ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

104854ca ^

a63ebc92 ^

a63ebc92 ^

104854ca ^

930e9eae ^

104854ca ^

930e9eae ^

104854ca ^

930e9eae ^

104854ca ^

32cd40ec ^

104854ca ^

bc643692 ^

502d2ea5 ^

32cd40ec ^

502d2ea5 ^

32cd40ec ^

bc643692 ^

32cd40ec ^

bc643692 ^

32cd40ec ^

136412d2 ^

77d5b5d6 ^

104854ca ^

2d863b1b ^

502d2ea5 ^

2d863b1b ^

57bcdaee ^

1691db72 ^

502d2ea5 ^

57bcdaee ^

de111e09 ^

a63ebc92 ^

dc1323e9 ^

104854ca ^

7cd07a6a ^

104854ca ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

104854ca ^

dc1323e9 ^

502d2ea5 ^

502d2ea5 ^

dc1323e9 ^

502d2ea5 ^

dc1323e9 ^

502d2ea5 ^

dc1323e9 ^

104854ca ^

dc1323e9 ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

dc1323e9 ^

502d2ea5 ^

dc1323e9 ^

502d2ea5 ^

dc1323e9 ^

502d2ea5 ^

dc1323e9 ^

104854ca ^

dc1323e9 ^

502d2ea5 ^

a63ebc92 ^

502d2ea5 ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

502d2ea5 ^

a63ebc92 ^

72c4fb2d ^

bc643692 ^

136412d2 ^

502d2ea5 ^

72c4fb2d ^

22b30692 ^

72c4fb2d ^

2d863b1b ^

72c4fb2d ^

136412d2 ^

81ecfebd ^

bc643692 ^

136412d2 ^

502d2ea5 ^

81ecfebd ^

45449a4f ^

81ecfebd ^

dc1323e9 ^

bc643692 ^

136412d2 ^

502d2ea5 ^

dc1323e9 ^

2d863b1b ^

dc1323e9 ^

26c09c2b ^

bc643692 ^

136412d2 ^

502d2ea5 ^

26c09c2b ^

136412d2 ^

26c09c2b ^

bc643692 ^

136412d2 ^

502d2ea5 ^

26c09c2b ^

dc1323e9 ^

bc643692 ^

136412d2 ^

502d2ea5 ^

dc1323e9 ^

2d863b1b ^

dc1323e9 ^

26c09c2b ^

bc643692 ^

136412d2 ^

502d2ea5 ^

26c09c2b ^

136412d2 ^

26c09c2b ^

bc643692 ^

136412d2 ^

502d2ea5 ^

26c09c2b ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

502d2ea5 ^

a63ebc92 ^

502d2ea5 ^

136412d2 ^

a63ebc92 ^

502d2ea5 ^

104854ca ^

a63ebc92 ^

a63ebc92 ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

502d2ea5 ^

a63ebc92 ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

502d2ea5 ^

104854ca ^

502d2ea5 ^

104854ca ^

a63ebc92 ^

502d2ea5 ^

a63ebc92 ^

2ffa3ede ^

bc643692 ^

2ffa3ede ^

136412d2 ^

2ffa3ede ^

bc643692 ^

2ffa3ede ^

502d2ea5 ^

2ffa3ede ^

22b30692 ^

2ffa3ede ^

2d863b1b ^

2ffa3ede ^

2d863b1b ^

2ffa3ede ^

2d863b1b ^

2ffa3ede ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

5d293761 ^

104854ca ^

502d2ea5 ^

502d2ea5 ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

a63ebc92 ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

5d293761 ^

104854ca ^

502d2ea5 ^

502d2ea5 ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

a63ebc92 ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

5d293761 ^

104854ca ^

502d2ea5 ^

502d2ea5 ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

a63ebc92 ^

104854ca ^

77d5b5d6 ^

104854ca ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

5d293761 ^

104854ca ^

502d2ea5 ^

502d2ea5 ^

a63ebc92 ^

104854ca ^

a63ebc92 ^

a63ebc92 ^

768bdb4d ^

104854ca ^

77d5b5d6 ^

104854ca ^

bc643692 ^

104854ca ^

768bdb4d ^

104854ca ^

77d5b5d6 ^

104854ca ^

502d2ea5 ^

768bdb4d ^

104854ca ^

77d5b5d6 ^

104854ca ^

9fae6657 ^

104854ca ^

9fae6657 ^

104854ca ^

9fae6657 ^

104854ca ^

77d5b5d6 ^

104854ca ^

9fae6657 ^

104854ca ^

9fae6657 ^

104854ca ^

9fae6657 ^

104854ca ^

77d5b5d6 ^

104854ca ^

48bb8627 ^

502d2ea5 ^

104854ca ^

48bb8627 ^

48bb8627 ^

104854ca ^

77d5b5d6 ^

104854ca ^

48bb8627 ^

502d2ea5 ^

104854ca ^

48bb8627 ^

48bb8627 ^

104854ca ^

77d5b5d6 ^

104854ca ^

596490f4 ^

cd0d9e30 ^

596490f4 ^

502d2ea5 ^

104854ca ^

596490f4 ^

596490f4 ^

104854ca ^

77d5b5d6 ^

104854ca ^

596490f4 ^

cd0d9e30 ^

596490f4 ^

502d2ea5 ^

104854ca ^

596490f4 ^

596490f4 ^

3f7eed6c ^

77d5b5d6 ^

104854ca ^

34342239 ^

502d2ea5 ^

34342239 ^

57bcdaee ^

1691db72 ^

502d2ea5 ^

57bcdaee ^

502d2ea5 ^

bc643692 ^

768bdb4d ^

502d2ea5 ^

136412d2 ^

502d2ea5 ^

768bdb4d ^

768bdb4d ^

3f7eed6c ^

cee0e7d5 ^

bc643692 ^

cee0e7d5 ^

3f7eed6c ^

502d2ea5 ^

cee0e7d5 ^

104854ca ^

77d5b5d6 ^

1fa53058 ^

5497090a ^

34342239 ^

502d2ea5 ^

34342239 ^

57bcdaee ^

1691db72 ^

502d2ea5 ^

57bcdaee ^

768bdb4d ^

91610795 ^

3f7eed6c ^

768bdb4d ^

15
16

19
20

33
34

38
39

50
51

52
53

54
55

62
63
64

65
66

79
80
81

95
96

100
101
102

103
104

106
107

109
110

113
114

116
117
118

124
125

130
131

134
135

136
137
138

140
141

144
145

146
147

150
151

152
153

154
155

156
157

174
175

182
183

185
186

187
188

191
192

195
196

197
198

199
200
201

206
207

217
218

220
221

222
223
224

230
231

232
233
234

235
236

238
239
240

241
242
243

257
258
259

260
261
262

275
276

278
279

290
291

292
293
294

295
296

298
299
300

301
302

343
344

345
346
347

349
350

351
352
353

355
356
357

360
361
362

363
364

368
369

376
377

381
382

383
384

389
390

392
393

394
395

401
402

403
404

405
406

408
409

421
422
423

427
428

432
433

434
435
436

440
441
442

443
444

448
449

454
455

459
460
461

462
463

467
468

472
473

474
475
476

480
481
482

483
484

488
489

494
495

499
500
501

506
507

510
511

515
516

517
518

522
523

524
525
526

527
528

530
531

535
536

537
538
539

540
541

543
544

548
549

552
553
554

555
556

560
561

564
565
566

567
568

577
578
579

580
581

590
591
592

593
594

598
599
600

601
602

604
605

607
608

613
614
615

618
619

620
621

627
628

646
647
648

649
650

652
653

655
656

# Wrappers around print primitives that take a 'screen' object and are thus
# easier to test.

container screen [
  num-rows:number
  num-columns:number
  cursor-row:number
  cursor-column:number
  data:address:array:screen-cell
]

container screen-cell [
  contents:character
  color:number
]

recipe new-fake-screen w:number, h:number -> result:address:screen [
  local-scope
  load-ingredients
  result <- new screen:type
  width:address:number <- get-address *result, num-columns:offset
  *width <- copy w
  height:address:number <- get-address *result, num-rows:offset
  *height <- copy h
  row:address:number <- get-address *result, cursor-row:offset
  *row <- copy 0
  column:address:number <- get-address *result, cursor-column:offset
  *column <- copy 0
  bufsize:number <- multiply *width, *height
  buf:address:address:array:screen-cell <- get-address *result, data:offset
  *buf <- new screen-cell:type, bufsize
  result <- clear-screen result
]

recipe clear-screen screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists
  {
    break-unless screen
    # clear fake screen
    buf:address:array:screen-cell <- get *screen, data:offset
    max:number <- length *buf
    i:number <- copy 0
    {
      done?:boolean <- greater-or-equal i, max
      break-if done?
      curr:address:screen-cell <- index-address *buf, i
      curr-content:address:character <- get-address *curr, contents:offset
      *curr-content <- copy 0/empty
      curr-color:address:number <- get-address *curr, color:offset
      *curr-color <- copy 7/white
      i <- add i, 1
      loop
    }
    # reset cursor
    x:address:number <- get-address *screen, cursor-row:offset
    *x <- copy 0
    x <- get-address *screen, cursor-column:offset
    *x <- copy 0
    reply
  }
  # otherwise, real screen
  clear-display
]

recipe sync-screen screen:address:screen -> screen:address:screen [
  local-scope
  screen:address:screen <- next-ingredient
  {
    break-if screen
    sync-display
  }
  # do nothing for fake screens
]

recipe fake-screen-is-empty? screen:address:screen -> result:boolean [
  local-scope
  load-ingredients
  reply-unless screen, 1/true
  buf:address:array:screen-cell <- get *screen, data:offset
  i:number <- copy 0
  len:number <- length *buf
  {
    done?:boolean <- greater-or-equal i, len
    break-if done?
    curr:screen-cell <- index *buf, i
    curr-contents:character <- get curr, contents:offset
    i <- add i, 1
    loop-unless curr-contents
    # not 0
    reply 0/false
  }
  reply 1/true
]

recipe print screen:address:screen, c:character -> screen:address:screen [
  local-scope
  load-ingredients
  color:number, color-found?:boolean <- next-ingredient
  {
    # default color to white
    break-if color-found?
    color <- copy 7/white
  }
  bg-color:number, bg-color-found?:boolean <- next-ingredient
  {
    # default bg-color to black
    break-if bg-color-found?
    bg-color <- copy 0/black
  }
  trace 90, [print-character], c
  {
    # if x exists
    # (handle special cases exactly like in the real screen)
    break-unless screen
    width:number <- get *screen, num-columns:offset
    height:number <- get *screen, num-rows:offset
    # if cursor is out of bounds, silently exit
    row:address:number <- get-address *screen, cursor-row:offset
    legal?:boolean <- greater-or-equal *row, 0
    reply-unless legal?
    legal? <- lesser-than *row, height
    reply-unless legal?
    column:address:number <- get-address *screen, cursor-column:offset
    legal? <- greater-or-equal *column, 0
    reply-unless legal?
    legal? <- lesser-than *column, width
    reply-unless legal?
    # special-case: newline
    {
      newline?:boolean <- equal c, 10/newline
      break-unless newline?
      {
        # unless cursor is already at bottom
        bottom:number <- subtract height, 1
        at-bottom?:boolean <- greater-or-equal *row, bottom
        break-if at-bottom?
        # move it to the next row
        *column <- copy 0
        *row <- add *row, 1
      }
      reply
    }
    # save character in fake screen
    index:number <- multiply *row, width
    index <- add index, *column
    buf:address:array:screen-cell <- get *screen, data:offset
    len:number <- length *buf
    # special-case: backspace
    {
      backspace?:boolean <- equal c, 8
      break-unless backspace?
      {
        # unless cursor is already at left margin
        at-left?:boolean <- lesser-or-equal *column, 0
        break-if at-left?
        # clear previous location
        *column <- subtract *column, 1
        index <- subtract index, 1
        cursor:address:screen-cell <- index-address *buf, index
        cursor-contents:address:character <- get-address *cursor, contents:offset
        *cursor-contents <- copy 32/space
        cursor-color:address:number <- get-address *cursor, color:offset
        *cursor-color <- copy 7/white
      }
      reply
    }
    cursor:address:screen-cell <- index-address *buf, index
    cursor-contents:address:character <- get-address *cursor, contents:offset
    *cursor-contents <- copy c
    cursor-color:address:number <- get-address *cursor, color:offset
    *cursor-color <- copy color
    # increment column unless it's already all the way to the right
    {
      right:number <- subtract width, 1
      at-right?:boolean <- greater-or-equal *column, right
      break-if at-right?
      *column <- add *column, 1
    }
    reply
  }
  # otherwise, real screen
  print-character-to-display c, color, bg-color
]

scenario print-character-at-top-left [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    1:address:screen <- print 1:address:screen, 97  # 'a'
    2:address:array:screen-cell <- get *1:address:screen, data:offset
    3:array:screen-cell <- copy *2:address:array:screen-cell
  ]
  memory-should-contain [
    3 <- 6  # width*height
    4 <- 97  # 'a'
    5 <- 7  # white
    6 <- 0
  ]
]

scenario print-character-in-color [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    1:address:screen <- print 1:address:screen, 97/a, 1/red
    2:address:array:screen-cell <- get *1:address:screen, data:offset
    3:array:screen-cell <- copy *2:address:array:screen-cell
  ]
  memory-should-contain [
    3 <- 6  # width*height
    4 <- 97  # 'a'
    5 <- 1  # red
    6 <- 0
  ]
]

scenario print-backspace-character [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    1:address:screen <- print 1:address:screen, 97  # 'a'
    1:address:screen <- print 1:address:screen, 8  # backspace
    2:number <- get *1:address:screen, cursor-column:offset
    3:address:array:screen-cell <- get *1:address:screen, data:offset
    4:array:screen-cell <- copy *3:address:array:screen-cell
  ]
  memory-should-contain [
    2 <- 0  # cursor column
    4 <- 6  # width*height
    5 <- 32  # space, not 'a'
    6 <- 7  # white
    7 <- 0
  ]
]

scenario print-extra-backspace-character [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    1:address:screen <- print 1:address:screen, 97  # 'a'
    1:address:screen <- print 1:address:screen, 8  # backspace
    1:address:screen <- print 1:address:screen, 8  # backspace
    2:number <- get *1:address:screen, cursor-column:offset
    3:address:array:screen-cell <- get *1:address:screen, data:offset
    4:array:screen-cell <- copy *3:address:array:screen-cell
  ]
  memory-should-contain [
    2 <- 0  # cursor column
    4 <- 6  # width*height
    5 <- 32  # space, not 'a'
    6 <- 7  # white
    7 <- 0
  ]
]

scenario print-character-at-right-margin [
  run [
    1:address:screen <- new-fake-screen 2/width, 2/height
    1:address:screen <- print 1:address:screen, 97  # 'a'
    1:address:screen <- print 1:address:screen, 98  # 'b'
    1:address:screen <- print 1:address:screen, 99  # 'c'
    2:number <- get *1:address:screen, cursor-column:offset
    3:address:array:screen-cell <- get *1:address:screen, data:offset
    4:array:screen-cell <- copy *3:address:array:screen-cell
  ]
  memory-should-contain [
    2 <- 1  # cursor column
    4 <- 4  # width*height
    5 <- 97  # 'a'
    6 <- 7  # white
    7 <- 99  # 'c' over 'b'
    8 <- 7  # white
    9 <- 0
  ]
]

scenario print-newline-character [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    1:address:screen <- print 1:address:screen, 97  # 'a'
    1:address:screen <- print 1:address:screen, 10/newline
    2:number <- get *1:address:screen, cursor-row:offset
    3:number <- get *1:address:screen, cursor-column:offset
    4:address:array:screen-cell <- get *1:address:screen, data:offset
    5:array:screen-cell <- copy *4:address:array:screen-cell
  ]
  memory-should-contain [
    2 <- 1  # cursor row
    3 <- 0  # cursor column
    5 <- 6  # width*height
    6 <- 97  # 'a'
    7 <- 7  # white
    8 <- 0
  ]
]

scenario print-newline-at-bottom-line [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    1:address:screen <- print 1:address:screen, 10/newline
    1:address:screen <- print 1:address:screen, 10/newline
    1:address:screen <- print 1:address:screen, 10/newline
    2:number <- get *1:address:screen, cursor-row:offset
    3:number <- get *1:address:screen, cursor-column:offset
  ]
  memory-should-contain [
    2 <- 1  # cursor row
    3 <- 0  # cursor column
  ]
]

scenario print-character-at-bottom-right [
  run [
    1:address:screen <- new-fake-screen 2/width, 2/height
    1:address:screen <- print 1:address:screen, 10/newline
    1:address:screen <- print 1:address:screen, 97  # 'a'
    1:address:screen <- print 1:address:screen, 98  # 'b'
    1:address:screen <- print 1:address:screen, 99  # 'c'
    1:address:screen <- print 1:address:screen, 10/newline
    1:address:screen <- print 1:address:screen, 100  # 'd'
    2:number <- get *1:address:screen, cursor-row:offset
    3:number <- get *1:address:screen, cursor-column:offset
    4:address:array:screen-cell <- get *1:address:screen, data:offset
    5:array:screen-cell <- copy *4:address:array:screen-cell
  ]
  memory-should-contain [
    2 <- 1  # cursor row
    3 <- 1  # cursor column
    5 <- 4  # width*height
    6 <- 0  # unused
    7 <- 7  # white
    8 <- 0  # unused
    9 <- 7  # white
    10 <- 97 # 'a'
    11 <- 7  # white
    12 <- 100  # 'd' over 'b' and 'c' and newline
    13 <- 7  # white
    14 <- 0
  ]
]

recipe clear-line screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists, clear line in fake screen
  {
    break-unless screen
    width:number <- get *screen, num-columns:offset
    column:address:number <- get-address *screen, cursor-column:offset
    original-column:number <- copy *column
    # space over the entire line
    {
      right:number <- subtract width, 1
      done?:boolean <- greater-or-equal *column, right
      break-if done?
      print screen, [ ]  # implicitly updates 'column'
      loop
    }
    # now back to where the cursor was
    *column <- copy original-column
    reply
  }
  # otherwise, real screen
  clear-line-on-display
]

recipe cursor-position screen:address:screen -> row:number, column:number [
  local-scope
  load-ingredients
  # if x exists, lookup cursor in fake screen
  {
    break-unless screen
    row:number <- get *screen, cursor-row:offset
    column:number <- get *screen, cursor-column:offset
    reply
  }
  row, column <- cursor-position-on-display
]

recipe move-cursor screen:address:screen, new-row:number, new-column:number -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists, move cursor in fake screen
  {
    break-unless screen
    row:address:number <- get-address *screen, cursor-row:offset
    *row <- copy new-row
    column:address:number <- get-address *screen, cursor-column:offset
    *column <- copy new-column
    reply
  }
  # otherwise, real screen
  move-cursor-on-display new-row, new-column
]

scenario clear-line-erases-printed-characters [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    # print a character
    1:address:screen <- print 1:address:screen, 97  # 'a'
    # move cursor to start of line
    1:address:screen <- move-cursor 1:address:screen, 0/row, 0/column
    # clear line
    1:address:screen <- clear-line 1:address:screen
    2:address:array:screen-cell <- get *1:address:screen, data:offset
    3:array:screen-cell <- copy *2:address:array:screen-cell
  ]
  # screen should be blank
  memory-should-contain [
    3 <- 6  # width*height
    4 <- 0
    5 <- 7
    6 <- 0
    7 <- 7
    8 <- 0
    9 <- 7
    10 <- 0
    11 <- 7
    12 <- 0
    13 <- 7
    14 <- 0
    15 <- 7
  ]
]

recipe cursor-down screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists, move cursor in fake screen
  {
    break-unless screen
    {
      # increment row unless it's already all the way down
      height:number <- get *screen, num-rows:offset
      row:address:number <- get-address *screen, cursor-row:offset
      max:number <- subtract height, 1
      at-bottom?:boolean <- greater-or-equal *row, max
      break-if at-bottom?
      *row <- add *row, 1
    }
    reply
  }
  # otherwise, real screen
  move-cursor-down-on-display
]

recipe cursor-up screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists, move cursor in fake screen
  {
    break-unless screen
    {
      # decrement row unless it's already all the way up
      row:address:number <- get-address *screen, cursor-row:offset
      at-top?:boolean <- lesser-or-equal *row, 0
      break-if at-top?
      *row <- subtract *row, 1
    }
    reply
  }
  # otherwise, real screen
  move-cursor-up-on-display
]

recipe cursor-right screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists, move cursor in fake screen
  {
    break-unless screen
    {
      # increment column unless it's already all the way to the right
      width:number <- get *screen, num-columns:offset
      column:address:number <- get-address *screen, cursor-column:offset
      max:number <- subtract width, 1
      at-bottom?:boolean <- greater-or-equal *column, max
      break-if at-bottom?
      *column <- add *column, 1
    }
    reply
  }
  # otherwise, real screen
  move-cursor-right-on-display
]

recipe cursor-left screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists, move cursor in fake screen
  {
    break-unless screen
    {
      # decrement column unless it's already all the way to the left
      column:address:number <- get-address *screen, cursor-column:offset
      at-top?:boolean <- lesser-or-equal *column, 0
      break-if at-top?
      *column <- subtract *column, 1
    }
    reply
  }
  # otherwise, real screen
  move-cursor-left-on-display
]

recipe cursor-to-start-of-line screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  row:number <- cursor-position screen
  column:number <- copy 0
  screen <- move-cursor screen, row, column
]

recipe cursor-to-next-line screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  screen <- cursor-down screen
  screen <- cursor-to-start-of-line screen
]

recipe screen-width screen:address:screen -> width:number [
  local-scope
  load-ingredients
  # if x exists, move cursor in fake screen
  {
    break-unless screen
    width <- get *screen, num-columns:offset
    reply
  }
  # otherwise, real screen
  width <- display-width
]

recipe screen-height screen:address:screen -> height:number [
  local-scope
  load-ingredients
  # if x exists, move cursor in fake screen
  {
    break-unless screen
    height <- get *screen, num-rows:offset
    reply
  }
  # otherwise, real screen
  height <- display-height
]

recipe hide-cursor screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists (not real display), do nothing
  {
    break-unless screen
    reply
  }
  # otherwise, real screen
  hide-cursor-on-display
]

recipe show-cursor screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists (not real display), do nothing
  {
    break-unless screen
    reply
  }
  # otherwise, real screen
  show-cursor-on-display
]

recipe hide-screen screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists (not real display), do nothing
  # todo: help test this
  {
    break-unless screen
    reply
  }
  # otherwise, real screen
  hide-display
]

recipe show-screen screen:address:screen -> screen:address:screen [
  local-scope
  load-ingredients
  # if x exists (not real display), do nothing
  # todo: help test this
  {
    break-unless screen
    reply
  }
  # otherwise, real screen
  show-display
]

recipe print screen:address:screen, s:address:array:character -> screen:address:screen [
  local-scope
  load-ingredients
  color:number, color-found?:boolean <- next-ingredient
  {
    # default color to white
    break-if color-found?
    color <- copy 7/white
  }
  bg-color:number, bg-color-found?:boolean <- next-ingredient
  {
    # default bg-color to black
    break-if bg-color-found?
    bg-color <- copy 0/black
  }
  len:number <- length *s
  i:number <- copy 0
  {
    done?:boolean <- greater-or-equal i, len
    break-if done?
    c:character <- index *s, i
    print screen, c, color, bg-color
    i <- add i, 1
    loop
  }
]

scenario print-text-stops-at-right-margin [
  run [
    1:address:screen <- new-fake-screen 3/width, 2/height
    2:address:array:character <- new [abcd]
    1:address:screen <- print 1:address:screen, 2:address:array:character
    3:address:array:screen-cell <- get *1:address:screen, data:offset
    4:array:screen-cell <- copy *3:address:array:screen-cell
  ]
  memory-should-contain [
    4 <- 6  # width*height
    5 <- 97  # 'a'
    6 <- 7  # white
    7 <- 98  # 'b'
    8 <- 7  # white
    9 <- 100  # 'd' overwrites 'c'
    10 <- 7  # white
    11 <- 0  # unused
  ]
]

recipe print-integer screen:address:screen, n:number -> screen:address:screen [
  local-scope
  screen:address:screen <- next-ingredient
  n:number <- next-ingredient
  color:number, color-found?:boolean <- next-ingredient
  {
    # default color to white
    break-if color-found?
    color <- copy 7/white
  }
  bg-color:number, bg-color-found?:boolean <- next-ingredient
  {
    # default bg-color to black
    break-if bg-color-found?
    bg-color <- copy 0/black
  }
  # todo: other bases besides decimal
  s:address:array:character <- to-text n
  screen <- print screen, s, color, bg-color
]


context:
space:
mode: