
















   Purpose: Extract predicate names and descriptions from files.



:- public
	h
0,
	help/1,
	help/2.

:- mode
	help(+),
	help(+,+),
	search_help_file(+,+,-)
earch_source_file(+,+),
		look_for_predicate(+,+),
		print_if_not_end_of
ment(+),
	parse_help_line(+,+,-,+,?),
		has_paren(+,-,+,?),
		get_fi
,+,?),
		get_arity(+,?,+,?),
			get_arity(+,+,-,+,?),
	parse_sou
line(+,+,+,?),
	read_a_line(-),
	skip_string(+,+,?),
	skip_s


















































































































































































































































































































































































































 Line, Rest_of_line), %  Find "
ollowed by "#"
	writef(' %s
est_of_line]), nl.

loo
r_comment :-
	repea
read_a_line(Lin
	skip_strin
, 94, L
 Re


























































36, Line, _),		 %  Find "%" follo
by "$"
	!.						%  Finished p
ing
print_if_not_end_of_c
nt(Line) :-
	skip_str
37, Line, Rest_of
e),		%  Scrap
tial "%"

tef('
[


























































































































































	ge


































































































































































































































5),		%  Find "%" followed by "$"

p_spaces,
	has_paren(Predicat
adParen),
	{   Predicate 
[]   },
	get_arity(Ha
en, Arity).


%  
d_a_line(Line
  reads t
ext l
f











































































nd














































































































































 !, skip_spaces.
skip_spaces
 [ 9], !, skip_spaces.
s
spaces --> [].

	ge
