http_upload.c « tools « src - profani-tty - Profanity fork with TTY improvements

blob: 289dba15991dfa66a53b9988fa65a1582177ce09 (plain) (tree)

1b0ce852 ^

46fd7150 ^

1b0ce852 ^

706af9a9 ^

1b0ce852 ^

e8fc80f5 ^

1b0ce852 ^

772a72b6 ^

9b55f2de ^

a4cadf78 ^

1b0ce852 ^

a4cadf78 ^

1b0ce852 ^

9b55f2de ^

a4cadf78 ^

0a57c4de ^

7f1f9787 ^

a4cadf78 ^

0a57c4de ^

a4cadf78 ^

1b0ce852 ^

a2726b6a ^

043a673f ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

1ec60654 ^

1b0ce852 ^

1ec60654 ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

4711fc62 ^

e9d58757 ^

4711fc62 ^

e9d58757 ^

4711fc62 ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

4711fc62 ^

1b0ce852 ^

a2726b6a ^

1ec60654 ^

e217ed0b ^

1ec60654 ^

1b0ce852 ^

a2726b6a ^

1b0ce852 ^

1ec60654 ^

1b0ce852 ^

9499df65 ^

1ec60654 ^

1b0ce852 ^

a2726b6a ^

7f1f9787 ^

3a86b8c2 ^

f11ad167 ^

3a86b8c2 ^

1b0ce852 ^

a2726b6a ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-16 17:35:08 +0000

