












July 82

%   		Prolog Pr
-Printer
%   For doc
tation, see the 
ine helper f
Mec:PP.H
:- p


































































































































































































































































































































































4 is "^"
	(   C = 94, put(C)	%   ^^ -> ^
	;   C < 32		%   ignore control characters
	;   D
C/\31,put(D)	%   control shift
	),  !,
	puts(Rest).
puts([C|Rest]) :-
	put(C),
	puts(R
.


answer_List([Head], Separator) :- !,
	writeq(Head), put(46), put(Separator).		
6 is ","
answer_List([Head|Tail], Separator) :-
	writeq(Head), put(44), put(Se
tor), !,	%  44 is "."
	answer_List(Tail, Separator).


%   patterns are li
OPS-10 files with wild cards.
%	Ascii 
 '*', Ascii 63 = '?' are the wild card
es.
 
match_wild([Ch|Patt], [Ch|Na
 :- !,
	match_wild(Patt, Name)
tch_wild([63|Patt], [Ch|Na
 :- !,
	match_wild(Pat
ame).
match_wild([
att], [Ch|Name]) :-
	match_wild(Patt, 
Name]), !.
match_wild([42|Patt], [
ame]) :- !,
	match_wild([42|Pa
 Name).
match_wild([42], [
match_wild([], []).



------------------
--------------
----------
------
--















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































,



































































































































