home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / util / edit / jade.lha / Jade / src / housekeeping.c < prev    next >
C/C++ Source or Header  |  1994-04-19  |  12KB  |  425 lines
  1. /* housekeeping.c -- Generally editor fiddly stuff
  2.    Copyright (C) 1993, 1994 John Harper <jsh@ukc.ac.uk>
  3.  
  4. This file is part of Jade.
  5.  
  6. Jade is free software; you can redistribute it and/or modify it
  7. under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. Jade is distributed in the hope that it will be useful, but
  12. WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with Jade; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #include "jade.h"
  21. #include "jade_protos.h"
  22.  
  23. _PR void keepposaddx(TX *, long, long, long);
  24. _PR void keeppossubx(TX *, long, long, long);
  25. _PR void keepposaddy(TX *, long, long);
  26. _PR void keeppossuby(TX *, long, long);
  27. _PR void keeppossplity(TX *, long, long);
  28. _PR void keepposjoiny(TX *, long, long);
  29. _PR void resyncx(VW *);
  30. _PR void resyncy(VW *);
  31. _PR void resyncxy(VW *);
  32. _PR void setstartcol(VW *, long);
  33. _PR void setstartline(VW *, long);
  34. _PR void resetallviews(TX *);
  35.  
  36. /*
  37.  * The next few routines deal with updating the various references to
  38.  * coordinates throughout the views after chunks have been deleted and
  39.  * inserted.
  40.  */
  41. void
  42. keepposaddx(TX *tx, long addx, long xpos, long ypos)
  43. {
  44.     VW *thisvw;
  45.     Mark *thismark;
  46.  
  47. #define UPD(x,y) if((y == ypos) && (x >= xpos)) x += addx
  48.  
  49.     for(thisvw = ViewChain; thisvw; thisvw = thisvw->vw_Next)
  50.     {
  51.     if(thisvw->vw_Tx == tx)
  52.     {
  53.         UPD(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
  54.         UPD(thisvw->vw_BlockS.pos_Col, thisvw->vw_BlockS.pos_Line);
  55.         UPD(thisvw->vw_BlockE.pos_Col, thisvw->vw_BlockE.pos_Line);
  56.     }
  57.     }
  58.     for(thismark = tx->tx_MarkChain; thismark; thismark = thismark->mk_Next)
  59.     {
  60.     UPD(VPOS(thismark->mk_Pos).pos_Col, VPOS(thismark->mk_Pos).pos_Line);
  61.     }
  62.     UPD(tx->tx_SavedCPos.pos_Col, tx->tx_SavedCPos.pos_Line);
  63.     UPD(tx->tx_SavedWPos.pos_Col, tx->tx_SavedWPos.pos_Line);
  64.     UPD(tx->tx_SavedBlockPos[0].pos_Col, tx->tx_SavedBlockPos[0].pos_Line);
  65.     UPD(tx->tx_SavedBlockPos[1].pos_Col, tx->tx_SavedBlockPos[1].pos_Line);
  66. #if 1
  67.     if((tx->tx_ModStart.pos_Line == ypos) && (tx->tx_ModStart.pos_Col > xpos))
  68.     tx->tx_ModStart.pos_Col += addx;
  69. #else
  70.     UPD(tx->tx_ModStart.pos_Col, tx->tx_ModStart.pos_Line);
  71. #endif
  72.     UPD(tx->tx_ModEnd.pos_Col, tx->tx_ModEnd.pos_Line);
  73.  
  74. #undef UPD(x,y)
  75. }
  76.  
  77. void
  78. keeppossubx(TX *tx, long subx, long xpos, long ypos)
  79. {
  80.     VW *thisvw;
  81.     Mark *thismark;
  82.  
  83. #define UPD(x,y) if((y == ypos) && (x >= xpos)) { if((x -= subx) < xpos) x = xpos; }
  84.  
  85.     for(thisvw = ViewChain; thisvw; thisvw = thisvw->vw_Next)
  86.     {
  87.     if(thisvw->vw_Tx == tx)
  88.     {
  89.         UPD(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
  90.         UPD(thisvw->vw_BlockS.pos_Col, thisvw->vw_BlockS.pos_Line);
  91.         UPD(thisvw->vw_BlockE.pos_Col, thisvw->vw_BlockE.pos_Line);
  92.     }
  93.     }
  94.     for(thismark = tx->tx_MarkChain; thismark; thismark = thismark->mk_Next)
  95.     {
  96.     UPD(VPOS(thismark->mk_Pos).pos_Col, VPOS(thismark->mk_Pos).pos_Line);
  97.     }
  98.     UPD(tx->tx_SavedCPos.pos_Col, tx->tx_SavedCPos.pos_Line);
  99.     UPD(tx->tx_SavedWPos.pos_Col, tx->tx_SavedWPos.pos_Line);
  100.     UPD(tx->tx_SavedBlockPos[0].pos_Col, tx->tx_SavedBlockPos[0].pos_Line);
  101.     UPD(tx->tx_SavedBlockPos[1].pos_Col, tx->tx_SavedBlockPos[1].pos_Line);
  102.  
  103.     UPD(tx->tx_ModStart.pos_Col, tx->tx_ModStart.pos_Line);
  104. #if 1
  105.     if((tx->tx_ModEnd.pos_Line == ypos) && (tx->tx_ModEnd.pos_Col > xpos))
  106.     {
  107.     if((tx->tx_ModEnd.pos_Col -= subx) < xpos)
  108.         tx->tx_ModEnd.pos_Col = xpos;
  109.     }
  110. #else
  111.     UPD(tx->tx_ModEnd.pos_Col, tx->tx_ModEnd.pos_Line);
  112. #endif
  113.  
  114. #undef UPD(x,y)
  115. }
  116.  
  117. /*
  118.  * Whole lines only please
  119.  */
  120. void
  121. keepposaddy(TX *tx, long addy, long ypos)
  122. {
  123.     VW *thisvw;
  124.     Mark *thismark;
  125.  
  126. #define UPD(y) if(y >= ypos) y += addy
  127.  
  128.     for(thisvw = ViewChain; thisvw; thisvw = thisvw->vw_Next)
  129.     {
  130.     if(thisvw->vw_Tx == tx)
  131.     {
  132.         UPD(thisvw->vw_CursorPos.pos_Line);
  133.         UPD(thisvw->vw_BlockS.pos_Line);
  134.         UPD(thisvw->vw_BlockE.pos_Line);
  135.         if(thisvw != CurrVW)
  136.         UPD(thisvw->vw_StartLine);
  137.     }
  138.     }
  139.     for(thismark = tx->tx_MarkChain; thismark; thismark = thismark->mk_Next)
  140.     {
  141.     UPD(VPOS(thismark->mk_Pos).pos_Line);
  142.     }
  143.     UPD(tx->tx_SavedCPos.pos_Line);
  144.     UPD(tx->tx_SavedWPos.pos_Line);
  145.     UPD(tx->tx_SavedBlockPos[0].pos_Line);
  146.     UPD(tx->tx_SavedBlockPos[1].pos_Line);
  147.  
  148. #if 1
  149.     if(tx->tx_ModStart.pos_Line > ypos)
  150.     tx->tx_ModStart.pos_Line += addy;
  151. #else
  152.     UPD(tx->tx_ModStart.pos_Line);
  153. #endif
  154.     UPD(tx->tx_ModEnd.pos_Line);
  155.  
  156. #undef UPD(y)
  157. }
  158.  
  159. /*
  160.  * Whole lines only please
  161.  */
  162. void
  163. keeppossuby(TX *tx, long suby, long ypos)
  164. {
  165.     VW *thisvw;
  166.     Mark *thismark;
  167.  
  168. #define UPD(y) if(y > ypos) { if((y -= suby) < ypos) y = ypos; }
  169. #define UPD2(x,y) if(y >= ypos) { if((y -= suby) < ypos) {y = ypos; x = 0; }}
  170.  
  171.     for(thisvw = ViewChain; thisvw; thisvw = thisvw->vw_Next)
  172.     {
  173.     if(thisvw->vw_Tx == tx)
  174.     {
  175.         UPD2(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
  176.         UPD2(thisvw->vw_BlockS.pos_Col, thisvw->vw_BlockS.pos_Line);
  177.         UPD2(thisvw->vw_BlockE.pos_Col, thisvw->vw_BlockE.pos_Line);
  178.         if(thisvw != CurrVW)
  179.         UPD(thisvw->vw_StartLine);
  180.     }
  181.     }
  182.     for(thismark = tx->tx_MarkChain; thismark; thismark = thismark->mk_Next)
  183.     {
  184.     UPD2(VPOS(thismark->mk_Pos).pos_Col, VPOS(thismark->mk_Pos).pos_Line);
  185.     }
  186.     UPD2(tx->tx_SavedCPos.pos_Col, tx->tx_SavedCPos.pos_Line);
  187.     UPD2(tx->tx_SavedWPos.pos_Col, tx->tx_SavedWPos.pos_Line);
  188.     UPD2(tx->tx_SavedBlockPos[0].pos_Col, tx->tx_SavedBlockPos[0].pos_Line);
  189.     UPD2(tx->tx_SavedBlockPos[1].pos_Col, tx->tx_SavedBlockPos[1].pos_Line);
  190.  
  191.     UPD2(tx->tx_ModStart.pos_Col, tx->tx_ModStart.pos_Line);
  192. #if 1
  193.     if(tx->tx_ModEnd.pos_Line > ypos)
  194.     {
  195.     if((tx->tx_ModEnd.pos_Line -= suby) < ypos)
  196.     {
  197.         tx->tx_ModEnd.pos_Line = ypos;
  198.         tx->tx_ModEnd.pos_Col = 0;
  199.     }
  200.     }
  201. #else
  202.     UPD2(tx->tx_ModEnd.pos_Col, tx->tx_ModEnd.pos_Line);
  203. #endif
  204.  
  205. #undef UPD(y)
  206. #undef UPD2(x,y)
  207. }
  208.  
  209. /*
  210.  * Use when splitting a line into 2, cursor should be at position of split
  211.  */
  212. void
  213. keeppossplity(TX *tx, long xpos, long ypos)
  214. {
  215.     VW *thisvw;
  216.     Mark *thismark;
  217.  
  218. #define UPD(y) if(y > ypos) y++
  219. #define UPD2(x,y) if((y == ypos) && (x >= xpos)) { x -= xpos; y++; } else if(y > ypos) y++
  220.  
  221.     for(thisvw = ViewChain; thisvw; thisvw = thisvw->vw_Next)
  222.     {
  223.     if(thisvw->vw_Tx == tx)
  224.     {
  225.         UPD2(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
  226.         UPD2(thisvw->vw_BlockS.pos_Col, thisvw->vw_BlockS.pos_Line);
  227.         UPD2(thisvw->vw_BlockE.pos_Col, thisvw->vw_BlockE.pos_Line);
  228.         if(thisvw != CurrVW)
  229.         UPD(thisvw->vw_StartLine);
  230.     }
  231.     }
  232.     for(thismark = tx->tx_MarkChain; thismark; thismark = thismark->mk_Next)
  233.     {
  234.     UPD2(VPOS(thismark->mk_Pos).pos_Col, VPOS(thismark->mk_Pos).pos_Line);
  235.     }
  236.     UPD2(tx->tx_SavedCPos.pos_Col, tx->tx_SavedCPos.pos_Line);
  237.     UPD2(tx->tx_SavedWPos.pos_Col, tx->tx_SavedWPos.pos_Line);
  238.     UPD2(tx->tx_SavedBlockPos[0].pos_Col, tx->tx_SavedBlockPos[0].pos_Line);
  239.     UPD2(tx->tx_SavedBlockPos[1].pos_Col, tx->tx_SavedBlockPos[1].pos_Line);
  240.  
  241. #if 1
  242.     if((tx->tx_ModStart.pos_Line == ypos) && (tx->tx_ModStart.pos_Col > xpos))
  243.     {
  244.     tx->tx_ModStart.pos_Col -= xpos;
  245.     tx->tx_ModStart.pos_Line++;
  246.     }
  247.     else if(tx->tx_ModStart.pos_Line > ypos)
  248.     tx->tx_ModStart.pos_Line++;
  249. #else
  250.     UPD2(tx->tx_ModStart.pos_Col, tx->tx_ModStart.pos_Line);
  251. #endif
  252.     UPD2(tx->tx_ModEnd.pos_Col, tx->tx_ModEnd.pos_Line);
  253.  
  254. #undef UPD(y)
  255. #undef UPD2(x,y)
  256. }
  257.  
  258. /*
  259.  * Use when compacting 2 adjacent lines into one
  260.  */
  261. void
  262. keepposjoiny(TX *tx, long xpos, long ypos)
  263. {
  264.     VW *thisvw;
  265.     Mark *thismark;
  266.  
  267. #define UPD(y) if(y > ypos) y--
  268. #define UPD2(x,y) if(y > ypos) { if(y == ypos + 1) x += xpos; y--; }
  269.  
  270.     for(thisvw = ViewChain; thisvw; thisvw = thisvw->vw_Next)
  271.     {
  272.     if(thisvw->vw_Tx == tx)
  273.     {
  274.         UPD2(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
  275.         UPD2(thisvw->vw_BlockS.pos_Col, thisvw->vw_BlockS.pos_Line);
  276.         UPD2(thisvw->vw_BlockE.pos_Col, thisvw->vw_BlockE.pos_Line);
  277.         if