blob: 1270abe29d263475595a1748c486a9e9febd5c7a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ctype.h>
include "help.h"
# DO_FILE_TEMPLATE -- Called with a template matching a list of files containing
# help blocks. All help blocks therein are processed and output.
procedure do_file_template (template, ctrl)
char template[ARB] # filename matching template
pointer ctrl # Help control structure
char fname[SZ_FNAME]
int option
pointer list
pointer fntopn()
int fntgfn()
begin
list = fntopn (template)
option = H_OPTION(ctrl)
while (fntgfn (list, fname, SZ_FNAME) != EOF)
call pr_helpblock (fname, "", "", NULL, ctrl)
call fntcls (list)
end
|
