home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / ME22-OS2.ZIP / MACROS.ZIP / VI_BRACE.M < prev    next >
Text File  |  1988-07-19  |  618b  |  38 lines
  1. /*
  2. ** vi_brace macro
  3. ** Provides brace matching much like vi's "showmatch"
  4. ** by William B. McCormick
  5. */
  6.  
  7.  
  8. init()
  9. {
  10.   add_hook( 0, "vi_brace" );
  11. }
  12.  
  13.  
  14. vi_brace()
  15. {
  16.   int i;
  17.  
  18.   c = currchar();
  19.   if ( c==')' || c=='}' )
  20.   {
  21.     if ( brace_match() )
  22.     {
  23.       /*
  24.       ** this should be some sort of machine-independent
  25.       ** delay call.  This is a comfortable speed on a
  26.       ** model 80.  Will probably have to be changed for
  27.       ** a slower (or faster) machine.
  28.       */
  29.       for ( i=0; i<1000; i++ )
  30.               ;
  31.       brace_match();
  32.     }
  33.     else
  34.       bell();
  35.   }
  36. }
  37.  
  38.