src/cygw32.c

   1 /* Cygwin support routines.
   2    Copyright (C) 2011-2014 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software: you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation, either version 3 of the License, or
   9 (at your option) any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
  18
  19
  20 #include "cygw32.h"
  21 #include "character.h"
  22 #include "buffer.h"
  23 #include <unistd.h>
  24 #include <fcntl.h>
  25
  26 static void
  27 fchdir_unwind (int dir_fd)
  28 {
  29   (void) fchdir (dir_fd);
  30   (void) close (dir_fd);
  31 }
  32
  33 static void
  34 chdir_to_default_directory ()
  35 {
  36   Lisp_Object new_cwd;
  37   int old_cwd_fd = emacs_open (".", O_RDONLY | O_DIRECTORY, 0);
  38
  39   if (old_cwd_fd == -1)
  40     error ("could not open current directory: %s", strerror (errno));
  41
  42   record_unwind_protect_int (fchdir_unwind, old_cwd_fd);
  43
  44   new_cwd = Funhandled_file_name_directory (
  45     Fexpand_file_name (build_string ("."), Qnil));
  46   if (!STRINGP (new_cwd))
  47     new_cwd = build_string ("/");
  48
  49   if (chdir (SDATA (ENCODE_FILE (new_cwd))))
  50     error ("could not chdir: %s", strerror (errno));
  51 }
  52
  53 static Lisp_Object
  54 conv_filename_to_w32_unicode (Lisp_Object in, int absolute_p)
  55 {
  56   ssize_t converted_len;
  57   Lisp_Object converted;
  58   unsigned flags;
  59   dynwind_begin ();
  60
  61   chdir_to_default_directory ();
  62
  63   flags = CCP_POSIX_TO_WIN_W;
  64   if (!absolute_p) {
  65     flags |= CCP_RELATIVE;
  66   }
  67
  68   in = ENCODE_FILE (in);
  69
  70   converted_len = cygwin_conv_path (flags, SDATA (in), NULL, 0);
  71   if (converted_len < 2)
  72     error ("cygwin_conv_path: %s", strerror (errno));
  73
  74   converted = make_uninit_string (converted_len - 1);
  75   if (cygwin_conv_path (flags, SDATA (in),
  76                         SDATA (converted), converted_len))
  77     error ("cygwin_conv_path: %s", strerror (errno));
  78
  79   dynwind_end ();
  80   return converted;
  81 }
  82
  83 static Lisp_Object
  84 conv_filename_from_w32_unicode (const wchar_t* in, int absolute_p)
  85 {
  86   ssize_t converted_len;
  87   Lisp_Object converted;
  88   unsigned flags;
  89   dynwind_begin ();
  90
  91   chdir_to_default_directory ();
  92
  93   flags = CCP_WIN_W_TO_POSIX;
  94   if (!absolute_p) {
  95     flags |= CCP_RELATIVE;
  96   }
  97
  98   converted_len = cygwin_conv_path (flags, in, NULL, 0);
  99   if (converted_len < 1)
 100     error ("cygwin_conv_path: %s", strerror (errno));
 101
 102   converted = make_uninit_string (converted_len - 1 /*subtract terminator*/);
 103   if (cygwin_conv_path (flags, in, SDATA (converted), converted_len))
 104     error ("cygwin_conv_path: %s", strerror (errno));
 105
 106   Lisp_Object tem0 = DECODE_FILE (converted);
 107   dynwind_end ();
 108   return tem0;
 109 }
 110
 111 DEFUN ("cygwin-convert-file-name-to-windows",
 112        Fcygwin_convert_file_name_to_windows,
 113        Scygwin_convert_file_name_to_windows,
 114        1, 2, 0,
 115        doc: /* Convert a Cygwin file name FILE to a Windows-style file name.
 116 If ABSOLUTE-P is non-nil, return an absolute file name.
 117 For the reverse operation, see `cygwin-convert-file-name-from-windows'.  */)
 118   (Lisp_Object file, Lisp_Object absolute_p)
 119 {
 120   return from_unicode (
 121     conv_filename_to_w32_unicode (file, EQ (absolute_p, Qnil) ? 0 : 1));
 122 }
 123
 124 DEFUN ("cygwin-convert-file-name-from-windows",
 125        Fcygwin_convert_file_name_from_windows,
 126        Scygwin_convert_file_name_from_windows,
 127        1, 2, 0,
 128        doc: /* Convert a Windows-style file name FILE to a Cygwin file name.
 129 If ABSOLUTE-P is non-nil, return an absolute file name.
 130 For the reverse operation, see `cygwin-convert-file-name-to-windows'.  */)
 131   (Lisp_Object file, Lisp_Object absolute_p)
 132 {
 133   return conv_filename_from_w32_unicode (to_unicode (file, &file),
 134                                          EQ (absolute_p, Qnil) ? 0 : 1);
 135 }
 136
 137 void
 138 syms_of_cygw32 (void)
 139 {
 140 #include "cygw32.x"
 141 }