File: //usr/share/jed/lib/regexp.slc
.#��! 6( srchmisc� ' require,*�! 8 # pat # dir+*�" 10 # ret+�" 11 # dir! 0?.� # pat� * re_fsearch�# ret/.� # pat� * re_bsearch�# ret/d�" 12�# ret # ret�! 8y- re_search_dir,*�" 17 # pat ) not_found+! 1�) not_found��" 180 Search (Regexp): + Null_Strin
g + Null_String� ) read_mini�# pat��" 19 # pat� & strlen.w/b�" 21 ) push_mark.��" 24 ) not_found� ( pop_mark/n��" 27}- re_search_dir # pat! 1�" 28}2 _function_return_1��" 27 2 search_maybe_againN�) not_found�" 29 ) not_found.�* Not found.� % error/c�" 3
0 3 EXECUTE_ERROR_BLOCK�" 15y1 re_search_forward,*�" 35 # pat ) not_found+��" 369 Backward Search (Regexp): + Null_String + Null_String� ) read_mini�# pat��" 37 # pat� & strlen.w/b�" 39 ) push_mark.��" 42 ) not_found� ( pop_mark/n��" 45}- re_search_dir
# pat" -1�" 46}2 _function_return_1��" 45 2 search_maybe_againN�) not_found�" 48 ) not_found.�* Not found.� % error/c�" 49 3 EXECUTE_ERROR_BLOCK�" 33y2 re_search_backward,*�" 52 # pat+��" 54 # pat� * re_fsearch! 1:�" 52�8 research_search_function,*�"
57 # str # len+��" 59 # str! 0� - replace_match.��" 605 replace_match failed.� % error/b�" 61" -2�" 57�3 re_replace_function,*�" 66 # pat ! n # rep & prompt $ doit # err " ch+�" 68/ Replace Failed!�# err��" 69' Regexp: + Null_String + Null_String�
) read_mini�# pat��" 70 # pat� & strlen.w/b���" 71) Replace ' # pat� & strcat' ' with:� & strcat�& prompt��" 72 & prompt + Null_String + Null_String� ) read_mini�# rep��" 74}8 research_search_function # pat # rep! 1�" 75}3 re_replace_function��" 74 2 r
eplace_with_query�" 64y3 query_replace_match