">var g/eax: grapheme <- gap-index gap, 0 var x/ecx: int <- copy g check-ints-equal x, 0x61/a, "F - test-gap-index/right-1" var g/eax: grapheme <- gap-index gap, 1 var x/ecx: int <- copy g check-ints-equal x, 0x62/b, "F - test-gap-index/right-2" var g/eax: grapheme <- gap-index gap, 2 var x/ecx: int <- copy g check-ints-equal x, 0x63/c, "F - test-gap-index/right-3" } fn copy-gap-buffer _src-ah: (addr handle gap-buffer), _dest-ah: (addr handle gap-buffer) { # obtain src-a, dest-a var src-ah/eax: (addr handle gap-buffer) <- copy _src-ah var _src-a/eax: (addr gap-buffer) <- lookup *src-ah var src-a/esi: (addr gap-buffer) <- copy _src-a var dest-ah/eax: (addr handle gap-buffer) <- copy _dest-ah var _dest-a/eax: (addr gap-buffer) <- lookup *dest-ah var dest-a/edi: (addr gap-buffer) <- copy _dest-a # copy left grapheme-stack var src/ecx: (addr grapheme-stack) <- get src-a, left var dest/edx: (addr grapheme-stack) <- get dest-a, left copy-grapheme-stack src, dest # copy right grapheme-stack src <- get src-a, right dest <- get dest-a, right copy-grapheme-stack src, dest } fn gap-buffer-is-decimal-integer? _self: (addr gap-buffer) -> _/eax: boolean { var self/esi: (addr gap-buffer) <- copy _self var curr/ecx: (addr grapheme-stack) <- get self, left var result/eax: boolean <- grapheme-stack-is-decimal-integer? curr { compare result, 0/false break-if-= curr <- get self, right result <- grapheme-stack-is-decimal-integer? curr } return result } fn test-render-gap-buffer-without-cursor { # setup var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "abc" # setup: screen var screen-on-stack: screen var screen/edi: (addr screen) <- address screen-on-stack initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-gap-buffer screen, gap, 0/x, 0/y, 0/no-cursor check-screen-row screen, 0/y, "abc ", "F - test-render-gap-buffer-without-cursor" check-ints-equal x, 4, "F - test-render-gap-buffer-without-cursor: result" # abc check-background-color-in-screen-row screen, 7/bg=cursor, 0/y, " ", "F - test-render-gap-buffer-without-cursor: bg" } fn test-render-gap-buffer-with-cursor-at-end { # setup var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "abc" gap-to-end gap # setup: screen var screen-on-stack: screen var screen/edi: (addr screen) <- address screen-on-stack initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-gap-buffer screen, gap, 0/x, 0/y, 1/show-cursor check-screen-row screen, 0/y, "abc ", "F - test-render-gap-buffer-with-cursor-at-end" # we've drawn one extra grapheme for the cursor check-ints-equal x, 4, "F - test-render-gap-buffer-with-cursor-at-end: result" # abc check-background-color-in-screen-row screen, 7/bg=cursor, 0/y, " |", "F - test-render-gap-buffer-with-cursor-at-end: bg" } fn test-render-gap-buffer-with-cursor-in-middle { # setup var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "abc" gap-to-end gap var dummy/eax: grapheme <- gap-left gap # setup: screen var screen-on-stack: screen var screen/edi: (addr screen) <- address screen-on-stack initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-gap-buffer screen, gap, 0/x, 0/y, 1/show-cursor check-screen-row screen, 0/y, "abc ", "F - test-render-gap-buffer-with-cursor-in-middle" check-ints-equal x, 4, "F - test-render-gap-buffer-with-cursor-in-middle: result" # abc check-background-color-in-screen-row screen, 7/bg=cursor, 0/y, " | ", "F - test-render-gap-buffer-with-cursor-in-middle: bg" } fn test-render-gap-buffer-with-cursor-at-start { var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "abc" gap-to-start gap # setup: screen var screen-on-stack: screen var screen/edi: (addr screen) <- address screen-on-stack initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-gap-buffer screen, gap, 0/x, 0/y, 1/show-cursor check-screen-row screen, 0/y, "abc ", "F - test-render-gap-buffer-with-cursor-at-start" check-ints-equal x, 4, "F - test-render-gap-buffer-with-cursor-at-start: result" # abc check-background-color-in-screen-row screen, 7/bg=cursor, 0/y, "| ", "F - test-render-gap-buffer-with-cursor-at-start: bg" } fn test-render-gap-buffer-highlight-matching-close-paren { var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "(a)" gap-to-start gap # setup: screen var screen-on-stack: screen var screen/edi: (addr screen) <- address screen-on-stack initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-gap-buffer screen, gap, 0/x, 0/y, 1/show-cursor check-screen-row screen, 0/y, "(a) ", "F - test-render-gap-buffer-highlight-matching-close-paren" check-ints-equal x, 4, "F - test-render-gap-buffer-highlight-matching-close-paren: result" check-background-color-in-screen-row screen, 7/bg=cursor, 0/y, "| ", "F - test-render-gap-buffer-highlight-matching-close-paren: cursor" check-screen-row-in-color screen, 0xf/fg=highlight, 0/y, " ) ", "F - test-render-gap-buffer-highlight-matching-close-paren: matching paren" } fn test-render-gap-buffer-highlight-matching-open-paren { var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "(a)" gap-to-end gap var dummy/eax: grapheme <- gap-left gap # setup: screen var screen-on-stack: screen var screen/edi: (addr screen) <- address screen-on-stack initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-gap-buffer screen, gap, 0/x, 0/y, 1/show-cursor check-screen-row screen, 0/y, "(a) ", "F - test-render-gap-buffer-highlight-matching-open-paren" check-ints-equal x, 4, "F - test-render-gap-buffer-highlight-matching-open-paren: result" check-background-color-in-screen-row screen, 7/bg=cursor, 0/y, " | ", "F - test-render-gap-buffer-highlight-matching-open-paren: cursor" check-screen-row-in-color screen, 0xf/fg=highlight, 0/y, "( ", "F - test-render-gap-buffer-highlight-matching-open-paren: matching paren" } fn test-render-gap-buffer-highlight-matching-open-paren-of-end { var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "(a)" gap-to-end gap # setup: screen var screen-on-stack: screen var screen/edi: (addr screen) <- address screen-on-stack initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-gap-buffer screen, gap, 0/x, 0/y, 1/show-cursor check-screen-row screen, 0/y, "(a) ", "F - test-render-gap-buffer-highlight-matching-open-paren-of-end" check-ints-equal x, 4, "F - test-render-gap-buffer-highlight-matching-open-paren-of-end: result" check-background-color-in-screen-row screen, 7/bg=cursor, 0/y, " |", "F - test-render-gap-buffer-highlight-matching-open-paren-of-end: cursor" check-screen-row-in-color screen, 0xf/fg=highlight, 0/y, "( ", "F - test-render-gap-buffer-highlight-matching-open-paren-of-end: matching paren" } # should I highlight a matching open paren? And if so, at what depth from top of left? # basically there are two cases to disambiguate here: # Usually the cursor is at top of right. Highlight first '(' at depth 0 from top of left. # If right is empty, match the ')' _before_ cursor. Highlight first '(' at depth _1_ from top of left. fn highlight-matching-open-paren? _gap: (addr gap-buffer), render-cursor?: boolean -> _/ebx: boolean, _/edi: int { # if not rendering cursor, return compare render-cursor?, 0/false { break-if-!= return 0/false, 0 } var gap/esi: (addr gap-buffer) <- copy _gap var stack/edi: (addr grapheme-stack) <- get gap, right var top-addr/eax: (addr int) <- get stack, top var top-index/ecx: int <- copy *top-addr compare top-index, 0 { break-if-> # if cursor at end, return (char before cursor == ')', 1) stack <- get gap, left top-addr <- get stack, top top-index <- copy *top-addr compare top-index, 0 { break-if-> return 0/false, 0 } top-index <- decrement var data-ah/eax: (addr handle array grapheme) <- get stack, data var data/eax: (addr array grapheme) <- lookup *data-ah var g/eax: (addr grapheme) <- index data, top-index compare *g, 0x29/close-paren { break-if-= return 0/false, 0 } return 1/true, 1 } # cursor is not at end; return (char at cursor == ')') top-index <- decrement var data-ah/eax: (addr handle array grapheme) <- get stack, data var data/eax: (addr array grapheme) <- lookup *data-ah var g/eax: (addr grapheme) <- index data, top-index compare *g, 0x29/close-paren { break-if-= return 0/false, 0 } return 1/true, 0 } fn test-highlight-matching-open-paren { var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "(a)" gap-to-end gap var highlight-matching-open-paren?/ebx: boolean <- copy 0/false var open-paren-depth/edi: int <- copy 0 highlight-matching-open-paren?, open-paren-depth <- highlight-matching-open-paren? gap, 0/no-cursor check-not highlight-matching-open-paren?, "F - test-highlight-matching-open-paren: no cursor" highlight-matching-open-paren?, open-paren-depth <- highlight-matching-open-paren? gap, 1/render-cursor check highlight-matching-open-paren?, "F - test-highlight-matching-open-paren: at end immediately after ')'" check-ints-equal open-paren-depth, 1, "F - test-highlight-matching-open-paren: depth at end immediately after ')'" var dummy/eax: grapheme <- gap-left gap highlight-matching-open-paren?, open-paren-depth <- highlight-matching-open-paren? gap, 1/render-cursor check highlight-matching-open-paren?, "F - test-highlight-matching-open-paren: on ')'" dummy <- gap-left gap highlight-matching-open-paren?, open-paren-depth <- highlight-matching-open-paren? gap, 1/render-cursor check-not highlight-matching-open-paren?, "F - test-highlight-matching-open-paren: not on ')'" } ## some primitives for scanning through a gap buffer # don't modify the gap buffer while scanning # this includes moving the cursor around # restart scan without affecting gap-buffer contents fn rewind-gap-buffer _self: (addr gap-buffer) { var self/esi: (addr gap-buffer) <- copy _self var dest/eax: (addr int) <- get self, left-read-index copy-to *dest, 0 dest <- get self, right-read-index copy-to *dest, 0 } fn gap-buffer-scan-done? _self: (addr gap-buffer) -> _/eax: boolean { var self/esi: (addr gap-buffer) <- copy _self # more in left? var left/eax: (addr grapheme-stack) <- get self, left var left-size/eax: int <- grapheme-stack-length left var left-read-index/ecx: (addr int) <- get self, left-read-index compare *left-read-index, left-size { break-if->= return 0/false } # more in right? var right/eax: (addr grapheme-stack) <- get self, right var right-size/eax: int <- grapheme-stack-length right var right-read-index/ecx: (addr int) <- get self, right-read-index compare *right-read-index, right-size { break-if->= return 0/false } # return 1/true } fn peek-from-gap-buffer _self: (addr gap-buffer) -> _/eax: grapheme { var self/esi: (addr gap-buffer) <- copy _self # more in left? var left/ecx: (addr grapheme-stack) <- get self, left var left-size/eax: int <- grapheme-stack-length left var left-read-index-a/edx: (addr int) <- get self, left-read-index compare *left-read-index-a, left-size { break-if->= var left-data-ah/eax: (addr handle array grapheme) <- get left, data var left-data/eax: (addr array grapheme) <- lookup *left-data-ah var left-read-index/ecx: int <- copy *left-read-index-a var result/eax: (addr grapheme) <- index left-data, left-read-index return *result } # more in right? var right/ecx: (addr grapheme-stack) <- get self, right var _right-size/eax: int <- grapheme-stack-length right var right-size/ebx: int <- copy _right-size var right-read-index-a/edx: (addr int) <- get self, right-read-index compare *right-read-index-a, right-size { break-if->= # read the right from reverse var right-data-ah/eax: (addr handle array grapheme) <- get right, data var right-data/eax: (addr array grapheme) <- lookup *right-data-ah var right-read-index/ebx: int <- copy right-size right-read-index <- subtract *right-read-index-a right-read-index <- subtract 1 var result/eax: (addr grapheme) <- index right-data, right-read-index return *result } # if we get here there's nothing left return 0/nul } fn read-from-gap-buffer _self: (addr gap-buffer) -> _/eax: grapheme { var self/esi: (addr gap-buffer) <- copy _self # more in left? var left/ecx: (addr grapheme-stack) <- get self, left var left-size/eax: int <- grapheme-stack-length left var left-read-index-a/edx: (addr int) <- get self, left-read-index compare *left-read-index-a, left-size { break-if->= var left-data-ah/eax: (addr handle array grapheme) <- get left, data var left-data/eax: (addr array grapheme) <- lookup *left-data-ah var left-read-index/ecx: int <- copy *left-read-index-a var result/eax: (addr grapheme) <- index left-data, left-read-index increment *left-read-index-a return *result } # more in right? var right/ecx: (addr grapheme-stack) <- get self, right var _right-size/eax: int <- grapheme-stack-length right var right-size/ebx: int <- copy _right-size var right-read-index-a/edx: (addr int) <- get self, right-read-index compare *right-read-index-a, right-size { break-if->= # read the right from reverse var right-data-ah/eax: (addr handle array grapheme) <- get right, data var right-data/eax: (addr array grapheme) <- lookup *right-data-ah var right-read-index/ebx: int <- copy right-size right-read-index <- subtract *right-read-index-a right-read-index <- subtract 1 var result/eax: (addr grapheme) <- index right-data, right-read-index increment *right-read-index-a return *result } # if we get here there's nothing left return 0/nul } fn test-read-from-gap-buffer { var gap-storage: gap-buffer var gap/esi: (addr gap-buffer) <- address gap-storage initialize-gap-buffer-with gap, "abc" # gap is at end, all contents are in left var done?/eax: boolean <- gap-buffer-scan-done? gap check-not done?, "F - test-read-from-gap-buffer/left-1/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0x61/a, "F - test-read-from-gap-buffer/left-1" var done?/eax: boolean <- gap-buffer-scan-done? gap check-not done?, "F - test-read-from-gap-buffer/left-2/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0x62/b, "F - test-read-from-gap-buffer/left-2" var done?/eax: boolean <- gap-buffer-scan-done? gap check-not done?, "F - test-read-from-gap-buffer/left-3/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0x63/c, "F - test-read-from-gap-buffer/left-3" var done?/eax: boolean <- gap-buffer-scan-done? gap check done?, "F - test-read-from-gap-buffer/left-4/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0/nul, "F - test-read-from-gap-buffer/left-4" # now check when everything is to the right gap-to-start gap rewind-gap-buffer gap var done?/eax: boolean <- gap-buffer-scan-done? gap check-not done?, "F - test-read-from-gap-buffer/right-1/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0x61/a, "F - test-read-from-gap-buffer/right-1" var done?/eax: boolean <- gap-buffer-scan-done? gap check-not done?, "F - test-read-from-gap-buffer/right-2/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0x62/b, "F - test-read-from-gap-buffer/right-2" var done?/eax: boolean <- gap-buffer-scan-done? gap check-not done?, "F - test-read-from-gap-buffer/right-3/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0x63/c, "F - test-read-from-gap-buffer/right-3" var done?/eax: boolean <- gap-buffer-scan-done? gap check done?, "F - test-read-from-gap-buffer/right-4/done" var g/eax: grapheme <- read-from-gap-buffer gap var x/ecx: int <- copy g check-ints-equal x, 0/nul, "F - test-read-from-gap-buffer/right-4" } fn skip-whitespace-from-gap-buffer self: (addr gap-buffer) { var done?/eax: boolean <- gap-buffer-scan-done? self compare done?, 0/false break-if-!= var g/eax: grapheme <- peek-from-gap-buffer self { compare g, 0x20/space break-if-= compare g, 0xa/newline break-if-= return } g <- read-from-gap-buffer self loop } fn edit-gap-buffer self: (addr gap-buffer), key: grapheme { var g/edx: grapheme <- copy key { compare g, 8/backspace break-if-!= delete-before-gap self return } { compare g, 0x80/left-arrow break-if-!= var dummy/eax: grapheme <- gap-left self return } { compare g, 0x83/right-arrow break-if-!= var dummy/eax: grapheme <- gap-right self return } { compare g, 6/ctrl-f break-if-!= gap-to-start-of-next-word self return } { compare g, 2/ctrl-b break-if-!= gap-to-end-of-previous-word self return } { compare g, 1/ctrl-a break-if-!= gap-to-previous-start-of-line self return } { compare g, 5/ctrl-e break-if-!= gap-to-next-end-of-line self return } { compare g, 0x81/down-arrow break-if-!= gap-down self return } { compare g, 0x82/up-arrow break-if-!= gap-up self return } { compare g, 0x15/ctrl-u break-if-!= clear-gap-buffer self return } { compare g, 9/tab break-if-!= # tab = 2 spaces add-code-point-at-gap self, 0x20/space add-code-point-at-gap self, 0x20/space return } # default: insert character add-grapheme-at-gap self, g } fn gap-to-start-of-next-word self: (addr gap-buffer) { var curr/eax: grapheme <- copy 0 # skip to next space { curr <- gap-right self compare curr, -1 break-if-= compare curr, 0x20/space break-if-= compare curr, 0xa/newline break-if-= loop } # skip past spaces { curr <- gap-right self compare curr, -1 break-if-= compare curr, 0x20/space loop-if-= compare curr, 0xa/space loop-if-= curr <- gap-left self break } } fn gap-to-end-of-previous-word self: (addr gap-buffer) { var curr/eax: grapheme <- copy 0 # skip to previous space { curr <- gap-left self compare curr, -1 break-if-= compare curr, 0x20/space break-if-= compare curr, 0xa/newline break-if-= loop } # skip past all spaces but one { curr <- gap-left self compare curr, -1 break-if-= compare curr, 0x20/space loop-if-= compare curr, 0xa/space loop-if-= curr <- gap-right self break } } fn gap-to-previous-start-of-line self: (addr gap-buffer) { # skip past immediate newline var dummy/eax: grapheme <- gap-left self # skip to previous newline { dummy <- gap-left self { compare dummy, -1 break-if-!= return } { compare dummy, 0xa/newline break-if-!= dummy <- gap-right self return } loop } } fn gap-to-next-end-of-line self: (addr gap-buffer) { # skip past immediate newline var dummy/eax: grapheme <- gap-right self # skip to next newline { dummy <- gap-right self { compare dummy, -1 break-if-!= return } { compare dummy, 0xa/newline break-if-!= dummy <- gap-left self return } loop } } fn gap-up self: (addr gap-buffer) { # compute column var col/edx: int <- count-columns-to-start-of-line self # gap-to-previous-start-of-line self # skip ahead by up to col on previous line var i/ecx: int <- copy 0 { compare i, col break-if->= var curr/eax: grapheme <- gap-right self { compare curr, -1 break-if-!= return } compare curr, 0xa/newline { break-if-!= curr <- gap-left self return } i <- increment loop } } fn gap-down self: (addr gap-buffer) { # compute column var col/edx: int <- count-columns-to-start-of-line self # skip to start of next line gap-to-end-of-line self var dummy/eax: grapheme <- gap-right self # skip ahead by up to col on previous line var i/ecx: int <- copy 0 { compare i, col break-if->= var curr/eax: grapheme <- gap-right self { compare curr, -1 break-if-!= return } compare curr, 0xa/newline { break-if-!= curr <- gap-left self return } i <- increment loop } } fn count-columns-to-start-of-line self: (addr gap-buffer) -> _/edx: int { var count/edx: int <- copy 0 var dummy/eax: grapheme <- copy 0 # skip to previous newline { dummy <- gap-left self { compare dummy, -1 break-if-!= return count } { compare dummy, 0xa/newline break-if-!= dummy <- gap-right self return count } count <- increment loop } return count } fn gap-to-end-of-line self: (addr gap-buffer) { var dummy/eax: grapheme <- copy 0 # skip to next newline { dummy <- gap-right self { compare dummy, -1 break-if-!= return } { compare dummy, 0xa/newline break-if-!= dummy <- gap-left self return } loop } }