home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / EDITOR / NVI179B / NVI179B.ZIP / ex / ex_mkexrc.c < prev    next >
C/C++ Source or Header  |  1996-04-27  |  2KB  |  102 lines
  1. /*-
  2.  * Copyright (c) 1992, 1993, 1994
  3.  *    The Regents of the University of California.  All rights reserved.
  4.  * Copyright (c) 1992, 1993, 1994, 1995, 1996
  5.  *    Keith Bostic.  All rights reserved.
  6.  *
  7.  * See the LICENSE file for redistribution information.
  8.  */
  9.  
  10. #include "config.h"
  11.  
  12. #ifndef lint
  13. static const char sccsid[] = "@(#)ex_mkexrc.c    10.11 (Berkeley) 3/6/96";
  14. #endif /* not lint */
  15.  
  16. #include <sys/types.h>
  17. #include <sys/queue.h>
  18. #include <sys/stat.h>
  19.  
  20. #include <bitstring.h>
  21. #include <errno.h>
  22. #include <fcntl.h>
  23. #include <limits.h>
  24. #include <stdio.h>
  25. #include <stdlib.h>
  26. #include <string.h>
  27. #include <unistd.h>
  28.  
  29. #include "../common/common.h"
  30. #include "pathnames.h"
  31.  
  32. /*
  33.  * ex_mkexrc -- :mkexrc[!] [file]
  34.  *
  35.  * Create (or overwrite) a .exrc file with the current info.
  36.  *
  37.  * PUBLIC: int ex_mkexrc __P((SCR *, EXCMD *));
  38.  */
  39. int
  40. ex_mkexrc(sp, cmdp)
  41.     SCR *sp;
  42.     EXCMD *cmdp;
  43. {
  44.     struct stat sb;
  45.     FILE *fp;
  46.     int fd, sverrno;
  47.     char *fname;
  48.  
  49.     switch (cmdp->argc) {
  50.     case 0:
  51.         fname = _PATH_EXRC;
  52.         break;
  53.     case 1:
  54.         fname = cmdp->argv[0]->bp;
  55.         set_alt_name(sp, fname);
  56.         break;
  57.     default:
  58.         abort();
  59.     }
  60.  
  61.     if (!FL_ISSET(cmdp->iflags, E_C_FORCE) && !stat(fname, &sb)) {
  62.         msgq_str(sp, M_ERR, fname,
  63.             "137|%s exists, not written; use ! to override");
  64.         return (1);
  65.     }
  66.  
  67.     /* Create with max permissions of rw-r--r--. */
  68.     if ((fd = open(fname, O_CREAT | O_TRUNC | O_WRONLY,
  69.         S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH)) < 0) {
  70.         msgq_str(sp, M_SYSERR, fname, "%s");
  71.         return (1);
  72.     }
  73.  
  74.     if ((fp = fdopen(fd, "w")) == NULL) {
  75.         sverrno = errno;
  76.         (void)close(fd);
  77.         goto e2;
  78.     }
  79.  
  80.     if (seq_save(sp, fp, "abbreviate ", SEQ_ABBREV) || ferror(fp))
  81.         goto e1;
  82.     if (seq_save(sp, fp, "map ", SEQ_COMMAND) || ferror(fp))
  83.         goto e1;
  84.     if (seq_save(sp, fp, "map! ", SEQ_INPUT) || ferror(fp))
  85.         goto e1;
  86.     if (opts_save(sp, fp) || ferror(fp))
  87.         goto e1;
  88.     if (fclose(fp)) {
  89.         sverrno = errno;
  90.         goto e2;
  91.     }
  92.  
  93.     msgq_str(sp, M_INFO, fname, "138|New exrc file: %s");
  94.     return (0);
  95.  
  96. e1:    sverrno = errno;
  97.     (void)fclose(fp);
  98. e2:    errno = sverrno;
  99.     msgq_str(sp, M_SYSERR, fname, "%s");
  100.     return (1);
  101. }
  102.