AM_INIT_AUTOMAKE seems to include AC_ARG_PROGRAM; remove explicit call
[nvi.git] / ex / ex_file.c
blobc9707308a065b77cbb5fb4916fa3a31d25102643
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.
7 * See the LICENSE file for redistribution information.
8 */
10 #include "config.h"
12 #ifndef lint
13 static const char sccsid[] = "$Id: ex_file.c,v 10.13 2000/07/14 14:29:20 skimo Exp $ (Berkeley) $Date: 2000/07/14 14:29:20 $";
14 #endif /* not lint */
16 #include <sys/types.h>
17 #include <sys/queue.h>
19 #include <bitstring.h>
20 #include <errno.h>
21 #include <limits.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
26 #include "../common/common.h"
29 * ex_file -- :f[ile] [name]
30 * Change the file's name and display the status line.
32 * PUBLIC: int ex_file __P((SCR *, EXCMD *));
34 int
35 ex_file(sp, cmdp)
36 SCR *sp;
37 EXCMD *cmdp;
39 char *p;
40 FREF *frp;
41 char *np;
42 size_t nlen;
44 NEEDFILE(sp, cmdp);
46 switch (cmdp->argc) {
47 case 0:
48 break;
49 case 1:
50 frp = sp->frp;
52 /* Make sure can allocate enough space. */
53 INT2CHAR(sp, cmdp->argv[0]->bp, cmdp->argv[0]->len + 1,
54 np, nlen);
55 if ((p = v_strdup(sp, np, nlen - 1)) == NULL)
56 return (1);
58 /* If already have a file name, it becomes the alternate. */
59 if (!F_ISSET(frp, FR_TMPFILE))
60 set_alt_name(sp, frp->name);
62 /* Free the previous name. */
63 free(frp->name);
64 frp->name = p;
67 * The file has a real name, it's no longer a temporary,
68 * clear the temporary file flags.
70 F_CLR(frp, FR_TMPEXIT | FR_TMPFILE);
72 /* Have to force a write if the file exists, next time. */
73 F_SET(frp, FR_NAMECHANGE);
75 /* Notify the screen. */
76 (void)sp->gp->scr_rename(sp, sp->frp->name, 1);
77 break;
78 default:
79 abort();
81 msgq_status(sp, sp->lno, MSTAT_SHOWLAST);
82 return (0);