ranger - mirror of ranger - a simple, vim-like file manager

diff options

Diffstat (limited to 'code/keys.rb')

-rw-r--r--

1 files changed, 2 insertions, 27 deletions

evision' href='/akkartik/mu/blame/500fake-screen.mu?h=hlt&id=b6e1cffd9be3a91608dbf13318e8d892b8857179'>^

bbabe8bd ^

34596b6e ^

b3869987 ^

6efc1ebe ^

8f34dfd1 ^

6efc1ebe ^

f5ece045 ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

34596b6e ^

6efc1ebe ^

34596b6e ^

b3869987 ^

34596b6e ^

b3869987 ^

34596b6e ^

b3869987 ^

34596b6e ^

b3869987 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

dbf434f0 ^

30018fd6 ^

6efc1ebe ^

74f1512f ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

7363c6df ^

30018fd6 ^

6e36ce06 ^

8f34dfd1 ^

6e36ce06 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

1d7aae96 ^

6efc1ebe ^

08c55cb2 ^

1eb74e2d ^

30018fd6 ^

b3869987 ^

8e38b86a ^

b3869987 ^

8e38b86a ^

bfcf5c72 ^

b3869987 ^

8e38b86a ^

b3869987 ^

8e38b86a ^

34596b6e ^

8e38b86a ^

b3869987 ^

bfcf5c72 ^

72f9fdbd ^

6efc1ebe ^

72f9fdbd ^

6efc1ebe ^

6e36ce06 ^

30018fd6 ^

6e36ce06 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

6e36ce06 ^

30018fd6 ^

6e36ce06 ^

63be7b7d ^

6e36ce06 ^

6efc1ebe ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

63be7b7d ^

cec5ef31 ^

63be7b7d ^

cec5ef31 ^

63be7b7d ^

1b09418c ^

63be7b7d ^

8f34dfd1 ^

6e36ce06 ^

30018fd6 ^

6e36ce06 ^

6efc1ebe ^

63be7b7d ^

79e6d41b ^

30018fd6 ^

6efc1ebe ^

79e6d41b ^

30018fd6 ^

6efc1ebe ^

79e6d41b ^

c2c6f4c7 ^

6efc1ebe ^

63be7b7d ^

34596b6e ^

d604e68c ^

6e36ce06 ^

90748fa4 ^

34596b6e ^

90748fa4 ^

30018fd6 ^

d6d28b8c ^

d6d28b8c ^

6efc1ebe ^

6e36ce06 ^

74f1512f ^

6e36ce06 ^

74f1512f ^

6e36ce06 ^

74f1512f ^

6e36ce06 ^

6efc1ebe ^

d6d28b8c ^

34596b6e ^

d6d28b8c ^

34596b6e ^

d6d28b8c ^

34596b6e ^

d6d28b8c ^

34596b6e ^

d6d28b8c ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

30018fd6 ^

6efc1ebe ^

8f34dfd1 ^

30018fd6 ^

8f34dfd1 ^

30018fd6 ^

8f34dfd1 ^

c22874a9 ^

34596b6e ^

c22874a9 ^

34596b6e ^

c22874a9 ^

34596b6e ^

b3869987 ^

34596b6e ^

b3869987 ^

34596b6e ^

b3869987 ^

34596b6e ^

b3869987 ^

34596b6e ^

c22874a9 ^

fd57c48c ^

0dda332c ^

fd57c48c ^

c2c6f4c7 ^

c2c6f4c7 ^

16
17
18

19
20

31
32

35
36
37

39
40
41

43
44

47
48
49

50
51
52

68
69
70

76
77

79
80

82
83
84

86
87

94
95

104
105

106
107
108

110
111

113
114

127
128

136
137

139
140
141

142
143

150
151

156
157

158
159

161
162
163

164
165

170
171

172
173

174
175

185
186

188
189

190
191

192
193
194

196
197

229
230
231

233
234

235
236

238
239
240

242
243
244

245
246

249
250

251
252

263
264

265
266

268
269

279
280

292
293

351
352

353
354

383
384

385
386
387

389
390
391

403
404

