annotate miscellany/less-177/input.c @ 0:bce86c4163a3

Initial revision
author kono
date Mon, 18 Apr 2005 23:46:02 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
1 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
2 * High level routines dealing with getting lines of input
bce86c4163a3 Initial revision
kono
parents:
diff changeset
3 * from the file being viewed.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
4 *
bce86c4163a3 Initial revision
kono
parents:
diff changeset
5 * When we speak of "lines" here, we mean PRINTABLE lines;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
6 * lines processed with respect to the screen width.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
7 * We use the term "raw line" to refer to lines simply
bce86c4163a3 Initial revision
kono
parents:
diff changeset
8 * delimited by newlines; not processed with respect to screen width.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
9 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
10
bce86c4163a3 Initial revision
kono
parents:
diff changeset
11 #include "less.h"
bce86c4163a3 Initial revision
kono
parents:
diff changeset
12
bce86c4163a3 Initial revision
kono
parents:
diff changeset
13 extern int squeeze;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
14 extern int chopline;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
15 extern int sigs;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
16
bce86c4163a3 Initial revision
kono
parents:
diff changeset
17 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
18 * Get the next line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
19 * A "current" position is passed and a "new" position is returned.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
20 * The current position is the position of the first character of
bce86c4163a3 Initial revision
kono
parents:
diff changeset
21 * a line. The new position is the position of the first character
bce86c4163a3 Initial revision
kono
parents:
diff changeset
22 * of the NEXT line. The line obtained is the line starting at curr_pos.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
23 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
24 public POSITION
bce86c4163a3 Initial revision
kono
parents:
diff changeset
25 forw_line(curr_pos)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
26 POSITION curr_pos;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
27 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
28 POSITION new_pos;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
29 register int c;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
30 int blankline;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
31 int endline;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
32
bce86c4163a3 Initial revision
kono
parents:
diff changeset
33 if (curr_pos == NULL_POSITION || ch_seek(curr_pos))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
34 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
35 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
36 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
37 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
38
bce86c4163a3 Initial revision
kono
parents:
diff changeset
39 prewind();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
40 plinenum(curr_pos);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
41 (void) ch_seek(curr_pos);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
42
bce86c4163a3 Initial revision
kono
parents:
diff changeset
43 c = ch_forw_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
44 if (c == EOI)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
45 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
46 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
47 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
48 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
49 blankline = (c == '\n' || c == '\r');
bce86c4163a3 Initial revision
kono
parents:
diff changeset
50
bce86c4163a3 Initial revision
kono
parents:
diff changeset
51 for (;;)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
52 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
53 if (sigs)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
54 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
55 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
56 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
57 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
58 if (c == '\n' || c == EOI)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
59 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
60 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
61 * End of the line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
62 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
63 new_pos = ch_tell();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
64 endline = 1;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
65 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
66 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
67
bce86c4163a3 Initial revision
kono
parents:
diff changeset
68 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
69 * Append the char to the line and get the next char.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
70 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
71 if (pappend(c))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
72 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
73 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
74 * The char won't fit in the line; the line
bce86c4163a3 Initial revision
kono
parents:
diff changeset
75 * is too long to print in the screen width.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
76 * End the line here.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
77 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
78 if (chopline)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
79 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
80 do
bce86c4163a3 Initial revision
kono
parents:
diff changeset
81 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
82 c = ch_forw_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
83 } while (c != '\n' && c != EOI);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
84 new_pos = ch_tell();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
85 endline = 1;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
86 } else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
87 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
88 new_pos = ch_tell() - 1;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
89 endline = 0;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
90 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
91 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
92 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
93 c = ch_forw_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
94 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
95 pdone(endline);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
96
bce86c4163a3 Initial revision
kono
parents:
diff changeset
97 if (squeeze && blankline)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
98 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
99 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
100 * This line is blank.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
101 * Skip down to the last contiguous blank line
bce86c4163a3 Initial revision
kono
parents:
diff changeset
102 * and pretend it is the one which we are returning.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
103 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
104 while ((c = ch_forw_get()) == '\n' || c == '\r')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
105 if (sigs)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
106 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
107 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
108 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
109 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
110 if (c != EOI)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
111 (void) ch_back_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
112 new_pos = ch_tell();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
113 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
114
bce86c4163a3 Initial revision
kono
parents:
diff changeset
115 return (new_pos);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
116 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
117
bce86c4163a3 Initial revision
kono
parents:
diff changeset
118 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
119 * Get the previous line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
120 * A "current" position is passed and a "new" position is returned.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
121 * The current position is the position of the first character of
bce86c4163a3 Initial revision
kono
parents:
diff changeset
122 * a line. The new position is the position of the first character
bce86c4163a3 Initial revision
kono
parents:
diff changeset
123 * of the PREVIOUS line. The line obtained is the one starting at new_pos.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
124 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
125 public POSITION
bce86c4163a3 Initial revision
kono
parents:
diff changeset
126 back_line(curr_pos)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
127 POSITION curr_pos;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
128 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
129 POSITION new_pos, begin_new_pos;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
130 int c;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
131 int endline;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
132
bce86c4163a3 Initial revision
kono
parents:
diff changeset
133 if (curr_pos == NULL_POSITION || curr_pos <= ch_zero() ||
bce86c4163a3 Initial revision
kono
parents:
diff changeset
134 ch_seek(curr_pos-1))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
135 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
136 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
137 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
138 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
139
bce86c4163a3 Initial revision
kono
parents:
diff changeset
140 if (squeeze)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
141 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
142 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
143 * Find out if the "current" line was blank.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
144 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
145 (void) ch_forw_get(); /* Skip the newline */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
146 c = ch_forw_get(); /* First char of "current" line */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
147 (void) ch_back_get(); /* Restore our position */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
148 (void) ch_back_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
149
bce86c4163a3 Initial revision
kono
parents:
diff changeset
150 if (c == '\n')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
151 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
152 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
153 * The "current" line was blank.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
154 * Skip over any preceding blank lines,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
155 * since we skipped them in forw_line().
bce86c4163a3 Initial revision
kono
parents:
diff changeset
156 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
157 while ((c = ch_back_get()) == '\n' || c == '\r')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
158 if (sigs)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
159 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
160 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
161 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
162 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
163 if (c == EOI)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
164 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
165 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
166 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
167 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
168 (void) ch_forw_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
169 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
170 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
171
bce86c4163a3 Initial revision
kono
parents:
diff changeset
172 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
173 * Scan backwards until we hit the beginning of the line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
174 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
175 for (;;)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
176 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
177 if (sigs)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
178 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
179 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
180 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
181 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
182 c = ch_back_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
183 if (c == '\n')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
184 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
185 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
186 * This is the newline ending the previous line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
187 * We have hit the beginning of the line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
188 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
189 new_pos = ch_tell() + 1;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
190 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
191 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
192 if (c == EOI)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
193 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
194 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
195 * We have hit the beginning of the file.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
196 * This must be the first line in the file.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
197 * This must, of course, be the beginning of the line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
198 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
199 new_pos = ch_tell();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
200 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
201 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
202 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
203
bce86c4163a3 Initial revision
kono
parents:
diff changeset
204 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
205 * Now scan forwards from the beginning of this line.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
206 * We keep discarding "printable lines" (based on screen width)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
207 * until we reach the curr_pos.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
208 *
bce86c4163a3 Initial revision
kono
parents:
diff changeset
209 * {{ This algorithm is pretty inefficient if the lines
bce86c4163a3 Initial revision
kono
parents:
diff changeset
210 * are much longer than the screen width,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
211 * but I don't know of any better way. }}
bce86c4163a3 Initial revision
kono
parents:
diff changeset
212 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
213 if (ch_seek(new_pos))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
214 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
215 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
216 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
217 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
218 endline = 0;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
219 loop:
bce86c4163a3 Initial revision
kono
parents:
diff changeset
220 begin_new_pos = new_pos;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
221 prewind();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
222 plinenum(new_pos);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
223 (void) ch_seek(new_pos);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
224
bce86c4163a3 Initial revision
kono
parents:
diff changeset
225 do
bce86c4163a3 Initial revision
kono
parents:
diff changeset
226 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
227 c = ch_forw_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
228 if (c == EOI || sigs)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
229 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
230 null_line();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
231 return (NULL_POSITION);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
232 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
233 new_pos++;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
234 if (c == '\n')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
235 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
236 endline = 1;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
237 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
238 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
239 if (pappend(c))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
240 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
241 /*
bce86c4163a3 Initial revision
kono
parents:
diff changeset
242 * Got a full printable line, but we haven't
bce86c4163a3 Initial revision
kono
parents:
diff changeset
243 * reached our curr_pos yet. Discard the line
bce86c4163a3 Initial revision
kono
parents:
diff changeset
244 * and start a new one.
bce86c4163a3 Initial revision
kono
parents:
diff changeset
245 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
246 if (chopline)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
247 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
248 endline = 1;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
249 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
250 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
251 pdone(0);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
252 (void) ch_back_get();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
253 new_pos--;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
254 goto loop;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
255 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
256 } while (new_pos < curr_pos);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
257
bce86c4163a3 Initial revision
kono
parents:
diff changeset
258 pdone(endline);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
259
bce86c4163a3 Initial revision
kono
parents:
diff changeset
260 return (begin_new_pos);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
261 }