.#,*" 12 # tmp+*" 14 ! n+! 0! n* # buf+*" 15 ! t+ $ time! t" 17 # tmp $ time & strcat# tmp." 20$ %s%d # tmp ! n ' sprintf# buf" 21! n/." 23 # buf ' bufferp/k" 24 # buf" 12y4 make_tmp_buffer_name,*" 27 # str $ file . write_function +*" 29 # ret+" -1# ret*" 30 # buf+ + Null_String 4 make_tmp_buffer_name# buf*" 31 $ cbuf+ ' whatbuf$ cbuf" 33 # buf & setbuf" 34 # str & insert" 35! 0 8 set_buffer_modified_flag" 36 ) push_mark" 37 # bob" 44 $ file . write_functio nM# ret" 46 $ cbuf & setbuf" 47 # buf & delbuf" 48 # ret" 27y5 misc_do_write_to_file,*" 60 # str $ file+" 62 # str $ file}5 append_region_to_file 5 misc_do_write_to_file" 60y5 append_string_to_file,*" 74 # str $ file+" 76 # str $ file}4 write_region_to_file 5 misc_do_write_to_file" 74y4 write_string_to_file,*# 121 # pat+. list directory 3 read_file_from_mini# pat# 122 # pat & strlen.w/b*# 124 # dir+ # pat , path_dirname# dir# 125 # pat - path_basename# pat# 126 # pa t & strlen.# 127! *# pat/b# 129 # dir + file_status! 2B.# 1305 %s is not a directory # dir & verror/c*# 132 % files+ # dir ' listdir% files# 133 % files $ NULLA.! 0 + String_Type!% files/c# 135 # pat . glob_to_regexp# pat# 136 ( Int_Type}, string_match % files # pat! 1 ) array_map % where % files!% files# 137 % files * array_sort % files!% files*# 139 $ cbuf+ ' whatbuf$ cbuf# 140+ *directory* ' pop2buf*# 141 $ file # buf % flags+# 142 + getbuf_info% flags# bu fP$ file# 143 $ file # dir # buf % flags + setbuf_info# 145 , erase_buffer# 146 % files & length.# 148 ) Void_Type}' vinsert$$ %s\n % files ) array_map# 149 8 buffer_format_in_columns/c# 151 # bob# 152$. Directory %s\n # dir ' vinsert# 15 3 # bob# 154! 0 8 set_buffer_modified_flag# 155 $ cbuf ' pop2buf# 119y. list_directory,*# 158 ' dirspec+*# 160 ' buf_dir # dir+*# 161 ' pattern+*# 162 % files ! i+# 164 ' dirspec & strlen.# 165! *' dirspec/b# 167 + getbuf_infoPP' buf_ dirP# 168 ' dirspec 0 extract_filename' pattern# 169 ' dirspec! 1 ' dirspec & strlen ' pattern & strlen: & substr# dir# 170 ' buf_dir # dir & dircat# dir# 171 # dir & strlen.# 172! .# dir/b# 174 ' pattern . glob_to_regexp' patte rn# 176 # dir ' listdir% files# 178 % files $ NULLA % files & length! 0AD.# 179! 0w/c# 181 ( Int_Type}, string_match % files ' pattern! 1 ) array_map! i# 182 ! i % where % files!% files# 185 % files./# 187 % files & length# 158 y) directory