431
432
433

434
435
436

449
450
451

452
453
454

468
469
470

471
472
473

491
492
493

495
496
497

510
511

519
520

525
526

534
535

# Testable primitives for writing to screen.
#
# Mu mostly uses the screen for text, but it builds it out of pixel graphics
# and a bitmap font. There is no support for a blinking cursor, scrolling and
# so on.
#
# Fake screens are primarily for testing text-mode prints. However, they do
# support some rudimentary pixel operations as well. Caveats:
#
# - Drawing pixels atop text or vice versa is not supported. Results in a fake
#   screen will not mimic real screens in these situations.
# - Fake screens currently also assume a fixed-width 8x16 font.

type screen {
  # text mode
  width: int
  height: int
  data: (handle array screen-cell)
  cursor-x: int  # [0..width)
  cursor-y: int  # [0..height)
  invalid-cell-index: int
  # pixel graphics
  pixels: (handle array byte)
  invalid-pixel-index: int
}

type screen-cell {
  data: grapheme
  color: int
  background-color: int
}

fn initialize-screen _screen: (addr screen), width: int, height: int, pixel-graphics?: boolean {
  var screen/esi: (addr screen) <- copy _screen
  var tmp/eax: int <- copy 0
  var dest/edi: (addr int) <- copy 0
  # screen->width = width
  dest <- get screen, width
  tmp <- copy width
  copy-to *dest, tmp
  # screen->height = height
  dest <- get screen, height
  tmp <- copy height
  copy-to *dest, tmp
  # populate screen->data
  {
    var data-ah/edi: (addr handle array screen-cell) <- get screen, data
    var capacity/eax: int <- copy width
    capacity <- multiply height
    # add 1 for sentinel
    capacity <- increment
    #
    populate data-ah, capacity
    # save sentinel index
    capacity <- decrement
    var dest/ecx: (addr int) <- get screen, invalid-cell-index
    copy-to *dest, capacity
  }
  # if necessary, populate screen->pixels
  {
    compare pixel-graphics?, 0/false
    break-if-=
    var pixels-ah/edi: (addr handle array byte) <- get screen, pixels
    var capacity/eax: int <- copy width
    capacity <- shift-left 3/log2-font-width
    capacity <- multiply height
    capacity <- shift-left 4/log2-font-height
    # add 1 for sentinel
    capacity <- increment
    #
    populate pixels-ah, capacity
    # save sentinel index
    capacity <- decrement
    var dest/ecx: (addr int) <- get screen, invalid-pixel-index
    copy-to *dest, capacity
  }
  # screen->cursor-x = 0
  dest <- get screen, cursor-x
  copy-to *dest, 0
  # screen->cursor-y = 0
  dest <- get screen, cursor-y
  copy-to *dest, 0
}

# in graphemes
fn screen-size _screen: (addr screen) -> _/eax: int, _/ecx: int {
  var screen/esi: (addr screen) <- copy _screen
  var width/eax: int <- copy 0
  var height/ecx: int <- copy 0
  compare screen, 0
  {
    break-if-!=
    return 0x80/128, 0x30/48
  }
  # fake screen
  var tmp/edx: (addr int) <- get screen, width
  width <- copy *tmp
  tmp <- get screen, height
  height <- copy *tmp
  return width, height
}

# testable screen primitive
fn draw-grapheme _screen: (addr screen), g: grapheme, x: int, y: int, color: int, background-color: int {
  var screen/esi: (addr screen) <- copy _screen
  {
    compare screen, 0
    break-if-!=
    draw-grapheme-on-real-screen g, x, y, color, background-color
    return
  }
  # fake screen
  var idx/ecx: int <- screen-cell-index screen, x, y
  var data-ah/eax: (addr handle array screen-cell) <- get screen, data
  var data/eax: (addr array screen-cell) <- lookup *data-ah
  var offset/ecx: (offset screen-cell) <- compute-offset data, idx
  var dest-cell/ecx: (addr screen-cell) <- index data, offset
  var dest-grapheme/eax: (addr grapheme) <- get dest-cell, data
  var g2/edx: grapheme <- copy g
  copy-to *dest-grapheme, g2
  var dest-color/eax: (addr int) <- get dest-cell, color
  var src-color/edx: int <- copy color
  copy-to *dest-color, src-color
  dest-color <- get dest-cell, background-color
  src-color <- copy background-color
  copy-to *dest-color, src-color
}

