1/* histfile.c - functions to manipulate the history file. */
2
3/* Copyright (C) 1989, 1992 Free Software Foundation, Inc.
4
5 This file contains the GNU History Library (the Library), a set of
6 routines for managing the text of previously typed lines.
7
8 The Library is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 1, or (at your option)
11 any later version.
12
13 The Library is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 General Public License for more details.
17
18 The GNU General Public License is often shipped with GNU software, and
19 is generally kept in a file called COPYING or LICENSE. If you do not
20 have a copy of the license, write to the Free Software Foundation,
21 675 Mass Ave, Cambridge, MA 02139, USA. */
22
23/* The goal is to make the implementation transparent, so that you
24 don't have to know what data types are used, just what functions
25 you can call. I think I have done that. */
26#define READLINE_LIBRARY
27
28#if defined (HAVE_CONFIG_H)
29# include <config.h>
30#endif
31
32#include <stdio.h>
33
34#include <sys/types.h>
35#ifndef _MINIX
36# include <sys/file.h>
37#endif
38#include <sys/stat.h>
39#include <fcntl.h>
40
41#if defined (HAVE_STDLIB_H)
42# include <stdlib.h>
43#else
44# include "ansi_stdlib.h"
45#endif /* HAVE_STDLIB_H */
46
47#if defined (HAVE_UNISTD_H)
48# include <unistd.h>
49#endif
50
51#if defined (HAVE_STRING_H)
52# include <string.h>
53#else
54# include <strings.h>
55#endif /* !HAVE_STRING_H */
56
57#if defined (__EMX__)
58# ifndef O_BINARY
59# define O_BINARY 0
60# endif
61#else /* !__EMX__ */
62 /* If we're not compiling for __EMX__, we don't want this at all. Ever. */
63# undef O_BINARY
64# define O_BINARY 0
65#endif /* !__EMX__ */
66
67#include <errno.h>
68#if !defined (errno)
69extern int errno;
70#endif /* !errno */
71
72#include "history.h"
73#include "histlib.h"
74
75/* Functions imported from shell.c */
76extern char *get_env_value ();
77
78extern char *xmalloc (), *xrealloc ();
79
80/* Return the string that should be used in the place of this
81 filename. This only matters when you don't specify the
82 filename to read_history (), or write_history (). */
83static char *
84history_filename (filename)
85 char *filename;
86{
87 char *return_val, *home;

--- 12 unchanged lines hidden (view full) ---

100 home_len = 1;
101 }
102 else
103 home_len = strlen (home);
104
105 return_val = xmalloc (2 + home_len + 8); /* strlen(".history") == 8 */
106 strcpy (return_val, home);
107 return_val[home_len] = '/';
108 strcpy (return_val + home_len + 1, ".history");
109
110 return (return_val);
111}
112
113/* Add the contents of FILENAME to the history list, a line at a time.
114 If FILENAME is NULL, then read from ~/.history. Returns 0 if
115 successful, or errno if not. */
116int

--- 10 unchanged lines hidden (view full) ---

127 ~/.history. Returns 0 if successful, or errno if not. */
128int
129read_history_range (filename, from, to)
130 char *filename;
131 int from, to;
132{
133 register int line_start, line_end;
134 char *input, *buffer;
135 int file, current_line;
136 struct stat finfo;
137 size_t file_size;
138
139 buffer = (char *)NULL;
140 input = history_filename (filename);
141 file = open (input, O_RDONLY|O_BINARY, 0666);
142
143 if ((file < 0) || (fstat (file, &finfo) == -1))

--- 6 unchanged lines hidden (view full) ---

150 {
151#if defined (EFBIG)
152 errno = EFBIG;
153#endif
154 goto error_and_exit;
155 }
156
157 buffer = xmalloc (file_size + 1);
158#if 0
159 if (read (file, buffer, file_size) != file_size)
160#else
161 if (read (file, buffer, file_size) < 0)
162#endif
163 {
164 error_and_exit:
165 if (file >= 0)
166 close (file);
167
168 FREE (input);
169 FREE (buffer);
170
171 return (errno);
172 }
173
174 close (file);
175
176 /* Set TO to larger than end of file if negative. */
177 if (to < 0)
178 to = file_size;
179
180 /* Start at beginning of file, work to end. */
181 line_start = line_end = current_line = 0;
182
183 /* Skip lines until we are at FROM. */
184 while (line_start < file_size && current_line < from)
185 {
186 for (line_end = line_start; line_end < file_size; line_end++)
187 if (buffer[line_end] == '\n')
188 {
189 current_line++;
190 line_start = line_end + 1;
191 if (current_line == from)
192 break;
193 }
194 }
195
196 /* If there are lines left to gobble, then gobble them now. */
197 for (line_end = line_start; line_end < file_size; line_end++)
198 if (buffer[line_end] == '\n')
199 {
200 buffer[line_end] = '\0';
201
202 if (buffer[line_start])
203 add_history (buffer + line_start);
204
205 current_line++;

--- 25 unchanged lines hidden (view full) ---

231
232 buffer = (char *)NULL;
233 filename = history_filename (fname);
234 file = open (filename, O_RDONLY|O_BINARY, 0666);
235
236 if (file == -1 || fstat (file, &finfo) == -1)
237 goto truncate_exit;
238
239 file_size = (size_t)finfo.st_size;
240
241 /* check for overflow on very large files */
242 if (file_size != finfo.st_size || file_size + 1 < file_size)
243 {
244 close (file);
245#if defined (EFBIG)
246 errno = EFBIG;

--- 27 unchanged lines hidden (view full) ---

274 i++;
275 break;
276 }
277
278 /* Write only if there are more lines in the file than we want to
279 truncate to. */
280 if (i && ((file = open (filename, O_WRONLY|O_TRUNC|O_BINARY, 0600)) != -1))
281 {
282 write (file, buffer + i, file_size - i);
283
284#if defined (__BEOS__)
285 /* BeOS ignores O_TRUNC. */
286 ftruncate (file, file_size - i);
287#endif
288
289 close (file);
290 }
291
292 truncate_exit:
293
294 FREE (buffer);

--- 82 unchanged lines hidden ---