// // SHOWPAREN.VDM C.Z. 11.12.2000 // // Demo to show the behaviour of Match_Paren() // // // Attention: No nesting parenthesis supported! // // The macro has a "frame" to assign it to F12 for easier access! // // RS(99,' #99=match_paren(NOERR) if(#99==0){ Statline_Message("No more parenthesis") return } if(#99==1){ Statline_Message("Next parenthesis") return } if(#99==2){ Statline_Message("Matched parenthesis") if(Match("|{),],>}")==0 || Cur_Char==0x7D ){ Char(1) } return } Alert() Statline_Message("No matching parenthesis found!") ') Key_Add("F12", "[VISUAL EXIT] Call(99)", OK)