ex_file.c revision 1.2
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 13static const char sccsid[] = "@(#)ex_file.c 10.11 (Berkeley) 5/2/96"; 14#endif /* not lint */ 15 16#include <sys/types.h> 17#include <sys/queue.h> 18 19#include <bitstring.h> 20#include <errno.h> 21#include <limits.h> 22#include <stdio.h> 23#include <stdlib.h> 24#include <string.h> 25 26#include "../common/common.h" 27 28/* 29 * ex_file -- :f[ile] [name] 30 * Change the file's name and display the status line. 31 * 32 * PUBLIC: int ex_file __P((SCR *, EXCMD *)); 33 */ 34int 35ex_file(sp, cmdp) 36 SCR *sp; 37 EXCMD *cmdp; 38{ 39 CHAR_T *p; 40 FREF *frp; 41 42 NEEDFILE(sp, cmdp); 43 44 switch (cmdp->argc) { 45 case 0: 46 break; 47 case 1: 48 frp = sp->frp; 49 50 /* Make sure can allocate enough space. */ 51 if ((p = v_strdup(sp, 52 cmdp->argv[0]->bp, cmdp->argv[0]->len)) == NULL) 53 return (1); 54 55 /* If already have a file name, it becomes the alternate. */ 56 if (!F_ISSET(frp, FR_TMPFILE)) 57 set_alt_name(sp, frp->name); 58 59 /* Free the previous name. */ 60 free(frp->name); 61 frp->name = p; 62 63 /* 64 * The file has a real name, it's no longer a temporary, 65 * clear the temporary file flags. 66 */ 67 F_CLR(frp, FR_TMPEXIT | FR_TMPFILE); 68 69 /* Have to force a write if the file exists, next time. */ 70 F_SET(frp, FR_NAMECHANGE); 71 72 /* Notify the screen. */ 73 (void)sp->gp->scr_rename(sp); 74 break; 75 default: 76 abort(); 77 } 78 msgq_status(sp, sp->lno, MSTAT_SHOWLAST); 79 return (0); 80} 81