code.delx.au - gnu-emacs/blob - src/w32.c

   1 /* Utility and Unix shadow routines for GNU Emacs on Windows NT.
   2    Copyright (C) 1994, 1995 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 it
   7    under the terms of the GNU General Public License as published by the
   8    Free Software Foundation; either version 2, or (at your option) any later
   9    version.
  10
  11    GNU Emacs is distributed in the hope that it will be useful, but WITHOUT
  12    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  14    more details.
  15
  16    You should have received a copy of the GNU General Public License along
  17    with GNU Emacs; see the file COPYING.  If not, write to the Free Software
  18    Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19
  20    Geoff Voelker (voelker@cs.washington.edu)                         7-29-94
  21 */
  22
  23 /* Define stat before including config.h.  */
  24 #include <string.h>
  25 #include <sys/stat.h>
  26 int
  27 nt_stat (char *filename, struct stat *statbuf)
  28 {
  29   int r, l = strlen (filename);
  30   char *str = NULL;
  31   extern long *xmalloc ();
  32   extern void xfree ();
  33
  34   /* stat has a bug when passed a name of a directory with a trailing
  35      backslash (but a trailing forward slash works fine).  */
  36   if (filename[l - 1] == '\\')
  37     {
  38       str = (char *) xmalloc (l + 1);
  39       strcpy (str, filename);
  40       str[l - 1] = '/';
  41       r = stat (str, statbuf);
  42       xfree (str);
  43       return r;
  44     }
  45   else
  46     return stat (filename, statbuf);
  47 }
  48
  49 /* Place a wrapper around the NT version of ctime.  It returns NULL
  50    on network directories, so we handle that case here.
  51    Define it before including config.h.  (Ulrich Leodolter, 1/11/95).  */
  52 char *
  53 nt_ctime (const time_t *t)
  54 {
  55   char *str = (char *) ctime (t);
  56   return (str ? str : "Sun Jan 01 00:00:00 1970");
  57 }
  58
  59 #include <config.h>
  60 #include <windows.h>
  61 #include <stdlib.h>
  62 #include <stdio.h>
  63 #include <io.h>
  64 #include <fcntl.h>
  65 #include <ctype.h>
  66
  67 #define getwd _getwd
  68 #include "lisp.h"
  69 #undef getwd
  70
  71 #include <pwd.h>
  72
  73 #include "ndir.h"
  74 #include "ntheap.h"
  75
  76 extern int report_file_error (char *, Lisp_Object);
  77
  78 /* Get the current working directory.  */
  79 int
  80 getwd (char *dir)
  81 {
  82   return GetCurrentDirectory (MAXPATHLEN, dir);
  83 }
  84
  85 /* Emulate gethostname.  */
  86 int
  87 gethostname (char *buffer, int size)
  88 {
  89   /* NT only allows small host names, so the buffer is
  90      certainly large enough.  */
  91   return !GetComputerName (buffer, &size);
  92 }
  93
  94 /* Emulate getloadavg.  */
  95 int
  96 getloadavg (double loadavg[], int nelem)
  97 {
  98   int i;
  99
 100   /* A faithful emulation is going to have to be saved for a rainy day.  */
 101   for (i = 0; i < nelem; i++)
 102     {
 103       loadavg[i] = 0.0;
 104     }
 105   return i;
 106 }
 107
 108 /* Emulate sleep...we could have done this with a define, but that
 109    would necessitate including windows.h in the files that used it.
 110    This is much easier.  */
 111 void
 112 nt_sleep (int seconds)
 113 {
 114   Sleep (seconds * 1000);
 115 }
 116
 117 /* Emulate the Unix directory procedures opendir, closedir,
 118    and readdir.  We can't use the procedures supplied in sysdep.c,
 119    so we provide them here.  */
 120
 121 struct direct dir_static;       /* simulated directory contents */
 122 static int    dir_finding;
 123 static HANDLE dir_find_handle;
 124
 125 DIR *
 126 opendir (char *filename)
 127 {
 128   DIR *dirp;
 129
 130   /* Opening is done by FindFirstFile.  However, a read is inherent to
 131      this operation, so we have a flag to handle the open at read
 132      time.  This flag essentially means "there is a find-handle open and
 133      it needs to be closed."  */
 134
 135   if (!(dirp = (DIR *) malloc (sizeof (DIR))))
 136     {
 137       return 0;
 138     }
 139
 140   dirp->dd_fd = 0;
 141   dirp->dd_loc = 0;
 142   dirp->dd_size = 0;
 143
 144   /* This is tacky, but we need the directory name for our
 145      implementation of readdir.  */
 146   strncpy (dirp->dd_buf, filename, DIRBLKSIZ);
 147   return dirp;
 148 }
 149
 150 void
 151 closedir (DIR *dirp)
 152 {
 153   /* If we have a find-handle open, close it.  */
 154   if (dir_finding)
 155     {
 156       FindClose (dir_find_handle);
 157       dir_finding = 0;
 158     }
 159   xfree ((char *) dirp);
 160 }
 161
 162 struct direct *
 163 readdir (DIR *dirp)
 164 {
 165   WIN32_FIND_DATA find_data;
 166
 167   /* If we aren't dir_finding, do a find-first, otherwise do a find-next. */
 168   if (!dir_finding)
 169     {
 170       char filename[MAXNAMLEN + 3];
 171       int ln;
 172
 173       strncpy (filename, dirp->dd_buf, MAXNAMLEN);
 174       ln = strlen (filename)-1;
 175       if (filename[ln] != '\\' && filename[ln] != ':')
 176         strcat (filename, "\\");
 177       strcat (filename, "*.*");
 178
 179       dir_find_handle = FindFirstFile (filename, &find_data);
 180
 181       if (dir_find_handle == INVALID_HANDLE_VALUE)
 182         return NULL;
 183
 184       dir_finding = 1;
 185     }
 186   else
 187     {
 188       if (!FindNextFile (dir_find_handle, &find_data))
 189         return NULL;
 190     }
 191
 192   /* NT's unique ID for a file is 64 bits, so we have to fake it here.
 193      This should work as long as we never use 0.  */
 194   dir_static.d_ino = 1;
 195
 196   dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 +
 197     dir_static.d_namlen - dir_static.d_namlen % 4;
 198
 199   dir_static.d_namlen = strlen (find_data.cFileName);
 200   strncpy (dir_static.d_name, find_data.cFileName, MAXNAMLEN);
 201
 202   return &dir_static;
 203 }
 204
 205 /* Emulate getpwuid and getpwnam.  */
 206
 207 int getuid ();  /* forward declaration */
 208
 209 #define PASSWD_FIELD_SIZE 256
 210
 211 static char the_passwd_name[PASSWD_FIELD_SIZE];
 212 static char the_passwd_passwd[PASSWD_FIELD_SIZE];
 213 static char the_passwd_gecos[PASSWD_FIELD_SIZE];
 214 static char the_passwd_dir[PASSWD_FIELD_SIZE];
 215 static char the_passwd_shell[PASSWD_FIELD_SIZE];
 216
 217 static struct passwd the_passwd =
 218 {
 219   the_passwd_name,
 220   the_passwd_passwd,
 221   0,
 222   0,
 223   0,
 224   the_passwd_gecos,
 225   the_passwd_dir,
 226   the_passwd_shell,
 227 };
 228
 229 struct passwd *
 230 getpwuid (int uid)
 231 {
 232   int size = PASSWD_FIELD_SIZE;
 233
 234   if (!GetUserName (the_passwd.pw_name, &size))
 235     return NULL;
 236
 237   the_passwd.pw_passwd[0] = '\0';
 238   the_passwd.pw_uid = 0;
 239   the_passwd.pw_gid = 0;
 240   strcpy (the_passwd.pw_gecos, the_passwd.pw_name);
 241   the_passwd.pw_dir[0] = '\0';
 242   the_passwd.pw_shell[0] = '\0';
 243
 244   return &the_passwd;
 245 }
 246
 247 struct passwd *
 248 getpwnam (char *name)
 249 {
 250   struct passwd *pw;
 251
 252   pw = getpwuid (getuid ());
 253   if (!pw)
 254     return pw;
 255
 256   if (strcmp (name, pw->pw_name))
 257     return NULL;
 258
 259   return pw;
 260 }
 261
 262
 263 /* We don't have scripts to automatically determine the system configuration
 264    for Emacs before it's compiled, and we don't want to have to make the
 265    user enter it, so we define EMACS_CONFIGURATION to invoke this runtime
 266    routine.  */
 267
 268 static char configuration_buffer[32];
 269
 270 char *
 271 get_emacs_configuration (void)
 272 {
 273   char *arch, *oem, *os;
 274
 275   /* Determine the processor type.  */
 276   switch (get_processor_type ())
 277     {
 278
 279 #ifdef PROCESSOR_INTEL_386
 280     case PROCESSOR_INTEL_386:
 281     case PROCESSOR_INTEL_486:
 282     case PROCESSOR_INTEL_PENTIUM:
 283       arch = "i386";
 284       break;
 285 #endif
 286
 287 #ifdef PROCESSOR_INTEL_860
 288     case PROCESSOR_INTEL_860:
 289       arch = "i860";
 290       break;
 291 #endif
 292
 293 #ifdef PROCESSOR_MIPS_R2000
 294     case PROCESSOR_MIPS_R2000:
 295     case PROCESSOR_MIPS_R3000:
 296     case PROCESSOR_MIPS_R4000:
 297       arch = "mips";
 298       break;
 299 #endif
 300
 301 #ifdef PROCESSOR_ALPHA_21064
 302     case PROCESSOR_ALPHA_21064:
 303       arch = "alpha";
 304       break;
 305 #endif
 306
 307     default:
 308       arch = "unknown";
 309       break;
 310     }
 311
 312   /* Let oem be "*" until we figure out how to decode the OEM field.  */
 313   oem = "*";
 314
 315 #ifdef WINDOWS95
 316   os = "win";
 317 #else
 318   os = "nt";
 319 #endif
 320
 321   sprintf (configuration_buffer, "%s-%s-%s%d.%d", arch, oem, os,
 322            get_nt_major_version (), get_nt_minor_version ());
 323   return configuration_buffer;
 324 }
 325
 326 /* Conjure up inode and device numbers that will serve the purpose
 327    of Emacs.  Return 1 upon success, 0 upon failure.  */
 328 int
 329 get_inode_and_device_vals (Lisp_Object filename, Lisp_Object *p_inode,
 330                            Lisp_Object *p_device)
 331 {
 332   /* File uids on NT are found using a handle to a file, which
 333      implies that it has been opened.  Since we want to be able
 334      to stat an arbitrary file, we must open it, get the info,
 335      and then close it.
 336
 337      Also, NT file uids are 64-bits.  This is a problem.  */
 338
 339   HANDLE handle;
 340   BOOL result;
 341   DWORD attrs;
 342   BY_HANDLE_FILE_INFORMATION info;
 343
 344   /* We have to stat files and directories differently, so check
 345      to see what filename references.  */
 346   attrs = GetFileAttributes (XSTRING (filename)->data);
 347   if (attrs == 0xFFFFFFFF) {
 348     return 0;
 349   }
 350   if (attrs & FILE_ATTRIBUTE_DIRECTORY) {
 351     /* Conjure up bogus, but unique, values.  */
 352     attrs = GetTickCount ();
 353     *p_inode = make_number (attrs);
 354     *p_device = make_number (attrs);
 355     return 1;
 356   }
 357
 358   /* FIXME:  It shouldn't be opened without READ access, but NT on x86
 359      doesn't allow GetFileInfo in that case (NT on mips does).  */
 360
 361   handle = CreateFile (XSTRING (filename)->data,
 362                        GENERIC_READ,
 363                        FILE_SHARE_READ | FILE_SHARE_WRITE,
 364                        NULL,
 365                        OPEN_EXISTING,
 366                        FILE_ATTRIBUTE_NORMAL,
 367                        NULL);
 368   if (handle == INVALID_HANDLE_VALUE)
 369     return 0;
 370
 371   result = GetFileInformationByHandle (handle, &info);
 372   CloseHandle (handle);
 373   if (!result)
 374     return 0;
 375
 376   *p_inode = make_number (info.nFileIndexLow);          /* use the low value */
 377   *p_device = make_number (info.dwVolumeSerialNumber);
 378
 379   return 1;
 380 }
 381
 382 /* The following pipe routines are used to support our fork emulation.
 383    Since NT's crt dup always creates inherited handles, we
 384    must be careful in setting up pipes.  First create
 385    non-inherited pipe handles, then create an inherited handle
 386    to the write end by dup-ing it, and then close the non-inherited
 387    end that was just duped.  This gives us one non-inherited handle
 388    on the read end and one inherited handle to the write end.  As
 389    the parent, we close the inherited handle to the write end after
 390    spawning the child.  */
 391
 392 /* From callproc.c  */
 393 extern Lisp_Object Vbinary_process_input;
 394 extern Lisp_Object Vbinary_process_output;
 395
 396 void
 397 pipe_with_inherited_out (int fds[2])
 398 {
 399   int inherit_out;
 400   unsigned int flags = _O_NOINHERIT;
 401
 402   if (!NILP (Vbinary_process_output))
 403     flags |= _O_BINARY;
 404
 405   _pipe (fds, 0, flags);
 406   inherit_out = dup (fds[1]);
 407   close (fds[1]);
 408   fds[1] = inherit_out;
 409 }
 410
 411 void
 412 pipe_with_inherited_in (int fds[2])
 413 {
 414   int inherit_in;
 415   unsigned int flags = _O_NOINHERIT;
 416
 417   if (!NILP (Vbinary_process_input))
 418     flags |= _O_BINARY;
 419
 420   _pipe (fds, 0, flags);
 421   inherit_in = dup (fds[0]);
 422   close (fds[0]);
 423   fds[0] = inherit_in;
 424 }
 425
 426 /* The following two routines are used to manipulate stdin, stdout, and
 427    stderr of our child processes.
 428
 429    Assuming that in, out, and err are inherited, we make them stdin,
 430    stdout, and stderr of the child as follows:
 431
 432    - Save the parent's current standard handles.
 433    - Set the parent's standard handles to the handles being passed in.
 434      (Note that _get_osfhandle is an io.h procedure that
 435      maps crt file descriptors to NT file handles.)
 436    - Spawn the child, which inherits in, out, and err as stdin,
 437      stdout, and stderr. (see Spawnve)
 438    - Reset the parent's standard handles to the saved handles.
 439      (see reset_standard_handles)
 440    We assume that the caller closes in, out, and err after calling us.  */
 441
 442 void
 443 prepare_standard_handles (int in, int out, int err, HANDLE handles[4])
 444 {
 445   HANDLE parent, stdin_save, stdout_save, stderr_save, err_handle;
 446
 447 #ifdef WINDOWS95
 448   /* The Win95 beta doesn't set the standard handles correctly.
 449      Handicap subprocesses until we get a version that works correctly.
 450      Undefining the subprocesses macro reveals other incompatibilities,
 451      so, since we're expecting subprocs to work in the near future,
 452      disable them here.  */
 453   report_file_error ("Subprocesses currently disabled on Win95", Qnil);
 454 #endif
 455
 456   parent = GetCurrentProcess ();
 457   stdin_save = GetStdHandle (STD_INPUT_HANDLE);
 458   stdout_save = GetStdHandle (STD_OUTPUT_HANDLE);
 459   stderr_save = GetStdHandle (STD_ERROR_HANDLE);
 460
 461   if (!DuplicateHandle (parent,
 462                        GetStdHandle (STD_INPUT_HANDLE),
 463                        parent,
 464                        &stdin_save,
 465                        0,
 466                        FALSE,
 467                        DUPLICATE_SAME_ACCESS))
 468     report_file_error ("Duplicating parent's input handle", Qnil);
 469
 470   if (!DuplicateHandle (parent,
 471                        GetStdHandle (STD_OUTPUT_HANDLE),
 472                        parent,
 473                        &stdout_save,
 474                        0,
 475                        FALSE,
 476                        DUPLICATE_SAME_ACCESS))
 477     report_file_error ("Duplicating parent's output handle", Qnil);
 478
 479   if (!DuplicateHandle (parent,
 480                        GetStdHandle (STD_ERROR_HANDLE),
 481                        parent,
 482                        &stderr_save,
 483                        0,
 484                        FALSE,
 485                        DUPLICATE_SAME_ACCESS))
 486     report_file_error ("Duplicating parent's error handle", Qnil);
 487
 488   if (!SetStdHandle (STD_INPUT_HANDLE, (HANDLE) _get_osfhandle (in)))
 489     report_file_error ("Changing stdin handle", Qnil);
 490
 491   if (!SetStdHandle (STD_OUTPUT_HANDLE, (HANDLE) _get_osfhandle (out)))
 492     report_file_error ("Changing stdout handle", Qnil);
 493
 494   /* We lose data if we use the same handle to the pipe for stdout and
 495      stderr, so make a duplicate.  This took a while to find.  */
 496   if (out == err)
 497     {
 498       if (!DuplicateHandle (parent,
 499                            (HANDLE) _get_osfhandle (err),
 500                            parent,
 501                            &err_handle,
 502                            0,
 503                            TRUE,
 504                            DUPLICATE_SAME_ACCESS))
 505         report_file_error ("Duplicating out handle to make err handle.",
 506                           Qnil);
 507     }
 508   else
 509     {
 510       err_handle = (HANDLE) _get_osfhandle (err);
 511     }
 512
 513   if (!SetStdHandle (STD_ERROR_HANDLE, err_handle))
 514     report_file_error ("Changing stderr handle", Qnil);
 515
 516   handles[0] = stdin_save;
 517   handles[1] = stdout_save;
 518   handles[2] = stderr_save;
 519   handles[3] = err_handle;
 520 }
 521
 522 void
 523 reset_standard_handles (int in, int out, int err, HANDLE handles[4])
 524 {
 525   HANDLE stdin_save = handles[0];
 526   HANDLE stdout_save = handles[1];
 527   HANDLE stderr_save = handles[2];
 528   HANDLE err_handle = handles[3];
 529   int i;
 530
 531   if (!SetStdHandle (STD_INPUT_HANDLE, stdin_save))
 532     report_file_error ("Resetting input handle", Qnil);
 533
 534   if (!SetStdHandle (STD_OUTPUT_HANDLE, stdout_save))
 535     {
 536       i = GetLastError ();
 537       report_file_error ("Resetting output handle", Qnil);
 538     }
 539
 540   if (!SetStdHandle (STD_ERROR_HANDLE, stderr_save))
 541     report_file_error ("Resetting error handle", Qnil);
 542
 543   if (out == err)
 544     {
 545       /* If out and err are the same handle, then we duplicated out
 546          and stuck it in err_handle.  Close the duplicate to clean up.  */
 547       if (!CloseHandle (err_handle))
 548         report_file_error ("Closing error handle duplicated from out.",
 549                           Qnil);
 550     }
 551 }
 552
 553 int
 554 random ()
 555 {
 556   /* rand () on NT gives us 15 random bits...hack together 30 bits.  */
 557   return ((rand () << 15) | rand ());
 558 }
 559
 560 void
 561 srandom (int seed)
 562 {
 563   srand (seed);
 564 }
 565
 566 /* Destructively turn backslashes into slashes.  */
 567 void
 568 dostounix_filename (p)
 569      register char *p;
 570 {
 571   while (*p)
 572     {
 573       if (*p == '\\')
 574         *p = '/';
 575       p++;
 576     }
 577 }
 578
 579 /* Routines that are no-ops on NT but are defined to get Emacs to compile.  */
 580
 581
 582 int
 583 sigsetmask (int signal_mask)
 584 {
 585   return 0;
 586 }
 587
 588 int
 589 sigblock (int sig)
 590 {
 591   return 0;
 592 }
 593
 594 int
 595 kill (int pid, int signal)
 596 {
 597   return 0;
 598 }
 599
 600 int
 601 setpgrp (int pid, int gid)
 602 {
 603   return 0;
 604 }
 605
 606 int
 607 alarm (int seconds)
 608 {
 609   return 0;
 610 }
 611
 612 int
 613 unrequest_sigio (void)
 614 {
 615   return 0;
 616 }
 617
 618 int
 619 request_sigio (void)
 620 {
 621   return 0;
 622 }
 623
 624 int
 625 getuid ()
 626 {
 627   return 0;
 628 }
 629
 630 int
 631 geteuid ()
 632 {
 633   return 0;
 634 }
 635
 636 /* Remove all CR's that are followed by a LF.
 637    (From msdos.c...probably should figure out a way to share it,
 638    although this code isn't going to ever change.)  */
 639 int
 640 crlf_to_lf (n, buf)
 641      register int n;
 642      register unsigned char *buf;
 643 {
 644   unsigned char *np = buf;
 645   unsigned char *startp = buf;
 646   unsigned char *endp = buf + n;
 647
 648   if (n == 0)
 649     return n;
 650   while (buf < endp - 1)
 651     {
 652       if (*buf == 0x0d)
 653         {
 654           if (*(++buf) != 0x0a)
 655             *np++ = 0x0d;
 656         }
 657       else
 658         *np++ = *buf++;
 659     }
 660   if (buf < endp)
 661     *np++ = *buf++;
 662   return np - startp;
 663 }
 664
 665 #ifdef HAVE_TIMEVAL
 666 #include <sys/timeb.h>
 667
 668 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95).  */
 669 void
 670 gettimeofday (struct timeval *tv, struct timezone *tz)
 671 {
 672   struct _timeb tb;
 673   _ftime (&tb);
 674
 675   tv->tv_sec = tb.time;
 676   tv->tv_usec = tb.millitm * 1000L;
 677   if (tz)
 678     {
 679       tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich  */
 680       tz->tz_dsttime = tb.dstflag;      /* type of dst correction  */
 681     }
 682 }
 683 #endif /* HAVE_TIMEVAL */
 684
 685
 686 #ifdef PIGSFLY
 687 Keep this around...we might need it later.
 688 #ifdef WINDOWSNT
 689 {
 690   /*
 691    * Find the user's real name by opening the process token and looking
 692    * up the name associated with the user-sid in that token.
 693    */
 694
 695   char            b[256], Name[256], RefD[256];
 696   DWORD           length = 256, rlength = 256, trash;
 697   HANDLE          Token;
 698   SID_NAME_USE    User;
 699
 700   if (1)
 701     Vuser_real_login_name = build_string ("foo");
 702   else if (!OpenProcessToken (GetCurrentProcess (), TOKEN_QUERY, &Token))
 703     {
 704       Vuser_real_login_name = build_string ("unknown");
 705     }
 706   else if (!GetTokenInformation (Token, TokenUser, (PVOID)b, 256,
 707                                  &trash))
 708     {
 709       CloseHandle (Token);
 710       Vuser_real_login_name = build_string ("unknown");
 711     }
 712   else if (!LookupAccountSid ((void *)0, (PSID)b, Name, &length, RefD,
 713                               &rlength, &User))
 714     {
 715       CloseHandle (Token);
 716       Vuser_real_login_name = build_string ("unknown");
 717     }
 718   else
 719     Vuser_real_login_name = build_string (Name);
 720 }
 721 #else   /* not WINDOWSNT */
 722 #endif  /* not WINDOWSNT */
 723 #endif  /* PIGSFLY */