home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w055 / 4.ddi / SOURCES.LIF / LINEDRAW.PEL < prev    next >
Encoding:
Text File  |  1990-09-27  |  11.0 KB  |  414 lines
  1. # $Header:   P:/source/ppee/macros/linedraw.pev   1.17   20 Aug 1990 11:33:00   ericj  $
  2.  
  3. ##############################################################################
  4. #
  5. #           Sage Software - POLYTRON Division
  6. #             1700 NW 167th Place
  7. #               Beaverton, OR 97006
  8. #
  9. #   Copyright 1990, Sage Software, Inc.
  10. #
  11. #   Permission is hereby granted for licensed users of Sage Professional
  12. #   Editor and PolyAwk to copy and modify this source code for their own
  13. #   personal use.  These derivative works may be distributed only to other
  14. #   licensed Sage Professional Editor and PolyAwk users.  All other usage
  15. #   is prohibited without express written permission from Sage Software.
  16. #
  17. ##############################################################################
  18.  
  19. #### $Workfile:   linedraw.pel  $: Line drawing binding code
  20. #
  21. #
  22.  
  23. local    v_bar = 179        # │
  24. local    h_bar = 196        # ─
  25. local    tl_corner = 218        # ┌
  26. local    tr_corner = 191        # ┐
  27. local    ll_corner = 192        # └
  28. local    lr_corner = 217        # ┘
  29. local    x_inter    = 197        # ┼
  30. local    t_inter = 193        # ┴
  31. local    b_inter = 194        # ┬
  32. local    l_inter = 180        # ┤
  33. local    r_inter = 195        # ├
  34.  
  35. local    up_array
  36. local    down_array
  37. local    left_array
  38. local    right_array
  39.  
  40. local    t_char_array
  41. local    b_char_array
  42. local    r_char_array
  43. local    l_char_array
  44.  
  45. local    VERT_C    = 1
  46. local    HORZ_C    = 2
  47.  
  48. local    NO_C    = 0
  49. local    TOP_C    = 1
  50. local    LEFT_C    = 2
  51. local    BOT_C    = 4
  52. local    RIGHT_C    = 8
  53.  
  54.  
  55. #
  56. # init_lines() sets the characters for the type of lines to be drawn.
  57. # 
  58. # The line styles are determined by borderStyle in the following manner:
  59. #
  60. #    1              2              3              4
  61. #      ┌───┬───┐      ╒═══╤═══╕         ╓───╥───╖         ╔═══╦═══╗
  62. #      │   │   │      │      │   │         ║     ║   ║         ║   ║   ║
  63. #      ├───┼───┤      ╞═══╪═══╡         ╟───╫───╢         ╠═══╬═══╣
  64. #      │   │   │      │      │   │         ║     ║   ║         ║   ║   ║
  65. #      └───┴───┘      ╘═══╧═══╛         ╙───╨───╜         ╚═══╩═══╝
  66. #
  67. local function init_lines( borderStyle ) {
  68.  
  69.     if (borderStyle == 2) {
  70.         v_bar = 179        # │
  71.         h_bar = 205        # ═
  72.         tl_corner = 213        # ╒
  73.         tr_corner = 184        # ╕
  74.         ll_corner = 212        # ╘
  75.         lr_corner = 190        # ╛
  76.         x_inter    = 216        # ╪
  77.         t_inter = 207        # ╧
  78.         b_inter = 209        # ╤
  79.         l_inter = 181        # ╡
  80.         r_inter = 198        # ╞
  81.     } else if (borderStyle == 3) {
  82.         v_bar = 186        # ║
  83.         h_bar = 196        # ─
  84.         tl_corner = 214        # ╓
  85.         tr_corner = 183        # ╖
  86.         ll_corner = 211        # ╙
  87.         lr_corner = 189        # ╜
  88.         x_inter    = 215        # ╫
  89.         t_inter = 208        # ╨
  90.         b_inter = 210        # ╥
  91.         l_inter = 182        # ╢
  92.         r_inter = 199        # ╟
  93.     } else if (borderStyle == 4) {
  94.         v_bar = 186        # ║
  95.         h_bar = 205        # ═
  96.         tl_corner = 201        # ╔
  97.         tr_corner = 187        # ╗
  98.         ll_corner = 200        # ╚
  99.         lr_corner = 188        # ╝
  100.         x_inter    = 206        # ╬
  101.         t_inter = 202        # ╩
  102.         b_inter = 203        # ╦
  103.         l_inter = 185        # ╣
  104.         r_inter = 204        # ╠
  105.     } else {
  106.         v_bar = 179        # │
  107.         h_bar = 196        # ─
  108.         tl_corner = 218        # ┌
  109.         tr_corner = 191        # ┐
  110.         ll_corner = 192        # └
  111.         lr_corner = 217        # ┘
  112.         x_inter    = 197        # ┼
  113.         t_inter = 193        # ┴
  114.         b_inter = 194        # ┬
  115.         l_inter = 180        # ┤
  116.         r_inter = 195        # ├
  117.     }
  118.  
  119.     up_array[ chr(h_bar) ] = HORZ_C;
  120.     up_array[ chr(v_bar) ] = VERT_C;
  121.     up_array[ chr(tl_corner) ] = VERT_C;
  122.     up_array[ chr(tr_corner) ] = VERT_C;
  123.     up_array[ chr(ll_corner) ] = HORZ_C;
  124.     up_array[ chr(lr_corner) ] = HORZ_C;
  125.     up_array[ chr(x_inter) ] = VERT_C;
  126.     up_array[ chr(t_inter) ] = HORZ_C;
  127.     up_array[ chr(b_inter) ] = VERT_C;
  128.     up_array[ chr(l_inter) ] = VERT_C;
  129.     up_array[ chr(r_inter) ] = VERT_C;
  130.     
  131.     down_array[ chr(h_bar) ] = HORZ_C;
  132.     down_array[ chr(v_bar) ] = VERT_C;
  133.     down_array[ chr(tl_corner) ] = HORZ_C;
  134.     down_array[ chr(tr_corner) ] = HORZ_C;
  135.     down_array[ chr(ll_corner) ] = VERT_C;
  136.     down_array[ chr(lr_corner) ] = VERT_C;
  137.     down_array[ chr(x_inter) ] = VERT_C;
  138.     down_array[ chr(t_inter) ] = VERT_C;
  139.     down_array[ chr(b_inter) ] = HORZ_C;
  140.     down_array[ chr(l_inter) ] = VERT_C;
  141.     down_array[ chr(r_inter) ] = VERT_C;
  142.  
  143.     left_array[ chr(h_bar) ] = HORZ_C;
  144.     left_array[ chr(v_bar) ] = VERT_C;
  145.     left_array[ chr(tl_corner) ] = HORZ_C;
  146.     left_array[ chr(tr_corner) ] = VERT_C;
  147.     left_array[ chr(ll_corner) ] = HORZ_C;
  148.     left_array[ chr(lr_corner) ] = VERT_C;
  149.     left_array[ chr(x_inter) ] = HORZ_C;
  150.     left_array[ chr(t_inter) ] = HORZ_C;
  151.     left_array[ chr(b_inter) ] = HORZ_C;
  152.     left_array[ chr(l_inter) ] = VERT_C;
  153.     left_array[ chr(r_inter) ] = HORZ_C;
  154.  
  155.     right_array[ chr(h_bar) ] = HORZ_C;
  156.     right_array[ chr(v_bar) ] = VERT_C;
  157.     right_array[ chr(tl_corner) ] = VERT_C;
  158.     right_array[ chr(tr_corner) ] = HORZ_C;
  159.     right_array[ chr(ll_corner) ] = VERT_C;
  160.     right_array[ chr(lr_corner) ] = HORZ_C;
  161.     right_array[ chr(x_inter) ] = HORZ_C;
  162.     right_array[ chr(t_inter) ] = HORZ_C;
  163.     right_array[ chr(b_inter) ] = HORZ_C;
  164.     right_array[ chr(l_inter) ] = HORZ_C;
  165.     right_array[ chr(r_inter) ] = VERT_C;
  166.  
  167.     t_char_array[ 0 ] = v_bar            # "│"
  168.     t_char_array[ 1 ] = v_bar            # "│"
  169.     t_char_array[ 2 ] = lr_corner            # "┘"
  170.     t_char_array[ 3 ] = lr_corner            # "┘"
  171.     t_char_array[ 4 ] = v_bar            # "│"
  172.     t_char_array[ 5 ] = v_bar            # "│"
  173.     t_char_array[ 6 ] = l_inter            # "┤"
  174.     t_char_array[ 7 ] = l_inter            # "┤"
  175.     t_char_array[ 8 ] = ll_corner            # "└"
  176.     t_char_array[ 9 ] = ll_corner            # "└"
  177.     t_char_array[ 10 ] = t_inter            # "┴"
  178.     t_char_array[ 11 ] = t_inter            # "┴"
  179.     t_char_array[ 12 ] = r_inter            # "├"
  180.     t_char_array[ 13 ] = r_inter            # "├"
  181.     t_char_array[ 14 ] = x_inter            # "┼"
  182.     t_char_array[ 15 ] = x_inter            # "┼"
  183.  
  184.     l_char_array[ 0 ] = h_bar            # "─"
  185.     l_char_array[ 1 ] = lr_corner            # "┘"
  186.     l_char_array[ 2 ] = h_bar            # "─"
  187.     l_char_array[ 3 ] = lr_corner            # "┘"
  188.     l_char_array[ 4 ] = tr_corner            # "┐"
  189.     l_char_array[ 5 ] = l_inter            # "┤"
  190.     l_char_array[ 6 ] = tr_corner            # "┐"
  191.     l_char_array[ 7 ] = l_inter            # "┤"
  192.     l_char_array[ 8 ] = h_bar            # "─"
  193.     l_char_array[ 9 ] = t_inter            # "┴"
  194.     l_char_array[ 10 ] = h_bar             # "─"
  195.     l_char_array[ 11 ] = t_inter            # "┴"
  196.     l_char_array[ 12 ] = b_inter            # "┬"
  197.     l_char_array[ 13 ] = x_inter            # "┼"
  198.     l_char_array[ 14 ] = b_inter            # "┬"
  199.     l_char_array[ 15 ] = x_inter            # "┼"
  200.  
  201.     b_char_array[ 0 ] = v_bar            # "│"
  202.     b_char_array[ 1 ] = v_bar            # "│"
  203.     b_char_array[ 2 ] = tr_corner            # "┐"
  204.     b_char_array[ 3 ] = l_inter            # "┤"
  205.     b_char_array[ 4 ] = v_bar            # "│"
  206.     b_char_array[ 5 ] = v_bar            # "│"
  207.     b_char_array[ 6 ] = tr_corner            # "┐"
  208.     b_char_array[ 7 ] = l_inter            # "┤"
  209.     b_char_array[ 8 ] = tl_corner            # "┌"
  210.     b_char_array[ 9 ] = r_inter            # "├"
  211.     b_char_array[ 10 ] = b_inter            # "┬"
  212.     b_char_array[ 11 ] = x_inter            # "┼"
  213.     b_char_array[ 12 ] = tl_corner            # "┌"
  214.     b_char_array[ 13 ] = r_inter            # "├"
  215.     b_char_array[ 14 ] = b_inter            # "┬"
  216.     b_char_array[ 15 ] = x_inter            # "┼"
  217.  
  218.     r_char_array[ 0 ] = h_bar            # "─"
  219.     r_char_array[ 1 ] = ll_corner            # "└"
  220.     r_char_array[ 2 ] = h_bar            # "─"
  221.     r_char_array[ 3 ] = t_inter            # "┴"
  222.     r_char_array[ 4 ] = tl_corner            # "┌"
  223.     r_char_array[ 5 ] = r_inter            # "├"
  224.     r_char_array[ 6 ] = b_inter            # "┬"
  225.     r_char_array[ 7 ] = x_inter            # "┼"
  226.     r_char_array[ 8 ] = h_bar            # "─"
  227.     r_char_array[ 9 ] = ll_corner            # "└"
  228.     r_char_array[ 10 ] = h_bar            # "─"
  229.     r_char_array[ 11 ] = t_inter            # "┴"
  230.     r_char_array[ 12 ] = tl_corner            # "┌"
  231.     r_char_array[ 13 ] = r_inter            # "├"
  232.     r_char_array[ 14 ] = b_inter            # "┬"
  233.     r_char_array[ 15 ] = x_inter            # "┼"
  234. }
  235.  
  236. local function getlevel() {
  237.     local    ch1 = ""        # char above
  238.     local    ch2 = ""        # char to the left
  239.     local    ch3 = ""        # char below
  240.     local    ch4 = ""        # char to the right
  241.     local    cc;
  242.     local    level = NO_C;        # 0 = no surrounding character
  243.                     # 1 = top char needs to connect
  244.                     # 2 = left char needs to connect
  245.                     # 4 = bottom char needs to connect
  246.                     # 8 = right char needs to connect
  247.  
  248.     if ( up() ) {
  249.         ch1 = read_buffer( 1 );
  250.         down();
  251.     }
  252.     if ( left() ) {
  253.         ch2 = read_buffer( 1 );
  254.         right()
  255.     }
  256.     cc = current_column;
  257.     if ( down() ) {
  258.         if (current_column == cc )
  259.             ch3 = read_buffer( 1 );
  260.         up();
  261.     }
  262.     current_column = cc;
  263.  
  264.     if ( right() ) {
  265.         ch4 = read_buffer( 1 );
  266.         left();
  267.     }
  268.  
  269.     if (ch1 in up_array)
  270.         if (up_array[ ch1 ] == VERT_C)
  271.             level += TOP_C
  272.     if (ch2 in left_array)
  273.         if (left_array[ ch2 ] == HORZ_C)
  274.             level += LEFT_C
  275.     if (ch3 in down_array)
  276.         if (down_array[ ch3 ] == VERT_C)
  277.             level += BOT_C
  278.     if (ch4 in right_array)
  279.         if (right_array[ ch4 ] == HORZ_C)
  280.             level += RIGHT_C
  281.  
  282.     return level;
  283. }
  284.  
  285.  
  286. global function moveup() {
  287.     local flags = reset_buffer_flags();
  288.     insert_key( t_char_array[ getlevel() ] );
  289.     left();
  290.     up();
  291.     reset_buffer_flags( flags );
  292. }
  293.  
  294. global function movedown() {
  295.     local flags = reset_buffer_flags();
  296.     local cc;
  297.  
  298.     insert_key( b_char_array[ getlevel() ] );
  299.     left();
  300.     cc = current_column;
  301.     if (!down() || cc != current_column){        # allow drawing past eof
  302.         save_position()
  303.         goto_eol()
  304. #EJ        buffer_flags = or( buffer_flags, not( BUFFER_OVERTYPE_MODE ) );
  305.         insert_newline();
  306.         restore_position( 1 );
  307.     }
  308.     current_column = cc;
  309.     reset_buffer_flags( flags );
  310. }
  311.  
  312. global function moveleft() {
  313.     local flags = reset_buffer_flags();
  314.     insert_key( l_char_array[ getlevel() ] );
  315.     left( 2 );
  316.     reset_buffer_flags( flags );
  317. }
  318.  
  319. global function moveright() {
  320.     local flags = reset_buffer_flags();
  321.     insert_key( r_char_array[ getlevel() ] );
  322.     reset_buffer_flags( flags );
  323. }
  324.  
  325.  
  326.  
  327. local function reset_buffer_flags( bf ){
  328.     local     flags;
  329.  
  330.     if (argcount()){
  331.         buffer_flags = or(and( buffer_flags, 
  332.             not(BUFFER_TABS_TO_SPACES + BUFFER_OVERTYPE_MODE)),
  333.             bf );
  334.     } else {
  335.         flags = and( buffer_flags,
  336.                     BUFFER_TABS_TO_SPACES + 
  337.                     BUFFER_OVERTYPE_MODE  +
  338.                     BUFFER_WP_ENABLED +
  339.                     BUFFER_REAL_SPACE_ONLY +
  340.                     BUFFER_SNAP_TO_EOL );
  341.  
  342.  
  343.         buffer_flags = and(buffer_flags, not( flags ));
  344.  
  345.         buffer_flags = or(buffer_flags, 
  346.             BUFFER_TABS_TO_SPACES + BUFFER_OVERTYPE_MODE);
  347.  
  348.         return flags;
  349.     }
  350. }
  351.  
  352.  
  353.  
  354. local    localKeymap = 0;
  355. local    localKeymapInitialized = 0;
  356.  
  357. #
  358. # toggle_drawing() 
  359. #
  360. # toggles the line drawing capability assigned to
  361. # the shift-arrow keys.  The lineStyle parameter is passed on to init_lines
  362. # if it is different from the last call.
  363. #
  364. global function toggle_drawing( style ) {
  365.     local    cur_keymap
  366.     local    lineStyle
  367.     local    inBorderMode
  368.  
  369.     
  370.     #
  371.     # get the border drawing mode of the current buffer
  372.     #
  373.     inBorderMode = ((buffer_keymap == localKeymap) && localKeymapInitialized);
  374.  
  375.  
  376.     #
  377.     # toggle or set the mode
  378.     #
  379.     if( argcount() < 1 )
  380.         inBorderMode = !inBorderMode;
  381.     else {
  382.         if ( (inBorderMode = 0+style) )
  383.             lineStyle = inBorderMode;
  384.     }
  385.  
  386.     
  387.  
  388.     if ( !inBorderMode ) {
  389.         buffer_keymap = empty_keymap;
  390.         message( "Line drawing keys inactive. ")
  391.     } else {
  392.         #
  393.         # Initialize a local keymap for the arrow key assignment.
  394.         # This local keymap can then be assign to multiple buffers
  395.         #
  396.         if (!localKeymapInitialized) {
  397.             localKeymapInitialized = 1;
  398.             cur_keymap = current_keymap;
  399.             localKeymap = \
  400.                 current_keymap = create_keymap( empty_keymap );
  401.             assign_key( "<Keypad-8>", "moveup" );
  402.             assign_key( "<Keypad-2>", "movedown" );
  403.             assign_key( "<Keypad-4>", "moveleft" );
  404.             assign_key( "<Keypad-6>", "moveright" );
  405.             current_keymap = cur_keymap;
  406.         }
  407.  
  408.         buffer_keymap = localKeymap;
  409.         init_lines( lineStyle );
  410.         message( "Line drawing keys active. ")
  411.  
  412.     }
  413. }
  414.