home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / vmsnet / tpu / 487 < prev    next >
Encoding:
Internet Message Format  |  1992-11-10  |  2.3 KB
  1. Path: sparky!uunet!mcsun!sunic!dkuug!datani!ht
  2. From: ht@datani.dk
  3. Newsgroups: vmsnet.tpu
  4. Subject: Re: Procedure to matchup (){}[]  ???
  5. Message-ID: <1992Nov11.085850.108@datani.dk>
  6. Date: 11 Nov 92 07:58:50 GMT
  7. References: <1992Nov8.053543.383@wsuhub.uc.twsu.edu>
  8. Organization: Datani A/S, Copenhagen, Denmark
  9. Lines: 76
  10.  
  11. In article <1992Nov8.053543.383@wsuhub.uc.twsu.edu>, ldgiltne@wsuhub.uc.twsu.edu (Lawrence Giltner) writes:
  12. > Before I spend a lot of time reinventing the wheel:
  13. > 
  14. > Does anybody have a procedure to pair up parenthesis, brackets, and
  15. > braces.  I would like to put the cursor on one of ()[]{} and let the
  16. > program figure out which direction it has to search and if found, then
  17. > marks/selects all the text between them, including the ()[]{}.
  18. I have one that finds the corresponding paren, brac. or whatever, but it does
  19. not select the text between - mind you that is easy: just press select
  20. before you find the matching thingymagig.
  21.  
  22. ---------
  23. procedure find_bracket
  24. local
  25.   cur_ch,
  26.   this_ch,
  27.   br_list,
  28.   br_num,
  29.   pat,
  30.   level,
  31.   here,
  32.   there,
  33.   direction;
  34.  
  35.   cur_ch := get_info(get_info(BUFFER, 'current'), 'character');
  36.   br_list := "()[]{}<>+;!!??";
  37.   br_num := INDEX(br_list, cur_ch);
  38.  
  39.   if br_num = 0
  40.   then
  41.     MESSAGE ("Not on a bracket");
  42.   else
  43.     br_num := ((br_num+1)/2)*2 -1;
  44.     if br_num = INDEX(br_list, cur_ch)
  45.     then
  46.       direction:= FORWARD;
  47.     else
  48.       direction:= REVERSE;
  49.     endif;
  50.  
  51.     pat := ANY(SUBSTR(br_list, br_num, 2));
  52.     level := 1;
  53.     here := mark(NONE);
  54.  
  55.     loop
  56.       if direction = FORWARD
  57.       then
  58.         move_horizontal(1);
  59.       else
  60.         move_horizontal(-1);
  61.       endif;
  62.       there := search_quietly(pat, direction);
  63.       exitif there = 0;      
  64.       position(there);
  65.       this_ch := get_info(get_info(BUFFER, 'current'), 'character');
  66.       if this_ch = cur_ch
  67.       then
  68.           level := level + 1;
  69.       else
  70.           level := level - 1;
  71.       endif;                               
  72.       exitif level = 0;
  73.     endloop;
  74.     if there = 0 then
  75.       position(here);
  76.       message ("Matching bracket not found");
  77.     endif;
  78.   endif;
  79. endprocedure
  80.  
  81. ---
  82. compile it and bind it to a key of your choice.
  83. ---
  84. Henrik Tougaard             Postmaster, News-Reader and general dogsbody
  85. Datani A/S, Software Consultants
  86. Copenhagen, Denmark         Only my own opinions........
  87.