Mercurial > hg > xemacs-beta
annotate src/sysfile.h @ 5124:623d57b7fbe8 ben-lisp-object
separate regular and disksave finalization, print method fixes.
Create separate disksave method and make the finalize method only be for
actual object finalization, not disksave finalization.
Fix places where 0 was given in place of a printer -- print methods are
mandatory, and internal objects formerly without a print method now must
explicitly specify internal_object_printer().
Change the defn of CONSOLE_LIVE_P to avoid problems in some weird situations.
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-01-20 Ben Wing <ben@xemacs.org>
* alloc.c:
* alloc.c (very_old_free_lcrecord):
* alloc.c (disksave_object_finalization_1):
* alloc.c (make_lcrecord_list):
* alloc.c (alloc_managed_lcrecord):
* alloc.c (free_managed_lcrecord):
* alloc.c (sweep_lcrecords_1):
* buffer.c:
* bytecode.c:
* bytecode.c (Fcompiled_function_p):
* chartab.c:
* console-impl.h:
* console-impl.h (CONSOLE_TYPE_P):
* console.c:
* console.c (set_quit_events):
* data.c:
* data.c (Fmake_ephemeron):
* database.c:
* database.c (finalize_database):
* database.c (Fclose_database):
* device-msw.c:
* device-msw.c (finalize_devmode):
* device-msw.c (allocate_devmode):
* device.c:
* elhash.c:
* elhash.c (finalize_hash_table):
* eval.c:
* eval.c (bind_multiple_value_limits):
* event-stream.c:
* event-stream.c (finalize_command_builder):
* events.c:
* events.c (mark_event):
* extents.c:
* extents.c (finalize_extent_info):
* extents.c (uninit_buffer_extents):
* faces.c:
* file-coding.c:
* file-coding.c (finalize_coding_system):
* file-coding.h:
* file-coding.h (struct coding_system_methods):
* file-coding.h (struct detector):
* floatfns.c:
* floatfns.c (extract_float):
* fns.c:
* fns.c (Fidentity):
* font-mgr.c (finalize_fc_pattern):
* font-mgr.c (finalize_fc_config):
* frame.c:
* glyphs.c:
* glyphs.c (finalize_image_instance):
* glyphs.c (unmap_subwindow_instance_cache_mapper):
* gui.c:
* gui.c (gui_error):
* keymap.c:
* lisp.h (struct Lisp_Symbol):
* lrecord.h:
* lrecord.h (struct lrecord_implementation):
* lrecord.h (MC_ALLOC_CALL_FINALIZER):
* lrecord.h (MC_ALLOC_CALL_FINALIZER_FOR_DISKSAVE):
* lrecord.h (DEFINE_DUMPABLE_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_SIZABLE_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_SIZABLE_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_FROB_BLOCK_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_FROB_BLOCK_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_FROB_BLOCK_SIZABLE_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_INTERNAL_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_SIZABLE_INTERNAL_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_SIZABLE_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_SIZABLE_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_FROB_BLOCK_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_FROB_BLOCK_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_FROB_BLOCK_SIZABLE_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_INTERNAL_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_SIZABLE_INTERNAL_LISP_OBJECT):
* lrecord.h (MAKE_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_MODULE_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_MODULE_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_MODULE_SIZABLE_LISP_OBJECT):
* lrecord.h (DEFINE_DUMPABLE_MODULE_SIZABLE_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_MODULE_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_MODULE_GENERAL_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_MODULE_SIZABLE_LISP_OBJECT):
* lrecord.h (DEFINE_NODUMP_MODULE_SIZABLE_GENERAL_LISP_OBJECT):
* lrecord.h (MAKE_MODULE_LISP_OBJECT):
* lstream.c:
* lstream.c (finalize_lstream):
* lstream.c (disksave_lstream):
* marker.c:
* marker.c (finalize_marker):
* mule-charset.c (make_charset):
* number.c:
* objects.c:
* objects.c (finalize_color_instance):
* objects.c (finalize_font_instance):
* opaque.c:
* opaque.c (make_opaque_ptr):
* process-nt.c:
* process-nt.c (nt_finalize_process_data):
* process-nt.c (nt_deactivate_process):
* process.c:
* process.c (finalize_process):
* procimpl.h (struct process_methods):
* scrollbar.c:
* scrollbar.c (free_scrollbar_instance):
* specifier.c (finalize_specifier):
* symbols.c:
* toolbar.c:
* toolbar.c (Ftoolbar_button_p):
* tooltalk.c:
* ui-gtk.c:
* ui-gtk.c (emacs_gtk_object_finalizer):
* ui-gtk.c (allocate_emacs_gtk_boxed_data):
* window.c:
* window.c (finalize_window):
* window.c (mark_window_as_deleted):
Separate out regular and disksave finalization. Instead of a
FOR_DISKSAVE argument to the finalizer, create a separate object
method `disksaver'. Make `finalizer' have only one argument.
Go through and separate out all finalize methods into finalize
and disksave. Delete lots of thereby redundant disksave checking.
Delete places that signal an error if we attempt to disksave --
all of these objects are non-dumpable and we will get an error
from pdump anyway if we attempt to dump them. After this is done,
only one object remains that has a disksave method -- lstream.
Change DEFINE_*_LISP_OBJECT_WITH_PROPS to DEFINE_*_GENERAL_LISP_OBJECT,
which is used for specifying either property methods or disksave
methods (or in the future, any other less-used methods).
Remove the for_disksave argument to finalize_process_data. Don't
provide a disksaver for processes because no one currently needs
it.
Clean up various places where objects didn't provide a print method.
It was made mandatory in previous changes, and all methods now
either provide their own print method or use internal_object_printer
or external_object_printer.
Change the definition of CONSOLE_LIVE_P to use the contype enum
rather than looking into the conmeths structure -- in some weird
situations with dead objects, the conmeths structure is NULL,
and printing such objects from debug_print() will crash if we try
to look into the conmeths structure.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Wed, 20 Jan 2010 07:05:57 -0600 |
| parents | aa5ed11f473b |
| children | b3ea9c582280 |
| rev | line source |
|---|---|
| 428 | 1 /* |
| 2 Copyright (C) 1995 Free Software Foundation, Inc. | |
| 2421 | 3 Copyright (C) 2000, 2001, 2002, 2004 Ben Wing. |
| 428 | 4 |
| 5 This file is part of XEmacs. | |
| 6 | |
| 7 XEmacs is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 9 Free Software Foundation; either version 2, or (at your option) any | |
| 10 later version. | |
| 11 | |
| 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 18 along with XEmacs; see the file COPYING. If not, write to | |
| 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 20 Boston, MA 02111-1307, USA. */ | |
| 21 | |
| 22 /* Synched up with: Not really in FSF. */ | |
| 23 | |
| 440 | 24 #ifndef INCLUDED_sysfile_h_ |
| 25 #define INCLUDED_sysfile_h_ | |
| 26 | |
| 771 | 27 /* The anonymous voice of the past says: |
| 28 Must come before sysfile.h | |
| 29 | |
| 30 So instead we just put it here. --ben */ | |
| 31 #ifdef HAVE_LIBGEN_H | |
| 32 #include <libgen.h> | |
| 33 #endif | |
| 34 | |
| 428 | 35 #include <errno.h> |
| 36 | |
| 442 | 37 #ifndef WIN32_NATIVE |
| 573 | 38 # include <sys/errno.h> /* <errno.h> does not always imply this */ |
| 428 | 39 #endif |
| 40 | |
| 41 #ifdef HAVE_UNISTD_H | |
| 558 | 42 # include <unistd.h> |
| 428 | 43 #endif |
| 44 | |
| 45 #ifndef INCLUDED_FCNTL | |
| 46 # define INCLUDED_FCNTL | |
| 47 # include <fcntl.h> | |
| 48 #endif /* INCLUDED_FCNTL */ | |
| 49 | |
| 558 | 50 /* The anonymous voice of the past says: |
| 428 | 51 In some systems loading it twice is suicidal. */ |
| 558 | 52 #ifndef INCLUDED_SYS_TYPES |
| 53 # define INCLUDED_SYS_TYPES | |
| 54 # include <sys/types.h> /* some typedefs are used in sys/file.h */ | |
| 55 #endif /* INCLUDED_SYS_TYPES */ | |
| 442 | 56 |
| 57 #ifndef WIN32_NATIVE | |
| 558 | 58 # include <sys/file.h> |
| 442 | 59 #endif |
| 60 | |
| 1467 | 61 /* Some systems (SCO 3.2v5) do #define stat ... in this header. So it |
| 62 _must_ be included before any use of struct stat. Most emacs files | |
| 63 should include sysfile.h. The unex*.c include <sys/stat.h> directly. */ | |
| 428 | 64 #include <sys/stat.h> |
| 442 | 65 |
| 1315 | 66 #ifdef WIN32_ANY |
| 558 | 67 # include <io.h> |
| 68 #endif | |
| 69 | |
| 70 #ifdef WIN32_NATIVE | |
| 71 # include <direct.h> | |
| 72 #else | |
| 442 | 73 /* Some configuration files' definitions for the LOAD_AVE_CVT macro |
| 74 (like sparc.h's) use macros like FSCALE, defined here. */ | |
| 558 | 75 # ifdef HAVE_GTK |
| 462 | 76 /* I hate GTK */ |
| 558 | 77 # undef MIN |
| 78 # undef MAX | |
| 79 # endif /* HAVE_GTK */ | |
| 80 # include <sys/param.h> | |
| 609 | 81 /* As per Martin's recommendation, we do not include this. There was |
| 82 a comment stating that stuff from here was needed on NeXT, Cygwin, | |
| 83 and sunplay.c. However, Cygwin includes this automatically from | |
| 84 fcntl.h, and Martin says that a "conforming" system should never | |
| 85 need this. We will put it back if necessary on systems requiring it. */ | |
| 86 /* # include <sys/fcntl.h> */ | |
| 777 | 87 #endif /* WIN32_NATIVE */ |
| 428 | 88 |
| 89 #ifndef STDERR_FILENO | |
| 90 #define STDIN_FILENO 0 | |
| 91 #define STDOUT_FILENO 1 | |
| 92 #define STDERR_FILENO 2 | |
| 93 #endif | |
| 94 | |
| 95 #ifndef O_RDONLY | |
| 96 #define O_RDONLY 0 | |
| 97 #endif | |
| 98 | |
| 99 #ifndef O_WRONLY | |
| 100 #define O_WRONLY 1 | |
| 101 #endif | |
| 102 | |
| 103 #ifndef O_RDWR | |
| 104 #define O_RDWR 2 | |
| 105 #endif | |
| 106 | |
| 107 /* file opening defaults */ | |
| 108 #ifndef OPEN_BINARY | |
| 109 #ifdef O_BINARY | |
| 110 #define OPEN_BINARY O_BINARY | |
| 111 #else | |
| 112 #define OPEN_BINARY (0) | |
| 113 #endif | |
| 114 #endif | |
| 115 | |
| 116 #ifndef OPEN_TEXT | |
| 117 #ifdef O_TEXT | |
| 118 #define OPEN_TEXT O_TEXT | |
| 119 #else | |
| 120 #define OPEN_TEXT (0) | |
| 121 #endif | |
| 122 #endif | |
| 123 | |
| 124 #ifndef CREAT_MODE | |
| 442 | 125 #ifdef WIN32_NATIVE |
| 428 | 126 #define CREAT_MODE (S_IREAD | S_IWRITE) |
| 127 #else | |
| 128 #define CREAT_MODE (0666) | |
| 129 #endif | |
| 130 #endif | |
| 131 | |
| 132 #ifndef READ_TEXT | |
| 133 #ifdef O_TEXT | |
| 134 #define READ_TEXT "rt" | |
| 135 #else | |
| 136 #define READ_TEXT "r" | |
| 137 #endif | |
| 138 #endif | |
| 139 | |
| 140 #ifndef READ_BINARY | |
| 141 #ifdef O_BINARY | |
| 142 #define READ_BINARY "rb" | |
| 143 #else | |
| 144 #define READ_BINARY "r" | |
| 145 #endif | |
| 146 #endif | |
| 147 | |
| 442 | 148 #ifndef READ_PLUS_TEXT |
| 149 #ifdef O_TEXT | |
| 150 #define READ_PLUS_TEXT "r+t" | |
| 151 #else | |
| 152 #define READ_PLUS_TEXT "r+" | |
| 153 #endif | |
| 154 #endif | |
| 155 | |
| 156 #ifndef READ_PLUS_BINARY | |
| 157 #ifdef O_BINARY | |
| 158 #define READ_PLUS_BINARY "r+b" | |
| 159 #else | |
| 160 #define READ_PLUS_BINARY "r+" | |
| 161 #endif | |
| 162 #endif | |
| 163 | |
| 164 #ifndef WRITE_TEXT | |
| 165 #ifdef O_TEXT | |
| 166 #define WRITE_TEXT "wt" | |
| 167 #else | |
| 168 #define WRITE_TEXT "w" | |
| 169 #endif | |
| 170 #endif | |
| 171 | |
| 428 | 172 #ifndef WRITE_BINARY |
| 173 #ifdef O_BINARY | |
| 174 #define WRITE_BINARY "wb" | |
| 175 #else | |
| 176 #define WRITE_BINARY "w" | |
| 177 #endif | |
| 178 #endif | |
| 179 | |
| 771 | 180 #ifndef APPEND_TEXT |
| 181 #ifdef O_TEXT | |
| 182 #define APPEND_TEXT "at" | |
| 183 #else | |
| 184 #define APPEND_TEXT "a" | |
| 185 #endif | |
| 186 #endif | |
| 187 | |
| 188 #ifndef APPEND_BINARY | |
| 189 #ifdef O_BINARY | |
| 190 #define APPEND_BINARY "ab" | |
| 191 #else | |
| 192 #define APPEND_BINARY "a" | |
| 193 #endif | |
| 194 #endif | |
| 195 | |
| 428 | 196 #ifndef O_NONBLOCK |
| 197 #ifdef O_NDELAY | |
| 198 #define O_NONBLOCK O_NDELAY | |
| 199 #else | |
| 200 #define O_NONBLOCK 04000 | |
| 201 #endif | |
| 202 #endif | |
| 203 | |
| 204 #if !S_IRUSR | |
| 205 # if S_IREAD | |
| 206 # define S_IRUSR S_IREAD | |
| 207 # else | |
| 208 # define S_IRUSR 00400 | |
| 209 # endif | |
| 210 #endif | |
| 211 | |
| 212 #if !S_IWUSR | |
| 213 # if S_IWRITE | |
| 214 # define S_IWUSR S_IWRITE | |
| 215 # else | |
| 216 # define S_IWUSR 00200 | |
| 217 # endif | |
| 218 #endif | |
| 219 | |
| 220 #if !S_IXUSR | |
| 221 # if S_IEXEC | |
| 222 # define S_IXUSR S_IEXEC | |
| 223 # else | |
| 224 # define S_IXUSR 00100 | |
| 225 # endif | |
| 226 #endif | |
| 227 | |
| 228 #ifdef STAT_MACROS_BROKEN | |
| 229 #undef S_ISBLK | |
| 230 #undef S_ISCHR | |
| 231 #undef S_ISDIR | |
| 232 #undef S_ISFIFO | |
| 233 #undef S_ISLNK | |
| 234 #undef S_ISMPB | |
| 235 #undef S_ISMPC | |
| 236 #undef S_ISNWK | |
| 237 #undef S_ISREG | |
| 238 #undef S_ISSOCK | |
| 239 #endif /* STAT_MACROS_BROKEN. */ | |
| 240 | |
| 2526 | 241 #ifdef WIN32_NATIVE |
| 242 /* This is the standard value for S_IFLNK. All of the S_... flags that | |
| 243 exist in the MSVCRT have standard values, so their bit tests will | |
| 244 magically work. */ | |
| 245 #define S_IFLNK 0120000 | |
| 246 #endif | |
| 247 | |
| 428 | 248 #if !defined(S_ISBLK) && defined(S_IFBLK) |
| 249 #define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) | |
| 250 #endif | |
| 251 #if !defined(S_ISCHR) && defined(S_IFCHR) | |
| 252 #define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) | |
| 253 #endif | |
| 254 #if !defined(S_ISDIR) && defined(S_IFDIR) | |
| 255 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) | |
| 256 #endif | |
| 257 #if !defined(S_ISREG) && defined(S_IFREG) | |
| 258 #define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) | |
| 259 #endif | |
| 260 #if !defined(S_ISFIFO) && defined(S_IFIFO) | |
| 261 #define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) | |
| 262 #endif | |
| 263 #if !defined(S_ISLNK) && defined(S_IFLNK) | |
| 264 #define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) | |
| 265 #endif | |
| 266 #if !defined(S_ISSOCK) && defined(S_IFSOCK) | |
| 267 #define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK) | |
| 268 #endif | |
| 269 #if !defined(S_ISMPB) && defined(S_IFMPB) /* V7 */ | |
| 270 #define S_ISMPB(m) (((m) & S_IFMT) == S_IFMPB) | |
| 271 #define S_ISMPC(m) (((m) & S_IFMT) == S_IFMPC) | |
| 272 #endif | |
| 273 #if !defined(S_ISNWK) && defined(S_IFNWK) /* HP/UX */ | |
| 274 #define S_ISNWK(m) (((m) & S_IFMT) == S_IFNWK) | |
| 275 #endif | |
| 276 | |
| 2421 | 277 /* Determining the maximum pathname length. |
| 278 | |
| 279 NOTE: IN GENERAL, YOU SHOULD NOT USE THIS. | |
| 280 If at all possible, avoid using fixed-length buffers of any sort. | |
| 281 You cannot guarantee on many systems that pathnames won't exceed | |
| 282 these limits for one reason or another. | |
| 283 | |
| 284 Unfortunately, there is no universal agreement over whether these | |
| 285 values should include a final null-terminator or not. Even recent | |
| 286 versions of Linux (circa 2002) are switching from the not-including- | |
| 287 terminator kind to the including-terminator kind. So we assume that | |
| 288 the including-terminator kind will be even (usually is), and round | |
| 289 up as necessary. */ | |
| 290 | |
| 291 #define ROUND_UP_TO_EVEN_NUMBER(val) (((val + 1) >> 1) << 1) | |
| 292 #ifdef PATH_MAX | |
| 293 # define QXE_PATH_MAX ROUND_UP_TO_EVEN_NUMBER (PATH_MAX) | |
| 294 #elif defined (_MAX_PATH) | |
| 558 | 295 /* MS Win -- and preferable to _POSIX_PATH_MAX, which is also defined */ |
| 2421 | 296 # define QXE_PATH_MAX ROUND_UP_TO_EVEN_NUMBER (_MAX_PATH) |
| 297 #elif defined (_POSIX_PATH_MAX) | |
| 298 # define QXE_PATH_MAX ROUND_UP_TO_EVEN_NUMBER (_POSIX_PATH_MAX) | |
| 299 #elif defined (MAXPATHLEN) | |
| 300 # define QXE_PATH_MAX ROUND_UP_TO_EVEN_NUMBER (MAXPATHLEN) | |
| 301 #else | |
| 302 # define QXE_PATH_MAX 1024 | |
| 442 | 303 #endif |
| 304 | |
| 2421 | 305 /* Client .c files should use PATH_MAX_INTERNAL or PATH_MAX_EXTERNAL |
| 306 if they must use either one at all. */ | |
| 307 | |
| 308 /* Use for internally formatted text, which can potentially have up to | |
| 309 four bytes per character */ | |
| 310 #define PATH_MAX_INTERNAL (QXE_PATH_MAX * MAX_ICHAR_LEN) | |
| 311 /* Use for externally formatted text. */ | |
| 312 #define PATH_MAX_EXTERNAL (QXE_PATH_MAX * MAX_XETCHAR_SIZE) | |
| 313 | |
| 442 | 314 /* The following definitions are needed under Windows, at least */ |
| 315 #ifndef X_OK | |
| 316 # define X_OK 1 | |
| 317 #endif | |
| 428 | 318 |
| 442 | 319 #ifndef R_OK |
| 320 # define R_OK 4 | |
| 321 #endif | |
| 322 | |
| 771 | 323 #ifndef D_OK |
| 324 # define D_OK 8 | |
| 325 #endif | |
| 326 | |
| 442 | 327 #ifndef W_OK |
| 328 # define W_OK 2 | |
| 329 #endif | |
| 330 | |
| 331 #ifndef F_OK | |
| 332 # define F_OK 0 | |
| 428 | 333 #endif |
| 334 | |
| 335 #ifndef FD_CLOEXEC | |
| 336 # define FD_CLOEXEC 1 | |
| 337 #endif | |
| 338 | |
| 771 | 339 #ifdef emacs |
| 340 | |
| 428 | 341 /* Emacs needs to use its own definitions of certain system calls on |
| 342 some systems (like SunOS 4.1 and USG systems, where the read system | |
| 343 call is interruptible but Emacs expects it not to be; and under | |
| 344 MULE, where all filenames need to be converted to external format). | |
| 345 | |
| 771 | 346 We used to play preprocessor games, but in the long run that just leads |
| 347 you to ruin. So we explicitly put in the new calls, even if the source | |
| 348 gets marginally less pretty. | |
| 428 | 349 |
| 771 | 350 Current files where we don't use retry_ or qxe_ versions: |
| 428 | 351 |
| 771 | 352 -- all sound files except ntplay.c (includes esd.c libsst.[ch] libst.h |
| 353 linuxplay.c sgiplay.c sunplay.c | |
| 354 hpplay.c nas.c) | |
| 355 -- all unex* files | |
| 356 -- lib-src files | |
| 357 */ | |
| 428 | 358 |
| 771 | 359 ssize_t retry_read (int, void *, size_t); |
| 360 ssize_t retry_write (int, const void *, size_t); | |
| 361 int retry_open (const Extbyte *path, int oflag, ...); | |
| 867 | 362 int qxe_open (const Ibyte *path, int oflag, ...); |
| 363 int qxe_interruptible_open (const Ibyte *path, int oflag, int mode); | |
| 771 | 364 int retry_close (int); |
| 365 Bytecount read_allowing_quit (int fildes, void *buf, Bytecount size); | |
| 366 Bytecount write_allowing_quit (int fildes, const void *buf, | |
| 367 Bytecount size); | |
| 428 | 368 |
| 369 /* Now the stdio versions ... */ | |
| 370 | |
| 771 | 371 size_t retry_fread (void *, size_t, size_t, FILE *); |
| 372 size_t retry_fwrite (const void *, size_t, size_t, FILE *); | |
| 2367 | 373 FILE *retry_fopen (const Extbyte *path, const Ascbyte *mode); |
| 374 FILE *qxe_fopen (const Ibyte *path, const Ascbyte *mode); | |
| 771 | 375 int retry_fclose (FILE *); |
| 428 | 376 |
| 377 /* encapsulations: file-information calls */ | |
| 378 | |
| 867 | 379 int qxe_access (const Ibyte *path, int mode); |
| 380 int qxe_eaccess (const Ibyte *path, int mode); | |
| 381 int qxe_lstat (const Ibyte *path, struct stat *buf); | |
| 382 int qxe_readlink (const Ibyte *path, Ibyte *buf, size_t bufsiz); | |
| 771 | 383 int qxe_fstat (int fd, struct stat *buf); |
| 867 | 384 int qxe_stat (const Ibyte *path, struct stat *buf); |
| 2526 | 385 Ibyte *qxe_realpath (const Ibyte *path, Ibyte resolved_path [], |
| 386 Boolint links_only); | |
| 428 | 387 |
| 388 /* encapsulations: file-manipulation calls */ | |
| 389 | |
| 867 | 390 int qxe_chmod (const Ibyte *path, mode_t mode); |
| 771 | 391 |
| 392 #if defined (HAVE_LINK) | |
| 3025 | 393 int qxe_link (const Ibyte *existing, const Ibyte *new_); |
| 771 | 394 #endif /* defined (HAVE_LINK) */ |
| 395 | |
| 3025 | 396 int qxe_rename (const Ibyte *old, const Ibyte *new_); |
| 771 | 397 |
| 398 #if defined (HAVE_SYMLINK) | |
| 867 | 399 int qxe_symlink (const Ibyte *name1, const Ibyte *name2); |
| 771 | 400 #endif /* defined (HAVE_SYMLINK) */ |
| 401 | |
| 867 | 402 int qxe_unlink (const Ibyte *path); |
| 771 | 403 |
| 1467 | 404 /* definition in filemode.c |
| 405 must be declared here to ensure that struct stat is properly formed | |
| 406 on systems like SCO 3.2v5 */ | |
| 407 void filemodestring (struct stat *, char *); | |
| 408 | |
| 2526 | 409 #ifdef WIN32_ANY |
| 410 extern int mswindows_shortcuts_are_symlinks; | |
| 411 #endif | |
| 412 | |
| 771 | 413 #endif /* emacs */ |
| 414 | |
| 415 | |
| 416 #ifndef HAVE_H_ERRNO | |
| 417 extern int h_errno; | |
| 428 | 418 #endif |
| 419 | |
| 771 | 420 #ifndef HAVE_DUP2 |
| 421 int dup2 (int oldd, int newd); | |
| 428 | 422 #endif |
| 423 | |
| 771 | 424 #ifndef HAVE_STRERROR |
| 425 /* X11R6 defines strerror as a macro */ | |
| 426 # ifdef strerror | |
| 427 # undef strerror | |
| 428 # endif | |
| 429 const char *strerror (int); | |
| 428 | 430 #endif |
| 431 | |
| 771 | 432 |
| 433 | |
| 434 /* | |
| 435 DEFAULT_DIRECTORY_SEP is the default value of Vdirectory_sep_char. | |
| 436 DIRECTORY_SEP is the currently preferred separator between elements | |
| 437 of a path, when paths are canonicalized. | |
| 438 DEVICE_SEP is the separator between devices and paths (might not | |
| 439 be defined). | |
| 440 SEPCHAR is the separator between paths in a path search string | |
| 441 (e.g. the PATH environment variable). | |
| 442 IS_DIRECTORY_SEP() returns true if the character is any directory | |
| 443 separator (there might be more than one allowed on a system.). | |
| 444 IS_DEVICE_SEP() returns true if the character is a device separator. | |
| 445 IS_ANY_SEP() returns true if the character is a directory or device | |
| 446 separator. | |
| 447 */ | |
| 448 | |
| 449 /* We used to put some of this stuff in the s+m files for the various | |
| 450 types of MS Windows, but that's disingenuous. The various definitions | |
| 451 above were specifically created for MS Windows, and the "if not, then | |
| 452 let's define the defaults" stuff (formerly in lisp.h) specifically knows | |
| 453 about what is going to get redefined and how, and code all over the | |
| 454 place that works with filenames has to conditionalize on WIN32_NATIVE | |
| 455 anyway. It's much clearer if we put all related definitions in one | |
| 456 place. (In fact, I discovered a number of bugs in the process.) | |
| 457 | |
| 458 S+M files should be used for simple on-off or multiple-choice settings, | |
| 459 or possibly string settings. Anything that gets to the level of | |
| 460 programming should be elsewhere, and anything that ends up having | |
| 461 lots of complicated interactions scattered around in many files should | |
| 462 be consolidated. */ | |
| 463 | |
| 464 #ifdef WIN32_NATIVE | |
| 465 | |
| 466 #define SEPCHAR ';' | |
| 467 #define DEFAULT_DIRECTORY_SEP '\\' | |
| 428 | 468 |
| 3379 | 469 #ifdef emacs |
| 867 | 470 DECLARE_INLINE_HEADER (Ibyte sysfile_get_directory_sep (void)) |
| 771 | 471 { |
| 472 if (!CHARP (Vdirectory_sep_char) | |
| 473 || (XCHAR (Vdirectory_sep_char) != '/' | |
| 474 && XCHAR (Vdirectory_sep_char) != '\\')) | |
| 475 { | |
| 476 warn_when_safe | |
| 477 (Qfile_name, Qerror, | |
| 478 "`directory-sep-char' set to invalid %s: resetting to %c.", | |
| 479 DEFAULT_DIRECTORY_SEP); | |
| 480 Vdirectory_sep_char = make_char (DEFAULT_DIRECTORY_SEP); | |
| 481 } | |
| 482 | |
| 483 return XCHAR (Vdirectory_sep_char); | |
| 484 } | |
| 485 #define DIRECTORY_SEP sysfile_get_directory_sep() | |
| 486 | |
|
4736
d261888e5069
Fix Win32 native build after my DEFAULT_DIRECTORY_FALLBACK change, thanks Vin!
Aidan Kehoe <kehoea@parhasard.net>
parents:
4733
diff
changeset
|
487 #define DEFAULT_DIRECTORY_FALLBACK ((const CIbyte *)"C:\\") |
|
d261888e5069
Fix Win32 native build after my DEFAULT_DIRECTORY_FALLBACK change, thanks Vin!
Aidan Kehoe <kehoea@parhasard.net>
parents:
4733
diff
changeset
|
488 |
|
d261888e5069
Fix Win32 native build after my DEFAULT_DIRECTORY_FALLBACK change, thanks Vin!
Aidan Kehoe <kehoea@parhasard.net>
parents:
4733
diff
changeset
|
489 #else /* not emacs */ |
| 3379 | 490 |
| 491 /* The above Lisp variables are not available to make-docfile, etc. */ | |
| 492 #define DIRECTORY_SEP DEFAULT_DIRECTORY_SEP | |
| 493 | |
| 494 #endif /* emacs */ | |
| 495 | |
| 771 | 496 #else /* not WIN32_NATIVE */ |
| 497 | |
| 498 #define SEPCHAR ':' | |
| 499 #define DEFAULT_DIRECTORY_SEP '/' | |
| 500 #define DIRECTORY_SEP '/' | |
|
4736
d261888e5069
Fix Win32 native build after my DEFAULT_DIRECTORY_FALLBACK change, thanks Vin!
Aidan Kehoe <kehoea@parhasard.net>
parents:
4733
diff
changeset
|
501 #define DEFAULT_DIRECTORY_FALLBACK ((const CIbyte *)"/") |
| 771 | 502 |
| 503 #endif /* WIN32_NATIVE */ | |
| 504 | |
| 428 | 505 |
| 1315 | 506 #ifdef WIN32_ANY |
| 771 | 507 |
| 508 #define DEVICE_SEP ':' | |
| 509 | |
| 510 #define IS_DEVICE_SEP(c) ((c) == DEVICE_SEP) | |
| 511 | |
| 3379 | 512 #ifdef emacs |
| 513 | |
| 867 | 514 DECLARE_INLINE_HEADER (int IS_DIRECTORY_SEP (Ichar c)) |
| 771 | 515 { |
| 516 return (c == '/' || c == '\\'); | |
| 517 } | |
| 518 | |
| 867 | 519 DECLARE_INLINE_HEADER (int IS_ANY_SEP (Ichar c)) |
| 771 | 520 { |
| 521 return (c == '/' || c == '\\' || c == ':'); | |
| 522 } | |
| 523 | |
| 3379 | 524 #else /* emacs */ |
| 525 | |
| 526 /* The Ichar typedef is not available to make-docfile, etc. */ | |
| 527 | |
| 528 DECLARE_INLINE_HEADER (int IS_DIRECTORY_SEP (int c)) | |
| 529 { | |
| 530 return (c == '/' || c == '\\'); | |
| 531 } | |
| 532 | |
| 533 DECLARE_INLINE_HEADER (int IS_ANY_SEP (int c)) | |
| 534 { | |
| 535 return (c == '/' || c == '\\' || c == ':'); | |
| 536 } | |
| 537 | |
| 538 #endif | |
| 539 | |
| 1315 | 540 #else /* not WIN32_ANY */ |
| 771 | 541 |
| 542 #define IS_DEVICE_SEP(c) 0 | |
| 543 #define IS_DIRECTORY_SEP(c) ((c) == DIRECTORY_SEP) | |
| 544 #define IS_ANY_SEP(c) IS_DIRECTORY_SEP (c) | |
| 545 | |
| 1315 | 546 #endif /* WIN32_ANY */ |
| 771 | 547 |
| 3368 | 548 /* How long can a source filename be in DOC (including "\037S" at the start |
| 549 and "\n" at the end) ? */ | |
| 550 #define DOC_MAX_FILENAME_LENGTH 2048 | |
| 551 | |
| 552 #ifdef emacs | |
| 553 | |
| 2526 | 554 #if defined (WIN32_NATIVE) |
| 555 #define PATHNAME_RESOLVE_LINKS(path, pathout) \ | |
| 556 do \ | |
| 557 { \ | |
| 558 if (mswindows_shortcuts_are_symlinks) \ | |
| 559 { \ | |
| 560 Ibyte *_prl_path_ = (Ibyte *) (path); \ | |
| 561 Ibyte _prl_path2_[PATH_MAX_INTERNAL]; \ | |
| 562 \ | |
| 563 if (!qxe_realpath (_prl_path_, _prl_path2_, 1)) \ | |
| 564 (pathout) = _prl_path_; \ | |
| 565 else \ | |
| 566 IBYTE_STRING_TO_ALLOCA (_prl_path2_, pathout); \ | |
| 567 } \ | |
| 568 else (pathout) = (Ibyte *) (path); \ | |
| 569 } while (0) | |
| 570 #else | |
| 571 #define PATHNAME_RESOLVE_LINKS(path, pathout) ((pathout) = (Ibyte *) (path)) | |
| 572 #endif | |
| 573 | |
| 574 #define LISP_PATHNAME_RESOLVE_LINKS(path, pathout) \ | |
| 575 PATHNAME_RESOLVE_LINKS (XSTRING_DATA (path), pathout) | |
| 576 | |
| 577 /* The documentation in VC++ claims that the pathname library functions | |
| 578 accept strings in the current locale-specific encoding, but that's | |
| 579 false, because they just call the native Win32 routines directly, which | |
| 580 always use the system-default encoding (which is what Qmswindows_tstr | |
| 581 will give us when not XEUNICODE_P). */ | |
| 582 #ifdef WIN32_NATIVE | |
| 583 # define PATHNAME_CONVERT_OUT(path, pathout) \ | |
| 584 do \ | |
| 585 { \ | |
| 586 const Ibyte *_pco_path_; \ | |
| 587 PATHNAME_RESOLVE_LINKS (path, _pco_path_); \ | |
| 588 C_STRING_TO_TSTR (_pco_path_, pathout); \ | |
| 589 } while (0) | |
| 590 #else | |
| 591 # define PATHNAME_CONVERT_OUT(path, pathout) \ | |
| 592 C_STRING_TO_EXTERNAL (path, pathout, Qfile_name) | |
| 593 #endif | |
| 594 | |
| 595 #define LISP_PATHNAME_CONVERT_OUT(path, pathout) \ | |
| 596 PATHNAME_CONVERT_OUT (XSTRING_DATA (path), pathout) | |
| 597 | |
| 771 | 598 #endif /* emacs */ |
| 599 | |
| 440 | 600 #endif /* INCLUDED_sysfile_h_ */ |