Commit | Line | Data |
---|---|---|
a5458cba KB |
1 | /*- |
2 | * Copyright (c) 1992 The Regents of the University of California. | |
3 | * All rights reserved. | |
4 | * | |
5 | * This code is derived from software contributed to Berkeley by | |
6 | * Rodney Ruddock of the University of Guelph. | |
7 | * | |
8 | * %sccs.include.redist.c% | |
9 | */ | |
10 | ||
11 | #ifndef lint | |
39b75062 | 12 | static char sccsid[] = "@(#)a.c 5.3 (Berkeley) %G%"; |
a5458cba KB |
13 | #endif /* not lint */ |
14 | ||
ecbf4ad0 KB |
15 | #include <sys/types.h> |
16 | ||
39b75062 | 17 | #ifdef DBI |
ecbf4ad0 | 18 | #include <db.h> |
39b75062 | 19 | #endif |
ecbf4ad0 KB |
20 | #include <regex.h> |
21 | #include <setjmp.h> | |
22 | #include <stdio.h> | |
23 | ||
a5458cba | 24 | #include "ed.h" |
ecbf4ad0 | 25 | #include "extern.h" |
a5458cba KB |
26 | |
27 | /* | |
28 | * This sets things up for the central input routine to place the text | |
29 | * at the proper location for an append. | |
30 | */ | |
a5458cba KB |
31 | void |
32 | a(inputt, errnum) | |
ecbf4ad0 KB |
33 | FILE *inputt; |
34 | int *errnum; | |
a5458cba | 35 | { |
ecbf4ad0 KB |
36 | if (rol(inputt, errnum)) |
37 | return; | |
a5458cba | 38 | |
ecbf4ad0 KB |
39 | if (g_flag == 0) |
40 | u_clr_stk(); | |
ecbf4ad0 KB |
41 | add_flag = 1; |
42 | input_lines(inputt, errnum); | |
43 | add_flag = 0; | |
44 | } |