home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / p2demo21.exe / PEL / LINEDRAW.PEL < prev    next >
Text File  |  1995-03-13  |  17KB  |  568 lines
  1. # $Header:   P:\source\wmacros\linedraw.pev   1.7   13 Mar 1995 13:17:54   PFHDWM0  $
  2.  
  3. ##############################################################################
  4. #
  5. #           Compuware Corporation
  6. #           31440 Northwestern Highway
  7. #           Farmington Hills, Michigan 48334-2564
  8. #
  9. #   This source code listing contains information that is
  10. #   proprietary to Compuware Corporation and may not be copied
  11. #   duplicated, translated, transmitted, stored, retrieved
  12. #   or in any manner or by any method conveyed or disclosed
  13. #   to a third party or parties without express written
  14. #   permission from Compuware Corporation.
  15. #
  16. #  
  17. ##############################################################################
  18.  
  19. #### $Workfile:   linedraw.pel  $: Line drawing binding code
  20. #
  21. #
  22.  
  23. #
  24. # The function linedraw() is used to enable 'line drawing' mode by executing 
  25. # the function toggle_drawing() with a line style. Once activated the Numpad 
  26. # arrow keys will be changed to draw lines. An optional parameter to 
  27. # toggle_drawing() sets the style of line drawing characters to one of 4 
  28. # styles (default is style 1). This version differs from the original Sage 
  29. # editor in that the changes to the Numpad arrow keys are global instead of 
  30. # being restricted to the current buffer.  Invoking toggle_drawing() a second 
  31. # time with no parameters, or linedraw() with a 0 (zero) parameter turns off
  32. # line drawing and restores the original Numpad keys.
  33. #
  34. # The function linedraw() prompts for a style if one is not provided and can
  35. # be assigned to a key.
  36. #
  37. # The keys defined are:
  38. #  Num Left, Right, Up and Down: insert linedraw character and move in
  39. #                               specified direction.
  40. #  Num 5: insert arrow pointing in the last used direction.
  41. #  Ctrl-Num-Left, Right, Up and Down: insert arrow character pointing in the
  42. #                                     specified direction, then move.
  43. #
  44.  
  45. local ld_Keymap = 0;
  46.  
  47. local up_array
  48. local down_array
  49. local left_array
  50. local right_array
  51.  
  52. local arrow_array
  53. local last_dir = 4
  54.  
  55. local t_char_array
  56. local b_char_array
  57. local r_char_array
  58. local l_char_array
  59.  
  60. local VERT_C   = 1
  61. local HORZ_C   = 2
  62.  
  63. local NO_C  = 0
  64. local TOP_C = 1
  65. local LEFT_C   = 2
  66. local BOT_C = 4
  67. local RIGHT_C  = 8
  68.  
  69.  
  70. global function linedraw( style )
  71. {
  72.    if (argcount() < 1)
  73.       style = prompt("Select style: 1 = ─┼─, 2 = ▀█▀, 3 = -+-, 4 = ═╬═: ", "1",
  74.                      "linedraw_dialog");
  75.  
  76.    if (style != "")  # style will be NULL string for escape.
  77.    {
  78.       if (style+0 >= 0 && style+0 < 5)
  79.          toggle_drawing( style );
  80.       else
  81.          notify("Invalid linedrawing style selected")
  82.    }
  83. }
  84.  
  85. #
  86. # init_lines() sets the characters for the type of lines to be drawn.
  87. # 
  88. # The line styles are determined by borderStyle in the following manner:
  89. #
  90. #    1              2               3              4
  91. #      ┌───┬───┐      █▀▀▀█▀▀▀█       +---+---+      ╔═══╦═══╗
  92. #      │   │   │      █   █   █       |   |   |      ║   ║   ║
  93. #      ├───┼───┤      █▀▀▀█▀▀▀█       +---+---+      ╠═══╬═══╣
  94. #      │   │   │      █   █   █       |   |   |      ║   ║   ║
  95. #      └───┴───┘      ▀▀▀▀▀▀▀▀▀       +---+---+      ╚═══╩═══╝
  96. #
  97. local function init_lines( borderStyle )
  98. {                                       
  99.    local v_bar = 179    # │
  100.    local h_bar = 196    # ─
  101.    local tl_corner = 218      # ┌
  102.    local tr_corner = 191      # ┐
  103.    local ll_corner = 192      # └
  104.    local lr_corner = 217      # ┘
  105.    local x_inter  = 197    # ┼
  106.    local t_inter = 193     # ┴
  107.    local b_inter = 194     # ┬
  108.    local l_inter = 180     # ┤
  109.    local r_inter = 195     # ├
  110.                                     
  111.    if (borderStyle == 2)            
  112.    {                                
  113. #      v_bar = 179    # │
  114. #      h_bar = 205    # ═
  115. #      tl_corner = 213      # ╒
  116. #      tr_corner = 184      # ╕
  117. #      ll_corner = 212      # ╘
  118. #      lr_corner = 190      # ╛
  119. #      x_inter  = 216    # ╪
  120. #      t_inter = 207     # ╧
  121. #      b_inter = 209     # ╤
  122. #      l_inter = 181     # ╡
  123. #      r_inter = 198     # ╞
  124.       v_bar = 219       # █         
  125.                                     
  126.       h_bar = 223       # ▀         
  127.       tl_corner = 219               
  128.       tr_corner = 219               
  129.       ll_corner = 223               
  130.       lr_corner = 223               
  131.       x_inter  = 219                
  132.       t_inter = 223                 
  133.       b_inter = 219                 
  134.       l_inter = 219                 
  135.       r_inter = 219                 
  136.    } 
  137.    else if (borderStyle == 3) 
  138.    {
  139. #      v_bar = 186    # ║
  140. #      h_bar = 196    # ─
  141. #      tl_corner = 214      # ╓
  142. #      tr_corner = 183      # ╖
  143. #      ll_corner = 211      # ╙
  144. #      lr_corner = 189      # ╜
  145. #      x_inter  = 215    # ╫
  146. #      t_inter = 208     # ╨
  147. #      b_inter = 210     # ╥
  148. #      l_inter = 182     # ╢
  149. #      r_inter = 199     # ╟
  150.       v_bar = 124    # ║
  151.       h_bar = 45    # ─
  152.       tl_corner = 43      # ╓
  153.       tr_corner = 43      # ╖
  154.       ll_corner = 43      # ╙
  155.       lr_corner = 43      # ╜
  156.       x_inter  = 43    # ╫
  157.       t_inter = 43     # ╨
  158.       b_inter = 43     # ╥
  159.       l_inter = 43     # ╢
  160.       r_inter = 43     # ╟
  161.    } 
  162.    else if (borderStyle == 4) 
  163.    {
  164.       v_bar = 186    # ║
  165.       h_bar = 205    # ═
  166.       tl_corner = 201      # ╔
  167.       tr_corner = 187      # ╗
  168.       ll_corner = 200      # ╚
  169.       lr_corner = 188      # ╝
  170.       x_inter  = 206    # ╬
  171.       t_inter = 202     # ╩
  172.       b_inter = 203     # ╦
  173.       l_inter = 185     # ╣
  174.       r_inter = 204     # ╠
  175.    } 
  176.    else 
  177.    {
  178.       v_bar = 179    # │
  179.       h_bar = 196    # ─
  180.       tl_corner = 218      # ┌
  181.       tr_corner = 191      # ┐
  182.       ll_corner = 192      # └
  183.       lr_corner = 217      # ┘
  184.       x_inter  = 197    # ┼
  185.       t_inter = 193     # ┴
  186.       b_inter = 194     # ┬
  187.       l_inter = 180     # ┤
  188.       r_inter = 195     # ├
  189.    }
  190.  
  191.    arrow_array[1] = 30  # up
  192.    arrow_array[2] = 31  # down
  193.    arrow_array[3] = 17  # left
  194.    arrow_array[4] = 16  # right
  195.  
  196.    up_array[ chr(h_bar) ] = HORZ_C;
  197.    up_array[ chr(v_bar) ] = VERT_C;
  198.    up_array[ chr(tl_corner) ] = VERT_C;
  199.    up_array[ chr(tr_corner) ] = VERT_C;
  200.    up_array[ chr(ll_corner) ] = HORZ_C;
  201.    up_array[ chr(lr_corner) ] = HORZ_C;
  202.    up_array[ chr(x_inter) ] = VERT_C;
  203.    up_array[ chr(t_inter) ] = HORZ_C;
  204.    up_array[ chr(b_inter) ] = VERT_C;
  205.    up_array[ chr(l_inter) ] = VERT_C;
  206.    up_array[ chr(r_inter) ] = VERT_C;
  207.    
  208.    down_array[ chr(h_bar) ] = HORZ_C;
  209.    down_array[ chr(v_bar) ] = VERT_C;
  210.    down_array[ chr(tl_corner) ] = HORZ_C;
  211.    down_array[ chr(tr_corner) ] = HORZ_C;
  212.    down_array[ chr(ll_corner) ] = VERT_C;
  213.    down_array[ chr(lr_corner) ] = VERT_C;
  214.    down_array[ chr(x_inter) ] = VERT_C;
  215.    down_array[ chr(t_inter) ] = VERT_C;
  216.    down_array[ chr(b_inter) ] = HORZ_C;
  217.    down_array[ chr(l_inter) ] = VERT_C;
  218.    down_array[ chr(r_inter) ] = VERT_C;
  219.  
  220.    left_array[ chr(h_bar) ] = HORZ_C;
  221.    left_array[ chr(v_bar) ] = VERT_C;
  222.    left_array[ chr(tl_corner) ] = HORZ_C;
  223.    left_array[ chr(tr_corner) ] = VERT_C;
  224.    left_array[ chr(ll_corner) ] = HORZ_C;
  225.    left_array[ chr(lr_corner) ] = VERT_C;
  226.    left_array[ chr(x_inter) ] = HORZ_C;
  227.    left_array[ chr(t_inter) ] = HORZ_C;
  228.    left_array[ chr(b_inter) ] = HORZ_C;
  229.    left_array[ chr(l_inter) ] = VERT_C;
  230.    left_array[ chr(r_inter) ] = HORZ_C;
  231.  
  232.    right_array[ chr(h_bar) ] = HORZ_C;
  233.    right_array[ chr(v_bar) ] = VERT_C;
  234.    right_array[ chr(tl_corner) ] = VERT_C;
  235.    right_array[ chr(tr_corner) ] = HORZ_C;
  236.    right_array[ chr(ll_corner) ] = VERT_C;
  237.    right_array[ chr(lr_corner) ] = HORZ_C;
  238.    right_array[ chr(x_inter) ] = HORZ_C;
  239.    right_array[ chr(t_inter) ] = HORZ_C;
  240.    right_array[ chr(b_inter) ] = HORZ_C;
  241.    right_array[ chr(l_inter) ] = HORZ_C;
  242.    right_array[ chr(r_inter) ] = VERT_C;
  243.  
  244.    t_char_array[ 0 ] = v_bar        # "│"
  245.    t_char_array[ 1 ] = v_bar        # "│"
  246.    t_char_array[ 2 ] = lr_corner       # "┘"
  247.    t_char_array[ 3 ] = lr_corner       # "┘"
  248.    t_char_array[ 4 ] = v_bar        # "│"
  249.    t_char_array[ 5 ] = v_bar        # "│"
  250.    t_char_array[ 6 ] = l_inter         # "┤"
  251.    t_char_array[ 7 ] = l_inter         # "┤"
  252.    t_char_array[ 8 ] = ll_corner       # "└"
  253.    t_char_array[ 9 ] = ll_corner       # "└"
  254.    t_char_array[ 10 ] = t_inter        # "┴"
  255.    t_char_array[ 11 ] = t_inter        # "┴"
  256.    t_char_array[ 12 ] = r_inter        # "├"
  257.    t_char_array[ 13 ] = r_inter        # "├"
  258.    t_char_array[ 14 ] = x_inter        # "┼"
  259.    t_char_array[ 15 ] = x_inter        # "┼"
  260.  
  261.    l_char_array[ 0 ] = h_bar        # "─"
  262.    l_char_array[ 1 ] = lr_corner       # "┘"
  263.    l_char_array[ 2 ] = h_bar        # "─"
  264.    l_char_array[ 3 ] = lr_corner       # "┘"
  265.    l_char_array[ 4 ] = tr_corner       # "┐"
  266.    l_char_array[ 5 ] = l_inter         # "┤"
  267.    l_char_array[ 6 ] = tr_corner       # "┐"
  268.    l_char_array[ 7 ] = l_inter         # "┤"
  269.    l_char_array[ 8 ] = h_bar        # "─"
  270.    l_char_array[ 9 ] = t_inter         # "┴"
  271.    l_char_array[ 10 ] = h_bar          # "─"
  272.    l_char_array[ 11 ] = t_inter        # "┴"
  273.    l_char_array[ 12 ] = b_inter        # "┬"
  274.    l_char_array[ 13 ] = x_inter        # "┼"
  275.    l_char_array[ 14 ] = b_inter        # "┬"
  276.    l_char_array[ 15 ] = x_inter        # "┼"
  277.  
  278.    b_char_array[ 0 ] = v_bar        # "│"
  279.    b_char_array[ 1 ] = v_bar        # "│"
  280.    b_char_array[ 2 ] = tr_corner       # "┐"
  281.    b_char_array[ 3 ] = l_inter         # "┤"
  282.    b_char_array[ 4 ] = v_bar        # "│"
  283.    b_char_array[ 5 ] = v_bar        # "│"
  284.    b_char_array[ 6 ] = tr_corner       # "┐"
  285.    b_char_array[ 7 ] = l_inter         # "┤"
  286.    b_char_array[ 8 ] = tl_corner       # "┌"
  287.    b_char_array[ 9 ] = r_inter         # "├"
  288.    b_char_array[ 10 ] = b_inter        # "┬"
  289.    b_char_array[ 11 ] = x_inter        # "┼"
  290.    b_char_array[ 12 ] = tl_corner         # "┌"
  291.    b_char_array[ 13 ] = r_inter        # "├"
  292.    b_char_array[ 14 ] = b_inter        # "┬"
  293.    b_char_array[ 15 ] = x_inter        # "┼"
  294.  
  295.    r_char_array[ 0 ] = h_bar        # "─"
  296.    r_char_array[ 1 ] = ll_corner       # "└"
  297.    r_char_array[ 2 ] = h_bar        # "─"
  298.    r_char_array[ 3 ] = t_inter         # "┴"
  299.    r_char_array[ 4 ] = tl_corner       # "┌"
  300.    r_char_array[ 5 ] = r_inter         # "├"
  301.    r_char_array[ 6 ] = b_inter         # "┬"
  302.    r_char_array[ 7 ] = x_inter         # "┼"
  303.    r_char_array[ 8 ] = h_bar        # "─"
  304.    r_char_array[ 9 ] = ll_corner       # "└"
  305.    r_char_array[ 10 ] = h_bar       # "─"
  306.    r_char_array[ 11 ] = t_inter        # "┴"
  307.    r_char_array[ 12 ] = tl_corner         # "┌"
  308.    r_char_array[ 13 ] = r_inter        # "├"
  309.    r_char_array[ 14 ] = b_inter        # "┬"
  310.    r_char_array[ 15 ] = x_inter        # "┼"
  311. }
  312.  
  313. #
  314. # getlevel()
  315. # This function checks the characters in the buffer surrounding the
  316. # one to be drawn to see if any of them are also linedrawing characters.
  317. # This info is used to determine if a junction or corner character
  318. # should be drawn.
  319. #
  320. local function getlevel()
  321. {
  322.    local ch1 = ""    # char above
  323.    local ch2 = ""    # char to the left
  324.    local ch3 = ""    # char below
  325.    local ch4 = ""    # char to the right
  326.    local cc;
  327.    local level = NO_C;     # 0 = no surrounding character
  328.                            # 1 = top char needs to connect
  329.                            # 2 = left char needs to connect
  330.                            # 4 = bottom char needs to connect
  331.                            # 8 = right char needs to connect
  332.  
  333.    if ( up() )
  334.    {
  335.       ch1 = read_buffer( 1 );
  336.       down();
  337.    }
  338.    if ( left() ) 
  339.    {
  340.       ch2 = read_buffer( 1 );
  341.       right()
  342.    }
  343.    cc = current_column;
  344.    if ( down() ) 
  345.    {
  346.       if (current_column == cc )
  347.          ch3 = read_buffer( 1 );
  348.       up();
  349.    }
  350.    current_column = cc;
  351.  
  352.    if ( right() ) 
  353.    {
  354.       ch4 = read_buffer( 1 );
  355.       left();
  356.    }
  357.  
  358.    if (ch1 in up_array)
  359.       if (up_array[ ch1 ] == VERT_C)
  360.          level += TOP_C
  361.    if (ch2 in left_array)
  362.       if (left_array[ ch2 ] == HORZ_C)
  363.          level += LEFT_C
  364.    if (ch3 in down_array)
  365.       if (down_array[ ch3 ] == VERT_C)
  366.          level += BOT_C
  367.    if (ch4 in right_array)
  368.       if (right_array[ ch4 ] == HORZ_C)
  369.          level += RIGHT_C
  370.  
  371.    return level;
  372. }
  373.  
  374.  
  375. #
  376. # ld_move(dir, arrow_flag)
  377. #
  378. # dir: 1 = up, 2 = down, 3 = left, 4 = right, 0 = last
  379. # arrow_flag: 1 = draw arrow, 0 = draw line
  380. #
  381. global function ld_move(dir, arrow_flag)
  382. {
  383.    local flags = reset_buffer_flags();
  384.    
  385.    if (!dir)
  386.       dir = last_dir # default move right
  387.    else
  388.       last_dir = dir
  389.       
  390.    if (dir == 1)
  391.    {
  392.       insert_key( arrow_flag ? arrow_array[dir] : t_char_array[ getlevel() ] );
  393.       left(1);
  394.       up(1);
  395.    }
  396.    else if (dir == 2)
  397.    {
  398.       insert_key( arrow_flag ? arrow_array[dir] : b_char_array[ getlevel() ] );
  399.       ld_down()
  400.    }
  401.    else if (dir == 3)
  402.    {
  403.       insert_key( arrow_flag ? arrow_array[dir] : l_char_array[ getlevel() ] );
  404.       left( 2 );
  405.    }
  406.    else if (dir == 4)
  407.    {
  408.       insert_key( arrow_flag ? arrow_array[dir] : r_char_array[ getlevel() ] );
  409.    }                 
  410.    else
  411.       beep()
  412.    
  413.    reset_buffer_flags( flags );
  414. }
  415.  
  416. local function ld_down()
  417. {
  418.    local cc;
  419.    
  420.    left(1);
  421.    cc = current_column;
  422.    if (!down(1) || cc != current_column)
  423.    {    # allow drawing past eof
  424.       save_position();
  425.       goto_eol();
  426.       insert_newline();
  427.       restore_position( 1 );
  428.       down(1);
  429.    }
  430.    current_column = cc;
  431. }
  432.  
  433. #
  434. # reset_buffer_flags()
  435. #
  436. # Sets the required buffer flags for line drawing mode and
  437. # returns the current flags so they can be reset later.
  438. # This function is called by all the motion keys so that the flags
  439. # are always set properly.
  440. #
  441.  
  442. local function reset_buffer_flags( bf )
  443. {
  444.    local    flags;
  445.  
  446.    if (argcount())
  447.    {
  448.       buffer_flags = or(and( buffer_flags, 
  449.          not(BUFFER_TABS_TO_SPACES + BUFFER_OVERTYPE_MODE)),
  450.          bf );
  451.    } 
  452.    else 
  453.    {
  454.       flags = and( buffer_flags,
  455.                BUFFER_TABS_TO_SPACES + 
  456.                BUFFER_OVERTYPE_MODE  +
  457.                BUFFER_WP_ENABLED +
  458.                BUFFER_REAL_SPACE_ONLY +
  459.                BUFFER_SNAP_TO_EOL );
  460.           
  461.       buffer_flags = and(buffer_flags, not( flags ));
  462.  
  463.       buffer_flags = or(buffer_flags, 
  464.          BUFFER_TABS_TO_SPACES + BUFFER_OVERTYPE_MODE);
  465.  
  466.       return flags;
  467.    }
  468. }
  469.  
  470.  
  471. #
  472. # toggle_drawing() 
  473. #
  474. # toggles the line drawing capability assigned to
  475. # the shift-arrow keys.  The lineStyle parameter is passed on to init_lines
  476. # if it is different from the last call.
  477. #
  478. global function toggle_drawing( style )
  479. {
  480.    local ld_lineStyle = 0     # set to 1 - 4 to choose style
  481.    local inLineDrawMode = 0   # set to 1 if we are activating line
  482.                               # drawing mode.
  483.  
  484.    # If no line drawing keymap created then make one based on the
  485.    # current keymap with the numpad arrow keys reassigned.
  486.    # When line drawing mode is active, this keymap will be used
  487.    # for all buffers.
  488.    if (!ld_Keymap) 
  489.    {
  490.       # Create a new keymap intilized from the current_keymap
  491.       # Set current keymap to the newly created map and assign
  492.       # new key values. Then reset the current_keymap.
  493.       ld_Keymap = create_keymap( current_keymap );
  494.  
  495.       if( ld_Keymap )
  496.       {
  497.          push_keymap( ld_Keymap );
  498.          # Assign Keys
  499.          assign_key( "<Num-Up>", "ld_move 1" );
  500.          assign_key( "<Num-Down>", "ld_move 2" );
  501.          assign_key( "<Num-Left>", "ld_move 3" );
  502.          assign_key( "<Num-Right>", "ld_move 4" );
  503.          assign_key( "<Num-5>", "ld_move 0 1" );
  504.          assign_key( "<Ctrl-Num-Up>", "ld_move 1 1" );
  505.          assign_key( "<Ctrl-Num-Down>", "ld_move 2 1" );
  506.          assign_key( "<Ctrl-Num-Left>", "ld_move 3 1" );
  507.          assign_key( "<Ctrl-Num-Right>", "ld_move 4 1" );
  508.          
  509.          pop_keymap()
  510.       } 
  511.    }
  512.    
  513.    #
  514.    # get the current line drawing mode.
  515.    # inLineDrawMode is assigned 0 or 1
  516.    #
  517.    inLineDrawMode = (ld_Keymap == current_keymap);
  518.  
  519.    #
  520.    # toggle or set the mode
  521.    #
  522.    if( argcount() < 1 )
  523.    {
  524.       inLineDrawMode = !inLineDrawMode;    # toggle the mode value
  525.    }
  526.    else if (style == 0)
  527.    {
  528.       inLineDrawMode = 0;
  529.    }
  530.    else 
  531.    {
  532.       inLineDrawMode = 1;
  533.       ld_lineStyle = 0+style;
  534.    }
  535.  
  536.    if ( !inLineDrawMode )
  537.    {
  538.       # If we are deactivating line drawing, and the current keymap
  539.       # is the line drawing keymap, then restore the original keymap
  540.       if (current_keymap == ld_Keymap)
  541.          pop_keymap();
  542.  
  543.       notify( "Line drawing keys inactive. ");
  544.       beep();
  545.    } 
  546.    else 
  547.    {
  548.       # If we are activating line drawing, and it is not already
  549.       # active, save the current keymap and make the line drawing
  550.       # keymap current.
  551.       if (!ld_Keymap)
  552.       {
  553.          warning("Invalid line drawing keymap")
  554.       }
  555.       else
  556.       {
  557.       if (current_keymap != ld_Keymap)
  558.          push_keymap( ld_Keymap );
  559.  
  560.       # Set the line style
  561.       init_lines( ld_lineStyle );
  562.       notify( "Line drawing keys active. ");
  563.       beep();
  564.       }
  565.    }
  566. }
  567.  
  568.