Edit file File name : perl.slc Content :.#��# 156 ( perlxtra� ' require��# 180 5 Perl_Continued_Offset! 2� / custom_variable&�# 185 ' pod_beg+ $ =pod�' pod_beg&�# 186 ' pod_too+ % =head�' pod_too&�# 187 ' pod_end+ $ =cut�' pod_end�# 190 $ perl�" $1��# 191 " $1� ( keymap_p.� " $1� + make_keymap /b��# 192 ( Win_Keys� * is_defined.��# 193 ) perl_help # ^C? " $1� ) definekey��# 194 * perl_check # ^Cc " $1� ) definekey��# 195 ) perl_exec # ^Ce " $1� ) definekey��# 196 ) perl_info # ^Ci " $1� ) definekey��# 197 2 perl_indent_region # ^C " $1� ) defi nekey��# 198 ( perltidy $ ^C^T " $1� ) definekey/b��# 201 + indent_line ! " $1� ) definekey��# 202 . perl_beg_chunk # ^A " $1� ) definekey��# 203 . perl_end_chunk # ^E " $1� ) definekey��# 204 / perl_mark_chunk # ^H " $1� ) definekey��# 205 / perl_ne xt_chunk # ^N " $1� ) definekey��# 206 / perl_prev_chunk # ^P " $1� ) definekey��# 207 2 perl_mark_matching # ^M " $1� ) definekey��# 208 ( perltidy # ^T " $1� ) definekey��# 209 5 perl_format_paragraph " q " $1� ) definekey��# 210 2 newline_and_inde nt$" \r " $1� ) definekey��# 214 2 perl_indent_region " " $1� ) definekey�# 217 $ perl�" $1��# 218 " $1� 3 create_syntax_table��# 219 ! # " 37 " $1� - define_syntax��# 220 ' pod_beg ' pod_end" 37 " $1� - define_syntax��# 221 # ([{ # )]}" 40 " $1� - define_syntax��# 222" 39" 34 " $1� - define_syntax��# 223" 34" 34 " $1� - define_syntax��# 224" 92" 92 " $1� - define_syntax��# 225 - $%0-9@A-Z_a-z# 119 " $1� - define_syntax��# 226 . -+.0-9_xa-fA-F" 48 " $1� - define_syntax��# 227 % ,.:;?" 44 " $1� - define_syntax��# 228 - !&*+-/<=>`^|~" 43 " $1� - define_syntax��# 229 " $1" 16# 128J� 0 set_syntax_flags��# 281 " $1�# 282 6 doiflcmynoqqqrqwqxtruc�# 283! 2��# 281 / define_keywordsP��# 284 " $1�# 285 b abschrcosdieeofexpforhexintlogmapoctordo urpopposrefsinsubtieusevec�# 286! 3��# 284 / define_keywordsP��# 287 " $1�# 288 @!bindcarpchopdumpeachelseevalexecexitforkgetcglobgotogrepjoinkeyskilllastlinklocknextopenpackpipepushrandreadrecvredoseeksendsizesortsqrtstattelltiedtimewaitwarn�# 289! 4�� # 287 / define_keywordsP��# 290 " $1�# 291 Y!alarmatan2blesschdirchmodchompchownclosecroakcryptelsiffcntlflagsflockindexioctllocallstatmkdirorderprintresetrmdirsemopshiftsleepsplitsrandstudytimesumaskundefuntieuntilutimewhilewrite�# 292! 5��# 290 / defin e_keywordsP��# 293 " $1�# 294 l!acceptcallerchrootdeleteexistsfilenoformatgmtimeimportlengthlistenmsgctlmsggetmsgrcvmsgsndprintfrenamereturnrindexscalarselectsemctlsemgetshmctlshmgetsocketsplicesubstrsystemunlessunlinkunpackvaluesvector�# 295! 6��# 293 / define_keywordsP��# 296 " $1�# 297 V!binmodeconfessconnectdefinedforeachgetpgrpgetppidlcfirstopendirpackagereaddirrequirereverseseekdirsetpgrpshmreadsprintfsymlinksyscallsysopensysreadsysseektelldirucfirstunshiftwaitpid�# 298! 7��# 296 / define_keywords P��# 299 " $1�# 300 H!closedircontinueendgrentendpwentformlinegetgrentgetgrgidgetgrnamgetlogingetpwentgetpwnamgetpwuidreadlinereadlinkreadpipesetgrentsetpwentshmwriteshutdownsyswritetruncate�# 301! 8��# 299 / define_keywordsP��# 302 " $1�# 303 q endneten tgetnetentlocaltimeprecisionprototypequotemetarewinddirsetnetentwantarray�# 304! 9��# 302 / define_keywordsP��# 305 " $1�# 306 z endhostentendserventgethostentgetserventgetsockoptsethostentsetserventsetsockoptsocketpair�# 307" 10��# 305 / define_keyword sP��# 308 " $1�# 309 m endprotoentgetpeernamegetprioritygetprotoentgetsocknamesetprioritysetprotoent�# 310" 11��# 308 / define_keywordsP��# 311 " $1�# 312 8 getnetbyaddrgetnetbyname�# 313" 12��# 311 / define_keywordsP��# 314 " $1�# 315 T gethostbyaddrge thostbynamegetservbynamegetservbyport�# 316" 13��# 314 / define_keywordsP��# 317 " $1�# 318 . getprotobyname�# 319" 14��# 317 / define_keywordsP��# 320 " $1�# 321 0 getprotobynumber�# 322" 16��# 320 / define_keywordsP��# 326 " $1 . eqgegtleltneor! 2! 1� 1 define_keywords_nP��# 327 " $1 , andcmpnotxor! 3! 1� 1 define_keywords_nP,.�# 335 ( pop_spot/o�# 337 ) push_spot*�# 338 # ptp+ . parse_to_point�# ptp�# 341 # bol��# 342" 61� / looking_at_char.�# 343 * go_right_1�# 344 * _get_point��# 345 # a-z� * skip_chars�# 346 * _get_point:." -3w/c/c*�# 349 $ here+ ) what_line�$ here�# 352.� ' ^=[a-z]� * re_bsearch/�# 353.� ' pod_end� + bol_fsearch/�# 354. $ here ) what_line=/l.�# 356" -3w/c�# 359 # ptp.�# 360 ) goto_spot�# 361 . bol_skip_white��# 362" 35� / looking_at_char." -2w/c/b�# 365 # ptpw�# 332�3 perl_parse_to_point&�# 370 ) delimiter+ - $%@([{:?}])�) delimiter,*�# 379 " cs+ + CASE_SEARCH�" cs* " rc+! 0�" rc.�# 382 ( pop_spot�# 383 " cs�+ CASE_SEARCH/o�# 386! 1�+ CASE_SEARCH�# 387 ) push_spot ��# 389 & _NARGS� * __pop_args�.*�# 390 % token+"% value�% token*�# 391 # len+� % token� & strlen�# len�# 393 ) goto_spot��# 394 % token� * looking_at.��# 395 # len� ( go_right�# 396 * _get_point��# 397 ) delimiter� * skip_chars�# 398 * _get_point: $ eolp D�" rc�# 399 " rc.v/c/c/��# 403 " rcw�# 377�/ perl_looking_at,*�# 413 " cs+ + CASE_SEARCH�" cs* " rc+! 0�" rc.�# 416 ( pop_spot�# 417 " cs�+ CASE_SEARCH/o�# 420! 1�+ CASE_SEARCH�# 421 ) push_spot*�# 423 ! n+ * _get_point�! n��# 424 & _NARGS� * __pop_a rgs�.*�# 425 % token+"% value�% token*�# 426 # len+� % token� & strlen�# len�# 428 ! n # len=.u/c�# 430 ) goto_spot��# 431 # len� ' go_left��# 432 % token� * looking_at.�# 433 * _get_point��# 434 ) delimiter� + bskip_chars�# 435 * _get_point: $ bolpD�" rc �# 436 " rc.v/c/c/��# 440 " rcw�# 411�0 perl_blooking_at,*�# 443 % endch+�E find_matching_brace_ignore_fold_marks,*�# 444 % endch+*�# 446 ! m+ 0 create_user_mark�! m�# 447! 1� % endch� 7 find_matching_delimiterB.�# 448! 0w/c��# 449 # #{{� + blooking_ at� $ # {{� + blooking_atD.�# 450! 1w/b��# 451! 2� ' go_left�# 452! 1� % endch� E find_matching_brace_ignore_fold_marksA.�# 453! 1w/c��# 455 ! m� . goto_user_mark�# 456! 0w�# 444�E find_matching_brace_ignore_fold_marks,*�# 468 " ch+*�# 469 # col+! 1�# col*�# 470 ) indent_ok+! 0�) indent_ok*�# 471 , extra_indent+ + Perl_Indent�, extra_indent*�# 472 # ptp+�# 474 ) push_spot�# 475 # bol�# 476 ) what_char�" ch�# 477 3 perl_parse_to_point�# ptp�# 485 # ptp" -3A # ptp" -2A " ch" 35ACD.�# 486 ( eol_tr im�# 487 ( pop_spotw/c�# 491 * skip_white�# 492 ) what_char�" ch.�# 496 ) goto_spot�# 497 . bol_skip_white�# 498 + what_column # colB.�# 499 ( bol_trim�# 500�# col��# 501 # col� * whitespace/c�# 503 ) goto_spot�# 504 + bskip_white�# 505 $ bolp�# 506 ( pop _spot.�# 507 . bol_skip_white/c/o*�# 510 " rc % endch+" 41�% endch��# 511 % endch� 7 find_matching_delimiter�" rc�# 513 " rc.�# 514 ) goto_spot # bol�# 515" 93�% endch��# 516 % endch� 7 find_matching_delimiter�" rc/b�# 518 " rc! 1A.�# 520 . bol_skip_wh ite�# 521 + what_column�# col�# 542 " ch % endchB. , extra_indent�# col/c�# 543�) indent_ok/c�# 546 ) goto_spot # bol�# 551# 125�% endch�# 552 " ch# 123A.�) indent_ok/c��# 553 % endch� E find_matching_brace_ignore_fold_marks.�# 555 + Perl_Indent�, extra _indent�# 574 + what_column�# col�# 575 + bskip_white�# 576 ) push_spot�# 577! 0�" rc�# 579.�" 40� * bfind_char/.�" 91� * bfind_char/m.�# 580 ) goto_spot��# 581" 41� 7 find_matching_delimiter�" rc�# 582 " rc.�# 583 ) goto_spot��# 584" 93� 7 find_matc hing_delimiter�" rc/b/c�# 587 ( pop_spot�# 589 " rc! 1A.�# 590�) indent_ok/.�# 594 * _get_point��# 595 $ +<=>� + bskip_chars�# 596 * _get_point:.�# 597�) indent_ok/.��# 599 % bless� 0 perl_blooking_at.�# 600�) indent_ok/c/d�# 606 . bol_skip_white�# 607 + what_column�# col/d�# 610 " ch % endchB.�# 611 , extra_indent�# col/.�# 613�) indent_ok/d/c�# 617 ) indent_ok.w/c�# 620 ) goto_spot.�# 625 $ up_1.�# 626 # bolv/b�# 629 . bol_skip_white�# 630 $ eolp. * go_right_1/b/.�# 631 3 perl_parse_to_point" -2>/k�# 632 # eol.�# 635 3 perl_parse_to_point�# ptp # ptp" -2>/.��# 636! 1� $ left.v/b/f�# 641 + bskip_white�# 642" 59�" ch�# 643 $ bolp.�# 644 ) go_left_1�# 645 3 perl_parse_to_point" -2@. ) what_char�" ch/c/b�# 650 5 Perl_Continued_Offset�, extra_indent� �# 651 $ ;({}� " ch� $ char� ) is_substrN.�# 652 , extra_indent�# col/.�# 654# 125 " chA.��# 656 " ch� 7 find_matching_delimiterP�# 657 + bskip_white��# 659 $ grep # map $ sort� 0 perl_blooking_at.�# 660 . bol_skip_white�# 661 + what_column�# col/.�# 665 ) goto_spot�# 666 . bol_skip_white��# 668 $ grep # map $ sort�# 669 # and " or�# 670 " && " ||�# 671 ! ? ! :��# 668 / perl_looking_at.�# 672 , extra_indent�# col/c/d/c/d�# 466�0 perl_indent_line,�# 687 % markp.�# 688 0 perl_indent_linew/b��# 692! 1� , check_region�# 693 & narrow*�# 695 $ line+! 0�$ line*�# 696 & nlines+ ) what_line�& nlines�# 697 # bob�# 698 % widen*�# 700 " cs+ + CASE_SEARCH�" cs! 1�+ CASE_SEARCH.�# 701 ( pop_spot " cs�+ CASE_SEARCH/n.�# 704�$ line�# 705 ( eol_trim # bol�# 707.� ' p od_beg� * looking_at/.� ' pod_too� * looking_at/m..�# 708 & down_1/.�# 709�$ line��# 710 ' pod_end� * looking_at.v/c�# 711 ( eol_trim/fu/c�# 715 $ eolp.u/c�# 716 * skip_white��# 719" 35� / looking_at_char.�# 720 + indent_line/.�# 723 + indent_line���# 7 24 " <<� % ffind� % right.�# 725 ) push_mark��# 726 ' A-Z_a-z� * skip_chars*�# 727 $ junk+ # ;�$ junk*�# 728 $ here+ ) bufsubstr�$ here*�# 729 # len+� $ here� & strlen�# len��# 730 $ junk� * skip_chars�# 731 # len $ eolp�" 35� / looking_at_charDC..�# 7 32 & down_1/.�# 733�$ line��# 734 $ here� * looking_at.��# 735 # len� ( go_right��# 736 $ junk� * skip_chars�# 737 $ eolp�" 35� / looking_at_charD.v/c/c�# 739 ( eol_trim/f/.�# 742 + indent_line/d/c/d��# 746 6 processed %d/%d lines. $ line & nlines� ( vm essage/.�# 747 & down_1 $ line & nlines=C/k�# 749 3 EXECUTE_ERROR_BLOCK�# 685�2 perl_indent_region,�# 761 ) push_spot�# 762 # bob ) push_mark # eob�# 763 2 perl_indent_region�# 764 ( pop_spot�# 759�2 perl_indent_buffer,*�# 772 & dirfun+�# 774 ) push_ma rk.�# 775 & dirfunM/.�# 777 . bol_skip_white��# 778 ' pod_beg� * looking_at� # sub� * looking_atD.�# 779 * pop_mark_0w/c/f�# 783 * pop_mark_1�# 772�- perl_pn_chunk,��# 786}$ up_1� - perl_pn_chunky/ perl_prev_chunk,��# 787}& down_1� - perl_pn_chunky/ pe rl_next_chunk,*�# 800 # beg+ ' pod_beg�# beg*�# 801 # ptp+ 3 perl_parse_to_point�# ptp�# 802 # ptp" -3?. # sub�# beg/c�# 803 # eol��# 804 # beg� + bol_bsearch.� ( Top of ' # beg9 , ' not found.9� % error/b�# 798y. perl_beg_chunk,�# 816 . perl_beg_chunk *�# 817 # ptp+ 3 perl_parse_to_point�# ptp�# 818 # ptp" -3?.��# 819# 123� , fsearch_char.� * goto_match� $ call/c/.�# 821 # bol��# 822 ' pod_end� + bol_fsearch.� ' pod_end * not found9� % error/b/d�# 814y. perl_end_chunk,�# 835 . perl_beg_chunk�# 836 1 push_visible_mark�# 837 . perl_end_chunk�# 838 # eol�# 839 7 exchange_point_and_mark�# 833y/ perl_mark_chunk,*�# 852 # beg+ # ([{�# beg* # end+ # )]}�# end*�# 853 " ch+ ) what_char�" ch.�# 856 * pop_mark_1/n.*�# 860 " fn+�" fn�# 861 , set_mark_cmd�# 86 2! 1� " ch� 7 find_matching_delimiterB.��# 863 < matching delimiter not found� % error/c�# 864 " fnM�# 865 7 exchange_point_and_markw/p��# 869 # beg� " ch� $ char� ) is_substr.��# 870}* go_right_1� - X_USER_BLOCK0/.��# 871 # end� " ch� $ char� ) is_subst r.��# 872}/ skip_word_chars� - X_USER_BLOCK0/c/d�# 878 + bskip_white�# 879 * _get_point��# 880 # beg� + bskip_chars�# 881 * _get_point:.�# 882 ) what_char�" ch��# 883}* go_right_1� - X_USER_BLOCK0/c�# 887 * skip_white�# 888 * _get_point��# 889 # end� * sk ip_chars�# 890 * _get_point:.�# 891 ) go_left_1�# 892 ) what_char�" ch��# 893}/ skip_word_chars� - X_USER_BLOCK0/c�# 850y2 perl_mark_matching,*�# 897 $ menu+��# 899 $ menu 0 &Top of Function . perl_beg_chunk� 0 menu_append_item��# 900 $ menu 0 &End of Fu nction . perl_end_chunk� 0 menu_append_item��# 901 $ menu . &Mark Function / perl_mark_chunk� 0 menu_append_item��# 902 $ menu . &Format Buffer 2 perl_indent_buffer� 0 menu_append_item�# 897�. perl_init_menu&�# 905 0 PerlMode_Comment+ " # �0 PerlMode_Comm ent&�# 906 3 PerlMode_CommentLen+! 2�3 PerlMode_CommentLen,�# 914 $ bolp.�# 915 ) push_spot�# 916 . bol_skip_white��# 917" 35� / looking_at_char.*�# 918 # col+ + what_column�# col�# 919�# col�# 920 ( pop_spot�# 921 ' newline��# 922 # col� - insert_spac es��# 923 0 PerlMode_Comment� & insertw/c�# 926 ( pop_spot/b�# 928 ' newline�# 929 + indent_line�# 912y7 perl_newline_and_indent&�# 933 3 Perlmode_Fill_Chars+ �3 Perlmode_Fill_Chars,��# 943 3 Perlmode_Fill_Chars� & strlen.! 0w/c�# 944 ) push_spot�# 94 5 . bol_skip_white��# 946 0 PerlMode_Comment� * looking_at.��# 947 3 PerlMode_CommentLen� ( go_right�# 948 * skip_white/.��# 949 " ##� * looking_at.�# 950 # eol/c/d�# 953 $ eolp" -2 . parse_to_pointBD�# 954 ( pop_spot�# 941y2 perl_paragraph_sep,*�# 966 % dwrap+�# 968 �3 Perlmode_Fill_Chars�# 969 2 perl_paragraph_sep.w/c�# 970 ) push_spot.�# 971 2 perl_paragraph_sepN/.�# 972 $ up_1.v/b/f�# 974 2 perl_paragraph_sep. ) go_down_1/c�# 975 ) push_mark�# 976 ) goto_spot.�# 978 2 perl_paragraph_sepN/.�# 979 & down_1.v/b/f�# 981 2 perl_paragraph_sep. ' go_up_1/c�# 982 & narrow�# 983 ) goto_spot�# 985 # bol�# 986 ) push_mark�# 987 * skip_white��# 988 0 PerlMode_Comment� * looking_at.� 3 PerlMode_CommentLen� ( go_right/c�# 990 ) bufsubstr�3 Perlmode_Fill_Chars �# 991 + what_column�% dwrap�# 992 # bob.�# 994 ( bol_trim��# 995 0 PerlMode_Comment� * looking_at.� 3 PerlMode_CommentLen� $ deln/c/.�# 996 & down_1/k�# 997 % dwrap�$ WRAP��# 998 0 format_paragraph� $ call�# 999 % dwrap�$ WRAP�$ 1000 # bob.��$ 1002 3 Pe rlmode_Fill_Chars� & insert/.�$ 1003 & down_1/k�$ 1005 �3 Perlmode_Fill_Chars�$ 1006 % widen�$ 1007 ( pop_spot�# 964y5 perl_format_paragraph,*�$ 1059 $ mode+ $ perl�$ mode��$ 1061 $ mode! 4� ( set_mode��$ 1062 $ mode� * use_keymap��$ 1063 $ mode� 0 u se_syntax_table�$ 1071 - push_spot_bob*�$ 1072 # beg+ ' pod_beg�# beg��$ 1073 # beg� + bol_fsearchN� ' pod_too� + bol_fsearchC.�$ 1074 ' pod_too�# beg/c��$ 1075 # beg ' pod_end" 37 $ mode� - define_syntax�$ 1076 ( pop_spot��$ 1078 ' par_sep 2 perl_paragr aph_sep� / set_buffer_hook��$ 1079 + indent_hook}0 perl_indent_line� / set_buffer_hook��$ 1083 $ mode ) fold_info$. =pod\r=cut\r\r� 2 mode_set_mode_info��$ 1085 $ mode . init_mode_menu}. perl_init_menu� 2 mode_set_mode_info��$ 1086 . perl_mode_hook� . run _mode_hooks�$ 1057y) perl_mode Save