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

blob: 1f8a522021faa267f2e463be30d64f87d4fe1f4c (plain) (tree)

824eaa16 ^

7100b0e3 ^

824eaa16 ^

b3be26a2 ^

824eaa16 ^

f9737251 ^

824eaa16 ^

ff37b44a ^

78dd79f6 ^

a1d14c45 ^

78dd79f6 ^

a1d14c45 ^

78dd79f6 ^

824eaa16 ^

c3e37592 ^

824eaa16 ^

c3e37592 ^

824eaa16 ^

a1d14c45 ^

824eaa16 ^

bb550fed ^

824eaa16 ^

bae9bde4 ^

824eaa16 ^

bb550fed ^

51786f67 ^

824eaa16 ^

bb550fed ^

824eaa16 ^

bb550fed ^

bae9bde4 ^

51786f67 ^

bae9bde4 ^

824eaa16 ^

bae9bde4 ^

bb550fed ^

bae9bde4 ^

bb550fed ^

bae9bde4 ^

824eaa16 ^

bb550fed ^

bae9bde4 ^

bb550fed ^

bae9bde4 ^

824eaa16 ^

191ab83c ^

51786f67 ^

bb550fed ^

78dd79f6 ^

191ab83c ^

78dd79f6 ^

191ab83c ^

c9ed5834 ^

c3e37592 ^

191ab83c ^

312d362e generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-25 06:53:03 +0000

pan class="nt">span> 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 reply screen/same-as-ingredient:0 ] # row, screen <- render-string screen:address, s:address:array:character, left:number, right:number, color:number, row:number # print a string 's' to 'editor' in 'color' starting at 'row' # clear rest of last line, move cursor to next line recipe render-string [ local-scope screen:address <- next-ingredient s:address:array:character <- next-ingredient left:number <- next-ingredient right:number <- next-ingredient color:number <- next-ingredient row:number <- next-ingredient reply-unless s, row/same-as-ingredient:5, screen/same-as-ingredient:0 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 print-character screen, 8617/loop-back-to-left, 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? print-character screen, 32/space column <- add column, 1 loop } row <- add row, 1 column <- copy left screen <- move-cursor screen, row, column loop +next-character:label } print-character screen, c, color column <- add column, 1 loop } was-at-left?:boolean <- equal column, left clear-line-delimited screen, column, right { break-if was-at-left? row <- add row, 1 } move-cursor row, left reply row/same-as-ingredient:5, screen/same-as-ingredient:0 ] # row, screen <- render-code-string screen:address, s:address:array:character, left:number, right:number, row:number # like 'render-string' but with colorization for comments like in the editor recipe render-code-string [ local-scope screen:address <- next-ingredient s:address:array:character <- next-ingredient left:number <- next-ingredient right:number <- next-ingredient row:number <- next-ingredient reply-unless s, row/same-as-ingredient:4, screen/same-as-ingredient:0 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-string { # at right? wrap. at-right?:boolean <- equal column, right break-unless at-right? # print wrap icon print-character screen, 8617/loop-back-to-left, 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? print-character screen, 32/space column <- add column, 1 loop } row <- add row, 1 column <- copy left screen <- move-cursor screen, row, column loop +next-character:label } print-character screen, c, color column <- add column, 1 loop } was-at-left?:boolean <- equal column, left clear-line-delimited screen, column, right { break-if was-at-left? row <- add row, 1 } move-cursor row, left reply row/same-as-ingredient:4, screen/same-as-ingredient:0 ] # 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? <- not *sandbox-in-focus? screen <- update-cursor screen, recipes, current-sandbox, *sandbox-in-focus? loop +next-event:label } ] # ctrl-x - maximize/unmaximize the side with focus scenario maximize-side [ $close-trace # 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, 1:address:array:character, 2:address:array:character screen <- render-all screen, 3:address:programming-environment-data screen-should-contain [ . run (F4) . .abc ┊def . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━. . ┊ . ] # hit ctrl-x assume-console [ press ctrl-x ] run [ event-loop screen:address, console:address, 3:address:programming-environment-data ] # only left side visible screen-should-contain [ . run (F4) . .abc . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈. . . ] # hit any key to toggle back assume-console [ press ctrl-x ] run [ event-loop screen:address, console:address, 3:address:programming-environment-data ] screen-should-contain [ . run (F4) . .abc ┊def . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊━━━━━━━━━━━━━━. . ┊ . ] ] #? # ctrl-t - browse trace #? after <global-type> [ #? { #? browse-trace?:boolean <- equal *c, 20/ctrl-t #? break-unless browse-trace? #? $browse-trace #? screen <- render-all screen, env:address:programming-environment-data #? loop +next-event:label #? } #? ] container programming-environment-data [ maximized?:boolean ] after <global-type> [ { maximize?:boolean <- equal *c, 24/ctrl-x break-unless maximize? screen, console <- maximize screen, console, env:address:programming-environment-data loop +next-event:label } ] recipe maximize [ local-scope screen:address <- next-ingredient console:address <- next-ingredient env:address:programming-environment-data <- next-ingredient hide-screen screen # maximize one of the sides maximized?:address:boolean <- get-address *env, maximized?:offset *maximized? <- copy 1/true # sandbox-in-focus?:boolean <- get *env, sandbox-in-focus?:offset { break-if sandbox-in-focus? editor:address:editor-data <- get *env, recipes:offset right:address:number <- get-address *editor, right:offset *right <- screen-width screen *right <- subtract *right, 1 screen <- render-recipes screen, env } { break-unless sandbox-in-focus? editor:address:editor-data <- get *env, current-sandbox:offset left:address:number <- get-address *editor, left:offset *left <- copy 0 screen <- render-sandbox-side screen, env } show-screen screen reply screen/same-as-ingredient:0, console/same-as-ingredient:1 ] # when maximized, wait for any event and simply unmaximize after <handle-event> [ { maximized?:address:boolean <- get-address *env, maximized?:offset break-unless *maximized? *maximized? <- copy 0/false # undo maximize { break-if *sandbox-in-focus? editor:address:editor-data <- get *env, recipes:offset right:address:number <- get-address *editor, right:offset *right <- screen-width screen *right <- divide *right, 2 *right <- subtract *right, 1 } { break-unless *sandbox-in-focus? editor:address:editor-data <- get *env, current-sandbox:offset left:address:number <- get-address *editor, left:offset *left <- screen-width screen *left <- divide *left, 2 *left <- add *left, 1 } render-all screen, env show-screen screen loop +next-event:label } ] ## helpers recipe draw-vertical [ local-scope screen:address <- next-ingredient col:number <- next-ingredient y:number <- next-ingredient bottom:number <- next-ingredient 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-character screen, style, color y <- add y, 1 loop } ] </pre> </body> </html>