prof.supp - profani-tty - Profanity fork with TTY improvements

blob: f894dc7570c5efd50835bd96a6b728e3ae4ccf0c (plain) (tree)

46ecdc33 ^

c505f4aa ^

c505f4aa ^

b9b5d6a5 ^

2af5c151 ^

e2aa4d6f ^

2af5c151 ^

e2aa4d6f ^

2af5c151 ^

e2aa4d6f ^

46ecdc33 ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-15 23:43:10 +0000

ncate" 58 # 59 <a href='411string.mu.html#L2'>substring</a> "abcde", 0, 5, out-ah 60 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L226'>lookup</a> *out-ah 61 <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, "abcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/all" 62 # 63 <a href='411string.mu.html#L2'>substring</a> "abcde", 0, 7, out-ah 64 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L226'>lookup</a> *out-ah 65 <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, "abcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/too-small" 66 # substrings outside string 67 <a href='411string.mu.html#L2'>substring</a> "abcde", 6, 1, out-ah 68 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L226'>lookup</a> *out-ah 69 <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, "", "F - <a href='411string.mu.html#L40'>test-substring</a>/start-too-large" 70 # trim prefix 71 <a href='411string.mu.html#L2'>substring</a> "", 2, 3, out-ah 72 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L226'>lookup</a> *out-ah 73 <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, "", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-empty" 74 # 75 <a href='411string.mu.html#L2'>substring</a> "abcde", 1, 2, out-ah 76 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L226'>lookup</a> *out-ah 77 <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, "bc", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-truncate" 78 # 79 <a href='411string.mu.html#L2'>substring</a> "abcde", 1, 4, out-ah 80 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L226'>lookup</a> *out-ah 81 <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, "bcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-all" 82 # 83 <a href='411string.mu.html#L2'>substring</a> "abcde", 1, 5, out-ah 84 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L226'>lookup</a> *out-ah 85 <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, "bcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small" 86 } 87 88 fn <a href='411string.mu.html#L88'>split-string</a> in: (addr array byte), delim: grapheme, out: (addr handle array (handle array byte)) { 89 var in-stream: (stream byte 0x100) 90 var in-stream-addr/esi: (addr stream byte) <- address in-stream 91 <a href='108write.subx.html#L11'>write</a> in-stream-addr, in 92 var tokens-stream: (stream (handle array byte) 0x100) 93 var tokens-stream-addr/edi: (addr stream (handle array byte)) <- address tokens-stream 94 var curr-stream: (stream byte 0x100) 95 var curr-stream-addr/ecx: (addr stream byte) <- address curr-stream 96 $split-string:core: { 97 var g/eax: grapheme <- <a href='403unicode.mu.html#L92'>read-grapheme</a> in-stream-addr 98 compare g, 0xffffffff 99 break-if-= 100 #? print-grapheme-to-real-screen g 101 #? print-string-to-real-screen "\n" 102 compare g, delim 103 { 104 break-if-!= 105 # token complete; flush 106 var token: (handle array byte) 107 var token-ah/eax: (addr handle array byte) <- address token 108 <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream-addr, token-ah 109 <a href='309stream.subx.html#L54'>write-to-stream</a> tokens-stream-addr, token-ah 110 <a href='106stream.subx.html#L20'>clear-stream</a> curr-stream-addr 111 loop $split-string:core 112 } 113 <a href='403unicode.mu.html#L176'>write-grapheme</a> curr-stream-addr, g 114 loop 115 } 116 <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> tokens-stream-addr, out 117 } 118 119 fn <a href='411string.mu.html#L119'>test-split-string</a> { 120 var out-h: (handle array (handle array byte)) 121 var out-ah/edi: (addr handle array (handle array byte)) <- address out-h 122 # prefix substrings 123 <a href='411string.mu.html#L88'>split-string</a> "bab", 0x61, out-ah 124 # no crash 125 } </pre> </body> </html>