# we can't really render non-ASCII yet, but when we do we'll be ready
fn draw-code-point screen: (addr screen), c: code-point, x: int, y: int, color: int, background-color: int {
  var g/eax: grapheme <- copy c
  draw-grapheme screen, g, x, y, color, background-color
}

# fake screens only
fn screen-cell-index _screen: (addr screen), x: int, y: int -> _/ecx: int {
  var screen/esi: (addr screen) <- copy _screen
  # if out of bounds, silently return a pixel that's never checked
  {
    compare x, 0
    break-if->=
    var invalid/eax: (addr int) <- get screen, invalid-cell-index
    return *invalid
  }
  {
    var xmax/eax: (addr int) <- get screen, width
    var xcurr/ecx: int <- copy x
    compare xcurr, *xmax
    break-if-<
    var invalid/eax: (addr int) <- get screen, invalid-cell-index
    return *invalid
  }
  {
    compare y, 0
    break-if->=
    var invalid/eax: (addr int) <- get screen, invalid-cell-index
    return *invalid
  }
  {
    var ymax/eax: (addr int) <- get screen, height
    var ycurr/ecx: int <- copy y
    compare ycurr, *ymax
    break-if-<
    var invalid/eax: (addr int) <- get screen, invalid-cell-index
    return *invalid
  }
  var width-addr/eax: (addr int) <- get screen, width
  var result/ecx: int <- copy y
  result <- multiply *width-addr
  result <- add x
  return result
}

fn cursor-position _screen: (addr screen) -> _/eax: int, _/ecx: int {
  var screen/esi: (addr screen) <- copy _screen
  {
    compare screen, 0
    break-if-!=
    var x/eax: int <- copy 0
    var y/ecx: int <- copy 0
    x, y <- cursor-position-on-real-screen
    return x, y
  }
  # fake screen
  var cursor-x-addr/eax: (addr int) <- get screen, cursor-x
  var cursor-y-addr/ecx: (addr int) <- get screen, cursor-y
  return *cursor-x-addr, *cursor-y-addr
}

fn set-cursor-position _screen: (addr screen), x: int, y: int {
  var screen/esi: (addr screen) <- copy _screen
  {
    compare screen, 0
    break-if-!=
    set-cursor-position-on-real-screen x, y
    return
  }
  # fake screen
  # ignore x < 0
  {
    compare x, 0
    break-if->=
    return
  }
  # ignore x >= width
  {
    var width-addr/eax: (addr int) <- get screen, width
    var width/eax: int <- copy *width-addr
    compare x, width
    break-if-<=
    return
  }
  # ignore y < 0
  {
    compare y, 0
    break-if->=
    return
  }
  # ignore y >= height
  {
    var height-addr/eax: (addr int) <- get screen, height
    var height/eax: int <- copy *height-addr
    compare y, height
    break-if-<
    return
  }
  # screen->cursor-x = x
  var dest/edi: (addr int) <- get screen, cursor-x
  var src/eax: int <- copy x
  copy-to *dest, src
  # screen->cursor-y = y
  dest <- get screen, cursor-y
  src <- copy y
  copy-to *dest, src
}

fn draw-cursor screen: (addr screen), g: grapheme {
  {
    compare screen, 0
    break-if-!=
    draw-cursor-on-real-screen g
    return
  }
  # fake screen
  var cursor-x/eax: int <- copy 0
  var cursor-y/ecx: int <- copy 0
  cursor-x, cursor-y <- cursor-position screen
  draw-grapheme screen, g, cursor-x, cursor-y, 0/fg, 7/bg
}

