6de15c0af9d6e262312a7714d775d98a40b978f6
[dragonfly.git] / usr.bin / window / context.c
1 /*      $NetBSD: context.c,v 1.7 2003/08/07 11:17:24 agc Exp $  */
2
3 /*
4  * Copyright (c) 1983, 1993
5  *      The Regents of the University of California.  All rights reserved.
6  *
7  * This code is derived from software contributed to Berkeley by
8  * Edward Wang at The University of California, Berkeley.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in the
17  *    documentation and/or other materials provided with the distribution.
18  * 3. Neither the name of the University nor the names of its contributors
19  *    may be used to endorse or promote products derived from this software
20  *    without specific prior written permission.
21  *
22  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32  * SUCH DAMAGE.
33  */
34
35 #include <sys/cdefs.h>
36 #ifndef lint
37 #if 0
38 static char sccsid[] = "@(#)context.c   8.1 (Berkeley) 6/6/93";
39 #else
40 __RCSID("$NetBSD: context.c,v 1.7 2003/08/07 11:17:24 agc Exp $");
41 #endif
42 #endif /* not lint */
43
44 #include <fcntl.h>
45 #include <stdlib.h>
46 #include "defs.h"
47 #include "window_string.h"
48 #undef EXTERN
49 #define EXTERN
50 #include "context.h"
51 #undef  EXTERN
52
53 /*
54  * Context push/pop for nested command files.
55  */
56 int     cx_alloc(void);
57 void    cx_free(void);
58
59 int
60 cx_alloc(void)
61 {
62         struct context *xp;
63
64         if (cx.x_type != 0) {
65                 xp = (struct context *)
66                         malloc((unsigned) sizeof (struct context));
67                 if (xp == 0)
68                         return -1;
69                 *xp = cx;
70                 cx.x_link = xp;
71                 cx.x_type = 0;
72         }
73         cx.x_erred = 0;
74         cx.x_synerred = 0;
75         cx.x_abort = 0;
76         return 0;
77 }
78
79 void
80 cx_free(void)
81 {
82         struct context *xp;
83
84         if ((xp = cx.x_link) != 0) {
85                 cx = *xp;
86                 free((char *)xp);
87         } else
88                 cx.x_type = 0;
89 }
90
91 int
92 cx_beginfile(char *filename)
93 {
94         if (cx_alloc() < 0)
95                 return -1;
96         cx.x_type = X_FILE;
97         if ((cx.x_filename = str_cpy(filename)) == 0)
98                 goto bad;
99         cx.x_fp = fopen(filename, "r");
100         if (cx.x_fp == 0)
101                 goto bad;
102         (void) fcntl(fileno(cx.x_fp), F_SETFD, 1);
103         cx.x_bol = 1;
104         cx.x_lineno = 0;
105         cx.x_errwin = 0;
106         cx.x_noerr = 0;
107         return 0;
108 bad:
109         if (cx.x_filename != 0)
110                 str_free(cx.x_filename);
111         cx_free();
112         return -1;
113 }
114
115 int
116 cx_beginbuf(char *buf, struct value *arg, int narg)
117 {
118         if (cx_alloc() < 0)
119                 return -1;
120         cx.x_type = X_BUF;
121         cx.x_bufp = cx.x_buf = buf;
122         cx.x_arg = arg;
123         cx.x_narg = narg;
124         return 0;
125 }
126
127 void
128 cx_end(void)
129 {
130         switch (cx.x_type) {
131         case X_BUF:
132                 break;
133         case X_FILE:
134                 (void) fclose(cx.x_fp);
135                 str_free(cx.x_filename);
136                 break;
137         }
138         cx_free();
139 }