about summary refs log blame commit diff stats
path: root/html/subx/016index_addressing.cc.html
blob: 2e775053ad0e1e6829ec0eb7874c922eaff39755 (plain) (tree)
1
2
3
4
5
6
7
8
9



                                                                                          
                                               
                                         


                                                                                                               
                                                 

                       

                                                                                                 
                    
                                     
                                                                          








                                                                           
































                                                                                 
                                                                                                                                                           




                                                                                                                                                                    
                                                                                           




                                                                                                                                                                                                                            
                                                                                                                             
                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                     

                                                                                                                                 



                                                                                                                                                                                                                   
                                                                                                                                                                                              

                                                                                                                
                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                 
                                                                                                                                                                                                 
                                                                                                                                                      
                                                                                                                                                                                                                                                                   
                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        


                                                                                                            
                                                                                                                                                                           
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
                                                                           
                                                                                                                                                                                                                                                                                                         
                                                                                                                                                                                                                          
                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 

                                                                                                            
                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       





                                                                                                                        
                                                                                                          





                                                                                                                                                                                                                                
                                                                                                                             
                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                     

                                                                                                                                      





                                                                                                                            
                                                                                                                                                                                                                                                                                                                                                                                                                                               

                                                                                                                                            
                                                                                                                             
                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                     

                                                                                                                                    





                                                                                                                                   
                                                                                                          





                                                                                                                                                                                                                                                                                             
                                                                                                                             
                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                     


                                                                                                                                      



                                                                                                                                                                                                                   
                                                                                                                                                                                               





                                                                                                                                     
                                                                                                           





                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                                                                                                                              
                                                                                                                                                                                                                                                                                                                                   
                                                                                                                                      


                                                                                                                                        



                                                                                                                                                                                                                    
                                                                                                                                                                                               




                                                                                                                 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title>Mu - subx/016index_addressing.cc</title>