fn clear-screen _screen: (addr screen) {
  var screen/esi: (addr screen) <- copy _screen
  {
    compare screen, 0
    break-if-!=
    clear-real-screen
    return
  }
  # fake screen
  set-cursor-position screen, 0, 0
  var y/eax: int <- copy 0
  var height/ecx: (addr int) <- get screen, height
  {
    compare y, *height
    break-if->=
    var x/edx: int <- copy 0
    var width/ebx: (addr int) <- get screen, width
    {
      compare x, *width
      break-if->=
      draw-code-point screen, 0/nul, x, y, 0/fg=black, 0/bg=black
      x <- increment
      loop
    }
    y <- increment
    loop
  }
  set-cursor-position screen, 0, 0
  var pixels-ah/eax: (addr handle array byte) <- get screen, pixels
  var pixels/eax: (addr array byte) <- lookup *pixels-ah
  var i/ecx: int <- copy 0
  var max/edx: int <- length pixels
  {
    compare i, max
    break-if->=
    var curr/eax: (addr byte) <- index pixels, i
    var zero/ebx: byte <- copy 0
    copy-byte-to *curr, zero
    i <- increment
    loop
  }
}

fn fake-screen-empty? _screen: (addr screen) -> _/eax: boolean {
  var screen/esi: (addr screen) <- copy _screen
  var y/eax: int <- copy 0
  var height/ecx: (addr int) <- get screen, height
  {
    compare y, *height
    break-if->=
    var x/edx: int <- copy 0
    var width/ebx: (addr int) <- get screen, width
    {
      compare x, *width
      break-if->=
      var g/eax: grapheme <- screen-grapheme-at screen, x, y
      {
        compare g, 0
        break-if-=
        compare g, 0x20/space
        break-if-=
        return 0/false
      }
      x <- increment
      loop
    }
    y <- increment
    loop
  }
  var pixels-ah/eax: (addr handle array byte) <- get screen, pixels
  var pixels/eax: (addr array byte) <- lookup *pixels-ah
  var y/ebx: int <- copy 0
  var height-addr/edx: (addr int) <- get screen, height
  var height/edx: int <- copy *height-addr
  height <- shift-left 4/log2-font-height
  {
    compare y, height
    break-if->=
    var width-addr/edx: (addr int) <- get screen, width
    var width/edx: int <- copy *width-addr
    width <- shift-left 3/log2-font-width
    var x/edi: int <- copy 0
    {
      compare x, width
      break-if->=
      var idx/ecx: int <- pixel-index screen, x, y
      var color-addr/ecx: (addr byte) <- index pixels, idx
      var color/ecx: byte <- copy-byte *color-addr
      compare color, 0
      {
        break-if-=
        return 0/false
      }
      x <- increment
      loop
    }
    y <- increment
    loop
  }
  return 1/true
}

fn clear-rect _screen: (addr screen), xmin: int, ymin: int, xmax: int, ymax: int, background-color: int {
  var screen/esi: (addr screen) <- copy _screen
  {
    compare screen, 0
    break-if-!=
    clear-rect-on-real-screen xmin, ymin, xmax, ymax, background-color
    return
  }
  # fake screen
  set-cursor-position screen, 0, 0
  var y/eax: int <- copy ymin
  var ymax/ecx: int <- copy ymax
  {
    compare y, ymax
    break-if->=
    var x/edx: int <- copy xmin
    var xmax/ebx: int <- copy xmax
    {
      compare x, xmax
      break-if->=
      draw-code-point screen, 0x20/space, x, y, 0/fg, background-color
      x <- increment
      loop
    }
    y <- increment
    loop
  }
  set-cursor-position screen, 0, 0
}

# there's no grapheme that guarantees to cover every pixel, so we'll bump down
# to pixels for a real screen
fn clear-real-screen {
  var y/eax: int <- copy 0
  {
    compare y, 0x300/screen-height=768
    break-if->=
    var x/edx: int <- copy 0
    {
      compare x, 0x400/screen-width=1024
      break-if->=
      pixel-on-real-screen x, y, 0/color=black
      x <- increment
      loop
    }
    y <- increment
    loop
  }
}

