Edit file File name : cmisc.slc Content :.#,*�" 14 ! d $ cbeg $ cend $ file $ mode+�" 15 " /*�$ cbeg�" 16 " */�$ cend�" 18 ) what_mode�$ modeP�" 19 $ mode! 2F.w/b�" 21 + getbuf_infoPPP�$ file�" 23 $ mode! 8F.�" 25 ! %�$ cbeg�" 26 �$ cend/c�" 30 # eol��" 31 $ cbeg� % bfind.�" 33 $ bolp.�" 35 ) go_left_1�" 36 $ trim��" 37 $ cbeg� % ffindP/b�" 39 0 C_Comment_Column + what_column:�! d�" 40 ! d! 0?.� ! d� * whitespace/c��" 41 $ cend� % ffind.�" 43 # eol��" 44! 2� - insert_spaces��" 45 $ cend� & insert/b��" 48 $ cbeg� % bfindP���" 49 $ cbeg� & strlen! 19� ( go_right/.�" 53 + what_column 0 C_Comment_Column>.��" 55 0 C_Comment_Column� + goto_column/.��" 57 # � & insert/d��" 58 $ cbeg� & insert� " � & insert��" 59 $ cend� & strlen.��" 61 $ cend� & insert��" 62! 3� ' go_left/c/d�" 12y. c_mak e_comment(�" 69 0 Cmode_Fill_Chars+ �0 Cmode_Fill_Chars,��" 72 0 Cmode_Fill_Chars� & strlen.! 0w/c�" 73 ) push_spot�" 74 . bol_skip_white��" 75 ! *� * looking_at.��" 76 ! *� * skip_chars/.��" 77 " //� * looking_at.��" 79! 2� ( go_right/c/d�" 81 * ski p_white��" 82 " @ � * looking_at. # eol/c�" 83 $ eolp" -2 . parse_to_pointBD�" 84 ( pop_spot�" 70y/ c_paragraph_sep,�" 87y2 c_format_paragraph,*�" 90 ! n % dwrap+�" 93 �0 Cmode_Fill_Chars�" 94 / c_paragraph_sep.w/c�" 95 ) push_spot ) push_spot ) push _spot.�" 96 / c_paragraph_sepN/.�" 98 $ up_1.v/b/f�# 100 / c_paragraph_sep. ) go_down_1/c�# 101 ) push_mark�# 102 ( pop_spot.�# 104 / c_paragraph_sepN/.�# 106 & down_1.v/b/f�# 108 / c_paragraph_sep. ' go_up_1/c�# 109 & narrow�# 110 ( pop_spot�# 111 # bo l�# 112 ) push_mark�# 113 * skip_white��# 114 " * � * looking_at.�! 2� ( go_right/.��# 115 # // � * looking_at.�! 3� ( go_right/c/d�# 117 ) bufsubstr�0 Cmode_Fill_Chars�# 118 + what_column�% dwrap�# 119 # bob.�# 122 ( bol_trim��# 123 " * � * looking_at. �! 2� $ deln/.��# 124 # // � * looking_at.�! 3� $ deln/c/d/.�# 126 & down_1/k�# 127 % dwrap�$ WRAP��# 128 5 format_paragraph_hook� 1 unset_buffer_hook��# 129 0 format_paragraph� $ call��# 130 5 format_paragraph_hook}2 c_format_paragraph� / set_buffer_h ook�# 131 % dwrap�$ WRAP�# 132 # bob.��# 135 0 Cmode_Fill_Chars� & insert/.�# 137 & down_1/k�# 139 # bol���# 140 0 Cmode_Fill_Chars� & strlen� ( go_right�# 142 * skip_white��# 143 " */� * looking_at.�# 145 ) push_mark�# 146 . bol_skip_white�# 147 * del_r egion/c�# 150 �0 Cmode_Fill_Chars�# 151 % widen�# 152 ( pop_spot�" 88y2 c_format_paragraph,*�# 160 $ cbeg+ # /* �$ cbeg* $ cmid+ # * �$ cmid* $ cend+ # */�$ cend*�# 161 ! c " c1 $ celm % extra+��# 163! 1� , check_region�# 164 7 exchange_point_and_ma rk�# 165 + what_column�! c�# 167 & narrow�# 168 # bob.�# 172�% extra�$ celm�# 173 . bol_skip_white�# 174 + what_column�" c1�# 175 " c1 ! c?.��# 177 ! c� + goto_column��# 178 $ celm� & insert�# 179 $ trim��# 180 " c1 + what_column: % extra9� * whitespace/. �# 184 $ eolp.� ! c� + goto_column/c��# 185 $ celm� & insert/d/p��# 189 $ cbeg! 0� - X_USER_BLOCK0.�# 191 & down_1/.��# 193 $ cmid! 1� - X_USER_BLOCK0/f�# 195 % widen�# 196 . bol_skip_white��# 197 $ cmid� * looking_at.��# 199! 3� $ deln/.�# 203 # eol� �# 204! 1� % right. ' newline/b/d��# 206 $ cend! 0� - X_USER_BLOCK0�# 207 ( pop_spot�# 155y0 c_comment_region,��# 213# 123� 0 bol_bsearch_char.��# 215 : Top of function not found.� % error/b�# 211y1 c_top_of_function,�# 221 # eol��# 222# 125� 0 bol_ fsearch_char.��# 223 9 End of function not found� % error/b�# 219y1 c_end_of_function,�# 232 1 c_end_of_function�# 233 1 push_visible_mark�# 234 # eol�# 235 ) go_down_1�# 236 7 exchange_point_and_mark�# 237 1 c_top_of_function��# 238! 2� % go_up�# 239 # bol�# 230y/ c_mark_function,*�# 248 ! d $ cbeg $ mode+�# 249 " //�$ cbeg�# 252 # eol��# 253 $ cbeg� % bfind.�# 255 $ bolp.�# 257 ) go_left_1�# 258 $ trim��# 259 $ cbeg� % ffindP/b�# 261 0 C_Comment_Column + what_column:�! d�# 262 ! d! 0?.� ! d� * white space/c��# 264 $ cbeg� % bfindP���# 265 $ cbeg� & strlen! 19� ( go_right/.�# 269 + what_column 0 C_Comment_Column>.��# 271 0 C_Comment_Column� + goto_column/.��# 273 ! � & insert/d��# 274 $ cbeg� & insert� ! � & insert/d�# 246y8 c_plus_plus_make_commen t Save