View file File name : perlxtra.slc Content :.#��" 40 * Perl_Flags + Null_String� / custom_variable��" 63 + Perl_Indent! 4� / custom_variable&�" 68 ) tmp_input+ - _tmp_jedperl_�) tmp_input&�" 69 , shell_output+ . *shell-output*�, shell_output&�" 70 ( help_buf+ + *help-perl*�( help_buf,*�" 97 # cmd + / perltidy -st -q�# cmd*�" 98 $ line+ ) what_line�$ line*�" 99 $ opts+ % -nola�$ opts*�# 101 $ file # dir ' thisbuf % flags+�# 102 + getbuf_info�% flags�' thisbuf�# dir�$ file��# 103 # dir� 2 change_default_dir.��# 104 $ cd ' # dir9 ( ' failed9� % error /c�# 108% -9999�% -9999� / prefix_argumentB.��# 109 / perltidy flags: + Null_String $ opts� ) read_mini�$ opts/c*�# 117 ' use_tmp+ % markp�' use_tmp�# 118 ' use_tmp.�# 119 - count_narrows�' use_tmp�# 120 ' use_tmp. + mark_buffer/c/b�# 123 ' use_tmp.��# 124 $ file� & strlen.! 1�' use_tmp/b�# 125 + mark_buffer/b�# 128 & narrow�# 129 ' use_tmp.�# 130 ) tmp_input�$ file�# 131 + mark_buffer��# 132 $ file� 4 write_region_to_fileP�# 135 # bob.�# 137 * skip_white�# 138 $ eolp.u/c��# 140 ( -sil=%d� + what_colu mn! 19 + Perl_Indent<� # int� ' sprintf�# cmdv/.�# 142 & down_1/k/.�# 144 % flags! 1F.��# 145 # dir $ file9� , write_bufferP/c/d��# 148 , shell_output� & sw2buf�# 149 , erase_buffer.��# 154 ' thisbuf� & sw2buf��# 155 , shell_output� & delbuf�# 156 ' us e_tmp.� $ file� + delete_fileP/c�# 157 % widen��# 158 $ line� ) goto_line�# 159 # bol��# 160 + Null_String� % flush/n��# 164 $ opts� & strlen.���# 165 # cmd $ opts $ file� ! � ' strjoin�# cmd/.���# 167 # cmd $ file� ! � ' strjoin�# cmd/d��# 169 # cmd� % flush*�# 170 " rc+� # cmd� - run_shell_cmd�" rc��# 171! 0� 8 set_buffer_modified_flag�# 174 " rc.� 6 error running perltidy� % error/c��# 178 ' thisbuf� & sw2buf�# 179 + mark_buffer�# 180 * del_region��# 181 , shell_output� & insbuf�# 182 3 EXECUTE_ERRO R_BLOCK�" 95y( perltidy,*�# 195 $ opts & prompt+*�# 197 # cmd+ ' perl -w�# cmd*�# 198 $ args+ + Null_String�$ args*�# 199 $ line+! 0�$ line*�# 201 $ file # dir ' thisbuf % flags+�# 202 + getbuf_info�% flags�' thisbuf�# dir�$ file��# 203 # dir� 2 change_ default_dir.��# 204 $ cd ' # dir9 ( ' failed9� % error/c��# 207 * Perl_Flags� & strlen. ! * Perl_Flags9�$ opts/c�# 210% -9999�% -9999� / prefix_argumentB.��# 211 + Perl flags: + Null_String $ opts� ) read_mini�$ opts/c*�# 219 ' use_tmp+ % markp�' use_ tmp�# 220 ' use_tmp.�# 221 - count_narrows�' use_tmp�# 222 ' use_tmp. + mark_buffer/c/b�# 225 ' use_tmp.��# 226 & prompt� & strlen.��# 227 & prompt + Null_String + Null_String� ) read_mini�$ args/c��# 229 $ file� & strlen.�# 230! 1�' use_tmp�# 231 + mark _buffer/b/b�# 235 ' use_tmp.�# 236 ) tmp_input�$ file��# 237! 1� , check_region�# 238 7 exchange_point_and_mark�# 239 ) what_line�$ line��# 243$- use strict;\n $ file� 4 write_string_to_fileP��# 244 $ file� 5 append_region_to_fileP�# 245 ( pop_spot/.�# 2 47 % flags! 1F.��# 248 # dir $ file9� , write_bufferP/c/d*�# 252 & oldbuf+� , shell_output� / pop2buf_whatbuf�& oldbuf�# 253 , erase_buffer.�# 257 ' use_tmp.� $ file� + delete_fileP/c/n�# 261 % 2>&1�$ args*�# 264 " rc+��� # cmd $ opts $ file $ args� ! � ' strjoin� - run_shell_cmd�" rc��# 265! 0� 8 set_buffer_modified_flag�# 268 " rc.� 2 error running perl� % flush/c�# 270 3 EXECUTE_ERROR_BLOCK�# 279 # eob�# 282 $ bobp.��# 283 ' thisbuf� ' pop2buf�# 284 ) onewindow��# 285 * No output.� ' message/.���# 287 $ at $ file9 & line 9� ' bsearch� % right.�# 289 * skip_white�# 290 ) push_mark��# 291 # 0-9� * skip_chars��# 292 ) bufsubstr� ' integer�$ line��# 294 ' thisbuf� ' pop2buf��# 295 $ line� ) goto_line�# 296 # bol/c/d�# 195�' do_perl,��# 312 + Null_S tring + perl @ARGV:� ' do_perl�# 311y) perl_exec,��# 325 # -cT + Null_String� ' do_perl�# 324y* perl_check,*�# 334 $ name+��# 336 $ name� ( keymap_p.��# 337 $ name� + make_keymap��# 338 ) perl_help ! ? $ name� ) definekey��# 339 ) perl_help$" \r $ name� ) definekey��# 340 ) perl_help # ^C? $ name� ) definekey��# 341 ) perl_info # ^Ci $ name� ) definekey/b��# 344 $ name� ' bufferp.*�# 345 $ cbuf+ ' whatbuf�$ cbuf��# 346 $ name� & setbuf��# 347 $ name� * use_keymap��# 348 $ cbuf� & setbuf/c�# 334�- attach _keymap,*�# 355 # cmd+*�# 357 $ cbuf+� ( help_buf� / pop2buf_whatbuf�$ cbuf�# 358 , erase_buffer��# 359 ( help_buf� - attach_keymap��# 361 # cmd� % flush��# 363 # cmd , 2>/dev/null9� - run_shell_cmdP�# 368 # bob��# 369! 0� 8 set_buffer_modified_flag��# 370 $ cbuf� ' pop2buf��# 371 + Null_String� % flush�# 355�- perl_get_help,*�# 374 $ what+�# 377. $ what $ NULLA/.� $ what� & strlenN/m. $ perl�$ what/c��# 378 + perldoc -t $ what9� - perl_get_help�# 374�- help_for_perl,*�# 388 % chars+�# 390 % markp.. ��# 393 ! ^ % chars9� * skip_chars�# 394 $ eolp.v/b/.��# 395! 1� $ down/k��# 396 % chars� + bskip_chars�# 397 ) push_mark� % chars� * skip_chars/b�# 399 ) bufsubstrw�# 388�, extract_word,��# 409 ' perl -V� - perl_get_helpy) perl_info,*�# 422 $ what+� + :0-9A-Z_a-z� , extract_word�$ what��# 423 $ what� & strlen.��# 424 7 Sorry no word extracted� % flushw/b��# 430 $ what $ perl! 4� ' strncmp.��# 431 $ what 0 ^[a-z][a-z0-9]+$! 1� , string_match.��# 432 # -f $ what� & strcat�$ what/c/c��# 435 $ what� - help_for_perl�# 420y) perl_help,�# 457 1 MINIBUFFER_ACTIVE.���# 458 ( perldoc: + Null_String + Null_String� ) read_mini� - help_for_perl/b�# 455y' perldoc��# 461 ( perlxtra� ' provide