home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / gnu / emacs / bug / 1494 < prev    next >
Encoding:
Text File  |  1992-11-17  |  8.2 KB  |  281 lines
  1. Newsgroups: gnu.emacs.bug
  2. Path: sparky!uunet!usc!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!klinzhai.rutgers.edu!root
  3. From: root@klinzhai.rutgers.edu
  4. Subject: Solaris 2.0 port for Gnu emacs
  5. Message-ID: <9211172150.AA26996@klinzhai.rutgers.edu>
  6. Sender: gnulists@ai.mit.edu
  7. Organization: GNUs Not Usenet
  8. Distribution: gnu
  9. Date: Tue, 17 Nov 1992 21:50:30 GMT
  10. Approved: bug-gnu-emacs@prep.ai.mit.edu
  11. Lines: 268
  12.  
  13. The following new s- file and diffs allow Emacs to run under Sun's
  14. Solaris 2.0.  There are two possible issues:
  15.  
  16.   - note that fileio.c also includes changes to add two new Rutgers functions
  17.     and one Rutgers bug fix.  The new functions are used by our Lisp
  18.     code, which tries to make sure that new versions of files have
  19.     the same attributes as the original.  In particular, when root
  20.     edits a file, we want the original ownership to be preserved.
  21.  
  22.   - in fileio.c, we need config.h to be read before dir.h or dirent.h
  23.     so that we can select which.  Unfortunately I have no way to
  24.     know whether this is going to create side effects for other
  25.     ports.
  26.  
  27. The rest of this message is s-solaris2-0.h and then diffs for other files
  28.  
  29. ------------------------------------------------------------------------------
  30.  
  31. /* GNU Emacs site configuration template file.
  32.    Copyright (C) 1988 Free Software Foundation, Inc.
  33.  
  34. This file is part of GNU Emacs.
  35.  
  36. GNU Emacs is free software; you can redistribute it and/or modify
  37. it under the terms of the GNU General Public License as published by
  38. the Free Software Foundation; either version 1, or (at your option)
  39. any later version.
  40.  
  41. GNU Emacs is distributed in the hope that it will be useful,
  42. but WITHOUT ANY WARRANTY; without even the implied warranty of
  43. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  44. GNU General Public License for more details.
  45.  
  46. You should have received a copy of the GNU General Public License
  47. along with GNU Emacs; see the file COPYING.  If not, write to
  48. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  49.  
  50. /* Sun Solaris 2.0, using Cygnus gcc */
  51.  
  52. #include "s-usg5-4.h"
  53.  
  54. /*
  55.  * the following are probably due to using Cygnus gcc.  Note that I've
  56.  * put in symlinks to crti and crtn from /opt/cygnus/lib.  In fact
  57.  * they actually occur in a deeply nested release-specific directory.
  58.  * it's not safe to put the Cygnus .o files into the normal Sun
  59.  * locations, because we'd like gcc and Sun's compiler to coexist.
  60.  * Possibly this should be under a conditional such as __GCC__, though
  61.  * this is more Cygnus-specific than GCC-specific.
  62.  */
  63.  
  64. #undef START_FILES
  65. #define START_FILES pre-crt0.o /opt/cygnus/lib/crt1.o /opt/cygnus/lib/crti.o /usr/ccs/lib/values-Xt.o
  66. #undef LIB_STANDARD
  67. #define LIB_STANDARD -lsocket -lnsl -lelf -lc /usr/ucblib/libucb.a /opt/cygnus/lib/crtn.o
  68. #define LIB_GCC 
  69.  
  70. /* the following are probably appropriate even using Sun's compiler */
  71.  
  72. #define NEED_DIRENT
  73. #define USE_SYSCONF
  74. #define LIBS_TERMCAP /usr/ccs/lib/libtermcap.a
  75.  
  76. ------------------------------------------------------------------------------
  77.  
  78. *** m-sparc.h.ORIG    Tue Jan  8 17:55:40 1991
  79. --- m-sparc.h    Tue Nov 17 20:56:24 1992
  80. ***************
  81. *** 83,90 ****
  82. --- 83,96 ----
  83.   #include <alloca.h>
  84.   
  85.   /* Must use the system's termcap.  It does special things.  */
  86. + /*
  87. +  * With Solaris, it's in a different place.  This probably belongs in 
  88. +  * the s- file, but for now, leave it here but let s-solaris define it
  89. +  */
  90.   
  91. + #ifndef LIBS_TERMCAP
  92.   #define LIBS_TERMCAP -ltermcap
  93. + #endif
  94.   
  95.   /* Mask for address bits within a memory segment */
  96.   
  97. *** fileio.c.ORIG    Sun Feb 16 20:56:17 1992
  98. --- fileio.c    Tue Nov 17 20:47:21 1992
  99. ***************
  100. *** 34,39 ****
  101. --- 34,41 ----
  102.   
  103.   #include <ctype.h>
  104.   
  105. + #include "config.h"
  106. + 
  107.   #ifdef VMS
  108.   #include "dir.h"
  109.   #include <perror.h>
  110. ***************
  111. *** 40,47 ****
  112. --- 42,53 ----
  113.   #include <stddef.h>
  114.   #include <string.h>
  115.   #else
  116. + #ifdef NEED_DIRENT
  117. + #include <dirent.h>
  118. + #else
  119.   #include <sys/dir.h>
  120.   #endif
  121. + #endif
  122.   #include <errno.h>
  123.   
  124.   #ifndef vax11c
  125. ***************
  126. *** 59,65 ****
  127.   #ifdef NULL
  128.   #undef NULL
  129.   #endif
  130. - #include "config.h"
  131.   #include "lisp.h"
  132.   #include "buffer.h"
  133.   #include "window.h"
  134. --- 65,70 ----
  135. ***************
  136. *** 1563,1568 ****
  137. --- 1568,1622 ----
  138.     return (mtime1 > st.st_mtime) ? Qt : Qnil;
  139.   }
  140.   
  141. + DEFUN ("file-owner", Ffile_owner, Sfile_owner, 1, 1, 0,
  142. +   "Return ownership of FILE, as a vector (uid,gid).")
  143. +   (filename)
  144. +      Lisp_Object filename;
  145. + {
  146. +   Lisp_Object abspath,owner[2];
  147. +   struct stat st;
  148. + 
  149. +   abspath = Fexpand_file_name (filename, current_buffer->directory);
  150. + 
  151. +   /* Remove final slash, if any.
  152. +      stat behaves differently depending!  */
  153. +   if (XSTRING (abspath)->data[XSTRING (abspath)->size - 1] == '/')
  154. +     {
  155. +       if (EQ (abspath, filename))
  156. +     abspath = Fcopy_sequence (abspath);
  157. +       XSTRING (abspath)->data[XSTRING (abspath)->size - 1] = 0;
  158. +     }
  159. + 
  160. +   if (stat (XSTRING (abspath)->data, &st) < 0)
  161. +     return Qnil;
  162. + 
  163. +   XFASTINT (owner[0]) = st.st_uid;
  164. +   XFASTINT (owner[1]) = st.st_gid;
  165. + 
  166. +   return Flist(2,owner);
  167. + }
  168. + 
  169. + DEFUN ("set-file-owner", Fset_file_owner, Sset_file_owner, 2, 2, 0,
  170. +   "Set ownership of FILE, as the vector (uid,gid).")
  171. +   (filename,owner)
  172. +      Lisp_Object filename,*owner;
  173. + {
  174. +    unsigned char *fn;
  175. + 
  176. +    if(Flength(owner) != 2)
  177. +      return Qnil;
  178. + 
  179. +    filename = Fexpand_file_name (filename, current_buffer->directory);
  180. +    fn = XSTRING (filename)->data;
  181. + 
  182. +    if(-1 == chown(fn, XFASTINT (Fcar (owner)),
  183. +           XFASTINT (Fcar (Fcdr (owner)))))
  184. +      return Qnil;
  185. +    else
  186. +      return Qt;
  187. + }
  188. + 
  189. + 
  190.   close_file_unwind (fd)
  191.        Lisp_Object fd;
  192.   {
  193. ***************
  194. *** 2052,2057 ****
  195. --- 2106,2112 ----
  196.     Lisp_Object tail, buf;
  197.     int auto_saved = 0;
  198.     int tried = 0;
  199. +   int modes;   /* RU: save file modes; see below */
  200.     char *omessage = echo_area_contents;
  201.     /* No GCPRO needed, because (when it matters) all Lisp_Object variables
  202.        point to non-strings reached from Vbuffer_alist.  */
  203. ***************
  204. *** 2093,2098 ****
  205. --- 2148,2161 ----
  206.         if (!auto_saved && NULL (nomsg))
  207.           message1 ("Auto-saving...");
  208.         internal_condition_case (auto_save_1, Qt, auto_save_error);
  209. +           /* RU: make sure the auto-save file has same protections as file */
  210. +       if (EQ (b->filename, Qnil))
  211. +         Fset_file_modes (current_buffer->auto_save_file_name, 384); /* 600 */
  212. +       else {
  213. +         modes = Ffile_modes (current_buffer->filename);
  214. +         if (!EQ (modes, Qnil))
  215. +           Fset_file_modes (current_buffer->auto_save_file_name, modes);
  216. +       }
  217.         auto_saved++;
  218.         b->auto_save_modified = BUF_MODIFF (b);
  219.         XFASTINT (current_buffer->save_length) = Z - BEG;
  220. ***************
  221. *** 2325,2330 ****
  222. --- 2388,2395 ----
  223.     defsubr (&Sfile_directory_p);
  224.     defsubr (&Sfile_modes);
  225.     defsubr (&Sset_file_modes);
  226. +   defsubr (&Sfile_owner);
  227. +   defsubr (&Sset_file_owner);
  228.     defsubr (&Sfile_newer_than_file_p);
  229.     defsubr (&Sinsert_file_contents);
  230.     defsubr (&Swrite_region);
  231. *** getpagesize.h.ORIG    Sun Mar 31 23:12:22 1991
  232. --- getpagesize.h    Tue Nov 17 20:32:29 1992
  233. ***************
  234. *** 12,17 ****
  235. --- 12,20 ----
  236.   #include <sys/param.h>
  237.   #endif
  238.   
  239. + #ifdef USE_SYSCONF
  240. + #define getpagesize() sysconf(_SC_PAGESIZE)
  241. + #else
  242.   #ifdef EXEC_PAGESIZE
  243.   #define getpagesize() EXEC_PAGESIZE
  244.   #else
  245. ***************
  246. *** 24,29 ****
  247.   #define getpagesize() NBPC
  248.   #endif /* no NBPG */
  249.   #endif /* no EXEC_PAGESIZE */
  250.   
  251.   #endif /* not HAVE_GETPAGESIZE */
  252. - 
  253. --- 27,32 ----
  254.   #define getpagesize() NBPC
  255.   #endif /* no NBPG */
  256.   #endif /* no EXEC_PAGESIZE */
  257. + #endif /* no USE_SYSCONF */
  258.   
  259.   #endif /* not HAVE_GETPAGESIZE */
  260. *** process.c.ORIG    Tue Feb 18 19:00:53 1992
  261. --- process.c    Tue Nov 17 20:39:40 1992
  262. ***************
  263. *** 1747,1753 ****
  264.         else
  265.           error("select error: %s", sys_errlist[xerrno]);
  266.       }
  267. ! #if defined (sun) || defined (APOLLO)
  268.         else if (nfds > 0 && FD_ISSET (0, &Available) && interrupt_input)
  269.       /* System sometimes fails to deliver SIGIO.  */
  270.       kill (getpid (), SIGIO);
  271. --- 1747,1754 ----
  272.         else
  273.           error("select error: %s", sys_errlist[xerrno]);
  274.       }
  275. ! /* following sun conditional should be used only for SunOS, not Solaris */
  276. ! #if defined (sun) && defined (BSD) || defined (APOLLO)
  277.         else if (nfds > 0 && FD_ISSET (0, &Available) && interrupt_input)
  278.       /* System sometimes fails to deliver SIGIO.  */
  279.       kill (getpid (), SIGIO);
  280.  
  281.