fn clear-rect-on-real-screen xmin: int, ymin: int, xmax: int, ymax: int, background-color: int {
  var y/eax: int <- copy ymin
  y <- shift-left 4/log2-font-height
  var ymax/ecx: int <- copy ymax
  ymax <- shift-left 4/log2-font-height
  {
    compare y, ymax
    break-if->=
    var x/edx: int <- copy xmin
    x <- shift-left 3/log2-font-width
    var xmax/ebx: int <- copy xmax
    xmax <- shift-left 3/log2-font-width
    {
      compare x, xmax
      break-if->=
      pixel-on-real-screen x, y, background-color
      x <- increment
      loop
    }
    y <- increment
    loop
  }
}

fn screen-grapheme-at _screen: (addr screen), x: int, y: int -> _/eax: grapheme {
  var screen/esi: (addr screen) <- copy _screen
  var idx/ecx: int <- screen-cell-index screen, x, y
  var result/eax: grapheme <- screen-grapheme-at-idx screen, idx
  return result
}

fn screen-grapheme-at-idx _screen: (addr screen), idx-on-stack: int -> _/eax: grapheme {
  var screen/esi: (addr screen) <- copy _screen
  var data-ah/eax: (addr handle array screen-cell) <- get screen, data
  var data/eax: (addr array screen-cell) <- lookup *data-ah
  var idx/ecx: int <- copy idx-on-stack
  var offset/ecx: (offset screen-cell) <- compute-offset data, idx
  var cell/eax: (addr screen-cell) <- index data, offset
  var src/eax: (addr grapheme) <- get cell, data
  return *src
}

fn screen-color-at _screen: (addr screen), x: int, y: int -> _/eax: int {
  var screen/esi: (addr screen) <- copy _screen
  var idx/ecx: int <- screen-cell-index screen, x, y
  var result/eax: int <- screen-color-at-idx screen, idx
  return result
}

fn screen-color-at-idx _screen: (addr screen), idx-on-stack: int -> _/eax: int {
  var screen/esi: (addr screen) <- copy _screen
  var data-ah/eax: (addr handle array screen-cell) <- get screen, data
  var data/eax: (addr array screen-cell) <- lookup *data-ah
  var idx/ecx: int <- copy idx-on-stack
  var offset/ecx: (offset screen-cell) <- compute-offset data, idx
  var cell/eax: (addr screen-cell) <- index data, offset
  var src/eax: (addr int) <- get cell, color
  var result/eax: int <- copy *src
  return result
}

fn screen-background-color-at _screen: (addr screen), x: int, y: int -> _/eax: int {
  var screen/esi: (addr screen) <- copy _screen
  var idx/ecx: int <- screen-cell-index screen, x, y
  var result/eax: int <- screen-background-color-at-idx screen, idx
  return result
}

fn screen-background-color-at-idx _screen: (addr screen), idx-on-stack: int -> _/eax: int {
  var screen/esi: (addr screen) <- copy _screen
  var data-ah/eax: (addr handle array screen-cell) <- get screen, data
  var data/eax: (addr array screen-cell) <- lookup *data-ah
  var idx/ecx: int <- copy idx-on-stack
  var offset/ecx: (offset screen-cell) <- compute-offset data, idx
  var cell/eax: (addr screen-cell) <- index data, offset
  var src/eax: (addr int) <- get cell, background-color
  var result/eax: int <- copy *src
  return result
}

fn pixel screen: (addr screen), x: int, y: int, color: int {
  {
    compare screen, 0
    break-if-!=
    pixel-on-real-screen x, y, color
    return
  }
  # fake screen
  var screen/esi: (addr screen) <- copy screen
  var pixels-ah/eax: (addr handle array byte) <- get screen, pixels
  var pixels/eax: (addr array byte) <- lookup *pixels-ah
  {
    compare pixels, 0
    break-if-!=
    abort "pixel graphics not enabled for this screen"
  }
  var idx/ecx: int <- pixel-index screen, x, y
  var dest/ecx: (addr byte) <- index pixels, idx
  var src/eax: byte <- copy-byte color
  copy-byte-to *dest, src
}