<meta name="Generator" content="Vim/8.0">
<meta name="plugin-version" content="vim7.4_v2">
<meta name="syntax" content="cpp">
<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
<meta name="colorscheme" content="minimal-light">
<style type="text/css">
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; }
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.Error { color: #ffffff; background-color: #ff6060; padding-bottom: 1px; }
.traceContains { color: #005f00; }
.LineNr { }
.Constant { color: #008787; }
.Delimiter { color: #c000c0; }
.Special { color: #d70000; }
.Identifier { color: #af5f00; }
.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; }
.Comment { color: #005faf; }
.PreProc { color: #c000c0; }
-->
</style>

<script type='text/javascript'>
<!--

/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
  var lineNum;
  lineNum = window.location.hash;
  lineNum = lineNum.substr(1); /* strip off '#' */

  if (lineNum.indexOf('L') == -1) {
    lineNum = 'L'+lineNum;
  }
  lineElem = document.getElementById(lineNum);
  /* Always jump to new location even if the line was hidden inside a fold, or
   * we corrected the raw number to a line ID.
   */
  if (lineElem) {
    lineElem.scrollIntoView(true);
  }
  return true;
}
if ('onhashchange' in window) {
  window.onhashchange = JumpToLine;
}

-->
</script>
</head>
<body onload='JumpToLine();'>
<a href='https://github.com/akkartik/mu/blob/master/subx/016index_addressing.cc'>https://github.com/akkartik/mu/blob/master/subx/016index_addressing.cc</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span><span class="Comment">//: operating on memory at the address provided by some register plus optional scale and offset</span>
<span id="L2" class="LineNr">  2 </span>
<span id="L3" class="LineNr">  3 </span><span class="Delimiter">:(scenario add_r32_to_mem_at_r32_with_sib)</span>
<span id="L4" class="LineNr">  4 </span><span class="Special">% Reg[EBX].i = 0x10;</span>
<span id="L5" class="LineNr">  5 </span><span class="Special">% Reg[EAX].i = 0x2000;</span>
<span id="L6" class="LineNr">  6 </span>== <span class="Constant">0x1</span>  <span class="Comment"># code segment</span>
<span id="L7" class="LineNr">  7 </span><span class="Comment"># op  ModR/M  SIB   displacement  immediate</span>
<span id="L8" class="LineNr">  8 </span>  <span class="PreProc">0</span><span class="Constant">1</span>  1c      <span class="Constant">20</span>                             <span class="Comment"># add EBX to *EAX</span>
<span id="L9" class="LineNr">  9 </span><span class="Comment"># ModR/M in binary: 00 (indirect mode) 011 (src EBX) 100 (dest in SIB)</span>
<span id="L10" class="LineNr"> 10 </span><span class="Comment"># SIB in binary: 00 (scale 1) 100 (no index) 000 (base EAX)</span>
<span id="L11" class="LineNr"> 11 </span>== <span class="Constant">0x2000</span>  <span class="Comment"># data segment</span>
<span id="L12" class="LineNr"> 12 </span><span class="PreProc">0</span><span class="Constant">1</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span>  <span class="Comment"># 1</span>
<span id="L13" class="LineNr"> 13 </span><span class="traceContains">+run: add <a href='010---vm.cc.html#L16'>EBX</a> to r/m32</span>
<span id="L14" class="LineNr"> 14 </span><span class="traceContains">+run: effective address is initially 0x00002000 (EAX)</span>
<span id="L15" class="LineNr"> 15 </span><span class="traceContains">+run: effective address is 0x00002000</span>
<span id="L16" class="LineNr"> 16 </span><span class="traceContains">+run: storing 0x00000011</span>
<span id="L17" class="LineNr"> 17 </span>
<span id="L18" class="LineNr"> 18 </span><span class="Delimiter">:(before &quot;End Mod 0 Special-cases(addr)&quot;)</span>
<span id="L19" class="LineNr"> 19 </span><span class="Normal">case</span> <span class="Constant">4</span>:  <span class="Comment">// exception: mod 0b00 rm 0b100 =&gt; incoming SIB (scale-index-base) byte</span>
<span id="L20" class="LineNr"> 20 </span>  addr = <a href='016index_addressing.cc.html#L23'>effective_address_from_sib</a><span class="Delimiter">(</span>mod<span class="Delimiter">);</span>
<span id="L21" class="LineNr"> 21 </span>  <span class="Identifier">break</span><span class="Delimiter">;</span>
<span id="L22" class="LineNr"> 22 </span><span class="Delimiter">:(code)</span>
<span id="L23" class="LineNr"> 23 </span><span class="Normal">uint32_t</span> <a href='016index_addressing.cc.html#L23'>effective_address_from_sib</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> mod<span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L24" class="LineNr"> 24 </span>  <span class="Normal">const</span> <span class="Normal">uint8_t</span> sib = <a href='010---vm.cc.html#L364'>next</a><span class="Delimiter">();</span>
<span id="L25" class="LineNr"> 25 </span>  <span class="Normal">const</span> <span class="Normal">uint8_t</span> base = sib&amp;<span class="Constant">0x7</span><span class="Delimiter">;</span>
<span id="L26" class="LineNr"> 26 </span>  <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span>
<span id="L27" class="LineNr"> 27 </span>  <span class="Normal">if</span> <span class="Delimiter">(</span>base != <a href='010---vm.cc.html#L18'>EBP</a> || mod != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L28" class="LineNr"> 28 </span>    addr = <span class="Special"><a href='010---vm.cc.html#L28'>Reg</a></span>[base]<span class="Delimiter">.</span>u<span class="Delimiter">;</span>
<span id="L29" class="LineNr"> 29 </span>    <a href='003trace.cc.html#L183'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">&quot;run&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;effective address is initially 0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L413'>HEXWORD</a> &lt;&lt; addr &lt;&lt; <span class="Constant">&quot; (&quot;</span> &lt;&lt; <a href='013direct_addressing.cc.html#L62'>rname</a><span class="Delimiter">(</span>base<span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;)&quot;</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L30" class="LineNr"> 30 </span>  <span class="Delimiter">}</span>
<span id="L31" class="LineNr"> 31 </span>  <span class="Normal">else</span> <span class="Delimiter">{</span>
<span id="L32" class="LineNr"> 32 </span>    <span class="Comment">// base == EBP &amp;&amp; mod == 0</span>
<span id="L33" class="LineNr"> 33 </span>    addr = <a href='011run.cc.html#L343'>next32</a><span class="Delimiter">();</span>  <span class="Comment">// ignore base</span>
<span id="L34" class="LineNr"> 34 </span>    <a href='003trace.cc.html#L183'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">&quot;run&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;effective address is initially 0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L413'>HEXWORD</a> &lt;&lt; addr &lt;&lt; <span class="Constant">&quot; (disp32)&quot;</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L35" class="LineNr"> 35 </span>  <span class="Delimiter">}</span>
<span id="L36" class="LineNr"> 36 </span>  <span class="Normal">const</span> <span class="Normal">uint8_t</span> index = <span class="Delimiter">(</span>sib&gt;&gt;<span class="Constant">3</span><span class="Delimiter">)</span>&amp;<span class="Constant">0x7</span><span class="Delimiter">;</span>
<span id="L37" class="LineNr"> 37 </span>  <span class="Normal">if</span> <span class="Delimiter">(</span>index == <a href='010---vm.cc.html#L17'>ESP</a><span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L38" class="LineNr"> 38 </span>    <span class="Comment">// ignore index and scale</span>
<span id="L39" class="LineNr"> 39 </span>    <a href='003trace.cc.html#L183'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">&quot;run&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;effective address is 0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L413'>HEXWORD</a> &lt;&lt; addr &lt;&lt; end<span class="Delimiter">();</span>
<span id="L40" class="LineNr"> 40 </span>  <span class="Delimiter">}</span>
<span id="L41" class="LineNr"> 41 </span>  <span class="Normal">else</span> <span class="Delimiter">{</span>
<span id="L42" class="LineNr"> 42 </span>    <span class="Normal">const</span> <span class="Normal">uint8_t</span> scale = <span class="Delimiter">(</span><span class="Constant">1</span> &lt;&lt; <span class="Delimiter">(</span>sib&gt;&gt;<span class="Constant">6</span><span class="Delimiter">));</span>
<span id="L43" class="LineNr"> 43 </span>    addr += <span class="Special"><a href='010---vm.cc.html#L28'>Reg</a></span>[index]<span class="Delimiter">.</span>i*scale<span class="Delimiter">;</span>  <span class="Comment">// treat index register as signed. Maybe base as well? But we'll always ensure it's non-negative.</span>
<span id="L44" class="LineNr"> 44 </span>    <a href='003trace.cc.html#L183'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">&quot;run&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;effective address is 0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L413'>HEXWORD</a> &lt;&lt; addr &lt;&lt; <span class="Constant">&quot; (after adding &quot;</span> &lt;&lt; <a href='013direct_addressing.cc.html#L62'>rname</a><span class="Delimiter">(</span>index<span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;*&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L415'>NUM</a><span class="Delimiter">(</span>scale<span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;)&quot;</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L45" class="LineNr"> 45 </span>  <span class="Delimiter">}</span>
<span id="L46" class="LineNr"> 46 </span>  <span class="Identifier">return</span> addr<span class="Delimiter">;</span>
<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span>
<span id="L48" class="LineNr"> 48 </span>
<span id="L49" class="LineNr"> 49 </span><span class="Delimiter">:(scenario add_r32_to_mem_at_base_r32_index_r32)</span>
<span id="L50" class="LineNr"> 50 </span><span class="Special">% Reg[EBX].i = 0x10;  // source</span>
<span id="L51" class="LineNr"> 51 </span><span class="Special">% Reg[EAX].i = 0x1ffe;  // dest base</span>
<span id="L52" class="LineNr"> 52 </span><span class="Special">% Reg[ECX].i = 0x2;  // dest index</span>
<span id="L53" class="LineNr"> 53 </span>== <span class="Constant">0x1</span>  <span class="Comment"># code segment</span>
<span id="L54" class="LineNr"> 54 </span><span class="Comment"># op  ModR/M  SIB   displacement  immediate</span>
<span id="L55" class="LineNr"> 55 </span>  <span class="PreProc">0</span><span class="Constant">1</span>  1c      <span class="Error">08</span>                             <span class="Comment"># add EBX to *(EAX+ECX)</span>
<span id="L56" class="LineNr"> 56 </span><span class="Comment"># ModR/M in binary: 00 (indirect mode) 011 (src EBX) 100 (dest in SIB)</span>
<span id="L57" class="LineNr"> 57 </span><span class="Comment"># SIB in binary: 00 (scale 1) 001 (index ECX) 000 (base EAX)</span>
<span id="L58" class="LineNr"> 58 </span>== <span class="Constant">0x2000</span>  <span class="Comment"># data segment</span>
<span id="L59" class="LineNr"> 59 </span><span class="PreProc">0</span><span class="Constant">1</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span>  <span class="Comment"># 1</span>
<span id="L60" class="LineNr"> 60 </span><span class="traceContains">+run: add <a href='010---vm.cc.html#L16'>EBX</a> to r/m32</span>
<span id="L61" class="LineNr"> 61 </span><span class="traceContains">+run: effective address is initially 0x00001ffe (EAX)</span>
<span id="L62" class="LineNr"> 62 </span><span class="traceContains">+run: effective address is 0x00002000 (after adding ECX*1)</span>
<span id="L63" class="LineNr"> 63 </span><span class="traceContains">+run: storing 0x00000011</span>
<span id="L64" class="LineNr"> 64 </span>
<span id="L65" class="LineNr"> 65 </span><span class="Delimiter">:(scenario add_r32_to_mem_at_displacement_using_sib)</span>
<span id="L66" class="LineNr"> 66 </span><span class="Special">% Reg[EBX].i = 0x10;  // source</span>
<span id="L67" class="LineNr"> 67 </span>== <span class="Constant">0x1</span>  <span class="Comment"># code segment</span>
<span id="L68" class="LineNr"> 68 </span><span class="Comment"># op  ModR/M  SIB   displacement  immediate</span>
<span id="L69" class="LineNr"> 69 </span>  <span class="PreProc">0</span><span class="Constant">1</span>  1c      <span class="Constant">25</span>    <span class="PreProc">0</span><span class="Constant">0</span> <span class="Constant">20</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span>              <span class="Comment"># add EBX to *0x2000</span>
<span id="L70" class="LineNr"> 70 </span><span class="Comment"># ModR/M in binary: 00 (indirect mode) 011 (src EBX) 100 (dest in SIB)</span>
<span id="L71" class="LineNr"> 71 </span><span class="Comment"># SIB in binary: 00 (scale 1) 100 (no index) 101 (not EBP but disp32)</span>
<span id="L72" class="LineNr"> 72 </span>== <span class="Constant">0x2000</span>  <span class="Comment"># data segment</span>
<span id="L73" class="LineNr"> 73 </span><span class="PreProc">0</span><span class="Constant">1</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span>  <span class="Comment"># 1</span>
<span id="L74" class="LineNr"> 74 </span><span class="traceContains">+run: add <a href='010---vm.cc.html#L16'>EBX</a> to r/m32</span>
<span id="L75" class="LineNr"> 75 </span><span class="traceContains">+run: effective address is initially 0x00002000 (disp32)</span>
<span id="L76" class="LineNr"> 76 </span><span class="traceContains">+run: effective address is 0x00002000</span>
<span id="L77" class="LineNr"> 77 </span><span class="traceContains">+run: storing 0x00000011</span>
<span id="L78" class="LineNr"> 78 </span>
<span id="L79" class="LineNr"> 79 </span><span class="Comment">//:</span>
<span id="L80" class="LineNr"> 80 </span>
<span id="L81" class="LineNr"> 81 </span><span class="Delimiter">:(scenario add_r32_to_mem_at_base_r32_index_r32_plus_disp8)</span>
<span id="L82" class="LineNr"> 82 </span><span class="Special">% Reg[EBX].i = 0x10;  // source</span>
<span id="L83" class="LineNr"> 83 </span><span class="Special">% Reg[EAX].i = 0x1ff9;  // dest base</span>
<span id="L84" class="LineNr"> 84 </span><span class="Special">% Reg[ECX].i = 0x5;  // dest index</span>
<span id="L85" class="LineNr"> 85 </span>== <span class="Constant">0x1</span>  <span class="Comment"># code segment</span>
<span id="L86" class="LineNr"> 86 </span><span class="Comment"># op  ModR/M  SIB   displacement  immediate</span>
<span id="L87" class="LineNr"> 87 </span>  <span class="PreProc">0</span><span class="Constant">1</span>  5c      <span class="Error">08</span>    <span class="PreProc">0</span><span class="Constant">2</span>                       <span class="Comment"># add EBX to *(EAX+ECX+2)</span>
<span id="L88" class="LineNr"> 88 </span><span class="Comment"># ModR/M in binary: 01 (indirect+disp8 mode) 011 (src EBX) 100 (dest in SIB)</span>
<span id="L89" class="LineNr"> 89 </span><span class="Comment"># SIB in binary: 00 (scale 1) 001 (index ECX) 000 (base EAX)</span>
<span id="L90" class="LineNr"> 90 </span>== <span class="Constant">0x2000</span>  <span class="Comment"># data segment</span>
<span id="L91" class="LineNr"> 91 </span><span class="PreProc">0</span><span class="Constant">1</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span>  <span class="Comment"># 1</span>
<span id="L92" class="LineNr"> 92 </span><span class="traceContains">+run: add <a href='010---vm.cc.html#L16'>EBX</a> to r/m32</span>
<span id="L93" class="LineNr"> 93 </span><span class="traceContains">+run: effective address is initially 0x00001ff9 (EAX)</span>
<span id="L94" class="LineNr"> 94 </span><span class="traceContains">+run: effective address is 0x00001ffe (after adding ECX*1)</span>
<span id="L95" class="LineNr"> 95 </span><span class="traceContains">+run: effective address is 0x00002000 (after adding disp8)</span>
<span id="L96" class="LineNr"> 96 </span><span class="traceContains">+run: storing 0x00000011</span>
<span id="L97" class="LineNr"> 97 </span>
<span id="L98" class="LineNr"> 98 </span><span class="Delimiter">:(before &quot;End Mod 1 Special-cases(addr)&quot;)</span>
<span id="L99" class="LineNr"> 99 </span><span class="Normal">case</span> <span class="Constant">4</span>:  <span class="Comment">// exception: mod 0b01 rm 0b100 =&gt; incoming SIB (scale-index-base) byte</span>
<span id="L100" class="LineNr">100 </span>  addr = <a href='016index_addressing.cc.html#L23'>effective_address_from_sib</a><span class="Delimiter">(</span>mod<span class="Delimiter">);</span>
<span id="L101" class="LineNr">101 </span>  <span class="Identifier">break</span><span class="Delimiter">;</span>
<span id="L102" class="LineNr">102 </span>
<span id="L103" class="LineNr">103 </span><span class="Comment">//:</span>
<span id="L104" class="LineNr">104 </span>
<span id="L105" class="LineNr">105 </span><span class="Delimiter">:(scenario add_r32_to_mem_at_base_r32_index_r32_plus_disp32)</span>
<span id="L106" class="LineNr">106 </span><span class="Special">% Reg[EBX].i = 0x10;  // source</span>
<span id="L107" class="LineNr">107 </span><span class="Special">% Reg[EAX].i = 0x1ff9;  // dest base</span>
<span id="L108" class="LineNr">108 </span><span class="Special">% Reg[ECX].i = 0x5;  // dest index</span>
<span id="L109" class="LineNr">109 </span>== <span class="Constant">0x1</span>  <span class="Comment"># code segment</span>
<span id="L110" class="LineNr">110 </span><span class="Comment"># op  ModR/M  SIB   displacement  immediate</span>
<span id="L111" class="LineNr">111 </span>  <span class="PreProc">0</span><span class="Constant">1</span>  9c      <span class="Error">08</span>    <span class="PreProc">0</span><span class="Constant">2</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span>              <span class="Comment"># add EBX to *(EAX+ECX+2)</span>
<span id="L112" class="LineNr">112 </span><span class="Comment"># ModR/M in binary: 10 (indirect+disp32 mode) 011 (src EBX) 100 (dest in SIB)</span>
<span id="L113" class="LineNr">113 </span><span class="Comment"># SIB in binary: 00 (scale 1) 001 (index ECX) 000 (base EAX)</span>
<span id="L114" class="LineNr">114 </span>== <span class="Constant">0x2000</span>  <span class="Comment"># data segment</span>
<span id="L115" class="LineNr">115 </span><span class="PreProc">0</span><span class="Constant">1</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span> <span class="PreProc">0</span><span class="Constant">0</span>  <span class="Comment"># 1</span>
<span id="L116" class="LineNr">116 </span><span class="traceContains">+run: add <a href='010---vm.cc.html#L16'>EBX</a> to r/m32</span>
<span id="L117" class="LineNr">117 </span><span class="traceContains">+run: effective address is initially 0x00001ff9 (EAX)</span>
<span id="L118" class="LineNr">118 </span><span class="traceContains">+run: effective address is 0x00001ffe (after adding ECX*1)</span>
<span id="L119" class="LineNr">119 </span><span class="traceContains">+run: effective address is 0x00002000 (after adding disp32)</span>
<span id="L120" class="LineNr">120 </span><span class="traceContains">+run: storing 0x00000011</span>
<span id="L121" class="LineNr">121 </span>
<span id="L122" class="LineNr">122 </span><span class="Delimiter">:(before &quot;End Mod 2 Special-cases(addr)&quot;)</span>
<span id="L123" class="LineNr">123 </span><span class="Normal">case</span> <span class="Constant">4</span>:  <span class="Comment">// exception: mod 0b10 rm 0b100 =&gt; incoming SIB (scale-index-base) byte</span>
<span id="L124" class="LineNr">124 </span>  addr = <a href='016index_addressing.cc.html#L23'>effective_address_from_sib</a><span class="Delimiter">(</span>mod<span class="Delimiter">);</span>
<span id="L125" class="LineNr">125 </span>  <span class="Identifier">break</span><span class="Delimiter">;</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->
an class="o">+30, height=60} Lines = load_array{'abc def', 'ghi', 'jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=2, pos=1} Screen_top1 = {line=2, pos=1} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'ghi', 'F - test_up_arrow_scrolls_up_to_final_screen_line/baseline/screen:1') y = y + line_height App.screen.check(y, 'jkl', 'F - test_up_arrow_scrolls_up_to_final_screen_line/baseline/screen:2') y = y + line_height App.screen.check(y, 'mno', 'F - test_up_arrow_scrolls_up_to_final_screen_line/baseline/screen:3') -- after hitting the up arrow the screen scrolls up to final screen line of previous line App.run_after_keychord('up') y = screen_top_margin App.screen.check(y, 'def', 'F - test_up_arrow_scrolls_up_to_final_screen_line/screen:1') y = y + line_height App.screen.check(y, 'ghi', 'F - test_up_arrow_scrolls_up_to_final_screen_line/screen:2') y = y + line_height App.screen.check(y, 'jkl', 'F - test_up_arrow_scrolls_up_to_final_screen_line/screen:3') check_eq(Screen_top1.line, 1, 'F - test_up_arrow_scrolls_up_to_final_screen_line/screen_top') check_eq(Screen_top1.pos, 5, 'F - test_up_arrow_scrolls_up_to_final_screen_line/screen_top') check_eq(Cursor1.line, 1, 'F - test_up_arrow_scrolls_up_to_final_screen_line/cursor:line') check_eq(Cursor1.pos, 5, 'F - test_up_arrow_scrolls_up_to_final_screen_line/cursor:pos') end function test_up_arrow_scrolls_up_to_empty_line() io.write('\ntest_up_arrow_scrolls_up_to_empty_line') -- display a screenful of text with an empty line just above it outside the screen App.screen.init{width=120, height=60} Lines = load_array{'', 'abc', 'def', 'ghi', 'jkl'} Line_width = 120 Cursor1 = {line=2, pos=1} Screen_top1 = {line=2, pos=1} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'abc', 'F - test_up_arrow_scrolls_up_to_empty_line/baseline/screen:1') y = y + line_height App.screen.check(y, 'def', 'F - test_up_arrow_scrolls_up_to_empty_line/baseline/screen:2') y = y + line_height App.screen.check(y, 'ghi', 'F - test_up_arrow_scrolls_up_to_empty_line/baseline/screen:3') -- after hitting the up arrow the screen scrolls up by one line App.run_after_keychord('up') check_eq(Screen_top1.line, 1, 'F - test_up_arrow_scrolls_up_to_empty_line/screen_top') check_eq(Cursor1.line, 1, 'F - test_up_arrow_scrolls_up_to_empty_line/cursor') y = screen_top_margin -- empty first line y = y + line_height App.screen.check(y, 'abc', 'F - test_up_arrow_scrolls_up_to_empty_line/screen:2') y = y + line_height App.screen.check(y, 'def', 'F - test_up_arrow_scrolls_up_to_empty_line/screen:3') end function test_pageup() io.write('\ntest_pageup') App.screen.init{width=120, height=45} Lines = load_array{'abc', 'def', 'ghi'} Line_width = App.screen.width Cursor1 = {line=2, pos=1} Screen_top1 = {line=2, pos=1} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels -- initially the last two lines are displayed App.draw() local y = screen_top_margin App.screen.check(y, 'def', 'F - test_pageup/baseline/screen:1') y = y + line_height App.screen.check(y, 'ghi', 'F - test_pageup/baseline/screen:2') -- after pageup the cursor goes to first line App.run_after_keychord('pageup') check_eq(Screen_top1.line, 1, 'F - test_pageup/screen_top') check_eq(Cursor1.line, 1, 'F - test_pageup/cursor') y = screen_top_margin App.screen.check(y, 'abc', 'F - test_pageup/screen:1') y = y + line_height App.screen.check(y, 'def', 'F - test_pageup/screen:2') end function test_pageup_scrolls_up_by_screen_line() io.write('\ntest_pageup_scrolls_up_by_screen_line') -- display the first three lines with the cursor on the bottom line App.screen.init{width=25+30, height=60} Lines = load_array{'abc def', 'ghi', 'jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=2, pos=1} Screen_top1 = {line=2, pos=1} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'ghi', 'F - test_pageup_scrolls_up_by_screen_line/baseline/screen:1') y = y + line_height App.screen.check(y, 'jkl', 'F - test_pageup_scrolls_up_by_screen_line/baseline/screen:2') y = y + line_height App.screen.check(y, 'mno', 'F - test_pageup_scrolls_up_by_screen_line/baseline/screen:3') -- line wrapping includes trailing whitespace -- after hitting the page-up key the screen scrolls up to top App.run_after_keychord('pageup') check_eq(Screen_top1.line, 1, 'F - test_pageup_scrolls_up_by_screen_line/screen_top') check_eq(Cursor1.line, 1, 'F - test_pageup_scrolls_up_by_screen_line/cursor:line') check_eq(Cursor1.pos, 1, 'F - test_pageup_scrolls_up_by_screen_line/cursor:pos') y = screen_top_margin App.screen.check(y, 'abc ', 'F - test_pageup_scrolls_up_by_screen_line/screen:1') y = y + line_height App.screen.check(y, 'def', 'F - test_pageup_scrolls_up_by_screen_line/screen:2') y = y + line_height App.screen.check(y, 'ghi', 'F - test_pageup_scrolls_up_by_screen_line/screen:3') end function test_pageup_scrolls_up_from_middle_screen_line() io.write('\ntest_pageup_scrolls_up_from_middle_screen_line') -- display a few lines starting from the middle of a line (Cursor1.pos > 1) App.screen.init{width=25+30, height=60} Lines = load_array{'abc def', 'ghi jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=2, pos=5} Screen_top1 = {line=2, pos=5} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'jkl', 'F - test_pageup_scrolls_up_from_middle_screen_line/baseline/screen:2') y = y + line_height App.screen.check(y, 'mno', 'F - test_pageup_scrolls_up_from_middle_screen_line/baseline/screen:3') -- line wrapping includes trailing whitespace -- after hitting the page-up key the screen scrolls up to top App.run_after_keychord('pageup') check_eq(Screen_top1.line, 1, 'F - test_pageup_scrolls_up_from_middle_screen_line/screen_top') check_eq(Cursor1.line, 1, 'F - test_pageup_scrolls_up_from_middle_screen_line/cursor:line') check_eq(Cursor1.pos, 1, 'F - test_pageup_scrolls_up_from_middle_screen_line/cursor:pos') y = screen_top_margin App.screen.check(y, 'abc ', 'F - test_pageup_scrolls_up_from_middle_screen_line/screen:1') y = y + line_height App.screen.check(y, 'def', 'F - test_pageup_scrolls_up_from_middle_screen_line/screen:2') y = y + line_height App.screen.check(y, 'ghi ', 'F - test_pageup_scrolls_up_from_middle_screen_line/screen:3') end function test_enter_on_bottom_line_scrolls_down() io.write('\ntest_enter_on_bottom_line_scrolls_down') -- display a few lines with cursor on bottom line App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl'} Line_width = App.screen.width Cursor1 = {line=3, pos=2} Screen_top1 = {line=1, pos=1} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'abc', 'F - test_enter_on_bottom_line_scrolls_down/baseline/screen:1') y = y + line_height App.screen.check(y, 'def', 'F - test_enter_on_bottom_line_scrolls_down/baseline/screen:2') y = y + line_height App.screen.check(y, 'ghi', 'F - test_enter_on_bottom_line_scrolls_down/baseline/screen:3') -- after hitting the enter key the screen scrolls down App.run_after_keychord('return') check_eq(Screen_top1.line, 2, 'F - test_enter_on_bottom_line_scrolls_down/screen_top') check_eq(Cursor1.line, 4, 'F - test_enter_on_bottom_line_scrolls_down/cursor:line') check_eq(Cursor1.pos, 1, 'F - test_enter_on_bottom_line_scrolls_down/cursor:pos') y = screen_top_margin App.screen.check(y, 'def', 'F - test_enter_on_bottom_line_scrolls_down/screen:1') y = y + line_height App.screen.check(y, 'g', 'F - test_enter_on_bottom_line_scrolls_down/screen:2') y = y + line_height App.screen.check(y, 'hi', 'F - test_enter_on_bottom_line_scrolls_down/screen:3') end function test_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom() io.write('\ntest_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom') -- display just the bottom line on screen App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl'} Line_width = App.screen.width Cursor1 = {line=4, pos=2} Screen_top1 = {line=4, pos=1} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'jkl', 'F - test_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom/baseline/screen:1') -- after hitting the enter key the screen does not scroll down App.run_after_keychord('return') check_eq(Screen_top1.line, 4, 'F - test_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom/screen_top') check_eq(Cursor1.line, 5, 'F - test_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom/cursor:line') check_eq(Cursor1.pos, 1, 'F - test_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom/cursor:pos') y = screen_top_margin App.screen.check(y, 'j', 'F - test_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom/screen:1') y = y + line_height App.screen.check(y, 'kl', 'F - test_enter_on_final_line_avoids_scrolling_down_when_not_at_bottom/screen:2') end function test_position_cursor_on_recently_edited_wrapping_line() -- draw a line wrapping over 2 screen lines io.write('\ntest_position_cursor_on_recently_edited_wrapping_line') App.screen.init{width=120, height=200} Lines = load_array{'abc def ghi jkl mno pqr ', 'xyz'} Line_width = 100 Cursor1 = {line=1, pos=25} Screen_top1 = {line=1, pos=1} Screen_bottom1 = {} Zoom = 1 App.draw() local screen_top_margin = 15 -- pixels local line_height = 15 -- pixels local y = screen_top_margin -- I don't understand why 120px fits so much on a fake screen, but whatever.. App.screen.check(y, 'abc def ghi ', 'F - test_position_cursor_on_recently_edited_wrapping_line/baseline1/screen:1') y = y + line_height App.screen.check(y, 'jkl mno pqr ', 'F - test_position_cursor_on_recently_edited_wrapping_line/baseline1/screen:2') y = y + line_height App.screen.check(y, 'xyz', 'F - test_position_cursor_on_recently_edited_wrapping_line/baseline1/screen:3') -- add to the line until it's wrapping over 3 screen lines App.run_after_textinput('s') App.run_after_textinput('t') App.run_after_textinput('u') check_eq(Cursor1.pos, 28, 'F - test_move_cursor_using_mouse/cursor:pos') y = screen_top_margin App.screen.check(y, 'abc def ghi ', 'F - test_position_cursor_on_recently_edited_wrapping_line/baseline2/screen:1') y = y + line_height App.screen.check(y, 'jkl mno pqr ', 'F - test_position_cursor_on_recently_edited_wrapping_line/baseline2/screen:2') y = y + line_height App.screen.check(y, 'stu', 'F - test_position_cursor_on_recently_edited_wrapping_line/baseline2/screen:3') -- try to move the cursor earlier in the third screen line by clicking the mouse local screen_top_margin = 15 -- pixels local screen_left_margin = 25 -- pixels App.run_after_mousepress(screen_left_margin+8,screen_top_margin+15*2+5, '1') -- cursor should move check_eq(Cursor1.line, 1, 'F - test_move_cursor_using_mouse/cursor:line') check_eq(Cursor1.pos, 26, 'F - test_move_cursor_using_mouse/cursor:pos') end function test_backspace_can_scroll_up() io.write('\ntest_backspace_can_scroll_up') -- display the lines 2/3/4 with the cursor on line 2 App.screen.init{width=120, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl'} Line_width = 120 Cursor1 = {line=2, pos=1} Screen_top1 = {line=2, pos=1} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'def', 'F - test_backspace_can_scroll_up/baseline/screen:1') y = y + line_height App.screen.check(y, 'ghi', 'F - test_backspace_can_scroll_up/baseline/screen:2') y = y + line_height App.screen.check(y, 'jkl', 'F - test_backspace_can_scroll_up/baseline/screen:3') -- after hitting backspace the screen scrolls up by one line App.run_after_keychord('backspace') check_eq(Screen_top1.line, 1, 'F - test_backspace_can_scroll_up/screen_top') check_eq(Cursor1.line, 1, 'F - test_backspace_can_scroll_up/cursor') y = screen_top_margin App.screen.check(y, 'abcdef', 'F - test_backspace_can_scroll_up/screen:1') y = y + line_height App.screen.check(y, 'ghi', 'F - test_backspace_can_scroll_up/screen:2') y = y + line_height App.screen.check(y, 'jkl', 'F - test_backspace_can_scroll_up/screen:3') end function test_backspace_can_scroll_up_screen_line() io.write('\ntest_backspace_can_scroll_up_screen_line') -- display lines starting from second screen line of a line App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=3, pos=5} Screen_top1 = {line=3, pos=5} Screen_bottom1 = {} Zoom = 1 local screen_top_margin = 15 -- pixels local line_height = math.floor(15*Zoom) -- pixels App.draw() local y = screen_top_margin App.screen.check(y, 'jkl', 'F - test_backspace_can_scroll_up_screen_line/baseline/screen:1') y = y + line_height App.screen.check(y, 'mno', 'F - test_backspace_can_scroll_up_screen_line/baseline/screen:2') -- after hitting backspace the screen scrolls up by one screen line App.run_after_keychord('backspace') y = screen_top_margin App.screen.check(y, 'ghijk', 'F - test_backspace_can_scroll_up_screen_line/screen:1') y = y + line_height App.screen.check(y, 'l', 'F - test_backspace_can_scroll_up_screen_line/screen:2') y = y + line_height App.screen.check(y, 'mno', 'F - test_backspace_can_scroll_up_screen_line/screen:3') check_eq(Screen_top1.line, 3, 'F - test_backspace_can_scroll_up_screen_line/screen_top') check_eq(Screen_top1.pos, 1, 'F - test_backspace_can_scroll_up_screen_line/screen_top') check_eq(Cursor1.line, 3, 'F - test_backspace_can_scroll_up_screen_line/cursor:line') check_eq(Cursor1.pos, 4, 'F - test_backspace_can_scroll_up_screen_line/cursor:pos') end -- some tests for operating over selections created using Shift- chords -- we're just testing delete_selection, and it works the same for all keys function test_backspace_over_selection() io.write('\ntest_backspace_over_selection') -- select just one character within a line with cursor before selection App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=1, pos=1} Selection1 = {line=1, pos=2} Zoom = 1 -- backspace deletes the selected character, even though it's after the cursor App.run_after_keychord('backspace') check_eq(Lines[1].data, 'bc', "F - test_backspace_over_selection/data") -- cursor (remains) at start of selection check_eq(Cursor1.line, 1, "F - test_backspace_over_selection/cursor:line") check_eq(Cursor1.pos, 1, "F - test_backspace_over_selection/cursor:pos") -- selection is cleared check_nil(Selection1.line, "F - test_backspace_over_selection/selection") end function test_backspace_over_selection_reverse() io.write('\ntest_backspace_over_selection_reverse') -- select just one character within a line with cursor after selection App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=1, pos=2} Selection1 = {line=1, pos=1} Zoom = 1 -- backspace deletes the selected character App.run_after_keychord('backspace') check_eq(Lines[1].data, 'bc', "F - test_backspace_over_selection_reverse/data") -- cursor moves to start of selection check_eq(Cursor1.line, 1, "F - test_backspace_over_selection_reverse/cursor:line") check_eq(Cursor1.pos, 1, "F - test_backspace_over_selection_reverse/cursor:pos") -- selection is cleared check_nil(Selection1.line, "F - test_backspace_over_selection_reverse/selection") end function test_backspace_over_multiple_lines() io.write('\ntest_backspace_over_multiple_lines') -- select just one character within a line with cursor after selection App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=1, pos=2} Selection1 = {line=4, pos=2} Zoom = 1 -- backspace deletes the region and joins the remaining portions of lines on either side App.run_after_keychord('backspace') check_eq(Lines[1].data, 'akl', "F - test_backspace_over_multiple_lines/data:1") check_eq(Lines[2].data, 'mno', "F - test_backspace_over_multiple_lines/data:2") -- cursor remains at start of selection check_eq(Cursor1.line, 1, "F - test_backspace_over_multiple_lines/cursor:line") check_eq(Cursor1.pos, 2, "F - test_backspace_over_multiple_lines/cursor:pos") -- selection is cleared check_nil(Selection1.line, "F - test_backspace_over_multiple_lines/selection") end function test_backspace_to_end_of_line() io.write('\ntest_backspace_to_end_of_line') -- select region from cursor to end of line App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=1, pos=2} Selection1 = {line=1, pos=4} Zoom = 1 -- backspace deletes rest of line without joining to any other line App.run_after_keychord('backspace') check_eq(Lines[1].data, 'a', "F - test_backspace_to_start_of_line/data:1") check_eq(Lines[2].data, 'def', "F - test_backspace_to_start_of_line/data:2") -- cursor remains at start of selection check_eq(Cursor1.line, 1, "F - test_backspace_to_start_of_line/cursor:line") check_eq(Cursor1.pos, 2, "F - test_backspace_to_start_of_line/cursor:pos") -- selection is cleared check_nil(Selection1.line, "F - test_backspace_to_start_of_line/selection") end function test_backspace_to_start_of_line() io.write('\ntest_backspace_to_start_of_line') -- select region from cursor to start of line App.screen.init{width=25+30, height=60} Lines = load_array{'abc', 'def', 'ghi', 'jkl', 'mno'} Line_width = App.screen.width Cursor1 = {line=2, pos=1} Selection1 = {line=2, pos=3} Zoom = 1 -- backspace deletes beginning of line without joining to any other line App.run_after_keychord('backspace') check_eq(Lines[1].data, 'abc', "F - test_backspace_to_start_of_line/data:1") check_eq(Lines[2].data, 'f', "F - test_backspace_to_start_of_line/data:2") -- cursor remains at start of selection check_eq(Cursor1.line, 2, "F - test_backspace_to_start_of_line/cursor:line") check_eq(Cursor1.pos, 1, "F - test_backspace_to_start_of_line/cursor:pos") -- selection is cleared check_nil(Selection1.line, "F - test_backspace_to_start_of_line/selection") end function test_undo_insert_text() io.write('\ntest_undo_insert_text') App.screen.init{width=120, height=60} Lines = load_array{'abc', 'def', 'xyz'} Line_width = App.screen.width Cursor1 = {line=2, pos=4} Screen_top1 = {line=1, pos=1} Screen_bottom1 = {} Zoom = 1 -- insert a character App.run_after_textinput('g') check_eq(Cursor1.line, 2, 'F - test_undo_insert_text/baseline/cursor:line') check_eq(Cursor1.pos, 5, 'F - test_undo_insert_text/baseline/cursor:pos') check_nil(Selection1.line, 'F - test_undo_insert_text/baseline/selection:line') check_nil(Selection1.pos, 'F - test_undo_insert_text/baseline/selection:pos') local screen_top_margin = 15 -- pixels local line_height = 15 -- pixels local y = screen_top_margin App.screen.check(y, 'abc', 'F - test_undo_insert_text/baseline/screen:1') y = y + line_height App.screen.check(y, 'defg', 'F - test_undo_insert_text/baseline/screen:2') y = y + line_height App.screen.check(y, 'xyz', 'F - test_undo_insert_text/baseline/screen:3') -- undo App.run_after_keychord('M-z') check_eq(Cursor1.line, 2, 'F - test_undo_insert_text/cursor:line') check_eq(Cursor1.pos, 4, 'F - test_undo_insert_text/cursor:pos') check_nil(Selection1.line, 'F - test_undo_insert_text/selection:line') check_nil(Selection1.pos, 'F - test_undo_insert_text/selection:pos') y = screen_top_margin App.screen.check(y, 'abc', 'F - test_undo_insert_text/screen:1') y = y + line_height App.screen.check(y, 'def', 'F - test_undo_insert_text/screen:2') y = y + line_height App.screen.check(y, 'xyz', 'F - test_undo_insert_text/screen:3') end function test_undo_delete_text() io.write('\ntest_undo_delete_text') App.screen.init{width=120, height=60} Lines = load_array{'abc', 'defg', 'xyz'} Line_width = App.screen.width Cursor1 = {line=2, pos=5} Screen_top1 = {line=1, pos=1} Screen_bottom1 = {} Zoom = 1 -- delete a character App.run_after_keychord('backspace') check_eq(Cursor1.line, 2, 'F - test_undo_delete_text/baseline/cursor:line') check_eq(Cursor1.pos, 4, 'F - test_undo_delete_text/baseline/cursor:pos') check_nil(Selection1.line, 'F - test_undo_delete_text/baseline/selection:line') check_nil(Selection1.pos, 'F - test_undo_delete_text/baseline/selection:pos') local screen_top_margin = 15 -- pixels local line_height = 15 -- pixels local y = screen_top_margin App.screen.check(y, 'abc', 'F - test_undo_delete_text/baseline/screen:1') y = y + line_height App.screen.check(y, 'def', 'F - test_undo_delete_text/baseline/screen:2') y = y + line_height App.screen.check(y, 'xyz', 'F - test_undo_delete_text/baseline/screen:3') -- undo --? -- after undo, the backspaced key is selected App.run_after_keychord('M-z') check_eq(Cursor1.line, 2, 'F - test_undo_delete_text/cursor:line') check_eq(Cursor1.pos, 5, 'F - test_undo_delete_text/cursor:pos') check_nil(Selection1.line, 'F - test_undo_delete_text/selection:line') check_nil(Selection1.pos, 'F - test_undo_delete_text/selection:pos') --? check_eq(Selection1.line, 2, 'F - test_undo_delete_text/selection:line') --? check_eq(Selection1.pos, 4, 'F - test_undo_delete_text/selection:pos') y = screen_top_margin App.screen.check(y, 'abc', 'F - test_undo_delete_text/screen:1') y = y + line_height App.screen.check(y, 'defg', 'F - test_undo_delete_text/screen:2') y = y + line_height App.screen.check(y, 'xyz', 'F - test_undo_delete_text/screen:3') end function Text.compute_fragments(line, line_width) --? print('compute_fragments', line_width) line.fragments = {} local x = 25 -- try to wrap at word boundaries for frag in line.data:gmatch('%S*%s*') do local frag_text = App.newText(love.graphics.getFont(), frag) local frag_width = math.floor(App.width(frag_text)*Zoom) --? print('x: '..tostring(x)..'; '..tostring(line_width-x)..'px to go') --? print('frag: ^'..frag..'$ is '..tostring(frag_width)..'px wide') if x + frag_width > line_width then while x + frag_width > line_width do --? print(x, frag, frag_width, line_width) if x < 0.8*line_width then --? print(frag, x, frag_width, line_width) -- long word; chop it at some letter -- We're not going to reimplement TeX here. local b = Text.nearest_pos_less_than(frag, line_width - x) assert(b > 0) -- avoid infinite loop when window is too narrow --? print('space for '..tostring(b)..' graphemes') local frag1 = string.sub(frag, 1, b) local frag1_text = App.newText(love.graphics.getFont(), frag1) local frag1_width = math.floor(App.width(frag1_text)*Zoom) --? print(frag, x, frag1_width, line_width) assert(x + frag1_width <= line_width) --? print('inserting '..frag1..' of width '..tostring(frag1_width)..'px') table.insert(line.fragments, {data=frag1, text=frag1_text}) frag = string.sub(frag, b+1) frag_text = App.newText(love.graphics.getFont(), frag) frag_width = math.floor(App.width(frag_text)*Zoom) end x = 25 -- new line end end if #frag > 0 then --? print('inserting '..frag..' of width '..tostring(frag_width)..'px') table.insert(line.fragments, {data=frag, text=frag_text}) end x = x + frag_width end end function Text.textinput(t) if love.mouse.isDown('1') then return end if App.ctrl_down() or App.alt_down() or App.cmd_down() then return end if Selection1.line then Text.delete_selection() end local before = snapshot(Cursor1.line) Text.insert_at_cursor(t) record_undo_event({before=before, after=snapshot(Cursor1.line)}) end function Text.insert_at_cursor(t) local byte_offset if Cursor1.pos > 1 then byte_offset = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos) else byte_offset = 1 end Lines[Cursor1.line].data = string.sub(Lines[Cursor1.line].data, 1, byte_offset-1)..t..string.sub(Lines[Cursor1.line].data, byte_offset) Lines[Cursor1.line].fragments = nil Lines[Cursor1.line].screen_line_starting_pos = nil Cursor1.pos = Cursor1.pos+1 end -- Don't handle any keys here that would trigger love.textinput above. function Text.keychord_pressed(chord) --? print(chord) --== shortcuts that mutate text if chord == 'return' then local before_line = Cursor1.line local before = snapshot(before_line) Text.insert_return() save_to_disk(Lines, Filename) record_undo_event({before=before, after=snapshot(before_line, Cursor1.line)}) elseif chord == 'tab' then local before = snapshot(Cursor1.line) Text.insert_at_cursor('\t') save_to_disk(Lines, Filename) record_undo_event({before=before, after=snapshot(Cursor1.line)}) elseif chord == 'backspace' then if Selection1.line then Text.delete_selection() save_to_disk(Lines, Filename) return end local before if Cursor1.pos > 1 then before = snapshot(Cursor1.line) else before = snapshot(Cursor1.line-1, Cursor1.line) end if Cursor1.pos > 1 then local byte_start = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos-1) local byte_end = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos) if byte_start then if byte_end then Lines[Cursor1.line].data = string.sub(Lines[Cursor1.line].data, 1, byte_start-1)..string.sub(Lines[Cursor1.line].data, byte_end) else Lines[Cursor1.line].data = string.sub(Lines[Cursor1.line].data, 1, byte_start-1) end Lines[Cursor1.line].fragments = nil Cursor1.pos = Cursor1.pos-1 end elseif Cursor1.line > 1 then if Lines[Cursor1.line-1].mode == 'drawing' then table.remove(Lines, Cursor1.line-1) else -- join lines Cursor1.pos = utf8.len(Lines[Cursor1.line-1].data)+1 Lines[Cursor1.line-1].data = Lines[Cursor1.line-1].data..Lines[Cursor1.line].data Lines[Cursor1.line-1].fragments = nil table.remove(Lines, Cursor1.line) end Cursor1.line = Cursor1.line-1 end if Text.lt1(Cursor1, Screen_top1) then local top2 = Text.to2(Screen_top1) top2 = Text.previous_screen_line(top2) Screen_top1 = Text.to1(top2) end assert(Text.le1(Screen_top1, Cursor1)) save_to_disk(Lines, Filename) record_undo_event({before=before, after=snapshot(Cursor1.line)}) elseif chord == 'delete' then if Selection1.line then Text.delete_selection() save_to_disk(Lines, Filename) return end local before if Cursor1.pos <= utf8.len(Lines[Cursor1.line].data) then before = snapshot(Cursor1.line) else before = snapshot(Cursor1.line, Cursor1.line+1) end if Cursor1.pos <= utf8.len(Lines[Cursor1.line].data) then local byte_start = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos) local byte_end = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos+1) if byte_start then if byte_end then Lines[Cursor1.line].data = string.sub(Lines[Cursor1.line].data, 1, byte_start-1)..string.sub(Lines[Cursor1.line].data, byte_end) else Lines[Cursor1.line].data = string.sub(Lines[Cursor1.line].data, 1, byte_start-1) end Lines[Cursor1.line].fragments = nil -- no change to Cursor1.pos end elseif Cursor1.line < #Lines then if Lines[Cursor1.line+1].mode == 'drawing' then table.remove(Lines, Cursor1.line+1) else -- join lines Lines[Cursor1.line].data = Lines[Cursor1.line].data..Lines[Cursor1.line+1].data Lines[Cursor1.line].fragments = nil table.remove(Lines, Cursor1.line+1) end end save_to_disk(Lines, Filename) record_undo_event({before=before, after=snapshot(Cursor1.line)}) -- undo/redo really belongs in main.lua, but it's here so I can test the -- text-specific portions of it elseif chord == 'M-z' then local event = undo_event() if event then local src = event.before Screen_top1 = deepcopy(src.screen_top) Cursor1 = deepcopy(src.cursor) Selection1 = deepcopy(src.selection) patch(Lines, event.after, event.before) end elseif chord == 'M-y' then local event = redo_event() if event then local src = event.after Screen_top1 = deepcopy(src.screen_top) Cursor1 = deepcopy(src.cursor) Selection1 = deepcopy(src.selection) patch(Lines, event.before, event.after) end -- paste elseif chord == 'M-c' then local s = Text.selection() if s then love.system.setClipboardText(s) end elseif chord == 'M-x' then local s = Text.cut_selection() if s then love.system.setClipboardText(s) end elseif chord == 'M-v' then local before_line = Cursor1.line local before = snapshot(before_line) local s = love.system.getClipboardText() for _,code in utf8.codes(s) do local c = utf8.char(code) if c == '\n' then Text.insert_return() else Text.insert_at_cursor(utf8.char(code)) end end record_undo_event({before=before, after=snapshot(before_line, Cursor1.line)}) --== shortcuts that move the cursor elseif chord == 'left' then if Selection1.line then Selection1 = {} end Text.left() elseif chord == 'right' then if Selection1.line then Selection1 = {} end Text.right() elseif chord == 'S-left' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.left() elseif chord == 'S-right' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.right() -- C- hotkeys reserved for drawings, so we'll use M- elseif chord == 'M-left' then if Selection1.line then Selection1 = {} end Text.word_left() elseif chord == 'M-right' then if Selection1.line then Selection1 = {} end Text.word_right() elseif chord == 'M-S-left' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.word_left() elseif chord == 'M-S-right' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.word_right() elseif chord == 'home' then if Selection1.line then Selection1 = {} end Cursor1.pos = 1 elseif chord == 'end' then if Selection1.line then Selection1 = {} end Cursor1.pos = utf8.len(Lines[Cursor1.line].data) + 1 elseif chord == 'S-home' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Cursor1.pos = 1 elseif chord == 'S-end' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Cursor1.pos = utf8.len(Lines[Cursor1.line].data) + 1 elseif chord == 'up' then if Selection1.line then Selection1 = {} end Text.up() elseif chord == 'down' then if Selection1.line then Selection1 = {} end Text.down() elseif chord == 'S-up' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.up() elseif chord == 'S-down' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.down() elseif chord == 'pageup' then if Selection1.line then Selection1 = {} end Text.pageup() elseif chord == 'pagedown' then if Selection1.line then Selection1 = {} end Text.pagedown() elseif chord == 'S-pageup' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.pageup() elseif chord == 'S-pagedown' then if Selection1.line == nil then Selection1 = {line=Cursor1.line, pos=Cursor1.pos} end Text.pagedown() end end function Text.insert_return() local byte_offset = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos) table.insert(Lines, Cursor1.line+1, {mode='text', data=string.sub(Lines[Cursor1.line].data, byte_offset)}) local scroll_down = (Cursor_y + math.floor(15*Zoom)) > App.screen.height Lines[Cursor1.line].data = string.sub(Lines[Cursor1.line].data, 1, byte_offset-1) Lines[Cursor1.line].fragments = nil Cursor1.line = Cursor1.line+1 Cursor1.pos = 1 if scroll_down then Screen_top1.line = Cursor1.line Text.scroll_up_while_cursor_on_screen() end end function Text.pageup() -- duplicate some logic from love.draw local top2 = Text.to2(Screen_top1) --? print(App.screen.height) local y = App.screen.height - math.floor(15*Zoom) while y >= 15 do --? print(y, top2.line) if Screen_top1.line == 1 and Screen_top1.pos == 1 then break end if Lines[Screen_top1.line].mode == 'text' then y = y - math.floor(15*Zoom) elseif Lines[Screen_top1.line].mode == 'drawing' then y = y - 20 - Drawing.pixels(Lines[Screen_top1.line].h) end top2 = Text.previous_screen_line(top2) end Screen_top1 = Text.to1(top2) Cursor1.line = Screen_top1.line Cursor1.pos = Screen_top1.pos Text.move_cursor_down_to_next_text_line_while_scrolling_again_if_necessary() --? print(Cursor1.line, Cursor1.pos, Screen_top1.line, Screen_top1.pos) end function Text.pagedown() Screen_top1.line = Screen_bottom1.line Screen_top1.pos = Screen_bottom1.pos --? print('setting top to', Screen_top1.line, Screen_top1.pos) Cursor1.line = Screen_top1.line Cursor1.pos = Screen_top1.pos Text.move_cursor_down_to_next_text_line_while_scrolling_again_if_necessary() --? print('top now', Screen_top1.line) end function Text.up() assert(Lines[Cursor1.line].mode == 'text') --? print('up', Cursor1.pos, Screen_top1.pos) local screen_line_index,screen_line_starting_pos = Text.pos_at_start_of_cursor_screen_line() if screen_line_starting_pos == 1 then --? print('cursor is at first screen line of its line') -- line is done; skip to previous text line local new_cursor_line = Cursor1.line while new_cursor_line > 1 do new_cursor_line = new_cursor_line-1 if Lines[new_cursor_line].mode == 'text' then --? print('found previous text line') Cursor1.line = new_cursor_line Text.populate_screen_line_starting_pos(Cursor1.line) if Lines[Cursor1.line].screen_line_starting_pos == nil then Cursor1.pos = Text.nearest_cursor_pos(Lines[Cursor1.line].data, Cursor_x) break end -- previous text line found, pick its final screen line --? print('has multiple screen lines') local screen_line_starting_pos = Lines[Cursor1.line].screen_line_starting_pos --? print(#screen_line_starting_pos) screen_line_starting_pos = screen_line_starting_pos[#screen_line_starting_pos] --? print('previous screen line starts at pos '..tostring(screen_line_starting_pos)..' of its line') if Screen_top1.line > Cursor1.line then Screen_top1.line = Cursor1.line Screen_top1.pos = screen_line_starting_pos --? print('pos of top of screen is also '..tostring(Screen_top1.pos)..' of the same line') end local s = string.sub(Lines[Cursor1.line].data, screen_line_starting_pos) Cursor1.pos = screen_line_starting_pos + Text.nearest_cursor_pos(s, Cursor_x) - 1 break end end if Cursor1.line < Screen_top1.line then Screen_top1.line = Cursor1.line end else -- move up one screen line in current line --? print('cursor is NOT at first screen line of its line') assert(screen_line_index > 1) new_screen_line_starting_pos = Lines[Cursor1.line].screen_line_starting_pos[screen_line_index-1] --? print('switching pos of screen line at cursor from '..tostring(screen_line_starting_pos)..' to '..tostring(new_screen_line_starting_pos)) if Screen_top1.line == Cursor1.line and Screen_top1.pos == screen_line_starting_pos then Screen_top1.pos = new_screen_line_starting_pos --? print('also setting pos of top of screen to '..tostring(Screen_top1.pos)) end local s = string.sub(Lines[Cursor1.line].data, new_screen_line_starting_pos) Cursor1.pos = new_screen_line_starting_pos + Text.nearest_cursor_pos(s, Cursor_x) - 1 --? print('cursor pos is now '..tostring(Cursor1.pos)) end end function Text.down() assert(Lines[Cursor1.line].mode == 'text') --? print('down', Cursor1.line, Cursor1.pos, Screen_top1.line, Screen_top1.pos, Screen_bottom1.line, Screen_bottom1.pos) if Text.cursor_at_final_screen_line() then -- line is done, skip to next text line --? print('cursor at final screen line of its line') local new_cursor_line = Cursor1.line while new_cursor_line < #Lines do new_cursor_line = new_cursor_line+1 if Lines[new_cursor_line].mode == 'text' then Cursor1.line = new_cursor_line Cursor1.pos = Text.nearest_cursor_pos(Lines[Cursor1.line].data, Cursor_x) --? print(Cursor1.pos) break end end if Cursor1.line > Screen_bottom1.line then --? print('screen top before:', Screen_top1.line, Screen_top1.pos) Screen_top1.line = Cursor1.line --? print('scroll up preserving cursor') Text.scroll_up_while_cursor_on_screen() --? print('screen top after:', Screen_top1.line, Screen_top1.pos) end else -- move down one screen line in current line local scroll_up = false if Text.le1(Screen_bottom1, Cursor1) then scroll_up = true end --? print('cursor is NOT at final screen line of its line') local screen_line_index, screen_line_starting_pos = Text.pos_at_start_of_cursor_screen_line() new_screen_line_starting_pos = Lines[Cursor1.line].screen_line_starting_pos[screen_line_index+1] --? print('switching pos of screen line at cursor from '..tostring(screen_line_starting_pos)..' to '..tostring(new_screen_line_starting_pos)) local s = string.sub(Lines[Cursor1.line].data, new_screen_line_starting_pos) Cursor1.pos = new_screen_line_starting_pos + Text.nearest_cursor_pos(s, Cursor_x) - 1 --? print('cursor pos is now', Cursor1.line, Cursor1.pos) if scroll_up then Screen_top1.line = Cursor1.line --? print('scroll up preserving cursor') Text.scroll_up_while_cursor_on_screen() --? print('screen top after:', Screen_top1.line, Screen_top1.pos) end end --? print('=>', Cursor1.line, Cursor1.pos, Screen_top1.line, Screen_top1.pos, Screen_bottom1.line, Screen_bottom1.pos) end function Text.word_left() while true do Text.left() if Cursor1.pos == 1 then break end assert(Cursor1.pos > 1) local offset = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos) assert(offset > 1) if Lines[Cursor1.line].data:sub(offset-1,offset-1) == ' ' then break end end end function Text.word_right() while true do Text.right() if Cursor1.pos > utf8.len(Lines[Cursor1.line].data) then break end local offset = utf8.offset(Lines[Cursor1.line].data, Cursor1.pos) if Lines[Cursor1.line].data:sub(offset,offset) == ' ' then -- TODO: other space characters break end end end function Text.left() assert(Lines[Cursor1.line].mode == 'text') if Cursor1.pos > 1 then Cursor1.pos = Cursor1.pos-1 else local new_cursor_line = Cursor1.line while new_cursor_line > 1 do new_cursor_line = new_cursor_line-1 if Lines[new_cursor_line].mode == 'text' then Cursor1.line = new_cursor_line Cursor1.pos = utf8.len(Lines[Cursor1.line].data) + 1 break end end if Cursor1.line < Screen_top1.line then Screen_top1.line = Cursor1.line end end end function Text.right() assert(Lines[Cursor1.line].mode == 'text') if Cursor1.pos <= utf8.len(Lines[Cursor1.line].data) then Cursor1.pos = Cursor1.pos+1 else local new_cursor_line = Cursor1.line while new_cursor_line <= #Lines-1 do new_cursor_line = new_cursor_line+1 if Lines[new_cursor_line].mode == 'text' then Cursor1.line = new_cursor_line Cursor1.pos = 1 break end end if Cursor1.line > Screen_bottom1.line then Screen_top1.line = Cursor1.line end end end function Text.pos_at_start_of_cursor_screen_line() if Lines[Cursor1.line].screen_line_starting_pos == nil then return 1,1 end for i=#Lines[Cursor1.line].screen_line_starting_pos,1,-1 do local spos = Lines[Cursor1.line].screen_line_starting_pos[i] if spos <= Cursor1.pos then return i,spos end end assert(false) end function Text.cursor_at_final_screen_line() if Lines[Cursor1.line].screen_line_starting_pos == nil then return true end local screen_lines = Lines[Cursor1.line].screen_line_starting_pos --? print(screen_lines[#screen_lines], Cursor1.pos) return screen_lines[#screen_lines] <= Cursor1.pos end function Text.move_cursor_down_to_next_text_line_while_scrolling_again_if_necessary() local y = 15 -- top margin while Cursor1.line <= #Lines do if Lines[Cursor1.line].mode == 'text' then break end --? print('cursor skips', Cursor1.line) y = y + 20 + Drawing.pixels(Lines[Cursor1.line].h) Cursor1.line = Cursor1.line + 1 end -- hack: insert a text line at bottom of file if necessary if Cursor1.line > #Lines then assert(Cursor1.line == #Lines+1) table.insert(Lines, {mode='text', data=''}) end --? print(y, App.screen.height, App.screen.height-math.floor(15*Zoom)) if y > App.screen.height - math.floor(15*Zoom) then --? if Cursor1.line > Screen_bottom1.line then --? print('scroll up') Screen_top1.line = Cursor1.line Text.scroll_up_while_cursor_on_screen() end end function Text.scroll_up_while_cursor_on_screen() local top2 = Text.to2(Cursor1) --? print('cursor pos '..tostring(Cursor1.pos)..' is on the #'..tostring(top2.screen_line)..' screen line down') local y = App.screen.height - math.floor(15*Zoom) -- duplicate some logic from love.draw while true do --? print(y, 'top2:', top2.line, top2.screen_line, top2.screen_pos) if top2.line == 1 and top2.screen_line == 1 then break end if top2.screen_line > 1 or Lines[top2.line-1].mode == 'text' then local h = math.floor(15*Zoom) if y - h < 15 then -- top margin = 15 break end y = y - h else assert(top2.line > 1) assert(Lines[top2.line-1].mode == 'drawing') -- We currently can't draw partial drawings, so either skip it entirely -- or not at all. local h = 20 + Drawing.pixels(Lines[top2.line-1].h) if y - h < 15 then break end --? print('skipping drawing of height', h) y = y - h end top2 = Text.previous_screen_line(top2) end --? print('top2 finally:', top2.line, top2.screen_line, top2.screen_pos) Screen_top1 = Text.to1(top2) --? print('top1 finally:', Screen_top1.line, Screen_top1.pos) end function Text.in_line(line, x,y) if line.y == nil then return false end -- outside current page if x < 25 then return false end if y < line.y then return false end if line.screen_line_starting_pos == nil then return y < line.y + math.floor(15*Zoom) end return y < line.y + #line.screen_line_starting_pos * math.floor(15*Zoom) end -- mx,my in pixels function Text.move_cursor(line_index, line, mx, my) Cursor1.line = line_index if line.screen_line_starting_pos == nil then Cursor1.pos = Text.nearest_cursor_pos(line.data, mx) return end assert(line.fragments) assert(my >= line.y) -- duplicate some logic from Text.draw local y = line.y for screen_line_index,screen_line_starting_pos in ipairs(line.screen_line_starting_pos) do local nexty = y + math.floor(15*Zoom) if my < nexty then -- On all wrapped screen lines but the final one, clicks past end of -- line position cursor on final character of screen line. -- (The final screen line positions past end of screen line as always.) if mx > Line_width and screen_line_index < #line.screen_line_starting_pos then Cursor1.pos = line.screen_line_starting_pos[screen_line_index+1] return end local s = string.sub(line.data, screen_line_starting_pos) Cursor1.pos = screen_line_starting_pos + Text.nearest_cursor_pos(s, mx) - 1 return end y = nexty end assert(false) end -- manual test: -- line: abc -- def -- gh -- fragments: abc, def, gh -- click inside e -- line_starting_pos = 1 + 3 = 4 -- nearest_cursor_pos('defgh', mx) = 2 -- Cursor1.pos = 4 + 2 - 1 = 5 -- manual test: -- click inside h -- line_starting_pos = 1 + 3 + 3 = 7 -- nearest_cursor_pos('gh', mx) = 2 -- Cursor1.pos = 7 + 2 - 1 = 8 function Text.nearest_cursor_pos(line, x) -- x includes left margin if x == 0 then return 1 end local len = utf8.len(line) local max_x = 25+Text.x(line, len+1) if x > max_x then return len+1 end local left, right = 1, len+1 --? print('-- nearest', x) while true do --? print('nearest', x, '^'..line..'$', left, right) if left == right then return left end local curr = math.floor((left+right)/2) local currxmin = 25+Text.x(line, curr) local currxmax = 25+Text.x(line, curr+1) --? print('nearest', x, left, right, curr, currxmin, currxmax) if currxmin <= x and x < currxmax then if x-currxmin < currxmax-x then return curr else return curr+1 end end if left >= right-1 then return right end if currxmin > x then right = curr else left = curr end end assert(false) end function Text.nearest_pos_less_than(line, x) -- x DOES NOT include left margin if x == 0 then return 1 end local len = utf8.len(line) local max_x = Text.x(line, len+1) if x > max_x then return len+1 end local left, right = 1, len+1 --? print('--') while true do local curr = math.floor((left+right)/2) local currxmin = Text.x(line, curr+1) local currxmax = Text.x(line, curr+2) --? print(x, left, right, curr, currxmin, currxmax) if currxmin <= x and x < currxmax then return curr end if left >= right-1 then return left end if currxmin > x then right = curr else left = curr end end assert(false) end function Text.x(s, pos) local offset = utf8.offset(s, pos) assert(offset) local s_before = s:sub(1, offset-1) local text_before = App.newText(love.graphics.getFont(), s_before) return math.floor(App.width(text_before)*Zoom) end function Text.to2(pos1) if Lines[pos1.line].mode == 'drawing' then return {line=pos1.line, screen_line=1, screen_pos=1} end local result = {line=pos1.line, screen_line=1} if Lines[pos1.line].screen_line_starting_pos == nil then result.screen_pos = pos1.pos else for i=#Lines[pos1.line].screen_line_starting_pos,1,-1 do local spos = Lines[pos1.line].screen_line_starting_pos[i] if spos <= pos1.pos then result.screen_line = i result.screen_pos = pos1.pos - spos + 1 break end end end assert(result.screen_pos) return result end function Text.to1(pos2) local result = {line=pos2.line, pos=pos2.screen_pos} if pos2.screen_line > 1 then result.pos = Lines[pos2.line].screen_line_starting_pos[pos2.screen_line] + pos2.screen_pos - 1 end return result end function Text.lt1(a, b) if a.line < b.line then return true end if a.line > b.line then return false end return a.pos < b.pos end function Text.le1(a, b) if a.line < b.line then return true end if a.line > b.line then return false end return a.pos <= b.pos end function Text.previous_screen_line(pos2) if pos2.screen_line > 1 then return {line=pos2.line, screen_line=pos2.screen_line-1, screen_pos=1} elseif pos2.line == 1 then return pos2 elseif Lines[pos2.line-1].mode == 'drawing' then return {line=pos2.line-1, screen_line=1, screen_pos=1} else local l = Lines[pos2.line-1] if l.screen_line_starting_pos == nil then return {line=pos2.line-1, screen_line=1, screen_pos=1} else return {line=pos2.line-1, screen_line=#Lines[pos2.line-1].screen_line_starting_pos, screen_pos=1} end end end function Text.populate_screen_line_starting_pos(line_index) --? print('Text.populate_screen_line_starting_pos') local line = Lines[line_index] if line.screen_line_starting_pos then return end -- duplicate some logic from Text.draw if line.fragments == nil then Text.compute_fragments(line, Line_width) end local x = 25 local pos = 1 for _, f in ipairs(line.fragments) do local frag, frag_text = f.data, f.text --? print(x, frag) -- render fragment local frag_width = math.floor(App.width(frag_text)*Zoom) if x + frag_width > Line_width then x = 25 if line.screen_line_starting_pos == nil then line.screen_line_starting_pos = {1, pos} else --? print(' ', #line.screen_line_starting_pos, line.data) table.insert(line.screen_line_starting_pos, pos) end end x = x + frag_width local frag_len = utf8.len(frag) pos = pos + frag_len end end return Text