* Copyright (c) 1992, 1993, 1994
* The Regents of the University of California. All rights reserved.
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
static char sccsid
[] = "@(#)ex_mkexrc.c 8.10 (Berkeley) 3/22/94";
* ex_mkexrc -- :mkexrc[!] [file]
* Create (or overwrite) a .exrc file with the current info.
fname
= cmdp
->argv
[0]->bp
;
if (!F_ISSET(cmdp
, E_FORCE
) && !stat(fname
, &sb
)) {
"%s exists, not written; use ! to override.", fname
);
/* Create with max permissions of rw-r--r--. */
if ((fd
= open(fname
, O_CREAT
| O_TRUNC
| O_WRONLY
,
S_IRUSR
| S_IWUSR
| S_IRGRP
| S_IROTH
)) < 0) {
msgq(sp
, M_SYSERR
, fname
);
if ((fp
= fdopen(fd
, "w")) == NULL
) {
if (abbr_save(sp
, fp
) || ferror(fp
))
if (map_save(sp
, fp
) || ferror(fp
))
if (opts_save(sp
, fp
) || ferror(fp
))
msgq(sp
, M_INFO
, "New .exrc file: %s. ", fname
);
e2
: msgq(sp
, M_ERR
, "%s: incomplete: %s", fname
, strerror(errno
));