fn pixel-index _screen: (addr screen), x: int, y: int -> _/ecx: int {
  var screen/esi: (addr screen) <- copy _screen
  {
    compare x, 0
    break-if->=
    var invalid/eax: (addr int) <- get screen, invalid-pixel-index
    return *invalid
  }
  {
    var xmax-a/eax: (addr int) <- get screen, width
    var xmax/eax: int <- copy *xmax-a
    xmax <- shift-left 3/log2-font-width
    compare x, xmax
    break-if-<
    var invalid/eax: (addr int) <- get screen, invalid-pixel-index
    return *invalid
  }
  {
    compare y, 0
    break-if->=
    var invalid/eax: (addr int) <- get screen, invalid-pixel-index
    return *invalid
  }
  {
    var ymax-a/eax: (addr int) <- get screen, height
    var ymax/eax: int <- copy *ymax-a
    ymax <- shift-left 4/log2-font-height
    compare y, ymax
    break-if-<
    var invalid/eax: (addr int) <- get screen, invalid-pixel-index
    return *invalid
  }
  var width-addr/eax: (addr int) <- get screen, width
  var result/ecx: int <- copy y
  result <- multiply *width-addr
  result <- shift-left 3/log2-font-width
  result <- add x
  return result
}

# double-buffering primitive
# 'screen' must be a fake screen. 'target-screen' is usually real.
# Both screens must have the same size.
fn copy-pixels _screen: (addr screen), target-screen: (addr screen) {
  var screen/esi: (addr screen) <- copy _screen
  var pixels-ah/eax: (addr handle array byte) <- get screen, pixels
  var _pixels/eax: (addr array byte) <- lookup *pixels-ah
  var pixels/edi: (addr array byte) <- copy _pixels
  var width-a/edx: (addr int) <- get screen, width
  var width/edx: int <- copy *width-a
  width <- shift-left 3/log2-font-width
  var height-a/ebx: (addr int) <- get screen, height
  var height/ebx: int <- copy *height-a
  height <- shift-left 4/log2-font-height
  var i/esi: int <- copy 0
  var y/ecx: int <- copy 0
  {
    # screen top left pixels x y width height
    compare y, height
    break-if->=
    var x/eax: int <- copy 0
    {
      compare x, width
      break-if->=
      {
        var color-addr/ebx: (addr byte) <- index pixels, i
        var color/ebx: byte <- copy-byte *color-addr
        var color2/ebx: int <- copy color
        pixel target-screen, x, y, color2
      }
      x <- increment
      i <- increment
      loop
    }
    y <- increment
    loop
  }
}

# It turns out double-buffering graphemes is useless because rendering fonts
# takes too long. (At least under Qemu.)
# So we'll instead convert graphemes to pixels when double-buffering.
# 'screen' must be a fake screen.
fn convert-graphemes-to-pixels _screen: (addr screen) {
  var screen/esi: (addr screen) <- copy _screen
  var width-a/ebx: (addr int) <- get screen, width
  var height-a/edx: (addr int) <- get screen, height
  var data-ah/eax: (addr handle array byte) <- get screen, pixels
  var _data/eax: (addr array byte) <- lookup *data-ah
  var data: (addr array byte)
  copy-to data, _data
  var y/ecx: int <- copy 0
  {
    compare y, *height-a
    break-if->=
    var x/edi: int <- copy 0
    {
      compare x, *width-a
      break-if->=
      {
        var tmp/eax: grapheme <- screen-grapheme-at screen, x, y
        # skip null graphemes that only get created when clearing screen
        # there may be other pixels drawn there, and we don't want to clobber them
        # this is a situation where fake screens aren't faithful to real screens; we don't support overlap between graphemes and raw pixels
        compare tmp, 0
        break-if-=
        var g: grapheme
        copy-to g, tmp
        var tmp/eax: int <- screen-color-at screen, x, y
        var fg: int
        copy-to fg, tmp
        var bg/eax: int <- screen-background-color-at screen, x, y
        draw-grapheme-on-screen-array data, g, x, y, fg, bg, *width-a, *height-a
      }
      x <- increment
      loop
    }
    y <- increment
    loop
  }
}


context:
space:
mode: