File: //usr/share/jed/lib/tmpfile.slc
.#,*�" 10 $ base+�" 12 1 Jed_Tmp_Directory $ NULLB��" 13 $ base� 0 path_is_absolute! 0AC.��" 14 1 Jed_Tmp_Directory $ base� + path_concat�$ base/c��" 16 $ base� 1 path_sans_extname�$ base��" 18" -1! 0� & randomP*�" 19 # pid+ & getpid�# pid�" 21$ 1000
.*�" 23 $ file+�' %s%d.%d $ base�! 0% 32767� & random # pid� ' sprintf�$ file��" 24 $ file� + file_status. $ filew/b/i��" 26< Unable to create a tmp file!� % error�" 10y- make_tmp_file,*�" 55 $ base # ext+�" 57 1 Jed_Tmp_Directory $ NULLB.�" 58! 0�
$ base� 0 path_is_absoluteA/6.��" 59 1 Jed_Tmp_Directory $ base� + path_concat�$ base/c*�" 61 # dir+� $ base� , path_dirname�# dir�" 62 # dir! .B.�" 63! 2� # dir� + file_statusB/6.��" 64 ' IOErrorE tmpfile directory $dir does not exist�/c��" 66" -1!
0� & randomP*�" 68 # fmt+& %s%X%s�# fmt�" 69 # ext $ NULLA.�" 70 �# ext/.��" 71! 0 # ext!" 46B.�" 72! . # ext9�# ext/c/d*�" 74 % flags+ & O_RDWR ' O_CREATJ & O_EXCLJ�% flags*�" 75 $ mode+ ' S_IRUSR ' S_IWUSRJ�$ mode�" 77$ 5000.*�" 79 # err+*�" 81
$ file+� # fmt $ base�! 0* 2147483647� & random # ext� ' sprintf�$ file*�" 82 " fd+� $ file % flags $ mode� $ open�" fd�" 83 " fd $ NULLB.*�" 85 " fp+� " fd" r+� & fdopen�" fp�" 86 " fp $ NULLA.�" 88 , errno_string�# err��" 89 " fd� % closeP��" 90 $ fi
le� & removeP��" 91 ' IOError3 fdopen failed: $err�/c�" 95 $ file$ file " fp" fp " fd" fd$ file" fp" fd! 3! 3�w/c�" 99 % errno & EEXISTB. % errno % EINTRB/6.�# 101 , errno_string�# err��# 102 ' IOError1 open failed: $err�/c/i��# 106 ' IOError<
Unable to open a unique file��" 55y4 open_unique_filename