View file File name : abbrmisc.slc Content :.#��! 3 & abbrev� ' require,*�! 5 % table $ word+*�! 7 ! n+ ) what_line�! n*�! 8 ) use_bskip+! 1�) use_bskip*�! 9 # exg+ ( exchange�# exg*�" 10 & abbrev & expans+�" 12 % markp.��" 14 # exg� $ call�" 15 ! n ) what_lineA� # exg� $ call.! 0�) use_bskip/c/ c�" 18 ) push_spot�" 19 ) use_bskip.�" 21 ) push_mark��" 22 $ word� + bskip_chars/c�" 24 ) bufsubstr�& expans�" 25 ( pop_spot��" 27 & expans� & strlen.��" 29 ) For what? + Null_String + Null_String� ) read_mini�& expans��" 30 & expans� & strlen.w/b/b��" 3 3 2 Enter abbrev for ' & expans9 ! '9 � ) read_mini�& abbrev��" 34 & abbrev� & strlen.w/b��" 36 % table & abbrev & expans� - define_abbrev�! 5y7 define_abbrev_for_table,*�" 41 # tbl $ word+�" 43 1 what_abbrev_table�$ word�# tbl��" 44 # tbl� & strlen .�" 46 & Global�# tbl��" 47 # tbl + Null_String� 3 create_abbrev_table�" 48 1 what_abbrev_table�$ word�# tbl/b��" 51 # tbl $ word� 7 define_abbrev_for_table�" 39y3 define_abbreviation,�" 56 ) push_spot.��" 57" 92� * ffind_char/.��" 59" 92� + insert_cha r�" 60 * go_right_1/f�" 62 ( pop_spot�" 63 ) push_spot.��" 64" 34� * ffind_char/.��" 66" 92� + insert_char�" 67 * go_right_1/f�" 69 ( pop_spot�" 54�/ quote_this_line,*�" 74 $ file+� 0 Save abbrevs to:� 3 read_file_from_mini�$ file*�" 75 ! n % table $ word+���" 77 $ file� 0 extract_filename� & strlen.��" 79 $ file + Abbrev_File� & dircat�$ file/b���" 82 $ file� 0 extract_filename� & strlen.� - Invalid file.� % error/b�" 84 2 list_abbrev_tables�! n�" 85 ! n.w/b��" 87 $ file� ) read_fileP�" 88 , erase_b uffer�" 90 ! n.�" 92�% table�" 93 ) push_spot��" 94 % table� 1 dump_abbrev_table�$ word�" 95 ( pop_spot��" 97$C create_abbrev_table ("%s", "%s");\n % table $ word� ' vinsert�" 98 ' go_up_1.�# 100 & down_1 $ eobpNC/.��# 102 0 define_abbrev ("� & insert� % table� & insert��# 103 $ ", "� & insert�# 104 / quote_this_line��# 105! 9� * ffind_charP�# 106 $ trim��# 107 $ ", "� & insert�# 108 # eol��# 109 # ");� & insert/f/i�# 112 + save_buffer��# 113 ' whatbuf� & delbuf�" 72y, save_abbrevs